In [ ]:
. ./nbs_header.ps1
. ./core.ps1
In [ ]:
{ pwsh ../apps/builder/build.ps1 } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
── fsharp - import ─────────────────────────────────────────────────────────────
Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
TextWriter)->fprintfn writer "%120A" x)
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fabl... _v5=None"
US5_1
and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
let v3 : (unit -> US4) = closure5(v0, v1, v2)
let v4 : (US4 -> US5) = closure6()
let v5 : (exn -> US5) = closure7(v2)
let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
match v6 with
| US5_1 -> (* None *)
let v8 : int32 = v2 + 1
method6(v0, v1, v8)
| US5_0(v7) -> (* Some *)
v7
and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
let v2 : int32 = 0
let v3 : US4 = method6(v0, v1, v2)
match v3 with
| US4_1 -> (* None *)
let v5 : unit option = None
v5
| US4_0 -> (* Some *)
let v4 : unit option = Some ()
v4
and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
closure4(v0)
and method12 (v0 : (unit -> unit)) : (unit -> unit) =
v0
and closure13 (v0 : Lazy<unit>) () : unit =
v0.Value
()
and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
let v1 : (unit -> unit) = method12(v0)
let v2 : Lazy<unit> = lazy v1 ()
closure13(v2)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
let new_disposable x = v2 x
let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
let retry_fn x = v3 x
let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
let memoize x = v4 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
let replace x = v4 x
let v5 : (string -> (string -> (string -> string))) = closure13()
let replace_regex x = v5 x
let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
let slice x = v6 x
let v7 : (string -> (string -> (string [[]]))) = closure19()
let split x = v7 x
let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
let split_string x = v8 x
let v9 : (string -> (string -> bool)) = closure23()
let starts_with x = v9 x
let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
let substring x = v10 x
let v11 : (string -> string) = closure28()
let to_lower x = v11 x
let v12 : (string -> string) = closure29()
let to_upper x = v12 x
let v13 : (string -> string) = closure30()
let trim x = v13 x
let v14 : ((char [[]]) -> (string -> string)) = closure31()
let trim_end x = v14 x
let v15 : ((char [[]]) -> (string -> string)) = closure33()
let trim_start x = v15 x
let v16 : (int32 -> (string -> string)) = closure35()
let ellipsis x = v16 x
let v17 : (int64 -> (string -> string)) = closure37()
let ellipsis_end x = v17 x
let v18 : (exn -> string) = closure39()
let format_exception x = v18 x
let v19 : (string -> ((string [[]]) -> string)) = closure40()
let concat_array_trailing x = v19 x
let v20 : (string -> (string seq -> string)) = closure42()
let concat x = v20 x
let v21 : (string -> ((string [[]]) -> string)) = closure44()
let join' x = v21 x
let v22 : (string -> (char [[]])) = closure46()
let to_char_array x = v22 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v28 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v28
()
#endif
#if FABLE_COMPILER_TYPESCRIPT
System.Console.WriteLine v24
()
#endif
#if FABLE_COMPILER_PYTHON
System.Console.WriteLine v24
()
#endif
#else
System.Console.WriteLine v24
()
#endif
|> fun x -> _v25 <- Some x
match _v25 with Some x -> x | None -> failwith "base.run_target /
_v25=None"
let v29 : (string -> unit) = v8.l0
v29 v24
and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
let v3 : (unit -> string) = closure5(v0, v1, v2)
method11(v0, v3)
and closure1 () (v0 : string) : uint16 =
let v1 : char = v0.[[int 0]]
let v2 : (char -> int32) = int32
let v3 : int32 = v2 v1
let v4 : string = v0.[[int 0..int 7]]
let v5 : int32 = System.Convert.ToInt32 (v4, 16)
let v6 : int32 = v5 + v3
let v7 : (int32 -> uint16) = uint16
let v8 : uint16 = v7 v6
let v9 : US0 = US0_0
let v10 : (unit -> string) = closure2()
let v11 : (unit -> string) = closure3(v3, v4, v8)
method3(v9, v10, v11)
let v12 : uint16 = v8 % 48128us
let v13 : uint16 = v12 + 1024us
v13
let v0 : (string -> string) = closure0()
let hash_text x = v0 x
let v1 : (string -> uint16) = closure1()
let hash_to_port x = v1 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C...64) : System.Guid =
let v1 : (unit -> System.Guid) = System.Guid.NewGuid
let v2 : System.Guid = v1 ()
let v3 : (System.Guid -> string) = _.ToString()
let v4 : string = v3 v2
let v5 : (int64 -> string) = _.ToString()
let v6 : string = v5 v0
let v7 : string = v6.PadLeft (18, '0')
let v8 : System.Guid = System.Guid
$"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
v8
and closure12 (v0 : string) (v1 : System.DateTime) : string =
let v2 : (string -> string) = v1.ToString
v2 v0
and closure11 () (v0 : string) : (System.DateTime -> string) =
closure12(v0)
and closure13 () (v0 : System.DateTime) : string =
let v1 : (string -> string) = v0.ToString
let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
v1 v2
let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
let date_time_guid_from_date_time x = v0 x
let v1 : (System.Guid -> System.DateTime) = closure2()
let date_time_from_guid x = v1 x
let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
let timestamp_guid_from_timestamp x = v2 x
let v3 : (System.Guid -> int64) = closure8()
let timestamp_from_guid x = v3 x
let v4 : (System.DateTime -> System.Guid) = closure9()
let new_guid_from_date_time x = v4 x
let v5 : (int64 -> System.Guid) = closure10()
let new_guid_from_timestamp x = v5 x
let v6 : (string -> (System.DateTime -> string)) = closure11()
let format x = v6 x
let v7 : (System.DateTime -> string) = closure13()
let format_iso8601 x = v7 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
#endif
type futures_future_JoinAll<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
#endif
type futures_future_TryJoinAll<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
#endif
type rayon_iter_Map<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
#endif
type rayon_vec_IntoIter<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
#endif
type std_future_Future<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
#endif
type futures_future_Fuse<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
#endif
type tokio_task_JoinHandle<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
#endif
type tokio_stream_StreamExt = class end
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : bool = true
let mutable _v1 : Async<System.Threading.CancellationToken> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.Canc...eading.CancellationToken>>
v12
#endif
#else
let v13 : Async<System.Threading.CancellationToken> option = None
let mutable _v13 = v13
async {
let v14 : Async<System.Threading.CancellationToken> =
Async.CancellationToken
let! v14 = v14
let v15 : System.Threading.CancellationToken = v14
let v16 : System.Threading.CancellationToken =
Async.DefaultCancellationToken
let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
let v18 : ((System.Threading.CancellationToken [[]]) ->
System.Threading.CancellationTokenSource) =
System.Threading.CancellationTokenSource.CreateLinkedTokenSource
let v19 : System.Threading.CancellationTokenSource = v18 v17
let v20 : System.Threading.CancellationToken = v19.Token
return v20
}
|> fun x -> _v13 <- Some x
let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
-> x | None -> failwith "async.new_async_unit / _v13=None"
v21
#endif
|> fun x -> _v7 <- Some x
let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
-> x | None -> failwith "base.run_target / _v7=None"
v22
#endif
|> fun x -> _v1 <- Some x
let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
-> x | None -> failwith "base.run_target / _v1=None"
v23
let v0 : (System.Threading.CancellationToken ->
Async<System.Threading.CancellationToken>) = closure0()
let merge_cancellation_token_with_default_async x = v0 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
#endif
type std_thread_JoinHandle<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
#endif
type std_sync_Arc<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
#endif
type std_sync_Mutex<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
#endif
type std_sync_MutexGuard<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
#endif
type std_sync_PoisonError<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
#endif
type std_sync_mpsc_Receiver<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
#endif
type std_sync_mpsc_SendError<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
#endif
type std_sync_mpsc_Sender<'T> = class end
type Disposable (f : unit -> unit) = interface System.IDisposable with member
_.Dispose () = f ()
type [[<Struct>]] US0 =
| US0_0 of f0_0 : System.Threading.CancellationToken
| US0_1
let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
let v1 : bool = true
let mutable _v1 : unit option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
"$0()" )
v28
#endif
#if FABLE_COMPILER_RUST && WASM
let v29 : (unit -> unit) = method0(v25)
let v30 : System.IDisposable = new Disposable (fun () ->
Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
v30
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v31 : (unit -> unit) = method0(v25)
let v32 : System.IDisposable = new Disposable (fun () ->
Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
v32
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v33 : System.IDisposable = null |> unbox<System.IDisposable>
v33
#endif
#if FABLE_COMPILER_PYTHON
let v34 : System.IDisposable = null |> unbox<System.IDisposable>
v34
#endif
#else
let v35 : (unit -> unit) = method1(v25)
let v36 : System.IDisposable = { new System.IDisposable with member
_.Dispose () = v35 () }
v36
#endif
|> fun x -> _v26 <- Some x
let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
failwith "base.run_target / _v26=None"
let v38 : System.Threading.CancellationToken = v25.Token
struct (v38, v37)
#endif
|> fun x -> _v1 <- Some x
let struct (v39 : System.Threading.CancellationToken, v40 :
System.IDisposable) = match _v1 with Some x -> x | None -> failwith
"base.run_target / _v1=None"
struct (v39, v40)
let v0 : (System.Threading.CancellationToken option -> struct
(System.Threading.CancellationToken * System.IDisposable)) = closure0()
let new_disposable_token x = v0 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
#endif
type reqwest_Error = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
#endif
type reqwest_RequestBuilder = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
#endif
type reqwest_Response = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
... v212 = v212
let v213 : bool = v212
let v214 : bool = v213 = false
if v214 then
return v2
(*
()
else
*) else
let v215 : int32 = v2 + 1
let v216 : Async<int32> = method10(v0, v1, v215)
return! v216
(*
()
*)
}
|> fun x -> _v9 <- Some x
let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
"async.new_async_unit / _v9=None"
v217
#endif
|> fun x -> _v3 <- Some x
let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
"base.run_target / _v3=None"
v218
and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
method10(v0, v1, v2)
and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
closure23(v0, v1)
and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
closure22(v0)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (string -> (int32 -> Async<bool>)) = closure2()
let test_port_open x = v2 x
let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
let test_port_open_timeout x = v3 x
let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
closure15()
let wait_for_port_access x = v4 x
let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
let get_available_port x = v5 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1 of f1_0 : US0
| US1_2 of f2_0 : US0
| US1_3 of f3_0 : US0
| US1_4 of f4_0 : US0
let rec closure0 () () : bool =
let v0 : bool = true
let mutable _v0 : bool option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : string = "cfg!(windows)"
let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = "cfg!(windows)"
let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = "cfg!(windows)"
let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : US0 = US0_0
let v8 : US1 = US1_3(v7)
let v9 : string = $"platform.is_windows / target: {v8}"
let v10 : bool = failwith<bool> v9
v10
#endif
#if FABLE_COMPILER_PYTHON
let v11 : US0 = US0_0
let v12 : US1 = US1_4(v11)
let v13 : string = $"platform.is_windows / target: {v12}"
let v14 : bool = failwith<bool> v13
v14
#endif
#else
let v15 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v17 : b...: string = "cfg!(windows)"
let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = "cfg!(windows)"
let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : string = "cfg!(windows)"
let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : US0 = US0_0
let v8 : US1 = US1_3(v7)
let v9 : string = $"platform.is_windows / target: {v8}"
let v10 : bool = failwith<bool> v9
v10
#endif
#if FABLE_COMPILER_PYTHON
let v11 : US0 = US0_0
let v12 : US1 = US1_4(v11)
let v13 : string = $"platform.is_windows / target: {v12}"
let v14 : bool = failwith<bool> v13
v14
#endif
#else
let v15 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v17 : bool = v16 v15
v17
#endif
|> fun x -> _v0 <- Some x
let v18 : bool = match _v0 with Some x -> x | None -> failwith
"base.run_target / _v0=None"
if v18 then
let v19 : string = ".exe"
v19
else
let v20 : string = ""
v20
let v0 : (unit -> bool) = closure0()
let is_windows () = v0 ()
let v1 : (unit -> string) = closure1()
let get_executable_suffix () = v1 ()
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
#endif
type clap_Arg = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
#endif
type clap_ArgAction = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
#endif
type clap_Command = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
#endif
type clap_ArgMatches = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
#endif
type clap_builder_ValueRange = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
#endif
type clap_builder_ValueParser = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
#endif
type clap_builder_PossibleValue = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
#endif
type std_process_Child = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
#endif
type std_process_ChildStderr = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
#endif
type std_process_ChildStdout = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
#endif
type std_process_ChildStdin = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
#endif
type std_process_Command = class... with
| US14_1(v28) -> (* Error *)
US8_1(v28)
| US14_0(v26) -> (* Ok *)
US8_0(v26)
and closure19 () (v0 : string) : Result<(string [[]]), string> =
let v1 : US8 = method16(v0)
match v1 with
| US8_1(v4) -> (* Error *)
let v5 : Result<(string [[]]), string> = Error v4
v5
| US8_0(v2) -> (* Ok *)
let v3 : Result<(string [[]]), string> = Ok v2
v3
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (unit -> unit) = closure2()
let current_process_kill () = v2 ()
let v3 : (string -> Async<struct (int32 * string)>) = closure7()
let execute_async x = v3 x
let v4 : (struct (System.Threading.CancellationToken option * string * (struct
(string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
* (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
string option) -> Async<struct (int32 * string)>) = closure17()
let execute_with_options_async x = v4 x
let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
* string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
unit) option * bool * string option)) = closure18()
let execution_options x = v5 x
let v6 : (string -> Result<(string [[]]), string>) = closure19()
let split_args x = v6 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
#endif
type std_fs_File = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
#endif
type std_fs_FileType = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
#endif
type std_path_Display = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
#endif
type std_path_Path = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
#endif
type std_path_PathBuf = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
#endif
type async_walkdir_DirEntry = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
#endif
type async_walkdir_Filtering = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
#endif
type async_walkdir_WalkDir = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = cla...4>) = closure12()
let wait_for_file_access_read x = v4 x
let v5 : (string -> Async<string>) = closure13()
let read_all_text_async x = v5 x
let v6 : (string -> (string -> Async<bool>)) = closure14()
let file_exists_content x = v6 x
let v7 : (string -> (string -> Async<unit>)) = closure16()
let write_all_text_async x = v7 x
let v8 : (string -> (string -> Async<unit>)) = closure18()
let write_all_text_exists x = v8 x
let v9 : (string -> Async<int64>) = closure20()
let delete_file_async x = v9 x
let v10 : (string -> (string -> Async<int64>)) = closure23()
let move_file_async x = v10 x
let v11 : (string -> Async<string option>) = closure27()
let read_all_text_retry_async x = v11 x
let v12 : (unit -> string) = closure35()
let create_temp_path () = v12 ()
let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
let create_temp_dir () = v13 ()
let v14 : (string -> struct (string * System.IDisposable)) = closure48()
let create_temp_dir' x = v14 x
let v15 : (unit -> string) = closure49()
let get_source_directory () = v15 ()
let v16 : (string -> (bool -> (string -> string))) = closure50()
let find_parent x = v16 x
let v17 : (string -> string) = closure56()
let normalize_path x = v17 x
let v18 : (string -> string) = closure57()
let new_file_uri x = v18 x
let v19 : (unit -> string) = closure58()
let get_workspace_root () = v19 ()
let v20 : (bool -> unit) = closure59()
let init_trace_file x = v20 x
let v21 : (string -> (string -> string)) = closure61()
let (</>) x = v21 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[[<Fable.Core.Erase; Fable.C... #endif
#if FABLE_COMPILER_RUST && WASM
let v27 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v27
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v28 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v28
()
#endif
#if FABLE_COMPILER_TYPESCRIPT
System.Console.WriteLine v24
()
#endif
#if FABLE_COMPILER_PYTHON
System.Console.WriteLine v24
()
#endif
#else
System.Console.WriteLine v24
()
#endif
|> fun x -> _v25 <- Some x
match _v25 with Some x -> x | None -> failwith "base.run_target /
_v25=None"
let v29 : (string -> unit) = v8.l0
v29 v24
and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
let v3 : (unit -> string) = closure5(v0, v1, v2)
method8(v0, v3)
and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
method4(v0, v1, v2)
and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
closure4(v0, v1)
and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
closure3(v0)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
let trace x = v2 x
()
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
type TraceLevel =
#if !INTERACTIVE
Trace.US0
#else
US0
#endif
module SpiralCrypto =
let hash_text x =
#if !INTERACTIVE
Crypto.hash_text x
#else
hash_text x
#endif
let hash_to_port x =
#if !INTERACTIVE
Crypto.hash_to_port x
#else
hash_to_port x
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x =
#if !INTERACTIVE
Async_.merge_cancellation_token_with_default_async x
#else
merge_cancellation_token_with_default_async x
#endif
module SpiralThreading =
let new_disposable_token x =
#if !INTERACTIVE
Threading.new_disposable_token x
#else
new_disposable_token x
#endif
module SpiralNetworking =
let test_port_open x =
#if !INTERACTIVE
Networking.test_port_open x
#else
test_port_open x
#endif
let test_port_open_timeout x =
#if !INTERACTIVE
Networking.test_port_open_timeout x
#else
test_port_open_timeout x
#endif
let wait_for_port_access x =
#if !INTERACTIVE
Networking.wait_for_port_access x
#else
wait_for_port_access x
#endif
let get_available_port x =
#if !INTERACTIVE
Networking.get_available_port x
#else
get_available_port x
#endif
module SpiralPlatform =
let get_executable_suffix () =
#if !INTERACTIVE
Platform.g...e.trace_state
|> Option.iter (fun struct (_, _, level, _, _) ->
level.l0 <-
match new_level with
| Trace.US0_0 -> File_system.US0_0
| Trace.US0_1 -> File_system.US0_1
| Trace.US0_2 -> File_system.US0_2
| Trace.US0_3 -> File_system.US0_3
| Trace.US0_4 -> File_system.US0_4
)
Runtime.State.trace_state
|> Option.iter (fun struct (_, _, level, _, _) ->
level.l0 <-
match new_level with
| Trace.US0_0 -> Runtime.US0_0
| Trace.US0_1 -> Runtime.US0_1
| Trace.US0_2 -> Runtime.US0_2
| Trace.US0_3 -> Runtime.US0_3
| Trace.US0_4 -> Runtime.US0_4
)
Common.State.trace_state
|> Option.iter (fun struct (_, _, level, _, _) ->
level.l0 <-
match new_level with
| Trace.US0_0 -> Common.US0_0
| Trace.US0_1 -> Common.US0_1
| Trace.US0_2 -> Common.US0_2
| Trace.US0_3 -> Common.US0_3
| Trace.US0_4 -> Common.US0_4
)
Trace.State.trace_state
#else
State.trace_state
#endif
|> Option.iter (fun (struct (_, _, level, _, _)) ->
level.l0 <- new_level
)
let get_trace_level () =
#if !INTERACTIVE
Trace.State.trace_state
#else
State.trace_state
#endif
|> Option.map (fun struct (_, _, level, _, _) ->
level.l0
)
|> Option.defaultWith (fun () -> failwith "lib.get_trace_level /
trace_state=None")
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log expected actual
let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
let inline __isGreaterThanOrEqual log expected actual = __expect
Expecto.Expect.isGreaterThanOrEqual log expected actual
let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
expected actual
let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
log expected actual
let inline _isLessThan expected actual = __isLessThan true expected actual
let inline __isLessThanOrEqual log expected actual = __expect
Expecto.Expect.isLessThanOrEqual log expected actual
let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
expected actual
let inline __sequenceEqual log expected actual = __expect
Expecto.Expect.sequenceEqual log expected actual
let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
let inline __stringContains log expected actual = __expect
Expecto.Expect.stringContains log expected actual
let inline _stringContains expected actual = __stringContains true expected
actual
let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
log expected actual
let inline _stringEnds expected actual = __stringEnds true expected actual
let inline __stringStarts log expected actual = __expect
Expecto.Expect.stringStarts log expected actual
let inline _stringStarts expected actual = __stringStarts true expected actual
let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
expected actual
let inline _throwsC expected actual = __throwsC true expected actual
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 612.83ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ d---- 2024-05-14 8:20 PM 6.2.3 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline _locals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.TraceLevel.US0_0
| Debug -> SpiralTrace.TraceLevel.US0_1
| Info -> SpiralTrace.TraceLevel.US0_2
| Warning -> SpiralTrace.TraceLevel.US0_3
| Critical -> SpiralTrace.TraceLevel.US0_4
let trace level fn locals =
let level = level |> to_trace_level
SpiralTrace.trace level fn locals
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
a
|> Async.Catch
|> map (function
| Choice1Of2 result -> Ok result
| Choice2Of2 ex -> Error ex
)
/// ## runWithTimeoutChoiceAsync
let inline runWithTimeoutChoiceAsync (timeout : int) fn =
let _locals () = $"timeout: {timeout} / {_locals ()}"
let timeoutTask = async {
do! Async.Sleep timeout
trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
return None
}
let task = async {
try
let! result = fn
return Some result
with
| :? System.AggregateException as ex when
ex.InnerExceptions
|> Seq.exists (function :? Sy... None
/// ## awaitValueTask
let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
task.AsTask () |> Async.AwaitTask
let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
task.AsTask () |> Async.AwaitTask
/// ## init
let inline init x = async {
return x
}
/// ## withCancellationToken
let inline withCancellationToken (ct : System.Threading.CancellationToken)
fn =
Async.StartImmediateAsTask (fn, ct)
|> Async.AwaitTask
/// ## retryAsync
let inline retryAsync retries fn =
let rec loop retry lastError = async {
try
return!
if retry <= retries
then fn |> map Ok
else lastError |> Error |> init
with ex ->
trace Debug (fun () -> $"Async.retryAsync / retry:
{retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
do! Async.Sleep 1
return! loop (retry + 1) (ex |> SpiralSm.format_exception)
}
loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
/// ## fold
let fold folder state array =
let rec loop acc i =
async {
if i < Array.length array then
let! newAcc = folder acc array.[[i]]
return! loop newAcc (i + 1)
else
return acc
}
loop state 0
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
/// ## subscribeToken
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.AsyncSeq.unfoldAsync
(fun () -> async {
do! tcs.Task |> Async.AwaitTask
return Some (System.DateTime.Now.Ticks - start, ())
})
()
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## parseArgs
let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
let assemblyName =
System.Reflection.Assembly.GetEntryAssembly().GetName().Name
let errorHandler : Argu.IExiter =
if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
List.contains assemblyName
then Argu.ExceptionExiter ()
else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
_ -> Some System.ConsoleColor.Red)
let parser =
Argu.ArgumentParser.Create<'T> (
programName =
$"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
errorHandler = errorHandler
)
parser.ParseCommandLine args
let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
args
|> parseArgs<'T>
|> fun results -> results.GetAllResults ()
let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
args
|> parseAllArgs<'T>
|> List.groupBy CommonFSharp.getUnionCaseName<'T>
|> Map.ofList
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> System.IO.Path.GetFullPath
let _locals () = $"filter: {filter} / {_locals ()}"
let watcher =
new System.IO.FileSystemWatcher (
Path = fullPath,
NotifyFilter = filter,
EnableRaisingEvents = true,
IncludeSubdirectories = true
)
let inline getEventPath (path : string) =
path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
SpiralSm.trim_start [[| '/'; '\\' |]]
let inline ticks () =
System.DateTime.UtcNow.Ticks
let changedStream =
AsyncSeq.subscribeEvent
watcher.Changed
(fun event ->
ticks (),
[[ FileSystemChang...d_all_text_retry_async
return t, FileSystemChange.Changed (path, content)
| true, FileSystemChange.Created (path, _) ->
do! Async.Sleep 5
let! content = fullPath </> path |>
SpiralFileSystem.read_all_text_retry_async
return t, FileSystemChange.Created (path, content)
| true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
let! content = fullPath </> newPath |>
SpiralFileSystem.read_all_text_retry_async
return t, FileSystemChange.Renamed (oldPath, (newPath,
content))
| _ -> return t, event
})
let disposable =
new_disposable (fun () ->
trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
watch stream") _locals
watcher.EnableRaisingEvents <- false
watcher.Dispose ()
)
stream, disposable
let inline watchDirectory path =
watchDirectoryWithFilter
(System.IO.NotifyFilters.FileName
// ||| System.IO.NotifyFilters.DirectoryName
// ||| System.IO.NotifyFilters.Attributes
//// ||| System.IO.NotifyFilters.Size
||| System.IO.NotifyFilters.LastWrite
//// ||| System.IO.NotifyFilters.LastAccess
// ||| System.IO.NotifyFilters.CreationTime
// ||| System.IO.NotifyFilters.Security
)
path
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 84.89ms - stdout ]─────────────────────────────────────────────────────────╮
│ "a │
│ #!magic │
│ b │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 48.85ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: "#!" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 56.91ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure: │
│ Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 39.79ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: "magic" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 43.11ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure: │
│ Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 130.23ms - stdout ]────────────────────────────────────────────────────────╮
│ Success: "#!magic │
│ │
│ │
│ a" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 39.91ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: { magic = "magic" │
│ content = "a" } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 46.84ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success: [{ magic = "magic1" │
│ content = "a" }; { magic = "magic2" │
│ content = "b" }] │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "/// "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 55.44ms - stdout ]─────────────────────────────────────────────────────────╮
│ "/// a │
│ /// │
│ /// b │
│ /// │
│ /// c" │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (fun block ->
block, formatBlock output block
)
|> List.filter (snd >> (<>) "")
|> fun list ->
(list, (None, [[]]))
||> List.foldBack (fun (block, content) (lastMagic, acc) ->
let lineBreak =
if block.magic = "markdown" && lastMagic <> Some "markdown" &&
lastMagic <> None
then ""
else "\n"
Some block.magic, $"{content}{lineBreak}" :: acc
)
|> snd
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 79.32ms - stdout ]─────────────────────────────────────────────────────────╮
│ "/// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ let a = 1 │
│ │
│ /// e │
│ let a = 3 │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
//// test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 183.90ms - stdout ]────────────────────────────────────────────────────────╮
│ "#if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ open System │
│ │
│ /// ### TextInput │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 176.62ms - stdout ]────────────────────────────────────────────────────────╮
│ "# TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "/// # TestModule (TestNamespace)
/// ## ParserLibrary
inl x = 0i32
/// ### TextInput
"
╭─[ 173.17ms - stdout ]────────────────────────────────────────────────────────╮
│ "/// # TestModule (TestNamespace) │
│ │
│ /// ## ParserLibrary │
│ inl x = 0i32 │
│ │
│ /// ### TextInput │
│ " │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
trace Debug
(fun () -> "parseDibCode")
(fun () -> $"output: {output} / file: {file} / {_locals ()}")
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
trace Debug
(fun () -> "writeDibCode")
(fun () -> $"output: {output} / path: {path} / {_locals ()}")
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 114.86ms - return value ]──────────────────────────────────────────────────╮
│ "USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ " │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> SpiralRuntime.split_args
|> Result.toArray
|> Array.collect id
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 175.25ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0 │
│ </pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 178.57ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:06 debug #1 writeDibCode / output: Fs / path: Builder.dib │
│ 00:00:06 debug #2 parseDibCode / output: Fs / file: Builder.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Builder.dib"])
00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/builder/Builder.dib", "--output-path", "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/builder/Builder.dib" --output-path "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ # Builder (Polyglot) │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #r
> @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
> dard2.1/FSharp.Control.AsyncSeq.dll"
> #r
> @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
> 0/System.Reactive.dll"
> #r
> @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
> netstandard2.0/System.Reactive.Linq.dll"
> #r
> @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
> spNetCore.Html.Abstractions.dll"
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.dll"
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.FSharp.dll"
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.Formatting.dll"
> open System
> open System.IO
> open System.Text
> open Microsoft.DotNet.Interactive.Formatting
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.FSharp.dll"
> open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
> #r
> "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
> otNet.Interactive.dll"
> open type Microsoft.DotNet.Interactive.Kernel
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
> TextWriter)->fprintfn writer "%120A" x)
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #!import ../../lib/fsharp/Notebooks.dib
> #!import ../../lib/fsharp/Testing.dib
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> Formatter.ListExpansionLimit <- 100
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
> #endif
> type std_env_VarError = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fabl... _v5=None"
> US5_1
> and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
> let v3 : (unit -> US4) = closure5(v0, v1, v2)
> let v4 : (US4 -> US5) = closure6()
> let v5 : (exn -> US5) = closure7(v2)
> let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
> match v6 with
> | US5_1 -> (* None *)
> let v8 : int32 = v2 + 1
> method6(v0, v1, v8)
> | US5_0(v7) -> (* Some *)
> v7
> and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
> let v2 : int32 = 0
> let v3 : US4 = method6(v0, v1, v2)
> match v3 with
> | US4_1 -> (* None *)
> let v5 : unit option = None
> v5
> | US4_0 -> (* Some *)
> let v4 : unit option = Some ()
> v4
> and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
> closure4(v0)
> and method12 (v0 : (unit -> unit)) : (unit -> unit) =
> v0
> and closure13 (v0 : Lazy<unit>) () : unit =
> v0.Value
> ()
> and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
> let v1 : (unit -> unit) = method12(v0)
> let v2 : Lazy<unit> = lazy v1 ()
> closure13(v2)
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
> let new_disposable x = v2 x
> let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
> let retry_fn x = v3 x
> let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
> let memoize x = v4 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
> let replace x = v4 x
> let v5 : (string -> (string -> (string -> string))) = closure13()
> let replace_regex x = v5 x
> let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
> let slice x = v6 x
> let v7 : (string -> (string -> (string [[]]))) = closure19()
> let split x = v7 x
> let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
> let split_string x = v8 x
> let v9 : (string -> (string -> bool)) = closure23()
> let starts_with x = v9 x
> let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
> let substring x = v10 x
> let v11 : (string -> string) = closure28()
> let to_lower x = v11 x
> let v12 : (string -> string) = closure29()
> let to_upper x = v12 x
> let v13 : (string -> string) = closure30()
> let trim x = v13 x
> let v14 : ((char [[]]) -> (string -> string)) = closure31()
> let trim_end x = v14 x
> let v15 : ((char [[]]) -> (string -> string)) = closure33()
> let trim_start x = v15 x
> let v16 : (int32 -> (string -> string)) = closure35()
> let ellipsis x = v16 x
> let v17 : (int64 -> (string -> string)) = closure37()
> let ellipsis_end x = v17 x
> let v18 : (exn -> string) = closure39()
> let format_exception x = v18 x
> let v19 : (string -> ((string [[]]) -> string)) = closure40()
> let concat_array_trailing x = v19 x
> let v20 : (string -> (string seq -> string)) = closure42()
> let concat x = v20 x
> let v21 : (string -> ((string [[]]) -> string)) = closure44()
> let join' x = v21 x
> let v22 : (string -> (char [[]])) = closure46()
> let to_char_array x = v22 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
> ()
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v28 : string = @"println!(""{}"", $0)"
> Fable.Core.RustInterop.emitRustExpr v24 v28
> ()
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> System.Console.WriteLine v24
> ()
> #endif
> #if FABLE_COMPILER_PYTHON
> System.Console.WriteLine v24
> ()
> #endif
> #else
> System.Console.WriteLine v24
> ()
> #endif
> |> fun x -> _v25 <- Some x
> match _v25 with Some x -> x | None -> failwith "base.run_target /
> _v25=None"
> let v29 : (string -> unit) = v8.l0
> v29 v24
> and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
> let v3 : (unit -> string) = closure5(v0, v1, v2)
> method11(v0, v3)
> and closure1 () (v0 : string) : uint16 =
> let v1 : char = v0.[[int 0]]
> let v2 : (char -> int32) = int32
> let v3 : int32 = v2 v1
> let v4 : string = v0.[[int 0..int 7]]
> let v5 : int32 = System.Convert.ToInt32 (v4, 16)
> let v6 : int32 = v5 + v3
> let v7 : (int32 -> uint16) = uint16
> let v8 : uint16 = v7 v6
> let v9 : US0 = US0_0
> let v10 : (unit -> string) = closure2()
> let v11 : (unit -> string) = closure3(v3, v4, v8)
> method3(v9, v10, v11)
> let v12 : uint16 = v8 % 48128us
> let v13 : uint16 = v12 + 1024us
> v13
> let v0 : (string -> string) = closure0()
> let hash_text x = v0 x
> let v1 : (string -> uint16) = closure1()
> let hash_to_port x = v1 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
> let v1 : (unit -> System.Guid) = System.Guid.NewGuid
> let v2 : System.Guid = v1 ()
> let v3 : (System.Guid -> string) = _.ToString()
> let v4 : string = v3 v2
> let v5 : (int64 -> string) = _.ToString()
> let v6 : string = v5 v0
> let v7 : string = v6.PadLeft (18, '0')
> let v8 : System.Guid = System.Guid
> $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
> v8
> and closure12 (v0 : string) (v1 : System.DateTime) : string =
> let v2 : (string -> string) = v1.ToString
> v2 v0
> and closure11 () (v0 : string) : (System.DateTime -> string) =
> closure12(v0)
> and closure13 () (v0 : System.DateTime) : string =
> let v1 : (string -> string) = v0.ToString
> let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
> v1 v2
> let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
> let date_time_guid_from_date_time x = v0 x
> let v1 : (System.Guid -> System.DateTime) = closure2()
> let date_time_from_guid x = v1 x
> let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
> let timestamp_guid_from_timestamp x = v2 x
> let v3 : (System.Guid -> int64) = closure8()
> let timestamp_from_guid x = v3 x
> let v4 : (System.DateTime -> System.Guid) = closure9()
> let new_guid_from_date_time x = v4 x
> let v5 : (int64 -> System.Guid) = closure10()
> let new_guid_from_timestamp x = v5 x
> let v6 : (string -> (System.DateTime -> string)) = closure11()
> let format x = v6 x
> let v7 : (System.DateTime -> string) = closure13()
> let format_iso8601 x = v7 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
> #endif
> type futures_future_JoinAll<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
> #endif
> type futures_future_TryJoinAll<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
> #endif
> type rayon_iter_Map<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
> #endif
> type rayon_vec_IntoIter<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
> #endif
> type std_future_Future<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
> #endif
> type futures_future_Fuse<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
> #endif
> type tokio_task_JoinHandle<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
> #endif
> type tokio_stream_StreamExt = class end
> let rec closure0 () (v0 : System.Threading.CancellationToken) :
> Async<System.Threading.CancellationToken> =
> let v1 : bool = true
> let mutable _v1 : Async<System.Threading.CancellationToken> option = None
>
> #if FABLE_COMPILER || WASM || CONTRACT
>
> #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
> let v2 : Async<System.Threading.CancellationToken> = null |>
> unbox<Async<System.Threading.Canc...eading.CancellationToken>>
> v12
> #endif
> #else
> let v13 : Async<System.Threading.CancellationToken> option = None
> let mutable _v13 = v13
> async {
> let v14 : Async<System.Threading.CancellationToken> =
> Async.CancellationToken
> let! v14 = v14
> let v15 : System.Threading.CancellationToken = v14
> let v16 : System.Threading.CancellationToken =
> Async.DefaultCancellationToken
> let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
> let v18 : ((System.Threading.CancellationToken [[]]) ->
> System.Threading.CancellationTokenSource) =
> System.Threading.CancellationTokenSource.CreateLinkedTokenSource
> let v19 : System.Threading.CancellationTokenSource = v18 v17
> let v20 : System.Threading.CancellationToken = v19.Token
> return v20
> }
> |> fun x -> _v13 <- Some x
> let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
> -> x | None -> failwith "async.new_async_unit / _v13=None"
> v21
> #endif
> |> fun x -> _v7 <- Some x
> let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
> -> x | None -> failwith "base.run_target / _v7=None"
> v22
> #endif
> |> fun x -> _v1 <- Some x
> let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
> -> x | None -> failwith "base.run_target / _v1=None"
> v23
> let v0 : (System.Threading.CancellationToken ->
> Async<System.Threading.CancellationToken>) = closure0()
> let merge_cancellation_token_with_default_async x = v0 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
> #endif
> type std_thread_JoinHandle<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
> #endif
> type std_sync_Arc<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
> #endif
> type std_sync_Mutex<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
> #endif
> type std_sync_MutexGuard<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
> #endif
> type std_sync_PoisonError<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
> #endif
> type std_sync_mpsc_Receiver<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
> #endif
> type std_sync_mpsc_SendError<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
> #endif
> type std_sync_mpsc_Sender<'T> = class end
> type Disposable (f : unit -> unit) = interface System.IDisposable with member
> _.Dispose () = f ()
> type [[<Struct>]] US0 =
> | US0_0 of f0_0 : System.Threading.CancellationToken
> | US0_1
> let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
> let v1 : bool = true
> let mutable _v1 : unit option = None
>
> #if FABLE_COMPILER || WASM || CONTRACT
>
> #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
> "$0()" )
> v28
> #endif
> #if FABLE_COMPILER_RUST && WASM
> let v29 : (unit -> unit) = method0(v25)
> let v30 : System.IDisposable = new Disposable (fun () ->
> Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
> v30
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v31 : (unit -> unit) = method0(v25)
> let v32 : System.IDisposable = new Disposable (fun () ->
> Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
> v32
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> let v33 : System.IDisposable = null |> unbox<System.IDisposable>
> v33
> #endif
> #if FABLE_COMPILER_PYTHON
> let v34 : System.IDisposable = null |> unbox<System.IDisposable>
> v34
> #endif
> #else
> let v35 : (unit -> unit) = method1(v25)
> let v36 : System.IDisposable = { new System.IDisposable with member
> _.Dispose () = v35 () }
> v36
> #endif
> |> fun x -> _v26 <- Some x
> let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
> failwith "base.run_target / _v26=None"
> let v38 : System.Threading.CancellationToken = v25.Token
> struct (v38, v37)
> #endif
> |> fun x -> _v1 <- Some x
> let struct (v39 : System.Threading.CancellationToken, v40 :
> System.IDisposable) = match _v1 with Some x -> x | None -> failwith
> "base.run_target / _v1=None"
> struct (v39, v40)
> let v0 : (System.Threading.CancellationToken option -> struct
> (System.Threading.CancellationToken * System.IDisposable)) = closure0()
> let new_disposable_token x = v0 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
> #endif
> type reqwest_Error = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
> #endif
> type reqwest_RequestBuilder = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
> #endif
> type reqwest_Response = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
> #endif
> type std_env_VarError = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> ... v212 = v212
> let v213 : bool = v212
> let v214 : bool = v213 = false
> if v214 then
> return v2
> (*
> ()
> else
> *) else
> let v215 : int32 = v2 + 1
> let v216 : Async<int32> = method10(v0, v1, v215)
> return! v216
> (*
> ()
> *)
> }
> |> fun x -> _v9 <- Some x
> let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
> "async.new_async_unit / _v9=None"
> v217
> #endif
> |> fun x -> _v3 <- Some x
> let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
> "base.run_target / _v3=None"
> v218
> and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
> method10(v0, v1, v2)
> and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
> closure23(v0, v1)
> and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
> closure22(v0)
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : (string -> (int32 -> Async<bool>)) = closure2()
> let test_port_open x = v2 x
> let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
> let test_port_open_timeout x = v3 x
> let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
> closure15()
> let wait_for_port_access x = v4 x
> let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
> let get_available_port x = v5 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> type [[<Struct>]] US0 =
> | US0_0
> | US0_1
> | US0_2
> and [[<Struct>]] US1 =
> | US1_0 of f0_0 : US0
> | US1_1 of f1_0 : US0
> | US1_2 of f2_0 : US0
> | US1_3 of f3_0 : US0
> | US1_4 of f4_0 : US0
> let rec closure0 () () : bool =
> let v0 : bool = true
> let mutable _v0 : bool option = None
>
> #if FABLE_COMPILER || WASM || CONTRACT
>
> #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
> let v1 : string = "cfg!(windows)"
> let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
> v2
> #endif
> #if FABLE_COMPILER_RUST && WASM
> let v3 : string = "cfg!(windows)"
> let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
> v4
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v5 : string = "cfg!(windows)"
> let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
> v6
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> let v7 : US0 = US0_0
> let v8 : US1 = US1_3(v7)
> let v9 : string = $"platform.is_windows / target: {v8}"
> let v10 : bool = failwith<bool> v9
> v10
> #endif
> #if FABLE_COMPILER_PYTHON
> let v11 : US0 = US0_0
> let v12 : US1 = US1_4(v11)
> let v13 : string = $"platform.is_windows / target: {v12}"
> let v14 : bool = failwith<bool> v13
> v14
> #endif
> #else
> let v15 : System.Runtime.InteropServices.OSPlatform =
> System.Runtime.InteropServices.OSPlatform.Windows
> let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
> System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
> let v17 : b...: string = "cfg!(windows)"
> let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
> v2
> #endif
> #if FABLE_COMPILER_RUST && WASM
> let v3 : string = "cfg!(windows)"
> let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
> v4
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v5 : string = "cfg!(windows)"
> let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
> v6
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> let v7 : US0 = US0_0
> let v8 : US1 = US1_3(v7)
> let v9 : string = $"platform.is_windows / target: {v8}"
> let v10 : bool = failwith<bool> v9
> v10
> #endif
> #if FABLE_COMPILER_PYTHON
> let v11 : US0 = US0_0
> let v12 : US1 = US1_4(v11)
> let v13 : string = $"platform.is_windows / target: {v12}"
> let v14 : bool = failwith<bool> v13
> v14
> #endif
> #else
> let v15 : System.Runtime.InteropServices.OSPlatform =
> System.Runtime.InteropServices.OSPlatform.Windows
> let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
> System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
> let v17 : bool = v16 v15
> v17
> #endif
> |> fun x -> _v0 <- Some x
> let v18 : bool = match _v0 with Some x -> x | None -> failwith
> "base.run_target / _v0=None"
> if v18 then
> let v19 : string = ".exe"
> v19
> else
> let v20 : string = ""
> v20
> let v0 : (unit -> bool) = closure0()
> let is_windows () = v0 ()
> let v1 : (unit -> string) = closure1()
> let get_executable_suffix () = v1 ()
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
> #endif
> type clap_Arg = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
> #endif
> type clap_ArgAction = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
> #endif
> type clap_Command = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
> #endif
> type clap_ArgMatches = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
> #endif
> type clap_builder_ValueRange = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
> #endif
> type clap_builder_ValueParser = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
> #endif
> type clap_builder_PossibleValue = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
> #endif
> type std_process_Child = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
> #endif
> type std_process_ChildStderr = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
> #endif
> type std_process_ChildStdout = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
> #endif
> type std_process_ChildStdin = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
> #endif
> type std_process_Command = class... with
> | US14_1(v28) -> (* Error *)
> US8_1(v28)
> | US14_0(v26) -> (* Ok *)
> US8_0(v26)
> and closure19 () (v0 : string) : Result<(string [[]]), string> =
> let v1 : US8 = method16(v0)
> match v1 with
> | US8_1(v4) -> (* Error *)
> let v5 : Result<(string [[]]), string> = Error v4
> v5
> | US8_0(v2) -> (* Ok *)
> let v3 : Result<(string [[]]), string> = Ok v2
> v3
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : (unit -> unit) = closure2()
> let current_process_kill () = v2 ()
> let v3 : (string -> Async<struct (int32 * string)>) = closure7()
> let execute_async x = v3 x
> let v4 : (struct (System.Threading.CancellationToken option * string * (struct
> (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
> * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
> string option) -> Async<struct (int32 * string)>) = closure17()
> let execute_with_options_async x = v4 x
> let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
> * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
> Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
> unit) option * bool * string option)) = closure18()
> let execution_options x = v5 x
> let v6 : (string -> Result<(string [[]]), string>) = closure19()
> let split_args x = v6 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
> #endif
> type std_fs_File = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
> #endif
> type std_fs_FileType = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
> #endif
> type std_path_Display = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
> #endif
> type std_path_Path = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
> #endif
> type std_path_PathBuf = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
> #endif
> type async_walkdir_DirEntry = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
> #endif
> type async_walkdir_Filtering = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
> #endif
> type async_walkdir_WalkDir = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = cla...4>) = closure12()
> let wait_for_file_access_read x = v4 x
> let v5 : (string -> Async<string>) = closure13()
> let read_all_text_async x = v5 x
> let v6 : (string -> (string -> Async<bool>)) = closure14()
> let file_exists_content x = v6 x
> let v7 : (string -> (string -> Async<unit>)) = closure16()
> let write_all_text_async x = v7 x
> let v8 : (string -> (string -> Async<unit>)) = closure18()
> let write_all_text_exists x = v8 x
> let v9 : (string -> Async<int64>) = closure20()
> let delete_file_async x = v9 x
> let v10 : (string -> (string -> Async<int64>)) = closure23()
> let move_file_async x = v10 x
> let v11 : (string -> Async<string option>) = closure27()
> let read_all_text_retry_async x = v11 x
> let v12 : (unit -> string) = closure35()
> let create_temp_path () = v12 ()
> let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
> let create_temp_dir () = v13 ()
> let v14 : (string -> struct (string * System.IDisposable)) = closure48()
> let create_temp_dir' x = v14 x
> let v15 : (unit -> string) = closure49()
> let get_source_directory () = v15 ()
> let v16 : (string -> (bool -> (string -> string))) = closure50()
> let find_parent x = v16 x
> let v17 : (string -> string) = closure56()
> let normalize_path x = v17 x
> let v18 : (string -> string) = closure57()
> let new_file_uri x = v18 x
> let v19 : (unit -> string) = closure58()
> let get_workspace_root () = v19 ()
> let v20 : (bool -> unit) = closure59()
> let init_trace_file x = v20 x
> let v21 : (string -> (string -> string)) = closure61()
> let (</>) x = v21 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
> #endif
> type core_any_Any = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
> #endif
> type core_ops_Try<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
> #endif
> type Func0<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
> #endif
> type Func0<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
> #endif
> type Box<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
> #endif
> type Dyn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
> #endif
> type Send<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
> #endif
> type Fn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
> #endif
> type FnUnit = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
> #endif
> type FnOnce<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
> #endif
> type ActionFn<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
> #endif
> type ActionFn2<'T, 'U> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
> #endif
> type Impl<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
> #endif
> type Mut<'T> = class end
> #if FABLE_COMPILER
> [[<Fable.Core.Erase; Fable.C... #endif
> #if FABLE_COMPILER_RUST && WASM
> let v27 : string = @"println!(""{}"", $0)"
> Fable.Core.RustInterop.emitRustExpr v24 v27
> ()
> #endif
> #if FABLE_COMPILER_RUST && CONTRACT
> let v28 : string = @"println!(""{}"", $0)"
> Fable.Core.RustInterop.emitRustExpr v24 v28
> ()
> #endif
> #if FABLE_COMPILER_TYPESCRIPT
> System.Console.WriteLine v24
> ()
> #endif
> #if FABLE_COMPILER_PYTHON
> System.Console.WriteLine v24
> ()
> #endif
> #else
> System.Console.WriteLine v24
> ()
> #endif
> |> fun x -> _v25 <- Some x
> match _v25 with Some x -> x | None -> failwith "base.run_target /
> _v25=None"
> let v29 : (string -> unit) = v8.l0
> v29 v24
> and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
> let v3 : (unit -> string) = closure5(v0, v1, v2)
> method8(v0, v3)
> and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
> method4(v0, v1, v2)
> and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
> closure4(v0, v1)
> and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
> closure3(v0)
> let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
> let v1 : US0 = US0_0
> if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
> let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
> let trace x = v2 x
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> module SpiralTrace =
> let trace x =
> #if !INTERACTIVE
> Trace.trace x
> #else
> trace x
> #endif
>
> type TraceLevel =
> #if !INTERACTIVE
> Trace.US0
> #else
> US0
> #endif
>
> module SpiralCrypto =
> let hash_text x =
> #if !INTERACTIVE
> Crypto.hash_text x
> #else
> hash_text x
> #endif
>
> let hash_to_port x =
> #if !INTERACTIVE
> Crypto.hash_to_port x
> #else
> hash_to_port x
> #endif
>
> #if !FABLE_COMPILER && !WASM && !CONTRACT
>
> module SpiralAsync =
> let merge_cancellation_token_with_default_async x =
> #if !INTERACTIVE
> Async_.merge_cancellation_token_with_default_async x
> #else
> merge_cancellation_token_with_default_async x
> #endif
>
> module SpiralThreading =
> let new_disposable_token x =
> #if !INTERACTIVE
> Threading.new_disposable_token x
> #else
> new_disposable_token x
> #endif
>
> module SpiralNetworking =
> let test_port_open x =
> #if !INTERACTIVE
> Networking.test_port_open x
> #else
> test_port_open x
> #endif
>
> let test_port_open_timeout x =
> #if !INTERACTIVE
> Networking.test_port_open_timeout x
> #else
> test_port_open_timeout x
> #endif
>
> let wait_for_port_access x =
> #if !INTERACTIVE
> Networking.wait_for_port_access x
> #else
> wait_for_port_access x
> #endif
>
> let get_available_port x =
> #if !INTERACTIVE
> Networking.get_available_port x
> #else
> get_available_port x
> #endif
>
> module SpiralPlatform =
> let get_executable_suffix () =
> #if !INTERACTIVE
> Platform.g...e.trace_state
> |> Option.iter (fun struct (_, _, level, _, _) ->
> level.l0 <-
> match new_level with
> | Trace.US0_0 -> File_system.US0_0
> | Trace.US0_1 -> File_system.US0_1
> | Trace.US0_2 -> File_system.US0_2
> | Trace.US0_3 -> File_system.US0_3
> | Trace.US0_4 -> File_system.US0_4
> )
>
> Runtime.State.trace_state
> |> Option.iter (fun struct (_, _, level, _, _) ->
> level.l0 <-
> match new_level with
> | Trace.US0_0 -> Runtime.US0_0
> | Trace.US0_1 -> Runtime.US0_1
> | Trace.US0_2 -> Runtime.US0_2
> | Trace.US0_3 -> Runtime.US0_3
> | Trace.US0_4 -> Runtime.US0_4
> )
>
> Common.State.trace_state
> |> Option.iter (fun struct (_, _, level, _, _) ->
> level.l0 <-
> match new_level with
> | Trace.US0_0 -> Common.US0_0
> | Trace.US0_1 -> Common.US0_1
> | Trace.US0_2 -> Common.US0_2
> | Trace.US0_3 -> Common.US0_3
> | Trace.US0_4 -> Common.US0_4
> )
>
> Trace.State.trace_state
> #else
> State.trace_state
> #endif
> |> Option.iter (fun (struct (_, _, level, _, _)) ->
> level.l0 <- new_level
> )
>
> let get_trace_level () =
> #if !INTERACTIVE
> Trace.State.trace_state
> #else
> State.trace_state
> #endif
> |> Option.map (fun struct (_, _, level, _, _) ->
> level.l0
> )
> |> Option.defaultWith (fun () -> failwith "lib.get_trace_level /
> trace_state=None")
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> type AssertExceptionFormatter (ex) =
> member _.Text =
> ex.ToString()
> .Replace("32m", "<span style=\"color: green;\">")
> .Replace("36m", "</span>")
> .Replace("31m", "<span style=\"color: red;\">")
> .Replace("\n", "<br/>\n")
>
>
> Formatter.Register<AssertExceptionFormatter> ((fun (x :
> AssertExceptionFormatter) -> x.Text), "text/html")
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> let inline __expect fn log expected actual =
> if log then printfn $"{actual.ToDisplayString ()}"
> try
> "Testing.__expect" |> fn actual expected
> with :? Expecto.AssertException as ex ->
> AssertExceptionFormatter(ex).Display () |> ignore
> failwith (ex.GetType().FullName)
>
> let inline __contains log expected actual = __expect Expecto.Expect.contains log
> expected actual
> let inline _contains expected actual = __contains true expected actual
>
> let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
> expected actual
> let inline _assertEqual expected actual = __assertEqual true expected actual
>
> let inline __isGreaterThan log expected actual = __expect
> Expecto.Expect.isGreaterThan log expected actual
> let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
>
> let inline __isGreaterThanOrEqual log expected actual = __expect
> Expecto.Expect.isGreaterThanOrEqual log expected actual
> let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
> expected actual
>
> let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
> log expected actual
> let inline _isLessThan expected actual = __isLessThan true expected actual
>
> let inline __isLessThanOrEqual log expected actual = __expect
> Expecto.Expect.isLessThanOrEqual log expected actual
> let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
> expected actual
>
> let inline __sequenceEqual log expected actual = __expect
> Expecto.Expect.sequenceEqual log expected actual
> let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
>
> let inline __stringContains log expected actual = __expect
> Expecto.Expect.stringContains log expected actual
> let inline _stringContains expected actual = __stringContains true expected
> actual
>
> let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
> log expected actual
> let inline _stringEnds expected actual = __stringEnds true expected actual
>
> let inline __stringStarts log expected actual = __expect
> Expecto.Expect.stringStarts log expected actual
> let inline _stringStarts expected actual = __stringStarts true expected actual
>
> let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
> expected actual
> let inline _throwsC expected actual = __throwsC true expected actual
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> //// test
>
> let inline __isBetween log a b actual =
> let inline isBetween actual (a, b) _ =
> __isGreaterThanOrEqual log a actual
> __isLessThanOrEqual log b actual
> __expect isBetween log (a, b) actual
> let inline _isBetween a b actual = __isBetween true a b actual
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #!import ../../lib/fsharp/Common.fs
> #!import ../../lib/fsharp/CommonFSharp.fs
> #!import ../../lib/fsharp/Async.fs
> #!import ../../lib/fsharp/AsyncSeq.fs
> #!import ../../lib/fsharp/Runtime.fs
> #!import ../../lib/fsharp/FileSystem.fs
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module Common =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> let nl = System.Environment.NewLine
> let q = @""""
>
> let inline cons head tail = head :: tail
>
> /// ## memoize
> let inline memoize fn =
> let result = lazy fn ()
> fun () -> result.Value
>
> /// ## TraceLevel
> type TraceLevel =
> | Verbose
> | Debug
> | Info
> | Warning
> | Critical
>
> let inline _locals () = ""
>
> /// ## trace
> let to_trace_level = function
> | Verbose -> SpiralTrace.TraceLevel.US0_0
> | Debug -> SpiralTrace.TraceLevel.US0_1
> | Info -> SpiralTrace.TraceLevel.US0_2
> | Warning -> SpiralTrace.TraceLevel.US0_3
> | Critical -> SpiralTrace.TraceLevel.US0_4
>
> let trace level fn locals =
> let level = level |> to_trace_level
> SpiralTrace.trace level fn locals
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module CommonFSharp =
>
> open Common
>
> /// ## getUnionCaseName
> let inline getUnionCaseName<'T> (x: 'T) =
> match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
> | case, _ -> case.Name
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module Async =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
>
> /// ## choice
> let inline choice asyncs = async {
> let e = Event<_> ()
> use cts = new System.Threading.CancellationTokenSource ()
> let fn =
> asyncs
> |> Seq.map (fun a -> async {
> let! x = a
> e.Trigger x
> })
> |> Async.Parallel
> |> Async.Ignore
> Async.Start (fn, cts.Token)
> let! result = Async.AwaitEvent e.Publish
> cts.Cancel ()
> return result
> }
>
> /// ## map
> let inline map fn a = async {
> let! x = a
> return fn x
> }
>
> /// ## catch
> let inline catch a =
> a
> |> Async.Catch
> |> map (function
> | Choice1Of2 result -> Ok result
> | Choice2Of2 ex -> Error ex
> )
>
> /// ## runWithTimeoutChoiceAsync
> let inline runWithTimeoutChoiceAsync (timeout : int) fn =
> let _locals () = $"timeout: {timeout} / {_locals ()}"
>
> let timeoutTask = async {
> do! Async.Sleep timeout
> trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
> return None
> }
>
> let task = async {
> try
> let! result = fn
> return Some result
> with
> | :? System.AggregateException as ex when
> ex.InnerExceptions
> |> Seq.exists (function :? Sy... None
>
> /// ## awaitValueTask
> let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
> task.AsTask () |> Async.AwaitTask
>
> let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
> task.AsTask () |> Async.AwaitTask
>
> /// ## init
> let inline init x = async {
> return x
> }
>
> /// ## withCancellationToken
> let inline withCancellationToken (ct : System.Threading.CancellationToken)
> fn =
> Async.StartImmediateAsTask (fn, ct)
> |> Async.AwaitTask
>
> /// ## retryAsync
> let inline retryAsync retries fn =
> let rec loop retry lastError = async {
> try
> return!
> if retry <= retries
> then fn |> map Ok
> else lastError |> Error |> init
> with ex ->
> trace Debug (fun () -> $"Async.retryAsync / retry:
> {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
> do! Async.Sleep 1
> return! loop (retry + 1) (ex |> SpiralSm.format_exception)
> }
> loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
>
> /// ## fold
> let fold folder state array =
> let rec loop acc i =
> async {
> if i < Array.length array then
> let! newAcc = folder acc array.[[i]]
> return! loop newAcc (i + 1)
> else
> return acc
> }
> loop state 0
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module AsyncSeq =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
>
> /// ## subscribeEvent
> let inline subscribeEvent (event: IEvent<'H, 'A>) map =
> let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
> 'A>(event.AddHandler, event.RemoveHandler)
> System.Reactive.Linq.Observable.Select (observable, fun event -> map
> event.EventArgs)
> |> FSharp.Control.AsyncSeq.ofObservableBuffered
>
> /// ## subscribeToken
> let subscribeToken (token : System.Threading.CancellationToken) =
> let tcs = new System.Threading.Tasks.TaskCompletionSource ()
> System.Action tcs.SetResult |> token.Register |> ignore
> let start = System.DateTime.Now.Ticks
> FSharp.Control.AsyncSeq.unfoldAsync
> (fun () -> async {
> do! tcs.Task |> Async.AwaitTask
> return Some (System.DateTime.Now.Ticks - start, ())
> })
> ()
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module Runtime =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
>
> /// ## parseArgs
> let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
> let assemblyName =
> System.Reflection.Assembly.GetEntryAssembly().GetName().Name
> let errorHandler : Argu.IExiter =
> if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
> List.contains assemblyName
> then Argu.ExceptionExiter ()
> else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
> _ -> Some System.ConsoleColor.Red)
>
> let parser =
> Argu.ArgumentParser.Create<'T> (
> programName =
> $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
> errorHandler = errorHandler
> )
>
> parser.ParseCommandLine args
>
> let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
> args
> |> parseArgs<'T>
> |> fun results -> results.GetAllResults ()
>
> let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
> args
> |> parseAllArgs<'T>
> |> List.groupBy CommonFSharp.getUnionCaseName<'T>
> |> Map.ofList
>
>
> ── fsharp - import ─────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> namespace Polyglot
> #endif
>
> module FileSystem =
>
> #if !INTERACTIVE
> open Lib
> #endif
>
> open Common
> open SpiralFileSystem.Operators
>
> /// ## watchDirectory
> [[<RequireQualifiedAccess>]]
> type FileSystemChangeType =
> | Failure
> | Changed
> | Created
> | Deleted
> | Renamed
>
> [[<RequireQualifiedAccess>]]
> type FileSystemChange =
> | Failure of exn: exn
> | Changed of path: string * content: string option
> | Created of path: string * content: string option
> | Deleted of path: string
> | Renamed of oldPath: string * (string * string option)
>
>
> let inline watchDirectoryWithFilter filter shouldReadContent path =
> let fullPath = path |> System.IO.Path.GetFullPath
> let _locals () = $"filter: {filter} / {_locals ()}"
>
> let watcher =
> new System.IO.FileSystemWatcher (
> Path = fullPath,
> NotifyFilter = filter,
> EnableRaisingEvents = true,
> IncludeSubdirectories = true
> )
>
> let inline getEventPath (path : string) =
> path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
> SpiralSm.trim_start [[| '/'; '\\' |]]
>
> let inline ticks () =
> System.DateTime.UtcNow.Ticks
>
> let changedStream =
> AsyncSeq.subscribeEvent
> watcher.Changed
> (fun event ->
> ticks (),
> [[ FileSystemChang...d_all_text_retry_async
> return t, FileSystemChange.Changed (path, content)
> | true, FileSystemChange.Created (path, _) ->
> do! Async.Sleep 5
> let! content = fullPath </> path |>
> SpiralFileSystem.read_all_text_retry_async
> return t, FileSystemChange.Created (path, content)
> | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
> let! content = fullPath </> newPath |>
> SpiralFileSystem.read_all_text_retry_async
> return t, FileSystemChange.Renamed (oldPath, (newPath,
> content))
> | _ -> return t, event
> })
>
> let disposable =
> new_disposable (fun () ->
> trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
> watch stream") _locals
> watcher.EnableRaisingEvents <- false
> watcher.Dispose ()
> )
>
> stream, disposable
>
> let inline watchDirectory path =
> watchDirectoryWithFilter
> (System.IO.NotifyFilters.FileName
> // ||| System.IO.NotifyFilters.DirectoryName
> // ||| System.IO.NotifyFilters.Attributes
> //// ||| System.IO.NotifyFilters.Size
> ||| System.IO.NotifyFilters.LastWrite
> //// ||| System.IO.NotifyFilters.LastAccess
> // ||| System.IO.NotifyFilters.CreationTime
> // ||| System.IO.NotifyFilters.Security
> )
> path
>
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> #if !INTERACTIVE
> open Lib
> #endif
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> open Common
> open SpiralFileSystem.Operators
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## buildProject │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline buildProject runtime outputDir path = async {
> let fullPath = path |> System.IO.Path.GetFullPath
> let fileDir = fullPath |> System.IO.Path.GetDirectoryName
> let extension = fullPath |> System.IO.Path.GetExtension
>
> trace Debug
> (fun () -> "buildProject")
> (fun () -> $"fullPath: {fullPath} / {_locals ()}")
>
> match extension with
> | ".fsproj" -> ()
> | _ -> failwith "Invalid project file"
>
> let runtimes =
> runtime
> |> Option.map List.singleton
> |> Option.defaultValue [[ "linux-x64"; "win-x64" ]]
>
> let outputDir = outputDir |> Option.defaultValue "dist"
>
> return!
> runtimes
> |> List.map (fun runtime -> async {
> let command = $@"dotnet publish ""{path}"" --configuration Release
> --output ""{outputDir}"" --runtime {runtime}"
> let! exitCode, _result =
> SpiralRuntime.execution_options (fun x ->
> { x with
> l1 = command
> l6 = Some fileDir
> }
> )
> |> SpiralRuntime.execute_with_options_async
> return exitCode
> })
> |> Async.Sequential
> |> Async.map Array.sum
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## persistCodeProject │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline persistCodeProject packages modules name hash code = async {
> trace Debug
> (fun () -> "persistCodeProject")
> (fun () -> $"packages: {packages} / modules: {modules} / name: {name} /
> hash: {hash} / code.Length: {code |> String.length} / {_locals ()}")
>
> let workspaceRoot = SpiralFileSystem.get_workspace_root ()
>
> let targetDir =
> let targetDir = workspaceRoot </> "target/Builder" </> name
> match hash with
> | Some hash -> targetDir </> "packages" </> hash
> | None -> targetDir
> System.IO.Directory.CreateDirectory targetDir |> ignore
>
> let filePath = targetDir </> $"{name}.fs" |> System.IO.Path.GetFullPath
> do! code |> SpiralFileSystem.write_all_text_exists filePath
>
> let modulesCode =
> modules
> |> List.map (fun path -> $"""<Compile Include="{workspaceRoot </> path}"
> />""")
> |> SpiralSm.concat "\n "
>
> let fsprojPath = targetDir </> $"{name}.fsproj"
> let fsprojCode = $"""<Project Sdk="Microsoft.NET.Sdk">
> <PropertyGroup>
> <TargetFramework>net9.0</TargetFramework>
> <LangVersion>preview</LangVersion>
> <RollForward>Major</RollForward>
> <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>
> <PublishAot>false</PublishAot>
> <PublishTrimmed>false</PublishTrimmed>
> <PublishSingleFile>true</PublishSingleFile>
> <SelfContained>true</SelfContained>
> <Version>0.0.1-alpha.1</Version>
> <OutputType>Exe</OutputType>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('FreeBSD'))">
> <DefineConstants>_FREEBSD</DefineConstants>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('Linux'))">
> <DefineConstants>_LINUX</DefineConstants>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('OSX'))">
> <DefineConstants>_OSX</DefineConstants>
> </PropertyGroup>
>
> <PropertyGroup Condition="$([[MSBuild]]::IsOSPlatform('Windows'))">
> <DefineConstants>_WINDOWS</DefineConstants>
> </PropertyGroup>
>
> <ItemGroup>
> {modulesCode}
> <Compile Include="{filePath}" />
> </ItemGroup>
>
> <Import Project="{workspaceRoot}/.paket/Paket.Restore.targets" />
> </Project>
> """
> do! fsprojCode |> SpiralFileSystem.write_all_text_exists fsprojPath
>
> let paketReferencesPath = targetDir </> "paket.references"
> let paketReferencesCode =
> "FSharp.Core" :: packages
> |> SpiralSm.concat "\n"
> do! paketReferencesCode |> SpiralFileSystem.write_all_text_exists
> paketReferencesPath
>
> return fsprojPath
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## buildCode │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline buildCode runtime packages modules outputDir name code = async {
> let! fsprojPath = code |> persistCodeProject packages modules name None
> let! exitCode = fsprojPath |> buildProject runtime outputDir
> if exitCode <> 0 then
> let! fsprojText = fsprojPath |> SpiralFileSystem.read_all_text_async
> trace Critical
> (fun () -> "buildCode")
> (fun () -> $"code: {code |> SpiralSm.ellipsis_end 400} / fsprojText:
> {fsprojText} / {_locals ()}")
> return exitCode
> }
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> "1 + 1 |> ignore"
> |> buildCode None [[]] [[]] None "test1"
> |> Async.runWithTimeout 180000
> |> _assertEqual (Some 0)
>
> ╭─[ 24.87s - stdout ]──────────────────────────────────────────────────────────╮
> │ 00:00:04 debug #1 persistCodeProject / packages: [] / modules: [] / name: │
> │ test1 / hash: / code.Length: 15 │
> │ 00:00:04 debug #2 buildProject / fullPath: │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj │
> │ 00:00:10 debug #1 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test1\test1.fsproj" --configuration │
> │ Release --output "dist" --runtime linux-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test1") │
> │ 00:00:12 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for │
> │ .NET │
> │ 00:00:15 verbose #3 > Determining projects to restore... │
> │ 00:00:17 verbose #4 > Restored │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj (in 1.35 sec). │
> │ 00:00:18 verbose #5 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj] │
> │ 00:00:25 verbose #6 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\bin\Release\net9.0\linux-x64\test1 │
> │ .dll │
> │ 00:00:27 verbose #7 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\dist\ │
> │ 00:00:27 debug #8 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 659 │
> │ 00:00:27 debug #9 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test1\test1.fsproj" --configuration │
> │ Release --output "dist" --runtime win-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test1") │
> │ 00:00:27 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:28 verbose #11 > Determining projects to restore... │
> │ 00:00:29 verbose #12 > Restored │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj (in 582 ms). │
> │ 00:00:29 verbose #13 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test1\test1.fsproj] │
> │ 00:00:31 verbose #14 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\bin\Release\net9.0\win-x64\test1.d │
> │ ll │
> │ 00:00:34 verbose #15 > test1 -> │
> │ C:\home\git\polyglot\target\Builder\test1\dist\ │
> │ 00:00:34 debug #16 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 655 │
> │ Some 0 │
> │ │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> "1 + a |> ignore"
> |> buildCode None [[]] [[]] None "test2"
> |> Async.runWithTimeout 180000
> |> _assertEqual (Some 2)
>
> ╭─[ 9.36s - stdout ]───────────────────────────────────────────────────────────╮
> │ 00:00:28 debug #3 persistCodeProject / packages: [] / modules: [] / name: │
> │ test2 / hash: / code.Length: 15 │
> │ 00:00:28 debug #4 buildProject / fullPath: │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj │
> │ 00:00:35 debug #17 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test2\test2.fsproj" --configuration │
> │ Release --output "dist" --runtime linux-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test2") │
> │ 00:00:35 verbose #18 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:36 verbose #19 > Determining projects to restore... │
> │ 00:00:36 verbose #20 > Restored │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj (in 409 ms). │
> │ 00:00:37 verbose #21 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:39 verbose #22 > │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fs(1,5): error FS0039: The │
> │ value or constructor 'a' is not defined. [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:39 debug #23 runtime.execute_with_options_async / exit_code: 1 / │
> │ output.Length: 679 │
> │ 00:00:39 debug #24 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\test2\test2.fsproj" --configuration │
> │ Release --output "dist" --runtime win-x64", │
> │ [||], None, None, true, Some │
> │ "C:\home\git\polyglot\target\Builder\test2") │
> │ 00:00:39 verbose #25 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:40 verbose #26 > Determining projects to restore... │
> │ 00:00:41 verbose #27 > Restored │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj (in 471 ms). │
> │ 00:00:41 verbose #28 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:44 verbose #29 > │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fs(1,5): error FS0039: The │
> │ value or constructor 'a' is not defined. [ │
> │ C:\home\git\polyglot\target\Builder\test2\test2.fsproj] │
> │ 00:00:44 debug #30 runtime.execute_with_options_async / exit_code: 1 / │
> │ output.Length: 679 │
> │ 00:00:37 critical #5 buildCode / code: 1 + a |> ignore / fsprojText: │
> │ <Project Sdk="Microsoft.NET.Sdk"> │
> │ <PropertyGroup> │
> │ <TargetFramework>net9.0</TargetFramework> │
> │ <LangVersion>preview</LangVersion> │
> │ <RollForward>Major</RollForward> │
> │ <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch> │
> │ <PublishAot>false</PublishAot> │
> │ <PublishTrimmed>false</PublishTrimmed> │
> │ <PublishSingleFile>true</PublishSingleFile> │
> │ <SelfContained>true</SelfContained> │
> │ <Version>0.0.1-alpha.1</Version> │
> │ <OutputType>Exe</OutputType> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('FreeBSD'))"> │
> │ <DefineConstants>_FREEBSD</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Linux'))"> │
> │ <DefineConstants>_LINUX</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('OSX'))"> │
> │ <DefineConstants>_OSX</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Windows'))"> │
> │ <DefineConstants>_WINDOWS</DefineConstants> │
> │ </PropertyGroup> │
> │ │
> │ <ItemGroup> │
> │ │
> │ <Compile │
> │ Include="C:\home\git\polyglot\target\Builder\test2\test2.fs" /> │
> │ </ItemGroup> │
> │ │
> │ <Import Project="C:\home\git\polyglot/.paket/Paket.Restore.targets" /> │
> │ </Project> │
> │ │
> │ Some 2 │
> │ │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## readFile │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline readFile path = async {
> let! code = path |> SpiralFileSystem.read_all_text_async
>
> let code = System.Text.RegularExpressions.Regex.Replace (
> code,
> @"( *)(let\s+main\s+.*?\s*=)",
> fun m -> m.Groups.[[1]].Value + "[[<EntryPoint>]]\n" +
> m.Groups.[[1]].Value + m.Groups.[[2]].Value
> )
>
> let codeTrim = code |> SpiralSm.trim_end [[||]]
> return
> if codeTrim |> SpiralSm.ends_with "\n()"
> then codeTrim |> SpiralSm.slice 0 ((codeTrim |> String.length) - 3)
> else code
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## buildFile │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline buildFile runtime packages modules path = async {
> let fullPath = path |> System.IO.Path.GetFullPath
> let dir = fullPath |> System.IO.Path.GetDirectoryName
> let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
> let! code = fullPath |> readFile
> return! code |> buildCode runtime packages modules (dir </> "dist" |> Some)
> name
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## persistFile │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let inline persistFile packages modules path = async {
> let fullPath = path |> System.IO.Path.GetFullPath
> let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
> let! code = fullPath |> readFile
> return! code |> persistCodeProject packages modules name None
> }
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## Arguments │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> [[<RequireQualifiedAccess>]]
> type Arguments =
> | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce>]]
> Path of path : string
> | [[<Argu.ArguAttributes.Unique>]] Packages of packages : string list
> | [[<Argu.ArguAttributes.Unique>]] Modules of modules : string list
> | [[<Argu.ArguAttributes.Unique>]] Runtime of runtime : string
> | [[<Argu.ArguAttributes.Unique>]] Persist_Only
>
> interface Argu.IArgParserTemplate with
> member s.Usage =
> match s with
> | Path _ -> nameof Path
> | Packages _ -> nameof Packages
> | Modules _ -> nameof Modules
> | Runtime _ -> nameof Runtime
> | Persist_Only -> nameof Persist_Only
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
>
> ╭─[ 259.52ms - return value ]──────────────────────────────────────────────────╮
> │ "USAGE: dotnet-repl [--help] [--packages [<packages>...]] │
> │ [--modules [<modules>...]] [--runtime <runtime>] │
> │ [--persist-only] <path> │
> │ │
> │ PATH: │
> │ │
> │ <path> Path │
> │ │
> │ OPTIONS: │
> │ │
> │ --packages [<packages>...] │
> │ Packages │
> │ --modules [<modules>...] │
> │ Modules │
> │ --runtime <runtime> Runtime │
> │ --persist-only Persist_Only │
> │ --help display this list of options. │
> │ " │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── markdown ────────────────────────────────────────────────────────────────────
> ╭──────────────────────────────────────────────────────────────────────────────╮
> │ ## main │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> let main args =
> let argsMap = args |> Runtime.parseArgsMap<Arguments>
>
> let path =
> match argsMap.[[nameof Arguments.Path]] with
> | [[ Arguments.Path path ]] -> Some path
> | _ -> None
> |> Option.get
>
> let packages =
> match argsMap |> Map.tryFind (nameof Arguments.Packages) with
> | Some [[ Arguments.Packages packages ]] -> packages
> | _ -> [[]]
>
> let modules =
> match argsMap |> Map.tryFind (nameof Arguments.Modules) with
> | Some [[ Arguments.Modules modules ]] -> modules
> | _ -> [[]]
>
> let runtime =
> match argsMap |> Map.tryFind (nameof Arguments.Runtime) with
> | Some [[ Arguments.Runtime runtime ]] -> Some runtime
> | _ -> None
>
> let persistOnly = argsMap |> Map.containsKey (nameof Arguments.Persist_Only)
>
> if persistOnly
> then path |> persistFile packages modules |> Async.map (fun _ -> 0)
> else path |> buildFile runtime packages modules
> |> Async.runWithTimeout (60000 * 60)
> |> function
> | Some exitCode -> exitCode
> | None -> 1
>
> ── fsharp ──────────────────────────────────────────────────────────────────────
> //// test
>
> let args =
> System.Environment.GetEnvironmentVariable "ARGS"
> |> SpiralRuntime.split_args
> |> Result.toArray
> |> Array.collect id
>
> match args with
> | [[||]] -> 0
> | args -> if main args = 0 then 0 else failwith "main failed"
>
> ╭─[ 49.48s - return value ]────────────────────────────────────────────────────╮
> │ <div class="dni-plaintext"><pre>0 │
> │ </pre></div><style> │
> │ .dni-code-hint { │
> │ font-style: italic; │
> │ overflow: hidden; │
> │ white-space: nowrap; │
> │ } │
> │ .dni-treeview { │
> │ white-space: nowrap; │
> │ } │
> │ .dni-treeview td { │
> │ vertical-align: top; │
> │ text-align: start; │
> │ } │
> │ details.dni-treeview { │
> │ padding-left: 1em; │
> │ } │
> │ table td { │
> │ text-align: start; │
> │ } │
> │ table tr { │
> │ vertical-align: top; │
> │ margin: 0em 0px; │
> │ } │
> │ table tr td pre │
> │ { │
> │ vertical-align: top !important; │
> │ margin: 0em 0px !important; │
> │ } │
> │ table th { │
> │ text-align: start; │
> │ } │
> │ </style> │
> ╰──────────────────────────────────────────────────────────────────────────────╯
>
> ╭─[ 49.48s - stdout ]──────────────────────────────────────────────────────────╮
> │ 00:00:39 debug #6 persistCodeProject / packages: [Argu; │
> │ FSharp.Control.AsyncSeq; System.Reactive.Linq] / modules: [ │
> │ lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / │
> │ name: Builder / hash: / code.Length: 8207 │
> │ 00:00:39 debug #7 buildProject / fullPath: │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj │
> │ 00:00:46 debug #31 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\Builder\Builder.fsproj" --configuration │
> │ Release --output "C:\home\git\polyglot\apps\builder\dist" --runtime │
> │ linux-x64", │
> │ [||], None, None, true, │
> │ Some "C:\home\git\polyglot\target\Builder\Builder") │
> │ 00:00:46 verbose #32 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:00:47 verbose #33 > Determining projects to restore... │
> │ 00:00:49 verbose #34 > Restored │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj (in 905 ms). │
> │ 00:00:49 verbose #35 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj] │
> │ 00:01:08 verbose #36 > Builder -> │
> │ C:\home\git\polyglot\target\Builder\Builder\bin\Release\net9.0\linux-x64\Bui │
> │ lder.dll │
> │ 00:01:10 verbose #37 > Builder -> C:\home\git\polyglot\apps\builder\dist\ │
> │ 00:01:10 debug #38 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 665 │
> │ 00:01:10 debug #39 runtime.execute_with_options_async / options: struct │
> │ (None, │
> │ "dotnet publish │
> │ "C:\home\git\polyglot\target/Builder\Builder\Builder.fsproj" --configuration │
> │ Release --output "C:\home\git\polyglot\apps\builder\dist" --runtime │
> │ win-x64", │
> │ [||], None, None, true, │
> │ Some "C:\home\git\polyglot\target\Builder\Builder") │
> │ 00:01:10 verbose #40 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
> │ for .NET │
> │ 00:01:11 verbose #41 > Determining projects to restore... │
> │ 00:01:13 verbose #42 > Restored │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj (in 680 ms). │
> │ 00:01:13 verbose #43 > │
> │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
> │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
> │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
> │ .NET. See: https://aka.ms/dotnet-support-policy [ │
> │ C:\home\git\polyglot\target\Builder\Builder\Builder.fsproj] │
> │ 00:01:31 verbose #44 > Builder -> │
> │ C:\home\git\polyglot\target\Builder\Builder\bin\Release\net9.0\win-x64\Build │
> │ er.dll │
> │ 00:01:35 verbose #45 > Builder -> C:\home\git\polyglot\apps\builder\dist\ │
> │ 00:01:35 debug #46 runtime.execute_with_options_async / exit_code: 0 / │
> │ output.Length: 663 │
> │ │
> ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:51 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 87223
00:01:51 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/builder/Builder.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:55 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/builder/Builder.dib.ipynb to html
00:01:55 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:55 verbose #7 ! validate(nb)
00:01:57 verbose #8 ! [NbConvertApp] Writing 332334 bytes to c:\home\git\polyglot\apps\builder\Builder.dib.html
00:01:57 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:01:57 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:01:57 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/builder/Builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/builder/Builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:00 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:00 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:00 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 87931
In [ ]:
{ pwsh ../apps/spiral/builder/build.ps1 -SkipFsx 1 } | Invoke-Block
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: spiral_builder / hash: / code.Length: 575552 targetDir: C:\home\git\polyglot\target\Builder\spiral_builder Fable 4.17.0: F# to Rust compiler (status: alpha) Thanks to the contributor! @xdaDaveShaw Stand with Ukraine! https://standwithukraine.com.ua/ Parsing target\Builder\spiral_builder\spiral_builder.fsproj... Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option. Project and references (14 source files) parsed in 671ms Started Fable compilation... Fable compilation finished in 20013ms .\lib\spiral\common.fsx(1343,0): (1343,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\common.fsx(1350,0): (1350,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\sm.fsx(581,0): (581,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\async_.fsx(112,0): (112,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\crypto.fsx(1624,0): (1624,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\threading.fsx(171,0): (171,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\date_time.fsx(1264,0): (1264,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\platform.fsx(108,0): (108,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\networking.fsx(3349,0): (3349,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\networking.fsx(3358,0): (3358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\trace.fsx(1217,0): (1217,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\trace.fsx(1220,0): (1220,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\runtime.fsx(3267,0): (3267,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\runtime.fsx(3278,0): (3278,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\file_system.fsx(6280,0): (6280,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! .\lib\spiral\file_system.fsx(6321,0): (6321,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk! Compiling futures-util v0.3.30 Compiling piper v0.2.3 Compiling anstyle-query v1.1.0 Compiling async-lock v3.4.0 Compiling anstream v0.6.14 Compiling tokio v1.37.0 Compiling blocking v1.6.1 Compiling clap_builder v4.5.2 Compiling async-fs v2.1.2 Compiling async-walkdir v1.0.0 Compiling clap v4.5.4 Compiling futures-executor v0.3.30 Compiling futures v0.3.30 Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) Compiling tokio-stream v0.1.15 Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder) Finished `release` profile [optimized] target(s) in 1m 05s Running unittests spiral_builder.rs (C:\home\git\polyglot\workspace\target\release\deps\spiral_builder-af40d2f7998b9126.exe) running 1 test test module_7e2cd9e0::Spiral_builder::verify_app ... ok successes: successes: module_7e2cd9e0::Spiral_builder::verify_app test result: ok. 1 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.00s Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder) error: failed to remove file `C:\home\git\polyglot\workspace\target\release\spiral_builder.exe` Caused by: Access is denied. (os error 5) # Invoke-Block / $retry: 1/1 / $Location: / Get-Location: C:\home\git\polyglot\apps\spiral\builder / $OnError: Continue / $exitcode: 101 / $EnvVars: null / $Error: '' / $ScriptBlock: 'cargo +nightly build --release'
In [ ]:
{ pwsh ../apps/parser/build.ps1 } | Invoke-Block
00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "DibParser.dib"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/parser/DibParser.dib", "--output-path", "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/parser/DibParser.dib" --output-path "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # DibParser (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #r > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan > dard2.1/FSharp.Control.AsyncSeq.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6. > 0/System.Reactive.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/ > netstandard2.0/System.Reactive.Linq.dll" > #r > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll" > #r > @"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP > arsec.dll" > #r > @"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP > arsecCS.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl... _v5=None" > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class... with > | US14_1(v28) -> (* Error *) > US8_1(v28) > | US14_0(v26) -> (* Ok *) > US8_0(v26) > and closure19 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure7() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure17() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure18() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure19() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...4>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> Async<bool>)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> (bool -> (string -> string))) = closure50() > let find_parent x = v16 x > let v17 : (string -> string) = closure56() > let normalize_path x = v17 x > let v18 : (string -> string) = closure57() > let new_file_uri x = v18 x > let v19 : (unit -> string) = closure58() > let get_workspace_root () = v19 () > let v20 : (bool -> unit) = closure59() > let init_trace_file x = v20 x > let v21 : (string -> (string -> string)) = closure61() > let (</>) x = v21 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── pwsh ──────────────────────────────────────────────────────────────────────── > ls ~/.nuget/packages/argu > > ╭─[ 745.36ms - stdout ]────────────────────────────────────────────────────────╮ > │ │ > │ Directory: C:\Users\i574n\.nuget\packages\argu │ > │ │ > │ Mode LastWriteTime Length[ │ > │ 32;1m Name │ > │ ---- ------------- ------ [ │ > │ 32;1m---- │ > │ d---- 2023-05-17 3:38 PM 6.1.1 │ > │ d---- 2024-03-12 8:22 PM 6.1.4 │ > │ d---- 2024-01-29 5:12 PM 6.1.5 │ > │ d---- 2024-03-12 8:20 PM 6.2.0 │ > │ d---- 2024-02-23 6:50 PM 6.2.1 │ > │ d---- 2024-03-12 8:15 PM 6.2.2 │ > │ d---- 2024-05-14 8:20 PM 6.2.3 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import ../../lib/fsharp/CommonFSharp.fs > #!import ../../lib/fsharp/Async.fs > #!import ../../lib/fsharp/AsyncSeq.fs > #!import ../../lib/fsharp/Runtime.fs > #!import ../../lib/fsharp/FileSystem.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module CommonFSharp = > > open Common > > /// ## getUnionCaseName > let inline getUnionCaseName<'T> (x: 'T) = > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with > | case, _ -> case.Name > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Async = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## choice > let inline choice asyncs = async { > let e = Event<_> () > use cts = new System.Threading.CancellationTokenSource () > let fn = > asyncs > |> Seq.map (fun a -> async { > let! x = a > e.Trigger x > }) > |> Async.Parallel > |> Async.Ignore > Async.Start (fn, cts.Token) > let! result = Async.AwaitEvent e.Publish > cts.Cancel () > return result > } > > /// ## map > let inline map fn a = async { > let! x = a > return fn x > } > > /// ## catch > let inline catch a = > a > |> Async.Catch > |> map (function > | Choice1Of2 result -> Ok result > | Choice2Of2 ex -> Error ex > ) > > /// ## runWithTimeoutChoiceAsync > let inline runWithTimeoutChoiceAsync (timeout : int) fn = > let _locals () = $"timeout: {timeout} / {_locals ()}" > > let timeoutTask = async { > do! Async.Sleep timeout > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals > return None > } > > let task = async { > try > let! result = fn > return Some result > with > | :? System.AggregateException as ex when > ex.InnerExceptions > |> Seq.exists (function :? Sy... None > > /// ## awaitValueTask > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) = > task.AsTask () |> Async.AwaitTask > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) = > task.AsTask () |> Async.AwaitTask > > /// ## init > let inline init x = async { > return x > } > > /// ## withCancellationToken > let inline withCancellationToken (ct : System.Threading.CancellationToken) > fn = > Async.StartImmediateAsTask (fn, ct) > |> Async.AwaitTask > > /// ## retryAsync > let inline retryAsync retries fn = > let rec loop retry lastError = async { > try > return! > if retry <= retries > then fn |> map Ok > else lastError |> Error |> init > with ex -> > trace Debug (fun () -> $"Async.retryAsync / retry: > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 1 > return! loop (retry + 1) (ex |> SpiralSm.format_exception) > } > loop 1 "Async.retryAsync / invalid retries / retries: {retries}" > > /// ## fold > let fold folder state array = > let rec loop acc i = > async { > if i < Array.length array then > let! newAcc = folder acc array.[[i]] > return! loop newAcc (i + 1) > else > return acc > } > loop state 0 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module AsyncSeq = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## subscribeEvent > let inline subscribeEvent (event: IEvent<'H, 'A>) map = > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H, > 'A>(event.AddHandler, event.RemoveHandler) > System.Reactive.Linq.Observable.Select (observable, fun event -> map > event.EventArgs) > |> FSharp.Control.AsyncSeq.ofObservableBuffered > > /// ## subscribeToken > let subscribeToken (token : System.Threading.CancellationToken) = > let tcs = new System.Threading.Tasks.TaskCompletionSource () > System.Action tcs.SetResult |> token.Register |> ignore > let start = System.DateTime.Now.Ticks > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > do! tcs.Task |> Async.AwaitTask > return Some (System.DateTime.Now.Ticks - start, ()) > }) > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Runtime = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## parseArgs > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args = > let assemblyName = > System.Reflection.Assembly.GetEntryAssembly().GetName().Name > let errorHandler : Argu.IExiter = > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |> > List.contains assemblyName > then Argu.ExceptionExiter () > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | > _ -> Some System.ConsoleColor.Red) > > let parser = > Argu.ArgumentParser.Create<'T> ( > programName = > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}", > errorHandler = errorHandler > ) > > parser.ParseCommandLine args > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseArgs<'T> > |> fun results -> results.GetAllResults () > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseAllArgs<'T> > |> List.groupBy CommonFSharp.getUnionCaseName<'T> > |> Map.ofList > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module FileSystem = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## watchDirectory > [[<RequireQualifiedAccess>]] > type FileSystemChangeType = > | Failure > | Changed > | Created > | Deleted > | Renamed > > [[<RequireQualifiedAccess>]] > type FileSystemChange = > | Failure of exn: exn > | Changed of path: string * content: string option > | Created of path: string * content: string option > | Deleted of path: string > | Renamed of oldPath: string * (string * string option) > > > let inline watchDirectoryWithFilter filter shouldReadContent path = > let fullPath = path |> System.IO.Path.GetFullPath > let _locals () = $"filter: {filter} / {_locals ()}" > > let watcher = > new System.IO.FileSystemWatcher ( > Path = fullPath, > NotifyFilter = filter, > EnableRaisingEvents = true, > IncludeSubdirectories = true > ) > > let inline getEventPath (path : string) = > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |> > SpiralSm.trim_start [[| '/'; '\\' |]] > > let inline ticks () = > System.DateTime.UtcNow.Ticks > > let changedStream = > AsyncSeq.subscribeEvent > watcher.Changed > (fun event -> > ticks (), > [[ FileSystemChang...d_all_text_retry_async > return t, FileSystemChange.Changed (path, content) > | true, FileSystemChange.Created (path, _) -> > do! Async.Sleep 5 > let! content = fullPath </> path |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Created (path, content) > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) -> > let! content = fullPath </> newPath |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Renamed (oldPath, (newPath, > content)) > | _ -> return t, event > }) > > let disposable = > new_disposable (fun () -> > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing > watch stream") _locals > watcher.EnableRaisingEvents <- false > watcher.Dispose () > ) > > stream, disposable > > let inline watchDirectory path = > watchDirectoryWithFilter > (System.IO.NotifyFilters.FileName > // ||| System.IO.NotifyFilters.DirectoryName > // ||| System.IO.NotifyFilters.Attributes > //// ||| System.IO.NotifyFilters.Size > ||| System.IO.NotifyFilters.LastWrite > //// ||| System.IO.NotifyFilters.LastAccess > // ||| System.IO.NotifyFilters.CreationTime > // ||| System.IO.NotifyFilters.Security > ) > path > > > ── fsharp ────────────────────────────────────────────────────────────────────── > #if !INTERACTIVE > open Lib > #endif > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open FParsec > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## escapeCell (test) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let inline escapeCell input = > input > |> SpiralSm.split "\n" > |> Array.map (function > | line when line |> SpiralSm.starts_with "\\#!" || line |> > SpiralSm.starts_with "\\#r" -> > System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#") > | line -> line > ) > |> SpiralSm.concat "\n" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > $"a{nl}\\#!magic{nl}b{nl}" > |> escapeCell > |> _assertEqual ( > $"a{nl}#!magic{nl}b{nl}" > ) > > ╭─[ 71.64ms - stdout ]─────────────────────────────────────────────────────────╮ > │ "a │ > │ #!magic │ > │ b │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## magicMarker │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let magicMarker : Parser<string, unit> = pstring "#!" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic" > |> run magicMarker > |> _assertEqual ( > Success ("#!", (), Position ("", 2, 1, 3)) > ) > > ╭─[ 45.92ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: "#!" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "##!magic" > |> run magicMarker > |> _assertEqual ( > Failure ( > $"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}", > ParserError ( > Position ("", 0, 1, 1), > (), > ErrorMessageList (ExpectedString "#!") > ), > () > ) > ) > > ╭─[ 65.35ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure: │ > │ Error in Ln: 1 Col: 1 │ > │ ##!magic │ > │ ^ │ > │ Expecting: '#!' │ > │ │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## magicCommand │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let magicCommand = > magicMarker > >>. manyTill anyChar newline > |>> (System.String.Concat >> SpiralSm.trim) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic > > a" > |> run magicCommand > |> _assertEqual ( > Success ("magic", (), Position ("", 8, 2, 1)) > ) > > ╭─[ 38.39ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: "magic" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > " #!magic > > a" > |> run magicCommand > |> _assertEqual ( > Failure ( > $"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}", > ParserError ( > Position ("", 0, 1, 1), > (), > ErrorMessageList (ExpectedString "#!") > ), > () > ) > ) > > ╭─[ 35.84ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure: │ > │ Error in Ln: 1 Col: 1 │ > │ #!magic │ > │ ^ │ > │ Expecting: '#!' │ > │ │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## content │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let content = > (newline >>. magicMarker) <|> (eof >>. preturn "") > |> attempt > |> lookAhead > |> manyTill anyChar > |>> (System.String.Concat >> SpiralSm.trim) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic > > > a > > > " > |> run content > |> _assertEqual ( > Success ("#!magic > > > a", (), Position ("", 14, 7, 1)) > ) > > ╭─[ 42.08ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: "#!magic │ > │ │ > │ │ > │ a" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Block │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Block = > { > magic : string > content : string > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## block │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let block = > pipe2 > magicCommand > content > (fun magic content -> > { > magic = magic > content = content > }) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!magic > > > a > > > " > |> run block > |> _assertEqual ( > Success ( > { magic = "magic"; content = "a" }, > (), > Position ("", 14, 7, 1) > ) > ) > > ╭─[ 56.38ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: { magic = "magic" │ > │ content = "a" } │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## blocks │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let blocks = > skipMany newline > >>. sepEndBy block (skipMany1 newline) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > > "#!magic1 > > a > > \#!magic2 > > b > > " > |> escapeCell > |> run blocks > |> _assertEqual ( > Success ( > [[ > { magic = "magic1"; content = "a" } > { magic = "magic2"; content = "b" } > ]], > (), > Position ("", 26, 9, 1) > ) > ) > > ╭─[ 47.23ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success: [{ magic = "magic1" │ > │ content = "a" }; { magic = "magic2" │ > │ content = "b" }] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Output │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Output = > | Fs > | Md > | Spi > | Spir > > let inline kernelOutputs magic = > match magic with > | "fsharp" -> [[ Fs ]] > | "markdown" -> [[ Md ]] > | "spiral" -> [[ Spi; Spir ]] > | _ -> [[]] > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## formatBlock │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline formatBlock output (block : Block) = > match output, block with > | output, { magic = "markdown"; content = content } -> > let markdownComment = > match output with > | Spi | Spir -> "/// " > | Fs -> "/// " > | _ -> "" > content > |> SpiralSm.split "\n" > |> Array.map (SpiralSm.trim_end [[||]]) > |> Array.filter (SpiralSm.ends_with " (test)" >> not) > |> Array.map (function > | "" -> markdownComment > | line -> System.Text.RegularExpressions.Regex.Replace (line, > "^\\s*", $"$&{markdownComment}") > ) > |> SpiralSm.concat "\n" > | Fs, { magic = "fsharp"; content = content } -> > let trimmedContent = content |> SpiralSm.trim > if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent > |> SpiralSm.starts_with "//// ignore" > then "" > else > content > |> SpiralSm.split "\n" > |> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with > "#r" >> not) > |> SpiralSm.concat "\n" > | (Spi | Spir), { magic = "spiral"; content = content } -> > let trimmedContent = content |> SpiralSm.trim > if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent > |> SpiralSm.starts_with "//// ignore" > then "" > else content > | _ -> "" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!markdown > > > a > > b > > c > > > \#!markdown > > > c > > > \#!fsharp > > > let a = 1" > |> escapeCell > |> run block > |> function > | Success (block, _, _) -> formatBlock Fs block > | Failure (msg, _, _) -> failwith msg > |> _assertEqual "/// a > /// > /// b > /// > /// c" > > ╭─[ 62.71ms - stdout ]─────────────────────────────────────────────────────────╮ > │ "/// a │ > │ /// │ > │ /// b │ > │ /// │ > │ /// c" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## formatBlocks │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline formatBlocks output blocks = > blocks > |> List.map (fun block -> > block, formatBlock output block > ) > |> List.filter (snd >> (<>) "") > |> fun list -> > (list, (None, [[]])) > ||> List.foldBack (fun (block, content) (lastMagic, acc) -> > let lineBreak = > if block.magic = "markdown" && lastMagic <> Some "markdown" && > lastMagic <> None > then "" > else "\n" > Some block.magic, $"{content}{lineBreak}" :: acc > ) > |> snd > |> SpiralSm.concat "\n" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "#!markdown > > > a > > b > > > \#!markdown > > > c > > > \#!fsharp > > > let a = 1 > > \#!markdown > > d (test) > > \#!fsharp > > //// test > > let a = 2 > > \#!markdown > > e > > \#!fsharp > > let a = 3" > |> escapeCell > |> run blocks > |> function > | Success (blocks, _, _) -> formatBlocks Fs blocks > | Failure (msg, _, _) -> failwith msg > |> _assertEqual "/// a > /// > /// b > > /// c > let a = 1 > > /// e > let a = 3 > " > > ╭─[ 94.14ms - stdout ]─────────────────────────────────────────────────────────╮ > │ "/// a │ > │ /// │ > │ /// b │ > │ │ > │ /// c │ > │ let a = 1 │ > │ │ > │ /// e │ > │ let a = 3 │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## parse │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline parse output input = > match run blocks input with > | Success (blocks, _, _) -> > let blocks = > blocks > |> List.filter (fun block -> > block.magic |> kernelOutputs |> List.contains output || > block.magic = "markdown" > ) > > match blocks with > | { magic = "markdown"; content = content } :: _ > when output = Fs > && content |> SpiralSm.starts_with "# " > && content |> SpiralSm.ends_with ")" > -> > let inline indentBlock (block : Block) = > { block with > content = > block.content > |> SpiralSm.split "\n" > |> Array.fold > (fun (lines, isMultiline) line -> > let trimmedLine = line |> SpiralSm.trim > if trimmedLine = "" > then "" :: lines, isMultiline > else > let inline singleQuoteLine () = > trimmedLine |> Seq.sumBy ((=) '"' >> > System.Convert.ToInt32) = 1 > && trimmedLine |> SpiralSm.contains > @"'""'" |> not > && trimmedLine |> SpiralSm.ends_with "{" > |> not > && trimmedLine |> SpiralSm.ends_with > "{|" |> not > && trimmedLine |> SpiralSm.starts_with > "}" |> not > && trimmedLine |> SpiralSm.starts_with > "|}" |> not > > match isMultiline, trimmedLine |> > SpiralSm.split_string [[| $"{q}{q}{q}" |]] with > | false, [[| _; _ |]] -> > $" {line}" :: lines, true > > | true, [[| _; _ |]] -> > line :: lines, false > > | false, _ when singleQuoteLine () -> > $" {line}" :: lines, true > > | false, _ when line |> SpiralSm.starts_with > "#" && block.magic = "fsharp" -> > line :: lines, false > > | false, _ -> > $" {line}" :: lines, false > > | true, _ when singleQuoteLine () && line |> > SpiralSm.starts_with " " -> > $" {line}" :: lines, false > > | true, _ when singleQuoteLine () -> > line :: lines, false > > | true, _ -> > line :: lines, true > ) > ([[]], false) > |> fst > |> List.rev > |> SpiralSm.concat "\n" > } > > let moduleName, namespaceName = > System.Text.RegularExpressions.Regex.Match (content, @"# (.*) > \((.*)\)$") > |> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value > > let moduleBlock = > { > magic = "fsharp" > content = > $"#if !INTERACTIVE > namespace {namespaceName} > #endif > > module {moduleName} =" > } > > blocks > |> List.indexed > |> List.fold > (fun blocks (index, block) -> > match index with > | 0 -> blocks > | 1 -> indentBlock block :: moduleBlock :: blocks > | _ -> indentBlock block :: blocks > ) > [[]] > |> List.rev > | _ -> blocks > |> Result.Ok > | Failure (errorMsg, _, _) -> Result.Error errorMsg > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example1 = > $"""#!meta > > {{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name": > "fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}} > > \#!markdown > > # TestModule (TestNamespace) > > \#!fsharp > > \#!import file.dib > > \#!fsharp > > \#r "nuget:Expecto" > > \#!markdown > > ## ParserLibrary > > \#!fsharp > > open System > > \#!markdown > > ## x (test) > > \#!fsharp > > //// ignore > > let x = 1 > > \#!spiral > > //// test > > inl x = 0i32 > > \#!spiral > > inl x = 0i32 > > \#!markdown > > ### TextInput > > \#!fsharp > > let str1 = "abc > def" > > let str2 = > "abc\ > def" > > let str3 = > $"1{{ > 1 > }}1" > > let str4 = > $"1{{({{| > a = 1 > |}}).a}}1" > > let str5 = > "abc \ > def" > > let x = > match '"' with > | '"' -> true > | _ -> false > > let long1 = {q}{q}{q}a{q}{q}{q} > > let long2 = > {q}{q}{q} > a > {q}{q}{q} > > \#!fsharp > > type Position = > {{ > #if INTERACTIVE > line : string > #else > line : int > #endif > column : int > }}""" > |> escapeCell > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > example1 > |> parse Fs > |> Result.toOption > |> Option.get > |> (formatBlocks Fs) > |> _assertEqual $"""#if !INTERACTIVE > namespace TestNamespace > #endif > > module TestModule = > > /// ## ParserLibrary > open System > > /// ### TextInput > let str1 = "abc > def" > > let str2 = > "abc\ > def" > > let str3 = > $"1{{ > 1 > }}1" > > let str4 = > $"1{{({{| > a = 1 > |}}).a}}1" > > let str5 = > "abc \ > def" > > let x = > match '"' with > | '"' -> true > | _ -> false > > let long1 = {q}{q}{q}a{q}{q}{q} > > let long2 = > {q}{q}{q} > a > {q}{q}{q} > > type Position = > {{ > #if INTERACTIVE > line : string > #else > line : int > #endif > column : int > }} > """ > > ╭─[ 207.59ms - stdout ]────────────────────────────────────────────────────────╮ > │ "#if !INTERACTIVE │ > │ namespace TestNamespace │ > │ #endif │ > │ │ > │ module TestModule = │ > │ │ > │ /// ## ParserLibrary │ > │ open System │ > │ │ > │ /// ### TextInput │ > │ let str1 = "abc │ > │ def" │ > │ │ > │ let str2 = │ > │ "abc\ │ > │ def" │ > │ │ > │ let str3 = │ > │ $"1{ │ > │ 1 │ > │ }1" │ > │ │ > │ let str4 = │ > │ $"1{({| │ > │ a = 1 │ > │ |}).a}1" │ > │ │ > │ let str5 = │ > │ "abc \ │ > │ def" │ > │ │ > │ let x = │ > │ match '"' with │ > │ | '"' -> true │ > │ | _ -> false │ > │ │ > │ let long1 = """a""" │ > │ │ > │ let long2 = │ > │ """ │ > │ a │ > │ """ │ > │ │ > │ type Position = │ > │ { │ > │ #if INTERACTIVE │ > │ line : string │ > │ #else │ > │ line : int │ > │ #endif │ > │ column : int │ > │ } │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > example1 > |> parse Md > |> Result.toOption > |> Option.get > |> (formatBlocks Md) > |> _assertEqual "# TestModule (TestNamespace) > > ## ParserLibrary > > ### TextInput > " > > ╭─[ 163.74ms - stdout ]────────────────────────────────────────────────────────╮ > │ "# TestModule (TestNamespace) │ > │ │ > │ ## ParserLibrary │ > │ │ > │ ### TextInput │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > example1 > |> parse Spi > |> Result.toOption > |> Option.get > |> (formatBlocks Spi) > |> _assertEqual "/// # TestModule (TestNamespace) > > /// ## ParserLibrary > inl x = 0i32 > > /// ### TextInput > " > > ╭─[ 178.08ms - stdout ]────────────────────────────────────────────────────────╮ > │ "/// # TestModule (TestNamespace) │ > │ │ > │ /// ## ParserLibrary │ > │ inl x = 0i32 │ > │ │ > │ /// ### TextInput │ > │ " │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## parseDibCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline parseDibCode output file = async { > trace Debug > (fun () -> "parseDibCode") > (fun () -> $"output: {output} / file: {file} / {_locals ()}") > let! input = file |> SpiralFileSystem.read_all_text_async > match parse output input with > | Result.Ok blocks -> return blocks |> formatBlocks output > | Result.Error msg -> return failwith msg > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## writeDibCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline writeDibCode output path = async { > trace Debug > (fun () -> "writeDibCode") > (fun () -> $"output: {output} / path: {path} / {_locals ()}") > let! result = parseDibCode output path > let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |> > SpiralSm.to_lower}" > do! result |> SpiralFileSystem.write_all_text_async outputPath > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Arguments │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > [[<RequireQualifiedAccess>]] > type Arguments = > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]] > File of file : string * Output > > interface Argu.IArgParserTemplate with > member s.Usage = > match s with > | File _ -> nameof File > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > Argu.ArgumentParser.Create<Arguments>().PrintUsage () > > ╭─[ 125.73ms - return value ]──────────────────────────────────────────────────╮ > │ "USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │ > │ │ > │ FILE: │ > │ │ > │ <file> <fs|md|spi|spir> │ > │ File │ > │ │ > │ OPTIONS: │ > │ │ > │ --help display this list of options. │ > │ " │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## main │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let main args = > let argsMap = args |> Runtime.parseArgsMap<Arguments> > > let files = > argsMap.[[nameof Arguments.File]] > |> List.map (function > | Arguments.File (path, output) -> path, output > ) > > files > |> List.map (fun (path, output) -> path |> writeDibCode output) > |> Async.Parallel > |> Async.Ignore > |> Async.runWithTimeout 30000 > |> function > | Some () -> 0 > | None -> 1 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let args = > System.Environment.GetEnvironmentVariable "ARGS" > |> SpiralRuntime.split_args > |> Result.toArray > |> Array.collect id > > match args with > | [[||]] -> 0 > | args -> if main args = 0 then 0 else failwith "main failed" > > ╭─[ 205.45ms - return value ]──────────────────────────────────────────────────╮ > │ <div class="dni-plaintext"><pre>0 │ > │ </pre></div><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 208.41ms - stdout ]────────────────────────────────────────────────────────╮ > │ 00:00:07 debug #1 writeDibCode / output: Fs / path: DibParser.dib │ > │ 00:00:07 debug #2 parseDibCode / output: Fs / file: DibParser.dib │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ 00:00:34 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 93582 00:00:34 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:36 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/parser/DibParser.dib.ipynb to html 00:00:36 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:36 verbose #7 ! validate(nb) 00:00:38 verbose #8 ! [NbConvertApp] Writing 369900 bytes to c:\home\git\polyglot\apps\parser\DibParser.dib.html 00:00:38 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651 00:00:38 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651 00:00:38 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/DibParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/DibParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:39 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:39 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:40 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 94292 00:00:00 debug #1 persistCodeProject / packages: [Argu; FParsec; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DibParser / hash: / code.Length: 9581 00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj 00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime linux-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\DibParser") 00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:01 verbose #3 > Determining projects to restore... 00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj (in 521 ms). 00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj] 00:00:25 verbose #6 > DibParser -> C:\home\git\polyglot\target\Builder\DibParser\bin\Release\net9.0\linux-x64\DibParser.dll 00:00:27 verbose #7 > DibParser -> C:\home\git\polyglot\apps\parser\dist\ 00:00:27 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 680 00:00:27 debug #9 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime win-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\DibParser") 00:00:28 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:28 verbose #11 > Determining projects to restore... 00:00:29 verbose #12 > Restored C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj (in 509 ms). 00:00:29 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DibParser\DibParser.fsproj] 00:00:45 verbose #14 > DibParser -> C:\home\git\polyglot\target\Builder\DibParser\bin\Release\net9.0\win-x64\DibParser.dll 00:00:50 verbose #15 > DibParser -> C:\home\git\polyglot\apps\parser\dist\ 00:00:50 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 678 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "JsonParser.dib"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/parser/JsonParser.dib", "--output-path", "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/parser/JsonParser.dib" --output-path "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # JsonParser (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl... _v5=None" > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class... with > | US14_1(v28) -> (* Error *) > US8_1(v28) > | US14_0(v26) -> (* Ok *) > US8_0(v26) > and closure19 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure7() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure17() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure18() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure19() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...4>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> Async<bool>)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> (bool -> (string -> string))) = closure50() > let find_parent x = v16 x > let v17 : (string -> string) = closure56() > let normalize_path x = v17 x > let v18 : (string -> string) = closure57() > let new_file_uri x = v18 x > let v19 : (unit -> string) = closure58() > let get_workspace_root () = v19 () > let v20 : (bool -> unit) = closure59() > let init_trace_file x = v20 x > let v21 : (string -> (string -> string)) = closure61() > let (</>) x = v21 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import Parser.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Parser = > > open Common > > /// ### TextInput > type Position = > { > line : int > column : int > } > > let initialPos = { line = 0; column = 0 } > > let inline incrCol (pos : Position) = > { pos with column = pos.column + 1 } > > let inline incrLine pos = > { line = pos.line + 1; column = 0 } > > type InputState = > { > lines : string[[]] > position : Position > } > > let inline fromStr str = > { > lines = > if str |> String.IsNullOrEmpty > then [[||]] > else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]] > position = initialPos > } > > let inline currentLine inputState = > let linePos = inputState.position.line > if linePos < inputState.lines.Length > then inputState.lines.[[linePos]] > else "end of file" > > let inline nextChar input = > let linePos = input.position.line > let colPos = input.position.column > > if linePos >= input.lines.Length > then input, None > else > let currentLine = currentLine input > if colPos < currentLine.Length then > let char = currentLine.[[colPos]] > let newPos = incrCol input.position > let newState = { input with position = newPos } > newState, Some char > else > let char = '\n' > ... = > str > |> List.ofSeq > |> List.map pchar > |> sequence > |> mapP charListToStr > <?> str > > let whitespaceChar = > satisfy Char.IsWhiteSpace "whitespace" > > let spaces = many whitespaceChar > > let spaces1 = many1 whitespaceChar > > let digitChar = > satisfy Char.IsDigit "digit" > > let pint = > let inline resultToInt (sign, digits) = > let i = int digits > match sign with > | Some ch -> -i > | None -> i > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits > |> mapP resultToInt > <?> "integer" > > let pfloat = > let inline resultToFloat (((sign, digits1), point), digits2) = > let fl = float $"{digits1}.{digits2}" > match sign with > | Some ch -> -fl > | None -> fl > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits > |> mapP resultToFloat > <?> "float" > > let inline createParserForwardedToRef<'a> () = > let mutable parserRef : Parser<'a> = > { > label = "unknown" > parseFn = fun _ -> failwith "unfixed forwarded parser" > } > > let wrapperParser = > { parserRef with > parseFn = fun input -> runOnInput parserRef input > } > > wrapperParser, (fun v -> parserRef <- v) > > let inline (>>%) p x = > p > |>> fun _ -> x > > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open Parser > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## JsonParser │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > (* > // -------------------------------- > JSON spec from http://www.json.org/ > // -------------------------------- > > The JSON spec is available at [[json.org]](http://www.json.org/). I'll paraphase > it here: > > * A `value` can be a `string` or a `number` or a `bool` or `null` or an `object` > or an `array`. > * These structures can be nested. > * A `string` is a sequence of zero or more Unicode characters, wrapped in double > quotes, using backslash escapes. > * A `number` is very much like a C or Java number, except that the octal and > hexadecimal formats are not used. > * A `boolean` is the literal `true` or `false` > * A `null` is the literal `null` > * An `object` is an unordered set of name/value pairs. > * An object begins with { (left brace) and ends with } (right brace). > * Each name is followed by : (colon) and the name/value pairs are separated by > , (comma). > * An `array` is an ordered collection of values. > * An array begins with [[ (left bracket) and ends with ]] (right bracket). > * Values are separated by , (comma). > * Whitespace can be inserted between any pair of tokens. > *) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let inline parserEqual (expected : ParseResult<'a>) (actual : ParseResult<'a * > Input>) = > match actual, expected with > | Success (_actual, _), Success _expected -> > printResult actual > _actual |> _assertEqual _expected > | Failure (l1, e1, p1), Failure (l2, e2, p2) when l1 = l2 && e1 = e2 && p1 = > p2 -> > printResult actual > | _ -> > printfn $"Actual: {actual}" > printfn $"Expected: {expected}" > failwith "Parse failed" > actual > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### JValue │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type JValue = > | JString of string > | JNumber of float > | JBool of bool > | JNull > | JObject of Map<string, JValue> > | JArray of JValue list > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jValue, jValueRef = createParserForwardedToRef<JValue> () > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jNull │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jNull = > pstring "null" > >>% JNull > <?> "null" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jValue "null" > |> parserEqual (Success JNull) > > ╭─[ 253.65ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNull, { lines = [ │ > │ |"null"|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNull, { lines = [|"null"|]<br /> │ > │ position = { line = 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNull</code></span></summary><div><table><thead> │ > │ <tr></tr></thead><tbody><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"null"|]<br /> position = │ > │ { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ null │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 263.21ms - stdout ]────────────────────────────────────────────────────────╮ > │ JNull │ > │ JNull │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNull "nulp" > |> parserEqual ( > Failure ( > "null", > "Unexpected 'p'", > { currentLine = "nulp"; line = 0; column = 3 } > ) > ) > > ╭─[ 53.03ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("null", "Unexpected │ > │ 'p'", { currentLine = "nulp"<br /> │ > │ line = 0<br /> column = 3 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"null" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected 'p'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "nulp"<br /> line = 0<br /> column = 3 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"nulp" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>3 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 60.36ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:3 Error parsing null │ > │ nulp │ > │ ^Unexpected 'p' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jBool │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jBool = > let jtrue = > pstring "true" > >>% JBool true > let jfalse = > pstring "false" > >>% JBool false > > jtrue <|> jfalse > <?> "bool" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jBool "true" > |> parserEqual (Success (JBool true)) > > ╭─[ 66.91ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JBool true, { lines = [ │ > │ |"true"|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JBool true, { lines = [|"true"|]<br │ > │ /> position = { line = 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JBool │ > │ true</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │ > │ td>Item</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"true"|]<br /> position = │ > │ { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ true │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 75.17ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JBool true │ > │ JBool true │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jBool "false" > |> parserEqual (Success (JBool false)) > > ╭─[ 46.45ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JBool false, { lines = [ │ > │ |"false"|]<br /> position = { line = 0<br │ > │ /> column = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JBool false, { lines = [|"false"|]<br │ > │ /> position = { line = 0<br /> column = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JBool │ > │ false</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"false"|]<br /> position │ > │ = { line = 0<br /> column = 5 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ false │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 5 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>5 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 55.88ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JBool false │ > │ JBool false │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jBool "truX" > |> parserEqual ( > Failure ( > "bool", > "Unexpected 't'", > { currentLine = "truX"; line = 0; column = 0 } > ) > ) > > ╭─[ 33.69ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("bool", "Unexpected │ > │ 't'", { currentLine = "truX"<br /> │ > │ line = 0<br /> column = 0 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"bool" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected 't'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "truX"<br /> line = 0<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"truX" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 38.89ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:0 Error parsing bool │ > │ truX │ > │ ^Unexpected 't' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jUnescapedChar │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jUnescapedChar = > satisfy (fun ch -> ch <> '\\' && ch <> '\"') "char" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jUnescapedChar "a" > |> parserEqual (Success 'a') > > ╭─[ 75.53ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('a', { lines = [ │ > │ |"a"|]<br /> position = { line = 0<br /> │ > │ column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(a, { lines = [|"a"|]<br /> position │ > │ = { line = 0<br /> column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'a' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"a"|]<br /> position = { line = 0<br /> column = 1 │ > │ } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ a │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 1 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 80.84ms - stdout ]─────────────────────────────────────────────────────────╮ > │ 'a' │ > │ 'a' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jUnescapedChar "\\" > |> parserEqual ( > Failure ( > "char", > "Unexpected '\\'", > { currentLine = "\\"; line = 0; column = 0 } > ) > ) > > ╭─[ 42.78ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("char", "Unexpected │ > │ '\'", { currentLine = "\"<br /> │ > │ line = 0<br /> column = 0 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"char" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected '\'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "\"<br /> line = 0<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"\" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 46.61ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:0 Error parsing char │ > │ \ │ > │ ^Unexpected '\' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jEscapedChar │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jEscapedChar = > [[ > ("\\\"",'\"') > ("\\\\",'\\') > ("\\/",'/') > ("\\b",'\b') > ("\\f",'\f') > ("\\n",'\n') > ("\\r",'\r') > ("\\t",'\t') > ]] > |> List.map (fun (toMatch, result) -> > pstring toMatch >>% result > ) > |> choice > <?> "escaped char" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar "\\\\" > |> parserEqual (Success '\\') > > ╭─[ 38.00ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\\', { lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br /> position │ > │ = { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\\' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> column = │ > │ 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \\ │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 45.93ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\\' │ > │ '\\' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar "\\t" > |> parserEqual (Success '\t') > > ╭─[ 38.19ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\009', { lines = [ │ > │ |"\t"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>( , { lines = [|"\t"|]<br /> position = │ > │ { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\009' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\t"|]<br /> position = { line = 0<br /> column = │ > │ 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \t │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 43.85ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\009' │ > │ '\009' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar @"\\" > |> parserEqual (Success '\\') > > ╭─[ 47.83ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\\', { lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br /> position │ > │ = { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\\' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\\"|]<br /> position = { line = 0<br /> column = │ > │ 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \\ │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 52.87ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\\' │ > │ '\\' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar @"\n" > |> parserEqual (Success '\n') > > ╭─[ 37.64ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('\010', { lines = [|"<br │ > │ />"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(<br />, { lines = [|"<br />"|]<br /> │ > │ position = { line = 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'\010' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"<br />"|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ <br /> │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 42.55ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '\010' │ > │ '\010' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jEscapedChar "a" > |> parserEqual ( > Failure ( > "escaped char", > "Unexpected 'a'", > { currentLine = "a"; line = 0; column = 0 } > ) > ) > > ╭─[ 32.78ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("escaped char", │ > │ "Unexpected 'a'", { currentLine = "a"<br /> │ > │ line = 0<br /> column = 0 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"escaped char" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected 'a'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "a"<br /> line = 0<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"a" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 37.12ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:0 Error parsing escaped char │ > │ a │ > │ ^Unexpected 'a' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jUnicodeChar │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jUnicodeChar = > let backslash = pchar '\\' > let uChar = pchar 'u' > let hexdigit = anyOf ([[ '0' .. '9' ]] @ [[ 'A' .. 'F' ]] @ [[ 'a' .. 'f' > ]]) > let fourHexDigits = hexdigit .>>. hexdigit .>>. hexdigit .>>. hexdigit > > let inline convertToChar (((h1, h2), h3), h4) = > let str = $"%c{h1}%c{h2}%c{h3}%c{h4}" > Int32.Parse (str, Globalization.NumberStyles.HexNumber) |> char > > backslash >>. uChar >>. fourHexDigits > |>> convertToChar > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jUnicodeChar "\\u263A" > |> parserEqual (Success '☺') > > ╭─[ 57.55ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success ('☺', { lines = [ │ > │ |"\u263A"|]<br /> position = { line = 0<br /> │ > │ column = 6 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(☺, { lines = [|"\u263A"|]<br /> │ > │ position = { line = 0<br /> column = 6 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>'☺' │ > │ </pre></div></td></tr><tr><td>Item2</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │ > │ |"\u263A"|]<br /> position = { line = 0<br /> │ > │ column = 6 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ \u263A │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 6 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>6 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 65.56ms - stdout ]─────────────────────────────────────────────────────────╮ > │ '☺' │ > │ '☺' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jString │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let quotedString = > let quote = pchar '\"' <?> "quote" > let jchar = jUnescapedChar <|> jEscapedChar <|> jUnicodeChar > > quote >>. manyChars jchar .>> quote > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jString = > quotedString > |>> JString > <?> "quoted string" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > jString > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"\"" > |> parserEqual (Success (JString "")) > > ╭─[ 52.49ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "", { lines = [ │ > │ |""""|]<br /> position = { line = │ > │ 0<br /> column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "", { lines = [ │ > │ |""""|]<br /> position = { line = 0<br /> │ > │ column = 2 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ ""</code></span></summary><div><table><thead><tr></tr></thead><tbo │ > │ dy><tr><td>Item</td><td><div class="dni-plaintext"><pre>"" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><su...span │ > │ class="dni-code-hint"><code>{ lines = [|""""|]<br /> │ > │ position = { line = 0<br /> column = 2 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 2 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>2 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 57.24ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "" │ > │ JString "" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"a\"" > |> parserEqual (Success (JString "a")) > > ╭─[ 37.61ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "a", { lines = [ │ > │ |""a""|]<br /> position = { line │ > │ = 0<br /> column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "a", { lines = [ │ > │ |""a""|]<br /> position = { line = 0<br /> │ > │ column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ "a"</code></span></summary><div><table><thead><tr></tr></thead><tb │ > │ ody><tr><td>Item</td><td><div class="dni-plaintext"><pre>"a" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treev...an class="dni-code-hint"><code>{ lines │ > │ = [|""a""|]<br /> position = { line = 0<br /> │ > │ column = 3 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "a" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 3 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>3 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 44.88ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "a" │ > │ JString "a" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"ab\"" > |> parserEqual (Success (JString "ab")) > > ╭─[ 51.42ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "ab", { lines = [ │ > │ |""ab""|]<br /> position = { │ > │ line = 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "ab", { lines = [ │ > │ |""ab""|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ "ab"</code></span></summary><div><table><thead><tr></tr></thead><t │ > │ body><tr><td>Item</td><td><div class="dni-plaintext"><pre>"ab" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="d... class="dni-code-hint"><code>{ lines = [ │ > │ |""ab""|]<br /> position = { line = 0<br /> │ > │ column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "ab" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 56.20ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "ab" │ > │ JString "ab" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"ab\\tde\"" > |> parserEqual (Success (JString "ab\tde")) > > ╭─[ 42.85ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "ab de", { lines = [ │ > │ |""ab\tde""|]<br /> position │ > │ = { line = 0<br /> column = 8 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "ab de", { lines = [ │ > │ |""ab\tde""|]<br /> position = { line = 0<br /> │ > │ column = 8 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString "ab │ > │ de"</code></span></summary><div><table><thead><tr></tr></thead><tbody>< │ > │ tr><td>Item</td><td><div class="dni-plaintext"><pre>"ab de" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2...dni-code-hint"><code>{ lines = [|""ab\tde""|]<br /> │ > │ position = { line = 0<br /> column = 8 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "ab\tde" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 8 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>8 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 51.24ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "ab de" │ > │ JString "ab de" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jString "\"ab\\u263Ade\"" > |> parserEqual (Success (JString "ab☺de")) > > ╭─[ 42.11ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JString "ab☺de", { lines = [ │ > │ |""ab\u263Ade""|]<br /> │ > │ position = { line = 0<br /> column = │ > │ 12 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JString "ab☺de", { lines = [ │ > │ |""ab\u263Ade""|]<br /> position = { line = 0<br /> │ > │ column = 12 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JString │ > │ "ab☺de"</code></span></summary><div><table><thead><tr></tr></thead │ > │ ><tbody><tr><td>Item</td><td><div │ > │ class="dni-plaintext"><pre>"ab☺de" │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr...nt"><c │ > │ ode>{ lines = [|""ab\u263Ade""|]<br /> position = { │ > │ line = 0<br /> column = 12 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ "ab\u263Ade" │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 12 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>12 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 48.85ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JString "ab☺de" │ > │ JString "ab☺de" │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jNumber │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jNumber = > let optSign = opt (pchar '-') > > let zero = pstring "0" > > let digitOneNine = > satisfy (fun ch -> Char.IsDigit ch && ch <> '0') "1-9" > > let digit = > satisfy Char.IsDigit "digit" > > let point = pchar '.' > > let e = pchar 'e' <|> pchar 'E' > > let optPlusMinus = opt (pchar '-' <|> pchar '+') > > let nonZeroInt = > digitOneNine .>>. manyChars digit > |>> fun (first, rest) -> string first + rest > > let intPart = zero <|> nonZeroInt > > let fractionPart = point >>. manyChars1 digit > > let exponentPart = e >>. optPlusMinus .>>. manyChars1 digit > > let inline (|>?) opt f = > match opt with > | None -> "" > | Some x -> f x > > let inline convertToJNumber (((optSign, intPart), fractionPart), expPart) = > let signStr = > optSign > |>? string > > let fractionPartStr = > fractionPart > |>? (fun digits -> "." + digits) > > let expPartStr = > expPart > |>? fun (optSign, digits) -> > let sign = optSign |>? string > "e" + sign + digits > > (signStr + intPart + fractionPartStr + expPartStr) > |> float > |> JNumber > > optSign .>>. intPart .>>. opt fractionPart .>>. opt exponentPart > |>> convertToJNumber > <?> "number" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > jString > jNumber > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "123" > |> parserEqual (Success (JNumber 123.0)) > > ╭─[ 56.70ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │ > │ |"123"|]<br /> position = { line = 0<br │ > │ /> column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.0, { lines = [|"123"|]<br │ > │ /> position = { line = 0<br /> column = 3 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123"|]<br /> position = │ > │ { line = 0<br /> column = 3 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 3 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>3 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 61.27ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.0 │ > │ JNumber 123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "-123" > |> parserEqual (Success (JNumber -123.0)) > > ╭─[ 46.12ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 0<br │ > │ /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 0<br /> column │ > │ = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ -123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><div class="dni-plaintext"><pre>-123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"-123"|]<br /> position = │ > │ { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ -123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 58.89ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber -123.0 │ > │ JNumber -123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "123.4" > |> parserEqual (Success (JNumber 123.4)) > > ╭─[ 75.29ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 0<br │ > │ /> column = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 0<br /> column │ > │ = 5 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.4</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.4 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4"|]<br /> position │ > │ = { line = 0<br /> column = 5 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 5 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>5 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 83.02ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.4 │ > │ JNumber 123.4 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "-123." > |> parserEqual (Success (JNumber -123.0)) > > ╭─[ 47.18ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │ > │ |"-123."|]<br /> position = { line = │ > │ 0<br /> column = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │ > │ |"-123."|]<br /> position = { line = 0<br /> column │ > │ = 4 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ -123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><div class="dni-plaintext"><pre>-123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"-123."|]<br /> position │ > │ = { line = 0<br /> column = 4 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ -123. │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 53.32ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber -123.0 │ > │ JNumber -123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber "00.1" > |> parserEqual (Success (JNumber 0.0)) > > ╭─[ 45.58ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 0.0, { lines = [ │ > │ |"00.1"|]<br /> position = { line = 0<br /> │ > │ column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 0.0, { lines = [|"00.1"|]<br │ > │ /> position = { line = 0<br /> column = 1 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 0.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><div class="dni-plaintext"><pre>0.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"00.1"|]<br /> position = │ > │ { line = 0<br /> column = 1 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 00.1 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 0<br /> column = 1 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 57.13ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 0.0 │ > │ JNumber 0.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let jNumber_ = jNumber .>> spaces1 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123" > |> parserEqual (Success (JNumber 123.0)) > > ╭─[ 48.32ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │ > │ |"123"|]<br /> position = { line = 1<br │ > │ /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.0, { lines = [|"123"|]<br │ > │ /> position = { line = 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123"|]<br /> position = │ > │ { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 54.10ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.0 │ > │ JNumber 123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "-123" > |> parserEqual (Success (JNumber -123.0)) > > ╭─[ 38.54ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 1<br │ > │ /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │ > │ |"-123"|]<br /> position = { line = 1<br /> column │ > │ = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ -123.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><div class="dni-plaintext"><pre>-123.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"-123"|]<br /> position = │ > │ { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ -123 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 45.38ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber -123.0 │ > │ JNumber -123.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "-123." > |> parserEqual ( > Failure ( > "number andThen many1 whitespace", > "Unexpected '.'", > { currentLine = "-123."; line = 0; column = 4 } > ) > ) > > ╭─[ 39.38ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure<br /> ("number andThen many1 │ > │ whitespace", "Unexpected '.'", { currentLine = │ > │ "-123."<br /> │ > │ line = 0<br /> │ > │ column = 4 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"number andThen many1 │ > │ whitespace" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected '.'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "-123."<br /> line = 0<br /> column = 4 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"-123." │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>4 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 43.59ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:4 Error parsing number andThen many1 whitespace │ > │ -123. │ > │ ^Unexpected '.' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123.4" > |> parserEqual (Success (JNumber 123.4)) > > ╭─[ 37.95ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 1<br │ > │ /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │ > │ |"123.4"|]<br /> position = { line = 1<br /> column │ > │ = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 123.4</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr> │ > │ <td>Item</td><td><div class="dni-plaintext"><pre>123.4 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4"|]<br /> position │ > │ = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 43.99ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 123.4 │ > │ JNumber 123.4 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "00.4" > |> parserEqual ( > Failure ( > "number andThen many1 whitespace", > "Unexpected '0'", > { currentLine = "00.4"; line = 0; column = 1 } > ) > ) > > ╭─[ 35.79ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure<br /> ("number andThen many1 │ > │ whitespace", "Unexpected '0'", { currentLine = │ > │ "00.4"<br /> │ > │ line = 0<br /> │ > │ column = 1 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"number andThen many1 │ > │ whitespace" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected '0'" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "00.4"<br /> line = 0<br /> column = 1 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"00.4" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 40.15ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:1 Error parsing number andThen many1 whitespace │ > │ 00.4 │ > │ ^Unexpected '0' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123e4" > |> parserEqual (Success (JNumber 1230000.0)) > > ╭─[ 51.68ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 1230000.0, { lines = [ │ > │ |"123e4"|]<br /> position = { line = │ > │ 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 1230000.0, { lines = [ │ > │ |"123e4"|]<br /> position = { line = 1<br /> column │ > │ = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 1230000.0</code></span></summary><div><table><thead><tr></tr></thead><tbody> │ > │ <tr><td>Item</td><td><div class="dni-plaintext"><pre>1230000.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123e4"|]<br /> position │ > │ = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123e4 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 59.38ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 1230000.0 │ > │ JNumber 1230000.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123.4e5" > |> parserEqual (Success (JNumber 12340000.0)) > > ╭─[ 60.37ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 12340000.0, { lines = [ │ > │ |"123.4e5"|]<br /> position = { line │ > │ = 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 12340000.0, { lines = [ │ > │ |"123.4e5"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 12340000.0</code></span></summary><div><table><thead><tr></tr></thead><tbody │ > │ ><tr><td>Item</td><td><div class="dni-plaintext"><pre>12340000.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4e5"|]<br /> │ > │ position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4e5 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 70.12ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 12340000.0 │ > │ JNumber 12340000.0 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jNumber_ "123.4e-5" > |> parserEqual (Success (JNumber 0.001234)) > > ╭─[ 63.30ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JNumber 0.001234, { lines = [ │ > │ |"123.4e-5"|]<br /> position = { line │ > │ = 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JNumber 0.001234, { lines = [ │ > │ |"123.4e-5"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 0.001234</code></span></summary><div><table><thead><tr></tr></thead><tbody>< │ > │ tr><td>Item</td><td><div class="dni-plaintext"><pre>0.001234 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJObject</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJArray</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>Item │ > │ 2</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>{ lines = [|"123.4e-5"|]<br /> │ > │ position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ 123.4e-5 │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 71.65ms - stdout ]─────────────────────────────────────────────────────────╮ > │ JNumber 0.001234 │ > │ JNumber 0.001234 │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jArray │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jArray = > let left = pchar '[[' .>> spaces > let right = pchar ']]' .>> spaces > let comma = pchar ',' .>> spaces > let value = jValue .>> spaces > > let values = sepBy value comma > > between left values right > |>> JArray > <?> "array" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > jValueRef <| > choice > [[ > jNull > jBool > jString > jNumber > jArray > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jArray "[[ 1, 2 ]]" > |> parserEqual (Success (JArray [[ JNumber 1.0; JNumber 2.0 ]])) > > ╭─[ 108.20ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success (JArray [JNumber 1.0; JNumber 2.0], { │ > │ lines = [|"[ 1, 2 ]"|]<br /> │ > │ position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JArray [JNumber 1.0; JNumber 2.0], { lines = [ │ > │ |"[ 1, 2 ]"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JArray [JNumber 1.0; JNumber │ > │ 2.0]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │ > │ td>Item</td><td><table><thead><tr><th><i>index</i></th><th>value</th></tr></ │ > │ thead><tbody><tr><td>0</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 1.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><div class="dni-plaintext"><pre>1.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsJBool</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNull</td><td>...ummary><span │ > │ class="dni-code-hint"><code>{ lines = [|"[ 1, 2 ]"|]<br /> │ > │ position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ [ 1, 2 ] │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 118.61ms - stdout ]────────────────────────────────────────────────────────╮ > │ JArray [JNumber 1.0; JNumber 2.0] │ > │ JArray [JNumber 1.0; JNumber 2.0] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jArray "[[ 1, 2, ]]" > |> parserEqual ( > Failure ( > "array", > "Unexpected ','", > { currentLine = "[[ 1, 2, ]]"; line = 0; column = 6 } > ) > ) > > ╭─[ 50.91ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("array", "Unexpected │ > │ ','", { currentLine = "[ 1, 2, ]"<br /> │ > │ line = 0<br /> column = 6 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"array" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected ','" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "[ 1, 2, ]"<br /> line = 0<br /> column = 6 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"[ 1, 2, ]" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>6 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 55.78ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:6 Error parsing array │ > │ [ 1, 2, ] │ > │ ^Unexpected ',' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jObject │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let jObject = > let left = spaces >>. pchar '{' .>> spaces > let right = pchar '}' .>> spaces > let colon = pchar ':' .>> spaces > let comma = pchar ',' .>> spaces > let key = quotedString .>> spaces > let value = jValue .>> spaces > > let keyValue = (key .>> colon) .>>. value > let keyValues = sepBy keyValue comma > > between left keyValues right > |>> Map.ofList > |>> JObject > <?> "object" > > ── fsharp ────────────────────────────────────────────────────────────────────── > jValueRef <| > choice > [[ > jNull > jBool > jString > jNumber > jArray > jObject > ]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jObject """{ "a":1, "b" : 2 }""" > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "a", JNumber 1.0 > "b", JNumber 2.0 > ]] > ) > ) > ) > > ╭─[ 151.78ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject (map [("a", │ > │ JNumber 1.0); ("b", JNumber 2.0)]),<br /> { lines = [|"{ │ > │ "a":1, "b" : 2 }"|]<br /> position = { line = │ > │ 1<br /> column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JObject (map [("a", JNumber 1.0); │ > │ ("b", JNumber 2.0)]), { lines = [|"{ "a":1, │ > │ "b" : 2 }"|]<br /> position = { line = 1<br /> │ > │ column = 0 } │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject (map [("a", JNumber 1.0); │ > │ ("b", JNumber │ > │ 2.0)])</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr │ > │ ><td>Item</td><td><table><thead><tr><th><i>key</i></th><th>value</th></tr></ │ > │ thead><tbody><tr><td><div class="dni-plaintext"><pre>"a" │ > │ </pre></div></td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JNumber │ > │ 1.0</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><div class="dni-plaintext"><pre>1.0 │ > │ </pre></div></td></tr><tr><td>IsJString</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsJNumber</...ot;a":1, "b" : │ > │ 2 }"|]<br /> position = { line = 1<br /> column = 0 } │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ lines</td><td><div class="dni-plaintext"><pre>[ { "a":1, │ > │ "b" : 2 } │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 1<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>1 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 159.56ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │ > │ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run jObject """{ "a":1, "b" : 2, }""" > |> parserEqual ( > Failure ( > "object", > "Unexpected ','", > { currentLine = """{ "a":1, "b" : 2, }"""; line = 0; column = 18 } > ) > ) > > ╭─[ 51.02ms - return value ]───────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Failure ("object", "Unexpected │ > │ ','", { currentLine = "{ "a":1, "b" : │ > │ 2, }"<br /> line = 0<br /> │ > │ column = 18 │ > │ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │ > │ >Item1</td><td><div class="dni-plaintext"><pre>"object" │ > │ </pre></div></td></tr><tr><td>Item2</td><td><div │ > │ class="dni-plaintext"><pre>"Unexpected ','" │ > │ </pre></div></td></tr><tr><td>Item3</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │ > │ currentLine = "{ "a":1, "b" : 2, }"<br /> │ > │ line = 0<br /> column = 18 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ currentLine</td><td><div class="dni-plaintext"><pre>"{ "a":1, │ > │ "b" : 2, }" │ > │ </pre></div></td></tr><tr><td>line</td><td><div class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>18 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr><tr><td>IsSu │ > │ ccess</td><td><div class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 56.39ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Line:0 Col:18 Error parsing object │ > │ { "a":1, "b" : 2, } │ > │ ^Unexpected ',' │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### jValue │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example1 = """{ > "name" : "Scott", > "isMale" : true, > "bday" : {"year":2001, "month":12, "day":25 }, > "favouriteColors" : [["blue", "green"]], > "emptyArray" : [[]], > "emptyObject" : {} > }""" > run jValue example1 > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "name", JString "Scott" > "isMale", JBool true > "bday", JObject ( > Map.ofList [[ > "year", JNumber 2001.0 > "month", JNumber 12.0 > "day", JNumber 25.0 > ]] > ) > "favouriteColors", JArray [[ JString "blue"; JString "green" ]] > "emptyArray", JArray [[]] > "emptyObject", JObject Map.empty > ]] > ) > ) > ) > > ╭─[ 306.95ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject<br /> (map<br /> │ > │ [("bday",<br /> JObject<br /> (map<br /> │ > │ [("day", JNumber 25.0); ("month", JNumber 12.0);<br /> │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │ > │ ]);<br /> ("emptyObject", JObject (map []));<br /> │ > │ ("favouriteColors", │ > │ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JObject<br /> (map<br /> [ │ > │ ("bday",<br /> JObject<br /> (map<br /> [ │ > │ ("day", JNumber 25.0); ("month", JNumber 12.0);<br /> │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │ > │ ]);<br /> ("emptyObject", JObject (map []));<br /> │ > │ ("favouriteColors", JArray [JString "blue"; JString │ > │ "gr...</code></span></summary><div><table><thead><tr></tr></thead><tbod │ > │ y><tr><td>Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject<br /> (map<br /> [ │ > │ ("bday",<br /> JObject<br /> (map<br /> [ │ > │ ("day", JNumber 25.0); ("month", JNumber 12.0);<br /> │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArra...,, │ > │ "isMale" : true,, "bday" : {"year":2001, │ > │ "month":12, "day":25 },, "favouriteColors" │ > │ : ["blue", "green"],, "emptyArray" : [],, │ > │ "emptyObject" : {}, } │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 8<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>8 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 314.07ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject │ > │ (map │ > │ [("bday", │ > │ JObject │ > │ (map │ > │ [("day", JNumber 25.0); ("month", JNumber 12.0); │ > │ ("year", JNumber 2001.0)])); ("emptyArray", JArray []); │ > │ ("emptyObject", JObject (map [])); │ > │ ("favouriteColors", JArray [JString "blue"; JString "green"]); │ > │ ("isMale", JBool true); ("name", JString "Scott")]) │ > │ JObject │ > │ (map │ > │ [("bday", JObject (map [("day", JNumber 25.0); ("month", JNumber 12.0); │ > │ ("year", JNumber 2001.0)])); │ > │ ("emptyArray", JArray []); ("emptyObject", JObject (map [])); │ > │ ("favouriteColors", JArray [JString "blue"; JString "green"]); │ > │ ("isMale", JBool true); ("name", JString "Scott")]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example2 = """{"widget": { > "debug": "on", > "window": { > "title": "Sample Konfabulator Widget", > "name": "main_window", > "width": 500, > "height": 500 > }, > "image": { > "src": "Images/Sun.png", > "name": "sun1", > "hOffset": 250, > "vOffset": 250, > "alignment": "center" > }, > "text": { > "data": "Click Here", > "size": 36, > "style": "bold", > "name": "text1", > "hOffset": 250, > "vOffset": 100, > "alignment": "center", > "onMouseUp": "sun1.opacity = (sun1.opacity / 100) * 90;" > } > }}""" > > run jValue example2 > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "widget", JObject ( > Map.ofList [[ > "debug", JString "on" > "window", JObject ( > Map.ofList [[ > "title", JString "Sample Konfabulator Widget" > "name", JString "main_window" > "width", JNumber 500.0 > "height", JNumber 500.0 > ]] > ) > "image", JObject ( > Map.ofList [[ > "src", JString "Images/Sun.png" > "name", JString "sun1" > "hOffset", JNumber 250.0 > "vOffset", JNumber 250.0 > "alignment", JString "center" > ]] > ) > "text", JObject ( > Map.ofList [[ > "data", JString "Click Here" > "size", JNumber 36.0 > "style", JString "bold" > "name", JString "text1" > "hOffset", JNumber 250.0 > "vOffset", JNumber 100.0 > "alignment", JString "center" > "onMouseUp", JString "sun1.opacity = > (sun1.opacity / 100) * 90;" > ]] > ) > ]] > ) > ]] > ) > ) > ) > > ╭─[ 363.50ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject<br /> (map<br /> │ > │ [("widget",<br /> JObject<br /> (map<br /> │ > │ [("debug", JString "on");<br /> │ > │ ("image",<br /> JObject<br /> │ > │ (map<br /> [("alignment", JString │ > │ "center");<br /> │ > │ ("hOffset"...</code></span></summary><div><table><thead><tr></tr>< │ > │ /thead><tbody><tr><td>Item</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>(JObject<br │ > │ /> (map<br /> [("widget",<br /> JObject<br /> │ > │ (map<br /> [("debug", JString "on");<br /> │ > │ ("image",<br /> JObject<br /> (map<br │ > │ /> [("alignment", JString "center"); │ > │ ("hOffset", JNumber 250.0);<br /> │ > │ ("name", JString │ > │ "sun1"...</code></span></summary><div><table><thead><tr></tr></the │ > │ ad><tbody><tr><td>Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject<br /> (map<br /> [ │ > │ ("widget",<br /> JObject<br /> (map<br /> │ > │ [("debug", JString "on");<br /> │ > │ ("image",<br /> JObject<br /> (...t;,, │ > │ "name": "text1",, "hOffset": 250,, │ > │ "vOffset": 100,, "alignment": │ > │ "center",, "onMouseUp": "sun1.opacity = │ > │ (sun1.opacity / 100) * 90;", }, }} │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 26<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>26 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 368.37ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject │ > │ (map │ > │ [("widget", │ > │ JObject │ > │ (map │ > │ [("debug", JString "on"); │ > │ ("image", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); ("hOffset", JNumber │ > │ 250.0); │ > │ ("name", JString "sun1"); ("src", JString │ > │ "Images/Sun.png"); │ > │ ("vOffset", JNumber 250.0)])); │ > │ ("text", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); │ > │ ("data", JString "Click Here"); ("hOffset", JNumber │ > │ 250.0); │ > │ ("name", JString "text1"); │ > │ ("onMouseUp", │ > │ JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │ > │ ("size", JNumber 36.0); ("style", JString "bold"); │ > │ ("vOffset", JNumber 100.0)])); │ > │ ("window", │ > │ JObject │ > │ (map │ > │ [("height", JNumber 500.0); ("name", JString │ > │ "main_window"); │ > │ ("title", JString "Sample Konfabulator Widget"); │ > │ ("width", JNumber 500.0)]))]))]) │ > │ JObject │ > │ (map │ > │ [("widget", │ > │ JObject │ > │ (map │ > │ [("debug", JString "on"); │ > │ ("image", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); ("hOffset", JNumber │ > │ 250.0); ("name", JString "sun1"); │ > │ ("src", JString "Images/Sun.png"); ("vOffset", JNumber │ > │ 250.0)])); │ > │ ("text", │ > │ JObject │ > │ (map │ > │ [("alignment", JString "center"); ("data", JString "Click │ > │ Here"); ("hOffset", JNumber 250.0); │ > │ ("name", JString "text1"); ("onMouseUp", JString │ > │ "sun1.opacity = (sun1.opacity / 100) * 90;"); │ > │ ("size", JNumber 36.0); ("style", JString "bold"); │ > │ ("vOffset", JNumber 100.0)])); │ > │ ("window", │ > │ JObject │ > │ (map │ > │ [("height", JNumber 500.0); ("name", JString │ > │ "main_window"); │ > │ ("title", JString "Sample Konfabulator Widget"); │ > │ ("width", JNumber 500.0)]))]))]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let example3 = """{ > "string": "Hello, \"World\"!", > "escapedString": "This string contains \\/\\\\\\b\\f\\n\\r\\t\\\"\\'", > "number": 42, > "scientificNumber": 3.14e-10, > "boolean": true, > "nullValue": null, > "array": [[1, 2, 3, 4, 5]], > "unicodeString1": "프리마", > "unicodeString2": "\u0048\u0065\u006C\u006C\u006F, > \u0022\u0057\u006F\u0072\u006C\u0064\u0022!", > "specialCharacters": "!@#$%^&*()", > "emptyArray": [[]], > "emptyObject": {}, > "nestedArrays": [[[[1, 2, 3]], [[4, 5, 6]]]], > "object": { > "nestedString": "Nested Value", > "nestedNumber": 3.14, > "nestedBoolean": false, > "nestedNull": null, > "nestedArray": [["a", "b", "c"]], > "nestedObject": { > "nestedProperty": "Nested Object Value" > } > }, > "nestedObjects": [[ > {"name": "Alice", "age": 25}, > {"name": "Bob", "age": 30} > ]] > }""" > run jValue example3 > |> parserEqual ( > Success ( > JObject ( > Map.ofList [[ > "string", JString @"Hello, ""World""!" > "escapedString", JString @"This string contains > \/\\\b\f\n\r\t\""\'" > "number", JNumber 42.0 > "scientificNumber", JNumber 3.14e-10 > "boolean", JBool true > "nullValue", JNull > "array", JArray [[ > JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber > 5.0 > ]] > "unicodeString1", JString "프리마" > "unicodeString2", JString @"Hello, ""World""!" > "specialCharacters", JString "!@#$%^&*()" > "emptyArray", JArray [[]] > "emptyObject", JObject Map.empty > "nestedArrays", JArray [[ > JArray [[ JNumber 1.0; JNumber 2.0; JNumber 3.0 ]] > JArray [[ JNumber 4.0; JNumber 5.0; JNumber 6.0 ]] > ]] > "object", JObject ( > Map.ofList [[ > "nestedString", JString "Nested Value" > "nestedNumber", JNumber 3.14 > "nestedBoolean", JBool false > "nestedNull", JNull > "nestedArray", JArray [[JString "a"; JString "b"; > JString "c"]] > "nestedObject", JObject ( > Map.ofList [[ > "nestedProperty", JString "Nested Object Value" > ]] > ) > ]] > ) > "nestedObjects", JArray [[ > JObject (Map.ofList [[ "name", JString "Alice"; "age", JNumber > 25.0 ]]) > JObject (Map.ofList [[ "name", JString "Bob"; "age", JNumber > 30.0 ]]) > ]] > ]] > ) > ) > ) > > ╭─[ 418.93ms - return value ]──────────────────────────────────────────────────╮ > │ <details open="open" class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>Success<br /> (JObject<br /> (map<br /> │ > │ [("array",<br /> JArray<br /> [JNumber 1.0; │ > │ JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber 5.0]);<br /> │ > │ ("boolean", JBool true); ("emptyArray", JArray []);<br │ > │ /> ("emptyObject", JObject (map []));<br /> │ > │ ("escapedString", JString "This │ > │ s...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │ > │ td>Item</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>(JObject<br /> (map<br /> [ │ > │ ("array",<br /> JArray [JNumber 1.0; JNumber 2.0; JNumber │ > │ 3.0; JNumber 4.0; JNumber 5.0]);<br /> ("boolean", JBool │ > │ true); ("emptyArray", JArray []);<br /> │ > │ ("emptyObject", JObject (map []));<br /> │ > │ ("escapedString", JString "This string contains \/\\\b\f<br │ > │ />\r\t\"\'");<br /> │ > │ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │ > │ d>Item1</td><td><details class="dni-treeview"><summary><span │ > │ class="dni-code-hint"><code>JObject<br /> (map<br /> [ │ > │ ("array",<br /> JArray [JNumber 1.0; JNumber 2.0; JNumber │ > │ 3.0; JNumber 4.0; JNumber 5.0]);<br /> ("boolean", JBool │ > │ true); ("emptyArray", JArray []);<br /> │ > │ ("emptyObject", JObject (map []));<br /> │ > │ ("es...nestedObject": {, "nestedProperty": │ > │ "Nested Object Value", }, },, "nestedObjects": [ │ > │ , {"name": "Alice", "age": 25},, │ > │ {"name": "Bob", "age": 30}, ], } │ > │ ]</pre></div></td></tr><tr><td>position</td><td><details │ > │ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ line = │ > │ 29<br /> column = 0 │ > │ }</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │ > │ line</td><td><div class="dni-plaintext"><pre>29 │ > │ </pre></div></td></tr><tr><td>column</td><td><div │ > │ class="dni-plaintext"><pre>0 │ > │ </pre></div></td></tr></tbody></table></div></details></td></tr></tbody></ta │ > │ ble></div></details></td></tr></tbody></table></div></details></td></tr><tr> │ > │ <td>IsSuccess</td><td><div class="dni-plaintext"><pre>true │ > │ </pre></div></td></tr><tr><td>IsFailure</td><td><div │ > │ class="dni-plaintext"><pre>false │ > │ </pre></div></td></tr></tbody></table></div></details><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ╭─[ 425.33ms - stdout ]────────────────────────────────────────────────────────╮ > │ JObject │ > │ (map │ > │ [("array", │ > │ JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber │ > │ 5.0]); │ > │ ("boolean", JBool true); ("emptyArray", JArray []); │ > │ ("emptyObject", JObject (map [])); │ > │ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │ > │ ("nestedArrays", │ > │ JArray │ > │ [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; │ > │ JArray [JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │ > │ ("nestedObjects", │ > │ JArray │ > │ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │ > │ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │ > │ ("nullValue", JNull); ("number", JNumber 42.0); ...]) │ > │ JObject │ > │ (map │ > │ [("array", JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; │ > │ JNumber 5.0]); ("boolean", JBool true); │ > │ ("emptyArray", JArray []); ("emptyObject", JObject (map [])); │ > │ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │ > │ ("nestedArrays", │ > │ JArray [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; JArray [ │ > │ JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │ > │ ("nestedObjects", │ > │ JArray │ > │ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │ > │ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │ > │ ("nullValue", JNull); │ > │ ("number", JNumber 42.0); ...]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ 00:00:29 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 313309 00:00:29 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:31 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/parser/JsonParser.dib.ipynb to html 00:00:31 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:31 verbose #7 ! validate(nb) 00:00:33 verbose #8 ! [NbConvertApp] Writing 534279 bytes to c:\home\git\polyglot\apps\parser\JsonParser.dib.html 00:00:33 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 653 00:00:33 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 653 00:00:33 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/JsonParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/JsonParser.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:34 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:34 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:35 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 314021 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Parser.dib"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/parser/Parser.dib", "--output-path", "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/parser/Parser.dib" --output-path "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # Parser (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl... _v5=None" > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class... with > | US14_1(v28) -> (* Error *) > US8_1(v28) > | US14_0(v26) -> (* Ok *) > US8_0(v26) > and closure19 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure7() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure17() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure18() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure19() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...4>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> Async<bool>)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> (bool -> (string -> string))) = closure50() > let find_parent x = v16 x > let v17 : (string -> string) = closure56() > let normalize_path x = v17 x > let v18 : (string -> string) = closure57() > let new_file_uri x = v18 x > let v19 : (unit -> string) = closure58() > let get_workspace_root () = v19 () > let v20 : (bool -> unit) = closure59() > let init_trace_file x = v20 x > let v21 : (string -> (string -> string)) = closure61() > let (</>) x = v21 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### TextInput │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Position = > { > line : int > column : int > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let initialPos = { line = 0; column = 0 } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline incrCol (pos : Position) = > { pos with column = pos.column + 1 } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline incrLine pos = > { line = pos.line + 1; column = 0 } > > ── fsharp ────────────────────────────────────────────────────────────────────── > type InputState = > { > lines : string[[]] > position : Position > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline fromStr str = > { > lines = > if str |> String.IsNullOrEmpty > then [[||]] > else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]] > position = initialPos > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > fromStr "" |> _assertEqual { > lines = [[||]] > position = { line = 0; column = 0 } > } > > ╭─[ 61.85ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [||] │ > │ position = { line = 0 │ > │ column = 0 } } │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > fromStr "Hello \n World" |> _assertEqual { > lines = [[| "Hello "; " World" |]] > position = { line = 0; column = 0 } > } > > ╭─[ 25.32ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [|"Hello "; " World"|] │ > │ position = { line = 0 │ > │ column = 0 } } │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline currentLine inputState = > let linePos = inputState.position.line > if linePos < inputState.lines.Length > then inputState.lines.[[linePos]] > else "end of file" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline nextChar input = > let linePos = input.position.line > let colPos = input.position.column > > if linePos >= input.lines.Length > then input, None > else > let currentLine = currentLine input > if colPos < currentLine.Length then > let char = currentLine.[[colPos]] > let newPos = incrCol input.position > let newState = { input with position = newPos } > newState, Some char > else > let char = '\n' > let newPos = incrLine input.position > let newState = { input with position = newPos } > newState, Some char > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let newInput, charOpt = fromStr "Hello World" |> nextChar > > newInput |> _assertEqual { > lines = [[| "Hello World" |]] > position = { line = 0; column = 1 } > } > charOpt |> _assertEqual (Some 'H') > > ╭─[ 50.13ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [|"Hello World"|] │ > │ position = { line = 0 │ > │ column = 1 } } │ > │ │ > │ Some 'H' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let newInput, charOpt = fromStr "Hello\n\nWorld" |> nextChar > > newInput |> _assertEqual { > lines = [[| "Hello"; ""; "World" |]] > position = { line = 0; column = 1 } > } > charOpt |> _assertEqual (Some 'H') > > ╭─[ 40.74ms - stdout ]─────────────────────────────────────────────────────────╮ > │ { lines = [|"Hello"; ""; "World"|] │ > │ position = { line = 0 │ > │ column = 1 } } │ > │ │ > │ Some 'H' │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ### Parser │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Input = InputState > type ParserLabel = string > type ParserError = string > > type ParserPosition = > { > currentLine : string > line : int > column : int > } > > type ParseResult<'a> = > | Success of 'a > | Failure of ParserLabel * ParserError * ParserPosition > > type Parser<'a> = > { > label : ParserLabel > parseFn : Input -> ParseResult<'a * Input> > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline printResult result = > match result with > | Success (value, input) -> > printfn $"%A{value}" > | Failure (label, error, parserPos) -> > let errorLine = parserPos.currentLine > let colPos = parserPos.column > let linePos = parserPos.line > let failureCaret = $"{' ' |> string |> String.replicate colPos}^{error}" > printfn $"Line:%i{linePos} Col:%i{colPos} Error parsing > %s{label}\n%s{errorLine}\n%s{failureCaret}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline runOnInput parser input = > parser.parseFn input > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline run parser inputStr = > runOnInput parser (fromStr inputStr) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline parserPositionFromInputState (inputState : Input) = > { > currentLine = currentLine inputState > line = inputState.position.line > column = inputState.position.column > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getLabel parser = > parser.label > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline setLabel parser newLabel = > { > label = newLabel > parseFn = fun input -> > match parser.parseFn input with > | Success s -> Success s > | Failure (oldLabel, err, pos) -> Failure (newLabel, err, pos) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<?>) = setLabel > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline satisfy predicate label = > { > label = label > parseFn = fun input -> > let remainingInput, charOpt = nextChar input > match charOpt with > | None -> > let err = "No more input" > let pos = parserPositionFromInputState input > Failure (label, err, pos) > | Some first -> > if predicate first > then Success (first, remainingInput) > else > let err = $"Unexpected '%c{first}'" > let pos = parserPositionFromInputState input > Failure (label, err, pos) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > runOnInput parser input |> _assertEqual ( > Success ( > 'H', > { > lines = [[| "Hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 45.96ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('H', { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "World" > let parser = satisfy (fun c -> c = 'H') "H" > runOnInput parser input |> _assertEqual ( > Failure ( > "H", > "Unexpected 'W'", > { > currentLine = "World" > line = 0 > column = 0 > } > ) > ) > > ╭─[ 36.58ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("H", "Unexpected 'W'", { currentLine = "World" │ > │ line = 0 │ > │ column = 0 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline bindP f p = > { > label = "unknown" > parseFn = fun input -> > match runOnInput p input with > | Failure (label, err, pos) -> Failure (label, err, pos) > | Success (value1, remainingInput) -> runOnInput (f value1) > remainingInput > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (>>=) p f = bindP f p > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e" > runOnInput parser2 input |> _assertEqual ( > Success ( > 'e', > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 62.21ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('e', { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "World" > let parser = satisfy (fun c -> c = 'W') "W" > let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e" > runOnInput parser2 input |> _assertEqual ( > Failure ( > "e", > "Unexpected 'o'", > { > currentLine = "World" > line = 0 > column = 1 > } > ) > ) > > ╭─[ 50.64ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("e", "Unexpected 'o'", { currentLine = "World" │ > │ line = 0 │ > │ column = 1 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline returnP x = > { > label = $"%A{x}" > parseFn = fun input -> Success (x, input) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = returnP "Hello" > runOnInput parser input |> _assertEqual ( > Success ( > "Hello", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 0 } > } > ) > ) > > ╭─[ 31.86ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("Hello", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline mapP f = > bindP (f >> returnP) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<!>) = mapP > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (|>>) x f = f <!> x > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = parser |>> string > runOnInput parser2 input |> _assertEqual ( > Success ( > "H", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 44.97ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("H", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline applyP fP xP = > fP >>= > fun f -> > xP >>= > fun x -> > returnP (f x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<*>) = applyP > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline lift2 f xP yP = > returnP f <*> xP <*> yP > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'e') "e" > let parser3 = lift2 (fun c1 c2 -> string c1 + string c2) parser parser2 > runOnInput parser3 input |> _assertEqual ( > Success ( > "He", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 65.51ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("He", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline andThen p1 p2 = > p1 >>= > fun p1Result -> > p2 >>= > fun p2Result -> > returnP (p1Result, p2Result) > <?> $"{getLabel p1} andThen {getLabel p2}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (.>>.) = andThen > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'e') "e" > let parser3 = parser .>>. parser2 > runOnInput parser3 input |> _assertEqual ( > Success ( > ('H', 'e'), > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 56.88ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (('H', 'e'), { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline orElse p1 p2 = > { > label = $"{getLabel p1} orElse {getLabel p2}" > parseFn = fun input -> > match runOnInput p1 input with > | Success _ as result -> result > | Failure _ -> runOnInput p2 input > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > let (<|>) = orElse > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'h') "h" > let parser3 = parser <|> parser2 > runOnInput parser3 input |> _assertEqual ( > Success ( > 'h', > { > lines = [[| "hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 55.78ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('h', { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline choice listOfParsers = > listOfParsers |> List.reduce (<|>) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'h') "h" > let parser3 = choice [[ parser; parser2 ]] > runOnInput parser3 input |> _assertEqual ( > Success ( > 'h', > { > lines = [[| "hello" |]] > position = { line = 0; column = 1 } > } > ) > ) > > ╭─[ 61.63ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ('h', { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 1 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let rec sequence parserList = > match parserList with > | [[]] -> returnP [[]] > | head :: tail -> (lift2 cons) head (sequence tail) > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = satisfy (fun c -> c = 'e') "e" > let parser3 = sequence [[ parser; parser2 ]] > runOnInput parser3 input |> _assertEqual ( > Success ( > [[ 'H'; 'e' ]], > { > lines = [[| "Hello" |]] > position = { line = 0; column = 2 } > } > ) > ) > > ╭─[ 60.22ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (['H'; 'e'], { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 2 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let rec parseZeroOrMore parser input = > match runOnInput parser input with > | Failure (_, _, _) -> > [[]], input > | Success (firstValue, inputAfterFirstParse) -> > let subsequentValues, remainingInput = parseZeroOrMore parser > inputAfterFirstParse > firstValue :: subsequentValues, remainingInput > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline many parser = > { > label = $"many {getLabel parser}" > parseFn = fun input -> Success (parseZeroOrMore parser input) > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = many parser > runOnInput parser2 input |> _assertEqual ( > Success ( > [[]], > { > lines = [[| "hello" |]] > position = { line = 0; column = 0 } > } > ) > ) > > ╭─[ 51.57ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ([], { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline many1 p = > p >>= > fun head -> > many p >>= > fun tail -> > returnP (head :: tail) > <?> $"many1 {getLabel p}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = many1 parser > runOnInput parser2 input |> _assertEqual ( > Failure ( > "many1 H", > "Unexpected 'h'", > { > currentLine = "hello" > line = 0 > column = 0 > } > ) > ) > > ╭─[ 60.84ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("many1 H", "Unexpected 'h'", { currentLine = "hello" │ > │ line = 0 │ > │ column = 0 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline opt p = > let some = p |>> Some > let none = returnP None > (some <|> none) > <?> $"opt {getLabel p}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "hello" > let parser = satisfy (fun c -> c = 'H') "H" > let parser2 = opt parser > runOnInput parser2 input |> _assertEqual ( > Success ( > None, > { > lines = [[| "hello" |]] > position = { line = 0; column = 0 } > } > ) > ) > > ╭─[ 57.00ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (None, { lines = [|"hello"|] │ > │ position = { line = 0 │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (.>>) p1 p2 = > p1 .>>. p2 > |> mapP fst > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (>>.) p1 p2 = > p1 .>>. p2 > |> mapP snd > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline between p1 p2 p3 = > p1 >>. p2 .>> p3 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "[[Hello]]" > let parser = > between > (satisfy (fun c -> c = '[[') "[[") > (many (satisfy (fun c -> [[ 'a' .. 'z' ]] @ [[ 'A' .. 'Z' ]] |> > List.contains c) "letter")) > (satisfy (fun c -> c = ']]') "]]") > runOnInput parser input |> _assertEqual ( > Success ( > [[ 'H'; 'e'; 'l'; 'l'; 'o' ]], > { > lines = [[| "[[Hello]]" |]] > position = { line = 0; column = 7 } > } > ) > ) > > ╭─[ 208.57ms - stdout ]────────────────────────────────────────────────────────╮ > │ Success (['H'; 'e'; 'l'; 'l'; 'o'], { lines = [|"[Hello]"|] │ > │ position = { line = 0 │ > │ column = 7 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sepBy1 p sep = > let sepThenP = sep >>. p > p .>>. many sepThenP > |>> fun (p, pList) -> p :: pList > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sepBy p sep = > sepBy1 p sep <|> returnP [[]] > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello,World" > let parser = sepBy (many (satisfy (fun c -> c <> ',') "not comma")) (satisfy > (fun c -> c = ',') "comma") > runOnInput parser input |> _assertEqual ( > Success ( > [[ [[ 'H'; 'e'; 'l'; 'l'; 'o' ]]; [[ 'W'; 'o'; 'r'; 'l'; 'd'; '\n' ]] > ]], > { > lines = [[| "Hello,World" |]] > position = { line = 1; column = 0 } > } > ) > ) > > ╭─[ 121.66ms - stdout ]────────────────────────────────────────────────────────╮ > │ Success ([['H'; 'e'; 'l'; 'l'; 'o']; ['W'; 'o'; 'r'; 'l'; 'd'; '\010']], { │ > │ lines = [|"Hello,World"|] │ > │ │ > │ position = { line = 1 │ > │ │ > │ column = 0 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline pchar charToMatch = > satisfy ((=) charToMatch) $"%c{charToMatch}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline anyOf listOfChars = > listOfChars > |> List.map pchar > |> choice > <?> $"anyOf %A{listOfChars}" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = anyOf [[ 'H'; 'e'; 'l'; 'o' ]] |> many > runOnInput parser input |> _assertEqual ( > Success ( > [[ 'H'; 'e'; 'l'; 'l'; 'o' ]], > { > lines = [[| "Hello" |]] > position = { line = 0; column = 5 } > } > ) > ) > > ╭─[ 79.50ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (['H'; 'e'; 'l'; 'l'; 'o'], { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 5 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline charListToStr charList = > charList |> List.toArray |> String > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline manyChars cp = > many cp > |>> charListToStr > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline manyChars1 cp = > many1 cp > |>> charListToStr > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = manyChars1 (anyOf [[ 'H'; 'e'; 'l'; 'o' ]]) > runOnInput parser input |> _assertEqual ( > Success ( > "Hello", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 5 } > } > ) > ) > > ╭─[ 89.65ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("Hello", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 5 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline pstring str = > str > |> List.ofSeq > |> List.map pchar > |> sequence > |> mapP charListToStr > <?> str > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = pstring "Hello" > runOnInput parser input |> _assertEqual ( > Success ( > "Hello", > { > lines = [[| "Hello" |]] > position = { line = 0; column = 5 } > } > ) > ) > > ╭─[ 80.02ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success ("Hello", { lines = [|"Hello"|] │ > │ position = { line = 0 │ > │ column = 5 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let whitespaceChar = > satisfy Char.IsWhiteSpace "whitespace" > > ── fsharp ────────────────────────────────────────────────────────────────────── > let spaces = many whitespaceChar > > ── fsharp ────────────────────────────────────────────────────────────────────── > let spaces1 = many1 whitespaceChar > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr " Hello" > let parser = spaces1 .>>. pstring "Hello" > runOnInput parser input |> _assertEqual ( > Success ( > ([[ ' '; ' ' ]], "Hello"), > { > lines = [[| " Hello" |]] > position = { line = 0; column = 7 } > } > ) > ) > > ╭─[ 82.60ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (([' '; ' '], "Hello"), { lines = [|" Hello"|] │ > │ position = { line = 0 │ > │ column = 7 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let digitChar = > satisfy Char.IsDigit "digit" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let input = fromStr "Hello" > let parser = digitChar > runOnInput parser input |> _assertEqual ( > Failure ( > "digit", > "Unexpected 'H'", > { > currentLine = "Hello" > line = 0 > column = 0 > } > ) > ) > > ╭─[ 40.47ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Failure ("digit", "Unexpected 'H'", { currentLine = "Hello" │ > │ line = 0 │ > │ column = 0 }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let pint = > let inline resultToInt (sign, digits) = > let i = int digits > match sign with > | Some ch -> -i > | None -> i > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits > |> mapP resultToInt > <?> "integer" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run pint "-123" > |> _assertEqual ( > Success ( > -123, > { > lines = [[| "-123" |]] > position = { line = 0; column = 4 } > } > ) > ) > > ╭─[ 43.13ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (-123, { lines = [|"-123"|] │ > │ position = { line = 0 │ > │ column = 4 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let pfloat = > let inline resultToFloat (((sign, digits1), point), digits2) = > let fl = float $"{digits1}.{digits2}" > match sign with > | Some ch -> -fl > | None -> fl > > let digits = manyChars1 digitChar > > opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits > |> mapP resultToFloat > <?> "float" > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > run pfloat "-123.45" > |> _assertEqual ( > Success ( > -123.45, > { > lines = [[| "-123.45" |]] > position = { line = 0; column = 7 } > } > ) > ) > > ╭─[ 46.38ms - stdout ]─────────────────────────────────────────────────────────╮ > │ Success (-123.45, { lines = [|"-123.45"|] │ > │ position = { line = 0 │ > │ column = 7 } }) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline createParserForwardedToRef<'a> () = > let mutable parserRef : Parser<'a> = > { > label = "unknown" > parseFn = fun _ -> failwith "unfixed forwarded parser" > } > > let wrapperParser = > { parserRef with > parseFn = fun input -> runOnInput parserRef input > } > > wrapperParser, (fun v -> parserRef <- v) > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline (>>%) p x = > p > |>> fun _ -> x 00:00:25 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 82917 00:00:25 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/parser/Parser.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:27 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/parser/Parser.dib.ipynb to html 00:00:27 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:27 verbose #7 ! validate(nb) 00:00:29 verbose #8 ! [NbConvertApp] Writing 413674 bytes to c:\home\git\polyglot\apps\parser\Parser.dib.html 00:00:29 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645 00:00:29 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645 00:00:29 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/Parser.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/parser/Parser.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:00:30 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:00:30 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:00:31 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 83621 00:00:00 debug #1 writeDibCode / output: Fs / path: Parser.dib 00:00:00 debug #1 writeDibCode / output: Fs / path: JsonParser.dib 00:00:00 debug #3 parseDibCode / output: Fs / file: JsonParser.dib 00:00:00 debug #3 parseDibCode / output: Fs / file: Parser.dib
In [ ]:
{ pwsh ../apps/spiral/build.ps1 } | Invoke-Block
00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Supervisor.dib", "--retries", "3"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/Supervisor.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/Supervisor.dib" --output-path "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # Supervisor (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #r > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan > dard2.1/FSharp.Control.AsyncSeq.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6. > 0/System.Reactive.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/ > netstandard2.0/System.Reactive.Linq.dll" > #r > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com > mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli > ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/ > 7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll" > #r > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha > rp.Json.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl... _v5=None" > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class... with > | US14_1(v28) -> (* Error *) > US8_1(v28) > | US14_0(v26) -> (* Ok *) > US8_0(v26) > and closure19 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure7() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure17() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure18() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure19() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...4>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> Async<bool>)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> (bool -> (string -> string))) = closure50() > let find_parent x = v16 x > let v17 : (string -> string) = closure56() > let normalize_path x = v17 x > let v18 : (string -> string) = closure57() > let new_file_uri x = v18 x > let v19 : (unit -> string) = closure58() > let get_workspace_root () = v19 () > let v20 : (bool -> unit) = closure59() > let init_trace_file x = v20 x > let v21 : (string -> (string -> string)) = closure61() > let (</>) x = v21 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import ../../lib/fsharp/CommonFSharp.fs > #!import ../../lib/fsharp/Async.fs > #!import ../../lib/fsharp/AsyncSeq.fs > #!import ../../lib/fsharp/Runtime.fs > #!import ../../lib/fsharp/FileSystem.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module CommonFSharp = > > open Common > > /// ## getUnionCaseName > let inline getUnionCaseName<'T> (x: 'T) = > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with > | case, _ -> case.Name > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Async = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## choice > let inline choice asyncs = async { > let e = Event<_> () > use cts = new System.Threading.CancellationTokenSource () > let fn = > asyncs > |> Seq.map (fun a -> async { > let! x = a > e.Trigger x > }) > |> Async.Parallel > |> Async.Ignore > Async.Start (fn, cts.Token) > let! result = Async.AwaitEvent e.Publish > cts.Cancel () > return result > } > > /// ## map > let inline map fn a = async { > let! x = a > return fn x > } > > /// ## catch > let inline catch a = > a > |> Async.Catch > |> map (function > | Choice1Of2 result -> Ok result > | Choice2Of2 ex -> Error ex > ) > > /// ## runWithTimeoutChoiceAsync > let inline runWithTimeoutChoiceAsync (timeout : int) fn = > let _locals () = $"timeout: {timeout} / {_locals ()}" > > let timeoutTask = async { > do! Async.Sleep timeout > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals > return None > } > > let task = async { > try > let! result = fn > return Some result > with > | :? System.AggregateException as ex when > ex.InnerExceptions > |> Seq.exists (function :? Sy... None > > /// ## awaitValueTask > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) = > task.AsTask () |> Async.AwaitTask > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) = > task.AsTask () |> Async.AwaitTask > > /// ## init > let inline init x = async { > return x > } > > /// ## withCancellationToken > let inline withCancellationToken (ct : System.Threading.CancellationToken) > fn = > Async.StartImmediateAsTask (fn, ct) > |> Async.AwaitTask > > /// ## retryAsync > let inline retryAsync retries fn = > let rec loop retry lastError = async { > try > return! > if retry <= retries > then fn |> map Ok > else lastError |> Error |> init > with ex -> > trace Debug (fun () -> $"Async.retryAsync / retry: > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 1 > return! loop (retry + 1) (ex |> SpiralSm.format_exception) > } > loop 1 "Async.retryAsync / invalid retries / retries: {retries}" > > /// ## fold > let fold folder state array = > let rec loop acc i = > async { > if i < Array.length array then > let! newAcc = folder acc array.[[i]] > return! loop newAcc (i + 1) > else > return acc > } > loop state 0 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module AsyncSeq = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## subscribeEvent > let inline subscribeEvent (event: IEvent<'H, 'A>) map = > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H, > 'A>(event.AddHandler, event.RemoveHandler) > System.Reactive.Linq.Observable.Select (observable, fun event -> map > event.EventArgs) > |> FSharp.Control.AsyncSeq.ofObservableBuffered > > /// ## subscribeToken > let subscribeToken (token : System.Threading.CancellationToken) = > let tcs = new System.Threading.Tasks.TaskCompletionSource () > System.Action tcs.SetResult |> token.Register |> ignore > let start = System.DateTime.Now.Ticks > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > do! tcs.Task |> Async.AwaitTask > return Some (System.DateTime.Now.Ticks - start, ()) > }) > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Runtime = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## parseArgs > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args = > let assemblyName = > System.Reflection.Assembly.GetEntryAssembly().GetName().Name > let errorHandler : Argu.IExiter = > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |> > List.contains assemblyName > then Argu.ExceptionExiter () > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | > _ -> Some System.ConsoleColor.Red) > > let parser = > Argu.ArgumentParser.Create<'T> ( > programName = > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}", > errorHandler = errorHandler > ) > > parser.ParseCommandLine args > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseArgs<'T> > |> fun results -> results.GetAllResults () > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseAllArgs<'T> > |> List.groupBy CommonFSharp.getUnionCaseName<'T> > |> Map.ofList > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module FileSystem = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## watchDirectory > [[<RequireQualifiedAccess>]] > type FileSystemChangeType = > | Failure > | Changed > | Created > | Deleted > | Renamed > > [[<RequireQualifiedAccess>]] > type FileSystemChange = > | Failure of exn: exn > | Changed of path: string * content: string option > | Created of path: string * content: string option > | Deleted of path: string > | Renamed of oldPath: string * (string * string option) > > > let inline watchDirectoryWithFilter filter shouldReadContent path = > let fullPath = path |> System.IO.Path.GetFullPath > let _locals () = $"filter: {filter} / {_locals ()}" > > let watcher = > new System.IO.FileSystemWatcher ( > Path = fullPath, > NotifyFilter = filter, > EnableRaisingEvents = true, > IncludeSubdirectories = true > ) > > let inline getEventPath (path : string) = > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |> > SpiralSm.trim_start [[| '/'; '\\' |]] > > let inline ticks () = > System.DateTime.UtcNow.Ticks > > let changedStream = > AsyncSeq.subscribeEvent > watcher.Changed > (fun event -> > ticks (), > [[ FileSystemChang...d_all_text_retry_async > return t, FileSystemChange.Changed (path, content) > | true, FileSystemChange.Created (path, _) -> > do! Async.Sleep 5 > let! content = fullPath </> path |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Created (path, content) > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) -> > let! content = fullPath </> newPath |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Renamed (oldPath, (newPath, > content)) > | _ -> return t, event > }) > > let disposable = > new_disposable (fun () -> > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing > watch stream") _locals > watcher.EnableRaisingEvents <- false > watcher.Dispose () > ) > > stream, disposable > > let inline watchDirectory path = > watchDirectoryWithFilter > (System.IO.NotifyFilters.FileName > // ||| System.IO.NotifyFilters.DirectoryName > // ||| System.IO.NotifyFilters.Attributes > //// ||| System.IO.NotifyFilters.Size > ||| System.IO.NotifyFilters.LastWrite > //// ||| System.IO.NotifyFilters.LastAccess > // ||| System.IO.NotifyFilters.CreationTime > // ||| System.IO.NotifyFilters.Security > ) > path > > > ── fsharp ────────────────────────────────────────────────────────────────────── > #if !INTERACTIVE > open Lib > #endif > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open SpiralFileSystem.Operators > open Microsoft.AspNetCore.SignalR.Client > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## sendJson │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sendJson (port : int) (json : string) = async { > let host = "127.0.0.1" > let! portOpen = SpiralNetworking.test_port_open host port > if portOpen then > try > let connection = > HubConnectionBuilder().WithUrl($"http://{host}:{port}").Build() > do! connection.StartAsync () |> Async.AwaitTask > let! result = connection.InvokeAsync<string>("ClientToServerMsg", > json) |> Async.AwaitTask > do! connection.StopAsync () |> Async.AwaitTask > trace Verbose (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / result: {result |> Option.ofObj |> > Option.map (SpiralSm.ellipsis_end 200)}") _locals > return Some result > with ex -> > trace Critical (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / ex: {ex |> > SpiralSm.format_exception}") _locals > return None > else > trace Debug (fun () -> "Supervisor.sendJson / port: {port} / error: port > not open") _locals > return None > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## sendObj │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline sendObj port obj = > obj > |> System.Text.Json.JsonSerializer.Serialize > |> sendJson port > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## awaitCompiler │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type VSCPos = {| line : int; character : int |} > type VSCRange = VSCPos * VSCPos > type RString = VSCRange * string > type TracedError = {| trace : string list; message : string |} > type ClientErrorsRes = > | FatalError of string > | TracedError of TracedError > | PackageErrors of {| uri : string; errors : RString list |} > | TokenizerErrors of {| uri : string; errors : RString list |} > | ParserErrors of {| uri : string; errors : RString list |} > | TypeErrors of {| uri : string; errors : RString list |} > > ── fsharp ────────────────────────────────────────────────────────────────────── > let workspaceRoot = SpiralFileSystem.get_workspace_root () > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline awaitCompiler port cancellationToken = async { > let host = "127.0.0.1" > let struct (ct, disposable) = cancellationToken |> > SpiralThreading.new_disposable_token > let! ct = ct |> SpiralAsync.merge_cancellation_token_with_default_async > > let compiler = MailboxProcessor.Start (fun inbox -> async { > let! availablePort = SpiralNetworking.get_available_port (Some 500) host > port > if availablePort <> port then > inbox.Post (port, false) > else > let compilerPath = > workspaceRoot </> "deps/The-Spiral-Language/The Spiral Language > 2/artifacts/bin/The Spiral Language 2/release" > |> System.IO.Path.GetFullPath > > let dllPath = compilerPath </> "Spiral.dll" > > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = Some ct > l1 = $@"dotnet ""{dllPath}"" --port {availablePort} > --default-int i32 --default-float f64" > l3 = Some (fun struct (_, line, _) -> async { > if line |> SpiralSm.contains > $"System.IO.IOException: Failed to bind to address http://{host}:{port}: address > already in use." then > inbox.Post (port, false) > > if line |> SpiralSm.contains $"Server bound to: > http://localhost:{availablePort}" then > let rec loop retry = async { > do! > SpiralNetworking.wait_for_port_access > (Some 100) true host availablePort > |> Async.runWithTimeoutAsync 2000 > |> Async.Ignore > > let _locals () = $"port: {availablePort} / > retry: {retry} / {_locals ()}" > try > let pingObj = {| Ping = true |} > let! pingResult = pingObj |> sendObj > availablePort > trace Verbose (fun () -> $"awaitCompiler > / Ping / result: '{pingResult}'") _locals > > inbox.Post (availablePort, true) > with ex -> > trace Verbose (fun () -> $"awaitCompiler > / Ping / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 10 > do! loop (retry + 1) > } > do! loop 0 > }) > l6 = Some workspaceRoot > } > ) > |> SpiralRuntime.execute_with_options_async > > trace Debug (fun () -> $"awaitCompiler / exitCode: {exitCode} / > result: {result}") _locals > disposable.Dispose () > }, ct) > > let! serverPort, managed = compiler.Receive () > > let connection = > HubConnectionBuilder().WithUrl($"http://{host}:{serverPort}").Build () > do! connection.StartAsync () |> Async.AwaitTask > > let event = Event<_> () > let disposable' = connection.On<string> ("ServerToClientMsg", event.Trigger) > let stream = > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > let! msg = event.Publish |> Async.AwaitEvent > return Some (msg |> > FSharp.Json.Json.deserialize<ClientErrorsRes>, ()) > }) > () > > let disposable' = > new_disposable (fun () -> > async { > disposable'.Dispose () > do! connection.StopAsync () |> Async.AwaitTask > disposable.Dispose () > if managed > then do! > SpiralNetworking.wait_for_port_access (Some 100) false host > serverPort > |> Async.runWithTimeoutAsync 2000 > |> Async.Ignore > } > |> Async.RunSynchronously > ) > > return > serverPort, > stream, > ct, > disposable' > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getFilePathFromUri │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getFilePathFromUri uri = > match System.Uri.TryCreate (uri, System.UriKind.Absolute) with > | true, uri -> uri.AbsolutePath |> System.IO.Path.GetFullPath > | _ -> failwith "invalid uri" > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getCompilerPort │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getCompilerPort () = > 13805 > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## serialize_obj │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let serializeObj obj = > obj > |> FSharp.Json.Json.serialize > |> SpiralSm.replace "\\\\" "\\" > |> SpiralSm.replace "\\r\\n" "\n" > |> SpiralSm.replace "\\n" "\n" > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Backend │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > type Backend = > | Fsharp > | Cuda > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## buildFile │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline buildFile backend timeout port cancellationToken path = async { > let fullPath = path |> System.IO.Path.GetFullPath > let fileDir = fullPath |> System.IO.Path.GetDirectoryName > let fileName = fullPath |> System.IO.Path.GetFileNameWithoutExtension > let! code = fullPath |> SpiralFileSystem.read_all_text_async > > let stream, disposable = fileDir |> FileSystem.watchDirectory (fun _ -> > false) > use _ = disposable > > let struct (token, disposable) = SpiralThreading.new_disposable_token > cancellationToken > use _ = disposable > > let port = port |> Option.defaultWith getCompilerPort > let! serverPort, errors, ct, disposable = awaitCompiler port (Some token) > use _ = disposable > > let outputFileName = > match backend with > | Fsharp -> $"{fileName}.fsx" > | Cuda -> $"{fileName}.py" > > let outputContentSeq = > stream > |> FSharp.Control.AsyncSeq.chooseAsync (function > | _, (FileSystem.FileSystemChange.Changed (path, _)) > when (path |> System.IO.Path.GetFileName) = outputFileName > -> > fileDir </> path |> > SpiralFileSystem.read_all_text_retry_async > | _ -> None |> Async.init > ) > |> FSharp.Control.AsyncSeq.map (fun content -> > Some (content |> SpiralSm.replace "\r\n" "\n"), None > ) > > let inline printErrorData (data : {| uri : string; errors : RString list |}) > = > let fileName = data.uri |> System.IO.Path.GetFileName > let errors = > data.errors > |> List.map snd > |> SpiralSm.concat "\n" > $"{fileName}:\n{errors}" > > let errorsSeq = > errors > |> FSharp.Control.AsyncSeq.choose (fun error -> > match error with > | FatalError message -> > Some (message, error) > | TracedError data -> > Some (data.message, error) > | PackageErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | TokenizerErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | ParserErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | TypeErrors data when data.errors |> List.isEmpty |> not -> > Some (data |> printErrorData, error) > | _ -> None > ) > |> FSharp.Control.AsyncSeq.map (fun (message, error) -> > None, Some (message, error) > ) > > let timerSeq = > 1000 > |> FSharp.Control.AsyncSeq.intervalMs > |> FSharp.Control.AsyncSeq.map (fun _ -> None, None) > > let outputSeq = > [[ outputContentSeq; errorsSeq; timerSeq ]] > |> FSharp.Control.AsyncSeq.mergeAll > > let! outputChild = > ((None, [[]], 0), outputSeq) > ||> FSharp.Control.AsyncSeq.scan ( > fun (outputContentResult, errors, typeErrorCount) (outputContent, > error) -> > match outputContent, error with > | Some outputContent, None -> Some outputContent, errors, > typeErrorCount > | None, Some (_, FatalError "File main has a type error > somewhere in its path.") -> > outputContentResult, errors, typeErrorCount + 1 > | None, Some error -> outputContentResult, error :: errors, > typeErrorCount > | None, None when typeErrorCount >= 1 -> > outputContentResult, errors, typeErrorCount + 1 > | _ -> outputContentResult, errors, typeErrorCount > ) > |> FSharp.Control.AsyncSeq.takeWhileInclusive (fun (outputContent, > errors, typeErrorCount) -> > trace Debug (fun () -> $"Supervisor.buildFile / takeWhileInclusive / > path: {path} / outputContent: {outputContent |> Option.defaultValue > System.String.Empty |> SpiralSm.ellipsis_end 400} / errors: {errors |> > serializeObj} / typeErrorCount: {typeErrorCount}") _locals > #if INTERACTIVE > let errorWait = 2 > #else > let errorWait = 4 > #endif > match outputContent, errors with > | None, [[]] when typeErrorCount > errorWait -> false > | None, [[]] -> true > | _ -> false > ) > |> FSharp.Control.AsyncSeq.tryLast > |> Async.withCancellationToken ct > |> Async.catch > |> Async.runWithTimeoutAsync timeout > |> Async.StartChild > > let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > > let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |} > let! _fileOpenResult = fileOpenObj |> sendObj serverPort > > // do! Async.Sleep 60 > > let backendId = > match backend with > | Fsharp -> "Fsharp" > | Cuda -> "Python + Cuda" > let buildFileObj = {| BuildFile = {| uri = fullPathUri; backend = backendId > |} |} > let! _buildFileResult = buildFileObj |> sendObj serverPort > > let! result = > outputChild > |> Async.map (function > | Some (Ok (Some (outputCode, errors, _))) -> > outputCode, errors |> List.distinct |> List.rev > | Some (Error ex) -> > trace Critical (fun () -> $"Supervisor.buildFile / error: {ex |> > serializeObj}") _locals > None, [[]] > | _ -> None, [[]] > ) > > if fileDir |> SpiralSm.starts_with (workspaceRoot </> "target") then > let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |} > let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort > () > > let outputPath = fileDir </> outputFileName > return outputPath, result > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## persistCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline persistCode backend code = async { > let targetDir = workspaceRoot </> "target/spiral_Eval" > > let packagesDir = targetDir </> "packages" > > let hashHex = $"{backend}{code}" |> SpiralCrypto.hash_text > > let codeDir = packagesDir </> hashHex > > let spiPath = codeDir </> "main.spi" > > codeDir |> System.IO.Directory.CreateDirectory |> ignore > > do! code |> SpiralFileSystem.write_all_text_exists spiPath > > let spiprojPath = codeDir </> "package.spiproj" > let spiprojCode = > $"""packageDir: {workspaceRoot </> "lib"} > packages: > |core- > spiral- > modules: > main > """ > do! spiprojCode |> SpiralFileSystem.write_all_text_exists spiprojPath > > match backend with > | None -> return spiPath, None > | Some backend -> > let outputFileName = > match backend with > | Fsharp -> $"main.fsx" > | Cuda -> $"main.py" > let outputPath = codeDir </> outputFileName > > if outputPath |> System.IO.File.Exists |> not > then return spiPath, None > else > let! oldCode = spiPath |> SpiralFileSystem.read_all_text_async > if oldCode <> code > then return spiPath, None > else > let! outputCode = outputPath |> > SpiralFileSystem.read_all_text_async > return spiPath, Some (outputPath, outputCode |> SpiralSm.replace > "\r\n" "\n") > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## buildCode │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline buildCode backend cache timeout cancellationToken code = async { > let! mainPath, outputCache = code |> persistCode (Some backend) > match outputCache with > | Some (outputPath, outputCode) when cache -> return mainPath, (outputPath, > Some outputCode), [[]] > | _ -> > let! outputPath, (outputCode, errors) = mainPath |> buildFile backend > timeout None cancellationToken > return mainPath, (outputPath, outputCode), errors > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let buildCode cache timeout cancellationToken code = buildCode cache timeout > cancellationToken code > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl app () = > console.write_line "text" > 1i32 > > inl main () = > app > |> dyn > |> ignore > """ > |> buildCode Fsharp false 15000 None > |> Async.runWithTimeout 15000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some """let rec closure0 () () : int32 = > let v0 : (string -> unit) = System.Console.WriteLine > let v1 : string = "text" > v0 v1 > 1 > let v0 : (unit -> int32) = closure0() > () > """, > [[]] > ) > ) > > ╭─[ 5.35s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:24 debug #1 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:19 debug #1 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:20 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:20 verbose #3 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:20 verbose #4 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:24 debug #2 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:24 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 │ > │ / timeout: Some 100 / status: True │ > │ 00:00:24 debug #4 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:20 verbose #5 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:24 debug #5 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:16 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:16 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:20 verbose #6 > Server bound to: http://localhost:13805 │ > │ 00:00:16 debug #3 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:16 debug #4 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:16 verbose #5 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl app () =\n console.write_line │ > │ \u0022text\u0022\n 1i32\n\ninl main │ > │ ...et/spiral_Eval/packages/8c88433e7d69e9e1a9d4b28a930d3862015735981709156ba │ > │ 9a9a49d1474baaf/main.spi"}} / result: │ > │ 00:00:16 verbose #6 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/8c88433e7d69e9e1a9d4b28a930d3862015735981709156ba9a9a49 │ > │ d1474baaf/main.spi"}} / result: │ > │ 00:00:21 verbose #7 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf/main.spi │ > │ 00:00:17 debug #7 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:18 debug #8 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:19 debug #9 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:19 debug #10 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\8c88433e7d69e9e1a9d4b28a930 │ > │ d3862015735981709156ba9a9a49d1474baaf\main.spi / outputContent: let rec │ > │ closure0 () () : int32 = │ > │ let v0 : (string -> unit) = System.Console.WriteLine │ > │ let v1 : string = "text" │ > │ v0 v1 │ > │ 1 │ > │ let v0 : (unit -> int32) = closure0() │ > │ () │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:00:19 verbose #11 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/8c88433e7d69e9e1a9 │ > │ d4b28a930d3862015735981709156ba9a9a49d1474baaf"]}} / result: │ > │ 00:00:28 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 │ > │ / timeout: Some 100 / status: False │ > │ 00:00:28 debug #7 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:19 debug #12 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some │ > │ (Some │ > │ "let rec closure0 () () : int32 = │ > │ let v0 : (string -> unit) = System.Console.WriteLine │ > │ let v1 : string = "text" │ > │ v0 v1 │ > │ 1 │ > │ let v0 : (unit -> int32) = closure0() │ > │ () │ > │ ", │ > │ []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > "" > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> _assertEqual None > > ╭─[ 10.32s - stdout ]──────────────────────────────────────────────────────────╮ > │ 00:00:29 debug #8 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:25 debug #8 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:25 verbose #9 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:25 verbose #10 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:25 verbose #11 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:29 debug #9 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:29 verbose #10 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:00:29 debug #11 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:25 verbose #12 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:30 debug #12 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:21 verbose #13 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:21 verbose #14 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:25 verbose #13 > Server bound to: http://localhost:13805 │ > │ 00:00:21 debug #15 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:21 debug #16 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:21 verbose #17 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"","uri":"file:///c:/home/git/polyglot/target/spiral_ │ > │ Eval/packages/9c831865c266ad2da284d289670a5c0190122ff42cafbbc1826cd6e1d207b0 │ > │ d4/main.spi"}} / result: │ > │ 00:00:21 verbose #18 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/9c831865c266ad2da284d289670a5c0190122ff42cafbbc1826cd6e │ > │ 1d207b0d4/main.spi"}} / result: │ > │ 00:00:26 verbose #14 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4/main.spi │ > │ 00:00:22 debug #19 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:23 debug #20 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:28 verbose #15 > Cannot find `main` in file main. │ > │ 00:00:28 verbose #16 > 00:00:03 debug #5 │ > │ Supervisor.supervisor_server.BuildFile.handle_build_result.BuildSkip / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4/main.spi │ > │ 00:00:24 debug #21 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:25 debug #22 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:26 debug #23 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:27 debug #24 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:28 debug #25 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:29 debug #26 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9c831865c266ad2da284d289670 │ > │ a5c0190122ff42cafbbc1826cd6e1d207b0d4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:38 verbose #13 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:00:39 debug #14 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:30 debug #27 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ 00:00:30 debug #28 runWithTimeoutAsync / timeout: 10000 │ > │ <null> │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = > 1i32 / 0i32 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ "An attempt to divide by zero has been detected at compile time." ]] > ) > ) > > ╭─[ 5.33s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:39 debug #15 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:35 debug #17 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:35 verbose #18 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:35 verbose #19 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:35 verbose #20 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:40 debug #16 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:40 verbose #17 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:00:40 debug #18 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:36 verbose #21 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:40 debug #19 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:40 debug #20 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:31 verbose #29 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:31 verbose #30 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:36 verbose #22 > Server bound to: http://localhost:13805 │ > │ 00:00:31 debug #31 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:31 debug #32 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:31 verbose #33 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () =\n 1i32 / │ > │ 0i32\n","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/ee0a │ > │ 78d78a0479a47d81f2adf12ca62c75c5c178ab311d98939cbb8c72ded046/main.spi"}} / │ > │ result: │ > │ 00:00:31 verbose #34 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12ca62c75c5c178ab311d98939cbb8 │ > │ c72ded046/main.spi"}} / result: │ > │ 00:00:36 verbose #23 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046/main.spi │ > │ 00:00:32 debug #35 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:33 debug #36 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:34 debug #37 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:35 debug #38 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "An attempt to divide by zero has been detected at compile time.", │ > │ { │ > │ "TracedError": { │ > │ "message": "An attempt to divide by zero has been detected at │ > │ compile time.", │ > │ "trace": [ │ > │ "Error trace on line: 1, column: 10 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046/main.spi. │ > │ inl main () = │ > │ ^ │ > │ ", │ > │ "Error trace on line: 2, column: 5 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d81f2adf12 │ > │ ca62c75c5c178ab311d98939cbb8c72ded046/main.spi. │ > │ 1i32 / 0i32 │ > │ ^ │ > │ " │ > │ ] │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:35 verbose #39 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/ee0a78d78a0479a47d │ > │ 81f2adf12ca62c75c5c178ab311d98939cbb8c72ded046"]}} / result: │ > │ 00:00:44 verbose #21 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:00:44 debug #22 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:35 debug #40 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["An attempt to divide by zero has been detected at compile │ > │ time."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = > 1 + "" > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ > "main.spi: > Constraint satisfaction error. > Got: string > Fails to satisfy: number" > ]] > ) > ) > > ╭─[ 4.98s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:45 debug #23 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:40 debug #24 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:41 verbose #25 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:41 verbose #26 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:41 verbose #27 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:46 debug #24 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:46 verbose #25 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:00:46 debug #26 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:42 verbose #28 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:46 debug #27 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:46 debug #28 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:37 verbose #41 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:37 verbose #42 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:42 verbose #29 > Server bound to: http://localhost:13805 │ > │ 00:00:37 debug #43 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:37 debug #44 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:37 verbose #45 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () =\n 1 \u002B │ > │ \u0022\u0022\n","uri":"file:///c:/home/git/polyg...et/spiral_Eval/packages/7 │ > │ 6b13cc01bea41edca2abb2018ecb52338691709add5c127990c271c0479c00b/main.spi"}} │ > │ / result: │ > │ 00:00:37 verbose #46 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/76b13cc01bea41edca2abb2018ecb52338691709add5c127990c271 │ > │ c0479c00b/main.spi"}} / result: │ > │ 00:00:42 verbose #30 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b/main.spi │ > │ 00:00:38 debug #47 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:39 debug #48 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:40 debug #49 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 1 │ > │ 00:00:40 debug #50 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\76b13cc01bea41edca2abb2018e │ > │ cb52338691709add5c127990c271c0479c00b\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "main.spi: │ > │ Constraint satisfaction error. │ > │ Got: string │ > │ Fails to satisfy: number", │ > │ { │ > │ "TypeErrors": { │ > │ "errors": [ │ > │ [ │ > │ [ │ > │ { │ > │ "character": 8, │ > │ "line": 1 │ > │ }, │ > │ { │ > │ "character": 10, │ > │ "line": 1 │ > │ } │ > │ ], │ > │ "Constraint satisfaction error. │ > │ Got: string │ > │ Fails to satisfy: number" │ > │ ] │ > │ ], │ > │ "uri": │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/76b13cc01bea41edca │ > │ 2abb2018ecb52338691709add5c127990c271c0479c00b/main.spi" │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 1 │ > │ 00:00:40 verbose #51 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/76b13cc01bea41edca │ > │ 2abb2018ecb52338691709add5c127990c271c0479c00b"]}} / result: │ > │ 00:00:49 verbose #29 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:00:49 debug #30 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:40 debug #52 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["main.spi: │ > │ Constraint satisfaction error. │ > │ Got: string │ > │ Fails to satisfy: number"]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = > x + y > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ > "main.spi: > Unbound variable: x. > Unbound variable: y." > ]] > ) > ) > > ╭─[ 3.99s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:50 debug #31 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:45 debug #31 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:46 verbose #32 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:46 verbose #33 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:46 verbose #34 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:50 debug #32 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:50 verbose #33 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:00:50 debug #34 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:46 verbose #35 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:50 debug #35 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:42 verbose #53 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:42 verbose #54 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:46 verbose #36 > Server bound to: http://localhost:13805 │ > │ 00:00:42 debug #55 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:42 debug #56 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:42 verbose #57 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () =\n x \u002B │ > │ y\n","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b53 │ > │ 6fb46879d63cb523d8a44192250a24ea6686659f958914728b1fe1ef4/main.spi"}} / │ > │ result: │ > │ 00:00:42 verbose #58 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/cfa3b536fb46879d63cb523d8a44192250a24ea6686659f95891472 │ > │ 8b1fe1ef4/main.spi"}} / result: │ > │ 00:00:47 verbose #37 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4/main.spi │ > │ 00:00:43 debug #59 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:44 debug #60 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:44 debug #61 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 1 │ > │ 00:00:44 debug #62 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\cfa3b536fb46879d63cb523d8a4 │ > │ 4192250a24ea6686659f958914728b1fe1ef4\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "main.spi: │ > │ Unbound variable: x. │ > │ Unbound variable: y.", │ > │ { │ > │ "TypeErrors": { │ > │ "errors": [ │ > │ [ │ > │ [ │ > │ { │ > │ "character": 4, │ > │ "line": 1 │ > │ }, │ > │ { │ > │ "character": 5, │ > │ "line": 1 │ > │ } │ > │ ], │ > │ "Unbound variable: x." │ > │ ], │ > │ [ │ > │ [ │ > │ { │ > │ "character": 8, │ > │ "line": 1 │ > │ }, │ > │ { │ > │ "character": 9, │ > │ "line": 1 │ > │ } │ > │ ], │ > │ "Unbound variable: y." │ > │ ] │ > │ ], │ > │ "uri": │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b536fb46879d63 │ > │ cb523d8a44192250a24ea6686659f958914728b1fe1ef4/main.spi" │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 1 │ > │ 00:00:44 verbose #63 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/cfa3b536fb46879d63 │ > │ cb523d8a44192250a24ea6686659f958914728b1fe1ef4"]}} / result: │ > │ 00:00:53 verbose #36 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:00:53 debug #37 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:44 debug #64 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["main.spi: │ > │ Unbound variable: x. │ > │ Unbound variable: y."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl main () = > real > inl real_unbox forall a. (obj : a) : a = > typecase obj with > | _ => obj > real_unbox () > () > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ "Cannot apply a forall with a term." ]] > ) > ) > > ╭─[ 4.22s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:54 debug #38 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:49 debug #38 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:50 verbose #39 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:50 verbose #40 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:50 verbose #41 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:54 debug #39 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:54 verbose #40 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:00:54 debug #41 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:50 verbose #42 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:54 debug #42 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:46 verbose #65 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:46 verbose #66 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:50 verbose #43 > Server bound to: http://localhost:13805 │ > │ 00:00:46 debug #67 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:46 debug #68 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:46 verbose #69 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │ > │ forall a. (obj : a) : a │ > │ =\...et/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4cb6918806cd0ec879425 │ > │ 27e5833d681fe1f6a/main.spi"}} / result: │ > │ 00:00:46 verbose #70 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4cb6918806cd0ec87942527e5833d │ > │ 681fe1f6a/main.spi"}} / result: │ > │ 00:00:50 verbose #44 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi │ > │ 00:00:47 debug #71 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:48 debug #72 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:48 debug #73 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "Cannot apply a forall with a term.", │ > │ { │ > │ "TracedError": { │ > │ "message": "Cannot apply a forall with a term.", │ > │ "trace": [ │ > │ "Error trace on line: 2, column: 10 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi. │ > │ inl main () = │ > │ ^ │ > │ ", │ > │ "Error trace on line: 4, column: 9 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi. │ > │ inl real_unbox forall a. (obj : a) : a = │ > │ ^ │ > │ ", │ > │ "Error trace on line: 7, column: 9 in module: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be0cbc319b4 │ > │ cb6918806cd0ec87942527e5833d681fe1f6a/main.spi. │ > │ real_unbox () │ > │ ^ │ > │ " │ > │ ] │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:48 verbose #74 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/7328c18b0e8ef6c0be │ > │ 0cbc319b4cb6918806cd0ec87942527e5833d681fe1f6a"]}} / result: │ > │ 00:00:57 verbose #43 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:00:57 debug #44 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:48 debug #75 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["Cannot apply a forall with a term."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl main () = > real > inl real_unbox forall a. (obj : a) : a = > typecase obj with > | _ => obj > real_unbox `i32 1 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > None, > [[ "The main function should not have a forall." ]] > ) > ) > > ╭─[ 4.15s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:00:58 debug #45 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:53 debug #45 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:54 verbose #46 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:54 verbose #47 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:54 verbose #48 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:00:58 debug #46 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:58 verbose #47 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:00:58 debug #48 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:54 verbose #49 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:00:59 debug #49 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:50 verbose #76 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:50 verbose #77 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:54 verbose #50 > Server bound to: http://localhost:13805 │ > │ 00:00:50 debug #78 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:50 debug #79 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:50 verbose #80 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │ > │ forall a. (obj : a) : a │ > │ =\...et/spiral_Eval/packages/7edb70ebb1b24f671a663af73f41c7905a8ba26bb617418 │ > │ a310694663ad6394e/main.spi"}} / result: │ > │ 00:00:50 verbose #81 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/7edb70ebb1b24f671a663af73f41c7905a8ba26bb617418a3106946 │ > │ 63ad6394e/main.spi"}} / result: │ > │ 00:00:55 verbose #51 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e/main.spi │ > │ 00:00:51 debug #82 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:52 debug #83 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:52 debug #84 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\7edb70ebb1b24f671a663af73f4 │ > │ 1c7905a8ba26bb617418a310694663ad6394e\main.spi / outputContent: / errors: [ │ > │ [ │ > │ "The main function should not have a forall.", │ > │ { │ > │ "TracedError": { │ > │ "message": "The main function should not have a forall.", │ > │ "trace": [] │ > │ } │ > │ } │ > │ ] │ > │ ] / typeErrorCount: 0 │ > │ 00:00:52 verbose #85 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/7edb70ebb1b24f671a │ > │ 663af73f41c7905a8ba26bb617418a310694663ad6394e"]}} / result: │ > │ 00:01:01 verbose #50 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:01:01 debug #51 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:52 debug #86 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (None, ["The main function should not have a forall."]) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl init_series start end inc = > inl total : f64 = conv ((end - start) / inc) + 1 > listm.init total (conv >> (*) inc >> (+) start) : list f64 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64 > > inl integral dt : integration = > fun f a b => > init_series (a + dt / 2) (b - dt / 2) dt > |> listm.map (f >> (*) dt) > |> listm.fold (+) 0 > > inl main () = > integral 0.1 (fun x => x ** 2) 0 1 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some "0.3325000000000001\n", > [[]] > ) > ) > > ╭─[ 4.39s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:01:02 debug #52 async.run_with_timeout_async / timeout: 500 │ > │ 00:00:58 debug #52 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:00:58 verbose #53 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:00:58 verbose #54 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:00:58 verbose #55 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:01:02 debug #53 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:02 verbose #54 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:01:02 debug #55 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:58 verbose #56 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:01:03 debug #56 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:54 verbose #87 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:54 verbose #88 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:00:58 verbose #57 > Server bound to: http://localhost:13805 │ > │ 00:00:54 debug #89 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:54 debug #90 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:54 verbose #91 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │ > │ f64 = conv ((end - │ > │ start)...et/spiral_Eval/packages/9ef2ff1993c1cbbc9a30116fb9fc65b44a054b1256b │ > │ ab698edc2fbd62d2289f2/main.spi"}} / result: │ > │ 00:00:54 verbose #92 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/9ef2ff1993c1cbbc9a30116fb9fc65b44a054b1256bab698edc2fbd │ > │ 62d2289f2/main.spi"}} / result: │ > │ 00:00:59 verbose #58 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2/main.spi │ > │ 00:00:55 debug #93 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:56 debug #94 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:57 debug #95 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\9ef2ff1993c1cbbc9a30116fb9f │ > │ c65b44a054b1256bab698edc2fbd62d2289f2\main.spi / outputContent: │ > │ 0.3325000000000001 │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:00:57 verbose #96 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/9ef2ff1993c1cbbc9a │ > │ 30116fb9fc65b44a054b1256bab698edc2fbd62d2289f2"]}} / result: │ > │ 00:01:06 verbose #57 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:01:06 debug #58 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:57 debug #97 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (Some "0.3325000000000001 │ > │ ", []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl init_series start end inc = > inl total : f64 = conv ((end - start) / inc) + 1 > listm.init total (conv >> (*) inc >> (+) start) : list f64 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64 > > inl integral dt : integration = > fun f a b => > init_series (a + dt / 2) (b - dt / 2) dt > |> listm.map (f >> (*) dt) > |> listm.fold (+) 0 > > inl main () = > integral 0.1 (fun x => x ** 2) 0 1 > """ > |> buildCode Cuda false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some "kernel = r\"\"\" > template <typename el, int dim> struct static_array { el v[[dim]]; }; > template <typename el, int dim, typename default_int> struct static_array_list { > el v[[dim]]; default_int length; }; > \"\"\" > class static_array(list): > def __init__(self, length): > for _ in range(length): > self.append(None) > > class static_array_list(static_array): > def __init__(self, length): > super().__init__(length) > self.length = 0 > import cupy as cp > from dataclasses import dataclass > from typing import NamedTuple, Union, Callable, Tuple > i8 = i16 = i32 = i64 = u8 = u16 = u32 = u64 = int; f32 = f64 = float; char = > string = str > > def main(): > return 0.3325000000000001 > > if __name__ == '__main__': result = main(); None if result is None else > print(result) > ", > [[]] > ) > ) > > ╭─[ 4.39s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:01:06 debug #59 async.run_with_timeout_async / timeout: 500 │ > │ 00:01:02 debug #59 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:01:02 verbose #60 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:01:02 verbose #61 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:01:02 verbose #62 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:01:07 debug #60 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:07 verbose #61 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:01:07 debug #62 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:03 verbose #63 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:01:07 debug #63 async.run_with_timeout_async / timeout: 100 │ > │ 00:00:58 verbose #98 Supervisor.sendJson / port: 13805 / json: {"Ping":true} │ > │ / result: │ > │ 00:00:58 verbose #99 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:01:03 verbose #64 > Server bound to: http://localhost:13805 │ > │ 00:00:58 debug #100 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:58 debug #101 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:00:58 verbose #102 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │ > │ f64 = conv ((end - │ > │ start)...et/spiral_Eval/packages/2e0bd0b3083fbaaaf3a4ff1ebb639c90d0888e866b0 │ > │ 857ab4bc5cf2b7402d93a/main.spi"}} / result: │ > │ 00:00:58 verbose #103 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Python \u002B │ > │ Cuda","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/2e0bd0 │ > │ b3083fbaaaf3a4ff1ebb639c90d0888e866b0857ab4bc5cf2b7402d93a/main.spi"}} / │ > │ result: │ > │ 00:01:03 verbose #65 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a/main.spi │ > │ 00:00:59 debug #104 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:01:00 debug #105 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:01:01 debug #106 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\2e0bd0b3083fbaaaf3a4ff1ebb6 │ > │ 39c90d0888e866b0857ab4bc5cf2b7402d93a\main.spi / outputContent: kernel = │ > │ r""" │ > │ template <typename el, int dim> struct static_array { el v[dim]; }; │ > │ template <typename el, int dim, typename default_int> struct │ > │ static_array_list { el v[dim]; default_int length; }; │ > │ """... = u8 = u16 = u32 = u64 = int; f32 = f64 = float; char = string = str │ > │ │ > │ def main(): │ > │ return 0.3325000000000001 │ > │ │ > │ if __name__ == '__main__': result = main(); None if result is None else │ > │ print(result) │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:01:01 verbose #107 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/2e0bd0b3083fbaaaf3 │ > │ a4ff1ebb639c90d0888e866b0857ab4bc5cf2b7402d93a"]}} / result: │ > │ 00:01:10 verbose #64 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:01:10 debug #65 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:01 debug #108 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some │ > │ (Some │ > │ "kernel = r""" │ > │ template <typename el, int dim> struct static_array { el v[dim]; }; │ > │ template <typename el, int dim, typename default_int> struct │ > │ static_array_list { el v[dim]; default_int length; }; │ > │ """ │ > │ class static_array(list): │ > │ def __init__(self, length): │ > │ for _ in range(length): │ > │ self.append(None) │ > │ │ > │ class static_array_list(static_array): │ > │ def __init__(self, length): │ > │ super().__init__(length) │ > │ self.length = 0 │ > │ import cupy as cp │ > │ from dataclasses import dataclass │ > │ from typing import NamedTuple, Union, Callable, Tuple │ > │ i8 = i16 = i32 = i64 = u8 = u16 = u32 = u64 = int; f32 = f64 = float; char = │ > │ string = str │ > │ │ > │ def main(): │ > │ return 0.3325000000000001 │ > │ │ > │ if __name__ == '__main__': result = main(); None if result is None else │ > │ print(result) │ > │ ", │ > │ []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """ > inl init_series start end inc = > inl total : f64 = conv ((end - start) / inc) + 1 > listm.init total (conv >> (*) inc >> (+) start) : list f64 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64 > > inl integral dt : integration = > fun f a b => > init_series (a + dt / 2) (b - dt / 2) dt > |> listm.map (f >> (*) dt) > |> listm.fold (+) 0 > > inl main () = > integral 0.01 (fun x => x ** 2) 0 1 > """ > |> buildCode Fsharp false 10000 None > |> Async.runWithTimeout 10000 > |> Option.map (fun (_, (_, outputContent), errors) -> outputContent, errors |> > List.map fst) > |> _assertEqual ( > Some ( > Some "0.33332500000000004\n", > [[]] > ) > ) > // |> _assertEqual None > // |> fun x -> printfn $"{x.ToDisplayString ()}" > > ╭─[ 4.77s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:01:11 debug #66 async.run_with_timeout_async / timeout: 500 │ > │ 00:01:06 debug #66 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:buildCode@3-399>, None, true, │ > │ Some "C:\home\git\polyglot") │ > │ 00:01:07 verbose #67 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:01:07 verbose #68 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:01:07 verbose #69 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:01:11 debug #67 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:11 verbose #68 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:01:11 debug #69 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:07 verbose #70 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:01:11 debug #70 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:03 verbose #109 Supervisor.sendJson / port: 13805 / json: │ > │ {"Ping":true} / result: │ > │ 00:01:03 verbose #110 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:01:07 verbose #71 > Server bound to: http://localhost:13805 │ > │ 00:01:03 debug #111 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:01:03 debug #112 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:01:03 verbose #113 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │ > │ f64 = conv ((end - │ > │ start)...et/spiral_Eval/packages/bef9303d5ade2630e0a996e8c6bea98b5b6c6f4e06a │ > │ ab63d23b1754d52936476/main.spi"}} / result: │ > │ 00:01:03 verbose #114 Supervisor.sendJson / port: 13805 / json: │ > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │ > │ spiral_Eval/packages/bef9303d5ade2630e0a996e8c6bea98b5b6c6f4e06aab63d23b1754 │ > │ d52936476/main.spi"}} / result: │ > │ 00:01:08 verbose #72 > 00:00:01 debug #4 │ > │ Supervisor.supervisor_server.BuildFile / file: │ > │ c:/home/git/polyglot/target/spiral_Eval/packages/bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476/main.spi │ > │ 00:01:04 debug #115 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:01:05 debug #116 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: / errors: [ │ > │ ] / typeErrorCount: 0 │ > │ 00:01:06 debug #117 Supervisor.buildFile / takeWhileInclusive / path: │ > │ C:\home\git\polyglot\target/spiral_Eval\packages\bef9303d5ade2630e0a996e8c6b │ > │ ea98b5b6c6f4e06aab63d23b1754d52936476\main.spi / outputContent: │ > │ 0.33332500000000004 │ > │ / errors: [] / typeErrorCount: 0 │ > │ 00:01:06 verbose #118 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/bef9303d5ade2630e0 │ > │ a996e8c6bea98b5b6c6f4e06aab63d23b1754d52936476"]}} / result: │ > │ 00:01:15 verbose #71 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:01:15 debug #72 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:06 debug #119 FileSystem.watchWithFilter / Disposing watch stream / │ > │ filter: FileName, LastWrite │ > │ Some (Some "0.33332500000000004 │ > │ ", []) │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getFileTokenRange │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getFileTokenRange port cancellationToken path = async { > let fullPath = path |> System.IO.Path.GetFullPath > let! code = fullPath |> SpiralFileSystem.read_all_text_async > let lines = code |> SpiralSm.split "\n" > > let struct (token, disposable) = SpiralThreading.new_disposable_token > cancellationToken > use _ = disposable > > let port = port |> Option.defaultWith getCompilerPort > let! serverPort, _errors, ct, disposable = awaitCompiler port (Some token) > use _ = disposable > > let fullPathUri = fullPath |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > > let fileOpenObj = {| FileOpen = {| uri = fullPathUri; spiText = code |} |} > let! _fileOpenResult = fileOpenObj |> sendObj serverPort > > // do! Async.Sleep 60 > > let fileTokenRangeObj = > {| > FileTokenRange = > {| > uri = fullPathUri > range = > [[| > {| line = 0; character = 0 |} > {| line = lines.Length - 1; character = > lines.[[lines.Length - 1]].Length |} > |]] > |} > |} > let! fileTokenRangeResult = > fileTokenRangeObj > |> sendObj serverPort > |> Async.withCancellationToken ct > > let fileDir = fullPath |> System.IO.Path.GetDirectoryName > if fileDir |> SpiralSm.starts_with (workspaceRoot </> "target") then > let fileDirUri = fileDir |> SpiralFileSystem.normalize_path |> > SpiralFileSystem.new_file_uri > let fileDeleteObj = {| FileDelete = {| uris = [[| fileDirUri |]] |} |} > let! _fileDeleteResult = fileDeleteObj |> sendObj serverPort > () > > return fileTokenRangeResult |> Option.map FSharp.Json.Json.deserialize<int > array> > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getCodeTokenRange │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline getCodeTokenRange cancellationToken code = async { > let! mainPath, _ = persistCode None code > > let codeDir = mainPath |> System.IO.Path.GetDirectoryName > let tokensPath = codeDir </> "tokens.json" > let! tokens = async { > if tokensPath |> System.IO.File.Exists |> not > then return None > else > let! text = tokensPath |> SpiralFileSystem.read_all_text_async > > return > if text.Length > 2 > then text |> FSharp.Json.Json.deserialize<int array> |> Some > else None > } > match tokens with > | Some tokens -> > return tokens |> Some > | None -> return! mainPath |> getFileTokenRange None cancellationToken > } > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = ()""" > |> getCodeTokenRange None > |> Async.runWithTimeout 10000 > |> Option.flatten > |> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; > 8; 0; 0; 2; 1; 4; 0; 0; > 2; 1; 8; 0; 0; 1; 1; 8; 0 |]]) > > ╭─[ 6.13s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:01:23 debug #73 async.run_with_timeout_async / timeout: 500 │ > │ 00:01:19 debug #73 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:it@4-176>, None, true, Some "C:\home\git\polyglot") │ > │ 00:01:19 verbose #74 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:01:19 verbose #75 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:01:19 verbose #76 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:01:24 debug #74 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:24 verbose #75 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:01:24 debug #76 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:19 verbose #77 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:01:24 debug #77 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:15 verbose #120 Supervisor.sendJson / port: 13805 / json: │ > │ {"Ping":true} / result: │ > │ 00:01:15 verbose #121 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:01:20 verbose #78 > Server bound to: http://localhost:13805 │ > │ 00:01:15 verbose #122 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () = │ > │ ()","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/fb6c8d45 │ > │ c45c5bed6706c564f1573e80b77a3923967ce83cb69737ce2ce5040c/main.spi"}} / │ > │ result: │ > │ 00:01:16 verbose #123 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileTokenRange":{"range":[ │ > │ {"character":0,"line":0},{"character":16,"line":0}],"uri":"file:///c:/ho...e │ > │ t/spiral_Eval/packages/fb6c8d45c45c5bed6706c564f1573e80b77a3923967ce83cb6973 │ > │ 7ce2ce5040c/main.spi"}} / result: Some([ │ > │ 0, │ > │ 0, │ > │ 3, │ > │ 7, │ > │ 0, │ > │ 0, │ > │ 4, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 0, │ > │ 5, │ > │ 1, │ > │ 8, │ > │ 0, │ > │ 0, │ > │ ...8, │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 8, │ > │ 0, │ > │ 0, │ > │ 1, │ > │ 1, │ > │ 8, │ > │ 0 │ > │ ]) │ > │ 00:01:16 verbose #124 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/fb6c8d45c45c5bed67 │ > │ 06c564f1573e80b77a3923967ce83cb69737ce2ce5040c"]}} / result: │ > │ 00:01:25 verbose #78 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:01:25 debug #79 async.run_with_timeout_async / timeout: 100 │ > │ Some [|0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; 8; 0; 0; 2; 1; │ > │ 4; 0; 0; 2; 1; 8; 0; 0; 1; 1; 8; 0|] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > """inl main () = 1i32""" > |> getCodeTokenRange None > |> Async.runWithTimeout 10000 > |> Option.flatten > |> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; > 8; 0; 0; 2; 1; 4; 0; 0; > 2; 1; 3; 0; 0; 1; 3; 12; 0 |]]) > > ╭─[ 4.04s - stdout ]───────────────────────────────────────────────────────────╮ > │ 00:01:27 debug #80 async.run_with_timeout_async / timeout: 500 │ > │ 00:01:23 debug #79 runtime.execute_with_options_async / options: struct │ > │ (Some System.Threading.CancellationToken, │ > │ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │ > │ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │ > │ 13805 --default-int i32 --default-float f64", │ > │ [||], Some <fun:it@4-390>, None, true, Some "C:\home\git\polyglot") │ > │ 00:01:23 verbose #80 > 00:00:00 debug #1 pwd: C:\home\git\polyglot │ > │ 00:01:23 verbose #81 > 00:00:00 debug #2 dllPath: │ > │ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │ > │ 2\artifacts\bin\The Spiral Language 2\release │ > │ 00:01:23 verbose #82 > 00:00:00 debug #3 targetDir: │ > │ C:\home\git\polyglot\target/polyglot/spiral_eval │ > │ 00:01:28 debug #81 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:28 verbose #82 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: True │ > │ 00:01:28 debug #83 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:24 verbose #83 > Starting the Spiral Server. It is bound to: │ > │ http://localhost:13805 │ > │ 00:01:28 debug #84 async.run_with_timeout_async / timeout: 100 │ > │ 00:01:19 verbose #125 Supervisor.sendJson / port: 13805 / json: │ > │ {"Ping":true} / result: │ > │ 00:01:19 verbose #126 awaitCompiler / Ping / result: 'Some(null)' / port: │ > │ 13805 / retry: 0 │ > │ 00:01:24 verbose #84 > Server bound to: http://localhost:13805 │ > │ 00:01:19 verbose #127 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileOpen":{"spiText":"inl main () = │ > │ 1i32","uri":"file:///c:/home/git/polyglot/target/spiral_Eval/packages/9df95a │ > │ 2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi"}} / │ > │ result: │ > │ 00:01:20 verbose #128 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileTokenRange":{"range":[ │ > │ {"character":0,"line":0},{"character":18,"line":0}],"uri":"file:///c:/ho...e │ > │ t/spiral_Eval/packages/9df95a2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e55 │ > │ 77eed14871c/main.spi"}} / result: Some([ │ > │ 0, │ > │ 0, │ > │ 3, │ > │ 7, │ > │ 0, │ > │ 0, │ > │ 4, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 0, │ > │ 5, │ > │ 1, │ > │ 8, │ > │ 0, │ > │ 0, │ > │ ..., │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 4, │ > │ 0, │ > │ 0, │ > │ 2, │ > │ 1, │ > │ 3, │ > │ 0, │ > │ 0, │ > │ 1, │ > │ 3, │ > │ 12, │ > │ 0 │ > │ ]) │ > │ 00:01:20 verbose #129 Supervisor.sendJson / port: 13805 / json: │ > │ {"FileDelete":{"uris":[ │ > │ "file:///c:/home/git/polyglot/target/spiral_Eval/packages/9df95a2f18642bd8d2 │ > │ f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c"]}} / result: │ > │ 00:01:29 verbose #85 networking.wait_for_port_access / port: 13805 / retry: │ > │ 0 / timeout: Some 100 / status: False │ > │ 00:01:29 debug #86 async.run_with_timeout_async / timeout: 100 │ > │ Some [|0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1; 8; 0; 0; 2; 1; │ > │ 4; 0; 0; 2; 1; 3; 0; 0; 1; 3; 12; 0|] │ > │ │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## Arguments │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > [[<RequireQualifiedAccess>]] > type Arguments = > | Build_File of string * string > | File_Token_Range of string * string > | Execute_Command of string > | [[<Argu.ArguAttributes.Unique>]] Timeout of int > | [[<Argu.ArguAttributes.Unique>]] Port of int > | [[<Argu.ArguAttributes.Unique>]] Parallel > | [[<Argu.ArguAttributes.Unique>]] Exit_On_Error > > interface Argu.IArgParserTemplate with > member s.Usage = > match s with > | Build_File _ -> nameof Build_File > | File_Token_Range _ -> nameof File_Token_Range > | Execute_Command _ -> nameof Execute_Command > | Timeout _ -> nameof Timeout > | Port _ -> nameof Port > | Parallel -> nameof Parallel > | Exit_On_Error-> nameof Exit_On_Error > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > Argu.ArgumentParser.Create<Arguments>().PrintUsage () > > ╭─[ 145.60ms - return value ]──────────────────────────────────────────────────╮ > │ "USAGE: dotnet-repl [--help] [--build-file <string> <string>] │ > │ [--file-token-range <string> <string>] │ > │ [--execute-command <string>] [--timeout <int>] [--port │ > │ <int>] │ > │ [--parallel] [--exit-on-error] │ > │ │ > │ OPTIONS: │ > │ │ > │ --build-file <string> <string> │ > │ Build_File │ > │ --file-token-range <string> <string> │ > │ File_Token_Range │ > │ --execute-command <string> │ > │ Execute_Command │ > │ --timeout <int> Timeout │ > │ --port <int> Port │ > │ --parallel Parallel │ > │ --exit-on-error Exit_On_Error │ > │ --help display this list of options. │ > │ " │ > │ │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## main │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let main args = > let argsMap = args |> Runtime.parseArgsMap<Arguments> > > let buildFileActions = > argsMap > |> Map.tryFind (nameof Arguments.Build_File) > |> Option.defaultValue [[]] > |> List.choose (function > | Arguments.Build_File (inputPath, outputPath) -> Some (inputPath, > outputPath) > | _ -> None > ) > > let fileTokenRangeActions = > argsMap > |> Map.tryFind (nameof Arguments.File_Token_Range) > |> Option.defaultValue [[]] > |> List.choose (function > | Arguments.File_Token_Range (inputPath, outputPath) -> Some > (inputPath, outputPath) > | _ -> None > ) > > let executeCommandActions = > argsMap > |> Map.tryFind (nameof Arguments.Execute_Command) > |> Option.defaultValue [[]] > |> List.choose (function > | Arguments.Execute_Command command -> Some command > | _ -> None > ) > > let timeout = > match argsMap |> Map.tryFind (nameof Arguments.Timeout) with > | Some [[ Arguments.Timeout timeout ]] -> timeout > | _ -> 60000 * 60 > > let port = > match argsMap |> Map.tryFind (nameof Arguments.Port) with > | Some [[ Arguments.Port port ]] -> Some port > | _ -> None > > let isParallel = argsMap |> Map.containsKey (nameof Arguments.Parallel) > > let isExitOnError = argsMap |> Map.containsKey (nameof > Arguments.Exit_On_Error) > > async { > let port = > port > |> Option.defaultWith getCompilerPort > let struct (localToken, disposable) = > SpiralThreading.new_disposable_token None > let! serverPort, _errors, compilerToken, disposable = awaitCompiler port > (Some localToken) > use _ = disposable > > let buildFileAsync = > buildFileActions > |> List.map (fun (inputPath, outputPath) -> async { > let! _outputPath, (outputCode, errors) = > let backend = > if outputPath |> SpiralSm.ends_with ".fsx" > then Fsharp > elif outputPath |> SpiralSm.ends_with ".py" > then Cuda > else failwith $"Supervisor.main / invalid backend / > outputPath: {outputPath}" > inputPath |> buildFile backend timeout (Some serverPort) > None > > errors > |> List.map snd > |> List.iter (fun error -> > trace Critical (fun () -> $"main / error: {error |> > serializeObj}") _locals > ) > > match outputCode with > | Some outputCode -> > do! outputCode |> SpiralFileSystem.write_all_text_exists > outputPath > return 0 > | None -> > if isExitOnError > then SpiralRuntime.current_process_kill () > > return 1 > }) > > let fileTokenRangeAsync = > fileTokenRangeActions > |> List.map (fun (inputPath, outputPath) -> async { > let! tokenRange = inputPath |> getFileTokenRange (Some > serverPort) None > match tokenRange with > | Some tokenRange -> > do! tokenRange |> FSharp.Json.Json.serialize |> > SpiralFileSystem.write_all_text_exists outputPath > return 0 > | None -> > if isExitOnError > then SpiralRuntime.current_process_kill () > > return 1 > }) > > let executeCommandAsync = > executeCommandActions > |> List.map (fun command -> async { > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = Some compilerToken > l1 = command > } > ) > |> SpiralRuntime.execute_with_options_async > > trace Debug (fun () -> $"main / executeCommand / exitCode: > {exitCode} / command: {command}") _locals > > if isExitOnError && exitCode <> 0 > then SpiralRuntime.current_process_kill () > > return exitCode > }) > > return! > [[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]] > |> Seq.collect id > |> fun x -> > if isParallel > then Async.Parallel (x, float System.Environment.ProcessorCount > * 0.51 |> ceil |> int) > else Async.Sequential x > |> Async.map Array.sum > } > |> Async.runWithTimeout timeout > |> Option.defaultValue 1 > > ── fsharp ────────────────────────────────────────────────────────────────────── > //// test > > let args = > System.Environment.GetEnvironmentVariable "ARGS" > |> SpiralRuntime.split_args > |> Result.toArray > |> Array.collect id > > match args with > | [[||]] -> 0 > | args -> if main args = 0 then 0 else failwith "main failed" > > ╭─[ 75.18ms - return value ]───────────────────────────────────────────────────╮ > │ <div class="dni-plaintext"><pre>0 │ > │ </pre></div><style> │ > │ .dni-code-hint { │ > │ font-style: italic; │ > │ overflow: hidden; │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview { │ > │ white-space: nowrap; │ > │ } │ > │ .dni-treeview td { │ > │ vertical-align: top; │ > │ text-align: start; │ > │ } │ > │ details.dni-treeview { │ > │ padding-left: 1em; │ > │ } │ > │ table td { │ > │ text-align: start; │ > │ } │ > │ table tr { │ > │ vertical-align: top; │ > │ margin: 0em 0px; │ > │ } │ > │ table tr td pre │ > │ { │ > │ vertical-align: top !important; │ > │ margin: 0em 0px !important; │ > │ } │ > │ table th { │ > │ text-align: start; │ > │ } │ > │ </style> │ > ╰──────────────────────────────────────────────────────────────────────────────╯ 00:01:52 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 186454 00:01:52 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:01:54 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/Supervisor.dib.ipynb to html 00:01:54 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:01:54 verbose #7 ! validate(nb) 00:01:56 verbose #8 ! [NbConvertApp] Writing 485442 bytes to c:\home\git\polyglot\apps\spiral\Supervisor.dib.html 00:01:56 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 653 00:01:56 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 653 00:01:56 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Supervisor.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Supervisor.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:01:58 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:01:58 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:01:58 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 187166 00:00:00 debug #1 writeDibCode / output: Fs / path: Supervisor.dib 00:00:00 debug #2 parseDibCode / output: Fs / file: Supervisor.dib 00:00:00 debug #1 persistCodeProject / packages: [Argu; FSharp.Control.AsyncSeq; FSharp.Json; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: Supervisor / hash: / code.Length: 24443 00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj 00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime linux-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\Supervisor") 00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:01 verbose #3 > Determining projects to restore... 00:00:03 verbose #4 > Restored C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj (in 1.55 sec). 00:00:03 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj] 00:00:31 verbose #6 > Supervisor -> C:\home\git\polyglot\target\Builder\Supervisor\bin\Release\net9.0\linux-x64\Supervisor.dll 00:00:32 verbose #7 > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\ 00:00:32 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 690 00:00:32 debug #9 runtime.execute_with_options_async / options: struct (None, "dotnet publish "C:\home\git\polyglot\target/Builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime win-x64", [||], None, None, true, Some "C:\home\git\polyglot\target\Builder\Supervisor") 00:00:33 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET 00:00:33 verbose #11 > Determining projects to restore... 00:00:34 verbose #12 > Restored C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj (in 446 ms). 00:00:34 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\Supervisor\Supervisor.fsproj] 00:00:53 verbose #14 > Supervisor -> C:\home\git\polyglot\target\Builder\Supervisor\bin\Release\net9.0\win-x64\Supervisor.dll 00:00:57 verbose #15 > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\ 00:00:57 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 686 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Eval.dib", "--retries", "3"]) 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/Eval.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/Eval.dib" --output-path "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ # Eval (Polyglot) │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > #r > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan > dard2.1/FSharp.Control.AsyncSeq.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6. > 0/System.Reactive.dll" > #r > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/ > netstandard2.0/System.Reactive.Linq.dll" > #r > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com > mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli > ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0 > /lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll" > #r > @"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/ > 7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll" > #r > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha > rp.Json.dll" > #r > @"../../../../../../../.nuget/packages/system.management/7.0.0/lib/netstandard2. > 0/System.Management.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A > spNetCore.Html.Abstractions.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.Formatting.dll" > open System > open System.IO > open System.Text > open Microsoft.DotNet.Interactive.Formatting > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.FSharp.dll" > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers > #r > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D > otNet.Interactive.dll" > open type Microsoft.DotNet.Interactive.Kernel > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x) > > ── fsharp - import ───────────────────────────────────────────────────────────── > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer: > TextWriter)->fprintfn writer "%120A" x) > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Notebooks.dib > #!import ../../lib/fsharp/Testing.dib > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > Formatter.ListExpansionLimit <- 100 > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fabl... _v5=None" > US5_1 > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 = > let v3 : (unit -> US4) = closure5(v0, v1, v2) > let v4 : (US4 -> US5) = closure6() > let v5 : (exn -> US5) = closure7(v2) > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex > match v6 with > | US5_1 -> (* None *) > let v8 : int32 = v2 + 1 > method6(v0, v1, v8) > | US5_0(v7) -> (* Some *) > v7 > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option = > let v2 : int32 = 0 > let v3 : US4 = method6(v0, v1, v2) > match v3 with > | US4_1 -> (* None *) > let v5 : unit option = None > v5 > | US4_0 -> (* Some *) > let v4 : unit option = Some () > v4 > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) = > closure4(v0) > and method12 (v0 : (unit -> unit)) : (unit -> unit) = > v0 > and closure13 (v0 : Lazy<unit>) () : unit = > v0.Value > () > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) = > let v1 : (unit -> unit) = method12(v0) > let v2 : Lazy<unit> = lazy v1 () > closure13(v2) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : ((unit -> unit) -> System.IDisposable) = closure2() > let new_disposable x = v2 x > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3() > let retry_fn x = v3 x > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12() > let memoize x = v4 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10() > let replace x = v4 x > let v5 : (string -> (string -> (string -> string))) = closure13() > let replace_regex x = v5 x > let v6 : (int32 -> (int32 -> (string -> string))) = closure16() > let slice x = v6 x > let v7 : (string -> (string -> (string [[]]))) = closure19() > let split x = v7 x > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21() > let split_string x = v8 x > let v9 : (string -> (string -> bool)) = closure23() > let starts_with x = v9 x > let v10 : (int32 -> (int32 -> (string -> string))) = closure25() > let substring x = v10 x > let v11 : (string -> string) = closure28() > let to_lower x = v11 x > let v12 : (string -> string) = closure29() > let to_upper x = v12 x > let v13 : (string -> string) = closure30() > let trim x = v13 x > let v14 : ((char [[]]) -> (string -> string)) = closure31() > let trim_end x = v14 x > let v15 : ((char [[]]) -> (string -> string)) = closure33() > let trim_start x = v15 x > let v16 : (int32 -> (string -> string)) = closure35() > let ellipsis x = v16 x > let v17 : (int64 -> (string -> string)) = closure37() > let ellipsis_end x = v17 x > let v18 : (exn -> string) = closure39() > let format_exception x = v18 x > let v19 : (string -> ((string [[]]) -> string)) = closure40() > let concat_array_trailing x = v19 x > let v20 : (string -> (string seq -> string)) = closure42() > let concat x = v20 x > let v21 : (string -> ((string [[]]) -> string)) = closure44() > let join' x = v21 x > let v22 : (string -> (char [[]])) = closure46() > let to_char_array x = v22 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method11(v0, v3) > and closure1 () (v0 : string) : uint16 = > let v1 : char = v0.[[int 0]] > let v2 : (char -> int32) = int32 > let v3 : int32 = v2 v1 > let v4 : string = v0.[[int 0..int 7]] > let v5 : int32 = System.Convert.ToInt32 (v4, 16) > let v6 : int32 = v5 + v3 > let v7 : (int32 -> uint16) = uint16 > let v8 : uint16 = v7 v6 > let v9 : US0 = US0_0 > let v10 : (unit -> string) = closure2() > let v11 : (unit -> string) = closure3(v3, v4, v8) > method3(v9, v10, v11) > let v12 : uint16 = v8 % 48128us > let v13 : uint16 = v12 + 1024us > v13 > let v0 : (string -> string) = closure0() > let hash_text x = v0 x > let v1 : (string -> uint16) = closure1() > let hash_to_port x = v1 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C...64) : System.Guid = > let v1 : (unit -> System.Guid) = System.Guid.NewGuid > let v2 : System.Guid = v1 () > let v3 : (System.Guid -> string) = _.ToString() > let v4 : string = v3 v2 > let v5 : (int64 -> string) = _.ToString() > let v6 : string = v5 v0 > let v7 : string = v6.PadLeft (18, '0') > let v8 : System.Guid = System.Guid > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}" > v8 > and closure12 (v0 : string) (v1 : System.DateTime) : string = > let v2 : (string -> string) = v1.ToString > v2 v0 > and closure11 () (v0 : string) : (System.DateTime -> string) = > closure12(v0) > and closure13 () (v0 : System.DateTime) : string = > let v1 : (string -> string) = v0.ToString > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" > v1 v2 > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() > let date_time_guid_from_date_time x = v0 x > let v1 : (System.Guid -> System.DateTime) = closure2() > let date_time_from_guid x = v1 x > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() > let timestamp_guid_from_timestamp x = v2 x > let v3 : (System.Guid -> int64) = closure8() > let timestamp_from_guid x = v3 x > let v4 : (System.DateTime -> System.Guid) = closure9() > let new_guid_from_date_time x = v4 x > let v5 : (int64 -> System.Guid) = closure10() > let new_guid_from_timestamp x = v5 x > let v6 : (string -> (System.DateTime -> string)) = closure11() > let format x = v6 x > let v7 : (System.DateTime -> string) = closure13() > let format_iso8601 x = v7 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]] > #endif > type futures_future_JoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]] > #endif > type futures_future_TryJoinAll<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]] > #endif > type rayon_iter_Map<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]] > #endif > type rayon_vec_IntoIter<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]] > #endif > type std_future_Future<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]] > #endif > type futures_future_Fuse<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]] > #endif > type tokio_task_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]] > #endif > type tokio_stream_StreamExt = class end > let rec closure0 () (v0 : System.Threading.CancellationToken) : > Async<System.Threading.CancellationToken> = > let v1 : bool = true > let mutable _v1 : Async<System.Threading.CancellationToken> option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v2 : Async<System.Threading.CancellationToken> = null |> > unbox<Async<System.Threading.Canc...eading.CancellationToken>> > v12 > #endif > #else > let v13 : Async<System.Threading.CancellationToken> option = None > let mutable _v13 = v13 > async { > let v14 : Async<System.Threading.CancellationToken> = > Async.CancellationToken > let! v14 = v14 > let v15 : System.Threading.CancellationToken = v14 > let v16 : System.Threading.CancellationToken = > Async.DefaultCancellationToken > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]] > let v18 : ((System.Threading.CancellationToken [[]]) -> > System.Threading.CancellationTokenSource) = > System.Threading.CancellationTokenSource.CreateLinkedTokenSource > let v19 : System.Threading.CancellationTokenSource = v18 v17 > let v20 : System.Threading.CancellationToken = v19.Token > return v20 > } > |> fun x -> _v13 <- Some x > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x > -> x | None -> failwith "async.new_async_unit / _v13=None" > v21 > #endif > |> fun x -> _v7 <- Some x > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x > -> x | None -> failwith "base.run_target / _v7=None" > v22 > #endif > |> fun x -> _v1 <- Some x > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x > -> x | None -> failwith "base.run_target / _v1=None" > v23 > let v0 : (System.Threading.CancellationToken -> > Async<System.Threading.CancellationToken>) = closure0() > let merge_cancellation_token_with_default_async x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]] > #endif > type std_thread_JoinHandle<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]] > #endif > type std_sync_Arc<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]] > #endif > type std_sync_Mutex<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]] > #endif > type std_sync_MutexGuard<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]] > #endif > type std_sync_PoisonError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]] > #endif > type std_sync_mpsc_Receiver<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]] > #endif > type std_sync_mpsc_SendError<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]] > #endif > type std_sync_mpsc_Sender<'T> = class end > type Disposable (f : unit -> unit) = interface System.IDisposable with member > _.Dispose () = f () > type [[<Struct>]] US0 = > | US0_0 of f0_0 : System.Threading.CancellationToken > | US0_1 > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit = > let v1 : bool = true > let mutable _v1 : unit option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27 > "$0()" ) > v28 > #endif > #if FABLE_COMPILER_RUST && WASM > let v29 : (unit -> unit) = method0(v25) > let v30 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v29 "$0()" ) > v30 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v31 : (unit -> unit) = method0(v25) > let v32 : System.IDisposable = new Disposable (fun () -> > Fable.Core.RustInterop.emitRustExpr v31 "$0()" ) > v32 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v33 : System.IDisposable = null |> unbox<System.IDisposable> > v33 > #endif > #if FABLE_COMPILER_PYTHON > let v34 : System.IDisposable = null |> unbox<System.IDisposable> > v34 > #endif > #else > let v35 : (unit -> unit) = method1(v25) > let v36 : System.IDisposable = { new System.IDisposable with member > _.Dispose () = v35 () } > v36 > #endif > |> fun x -> _v26 <- Some x > let v37 : System.IDisposable = match _v26 with Some x -> x | None -> > failwith "base.run_target / _v26=None" > let v38 : System.Threading.CancellationToken = v25.Token > struct (v38, v37) > #endif > |> fun x -> _v1 <- Some x > let struct (v39 : System.Threading.CancellationToken, v40 : > System.IDisposable) = match _v1 with Some x -> x | None -> failwith > "base.run_target / _v1=None" > struct (v39, v40) > let v0 : (System.Threading.CancellationToken option -> struct > (System.Threading.CancellationToken * System.IDisposable)) = closure0() > let new_disposable_token x = v0 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]] > #endif > type reqwest_Error = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]] > #endif > type reqwest_RequestBuilder = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]] > #endif > type reqwest_Response = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]] > #endif > type std_env_VarError = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > ... v212 = v212 > let v213 : bool = v212 > let v214 : bool = v213 = false > if v214 then > return v2 > (* > () > else > *) else > let v215 : int32 = v2 + 1 > let v216 : Async<int32> = method10(v0, v1, v215) > return! v216 > (* > () > *) > } > |> fun x -> _v9 <- Some x > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith > "async.new_async_unit / _v9=None" > v217 > #endif > |> fun x -> _v3 <- Some x > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith > "base.run_target / _v3=None" > v218 > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> = > method10(v0, v1, v2) > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) = > closure23(v0, v1) > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) = > closure22(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (string -> (int32 -> Async<bool>)) = closure2() > let test_port_open x = v2 x > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7() > let test_port_open_timeout x = v3 x > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = > closure15() > let wait_for_port_access x = v4 x > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21() > let get_available_port x = v5 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > type [[<Struct>]] US0 = > | US0_0 > | US0_1 > | US0_2 > and [[<Struct>]] US1 = > | US1_0 of f0_0 : US0 > | US1_1 of f1_0 : US0 > | US1_2 of f2_0 : US0 > | US1_3 of f3_0 : US0 > | US1_4 of f4_0 : US0 > let rec closure0 () () : bool = > let v0 : bool = true > let mutable _v0 : bool option = None > > #if FABLE_COMPILER || WASM || CONTRACT > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT > let v1 : string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : b...: string = "cfg!(windows)" > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1 > v2 > #endif > #if FABLE_COMPILER_RUST && WASM > let v3 : string = "cfg!(windows)" > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3 > v4 > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v5 : string = "cfg!(windows)" > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5 > v6 > #endif > #if FABLE_COMPILER_TYPESCRIPT > let v7 : US0 = US0_0 > let v8 : US1 = US1_3(v7) > let v9 : string = $"platform.is_windows / target: {v8}" > let v10 : bool = failwith<bool> v9 > v10 > #endif > #if FABLE_COMPILER_PYTHON > let v11 : US0 = US0_0 > let v12 : US1 = US1_4(v11) > let v13 : string = $"platform.is_windows / target: {v12}" > let v14 : bool = failwith<bool> v13 > v14 > #endif > #else > let v15 : System.Runtime.InteropServices.OSPlatform = > System.Runtime.InteropServices.OSPlatform.Windows > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) = > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform > let v17 : bool = v16 v15 > v17 > #endif > |> fun x -> _v0 <- Some x > let v18 : bool = match _v0 with Some x -> x | None -> failwith > "base.run_target / _v0=None" > if v18 then > let v19 : string = ".exe" > v19 > else > let v20 : string = "" > v20 > let v0 : (unit -> bool) = closure0() > let is_windows () = v0 () > let v1 : (unit -> string) = closure1() > let get_executable_suffix () = v1 () > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]] > #endif > type clap_Arg = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]] > #endif > type clap_ArgAction = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]] > #endif > type clap_Command = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]] > #endif > type clap_ArgMatches = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]] > #endif > type clap_builder_ValueRange = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]] > #endif > type clap_builder_ValueParser = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]] > #endif > type clap_builder_PossibleValue = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]] > #endif > type std_process_Child = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]] > #endif > type std_process_ChildStderr = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]] > #endif > type std_process_ChildStdout = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]] > #endif > type std_process_ChildStdin = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]] > #endif > type std_process_Command = class... with > | US14_1(v28) -> (* Error *) > US8_1(v28) > | US14_0(v26) -> (* Ok *) > US8_0(v26) > and closure19 () (v0 : string) : Result<(string [[]]), string> = > let v1 : US8 = method16(v0) > match v1 with > | US8_1(v4) -> (* Error *) > let v5 : Result<(string [[]]), string> = Error v4 > v5 > | US8_0(v2) -> (* Ok *) > let v3 : Result<(string [[]]), string> = Ok v2 > v3 > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (unit -> unit) = closure2() > let current_process_kill () = v2 () > let v3 : (string -> Async<struct (int32 * string)>) = closure7() > let execute_async x = v3 x > let v4 : (struct (System.Threading.CancellationToken option * string * (struct > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool * > string option) -> Async<struct (int32 * string)>) = closure17() > let execute_with_options_async x = v4 x > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) -> > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> > unit) option * bool * string option)) = closure18() > let execution_options x = v5 x > let v6 : (string -> Result<(string [[]]), string>) = closure19() > let split_args x = v6 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]] > #endif > type std_fs_File = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]] > #endif > type std_fs_FileType = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]] > #endif > type std_path_Display = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]] > #endif > type std_path_Path = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]] > #endif > type std_path_PathBuf = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]] > #endif > type async_walkdir_DirEntry = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]] > #endif > type async_walkdir_Filtering = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]] > #endif > type async_walkdir_WalkDir = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = cla...4>) = closure12() > let wait_for_file_access_read x = v4 x > let v5 : (string -> Async<string>) = closure13() > let read_all_text_async x = v5 x > let v6 : (string -> (string -> Async<bool>)) = closure14() > let file_exists_content x = v6 x > let v7 : (string -> (string -> Async<unit>)) = closure16() > let write_all_text_async x = v7 x > let v8 : (string -> (string -> Async<unit>)) = closure18() > let write_all_text_exists x = v8 x > let v9 : (string -> Async<int64>) = closure20() > let delete_file_async x = v9 x > let v10 : (string -> (string -> Async<int64>)) = closure23() > let move_file_async x = v10 x > let v11 : (string -> Async<string option>) = closure27() > let read_all_text_retry_async x = v11 x > let v12 : (unit -> string) = closure35() > let create_temp_path () = v12 () > let v13 : (unit -> struct (string * System.IDisposable)) = closure36() > let create_temp_dir () = v13 () > let v14 : (string -> struct (string * System.IDisposable)) = closure48() > let create_temp_dir' x = v14 x > let v15 : (unit -> string) = closure49() > let get_source_directory () = v15 () > let v16 : (string -> (bool -> (string -> string))) = closure50() > let find_parent x = v16 x > let v17 : (string -> string) = closure56() > let normalize_path x = v17 x > let v18 : (string -> string) = closure57() > let new_file_uri x = v18 x > let v19 : (unit -> string) = closure58() > let get_workspace_root () = v19 () > let v20 : (bool -> unit) = closure59() > let init_trace_file x = v20 x > let v21 : (string -> (string -> string)) = closure61() > let (</>) x = v21 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]] > #endif > type core_any_Any = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]] > #endif > type core_ops_Try<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]] > #endif > type Func0<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]] > #endif > type Func0<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]] > #endif > type Box<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]] > #endif > type Dyn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]] > #endif > type Send<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]] > #endif > type Fn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]] > #endif > type FnUnit = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]] > #endif > type FnOnce<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]] > #endif > type ActionFn<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]] > #endif > type ActionFn2<'T, 'U> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]] > #endif > type Impl<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]] > #endif > type Mut<'T> = class end > #if FABLE_COMPILER > [[<Fable.Core.Erase; Fable.C... #endif > #if FABLE_COMPILER_RUST && WASM > let v27 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v27 > () > #endif > #if FABLE_COMPILER_RUST && CONTRACT > let v28 : string = @"println!(""{}"", $0)" > Fable.Core.RustInterop.emitRustExpr v24 v28 > () > #endif > #if FABLE_COMPILER_TYPESCRIPT > System.Console.WriteLine v24 > () > #endif > #if FABLE_COMPILER_PYTHON > System.Console.WriteLine v24 > () > #endif > #else > System.Console.WriteLine v24 > () > #endif > |> fun x -> _v25 <- Some x > match _v25 with Some x -> x | None -> failwith "base.run_target / > _v25=None" > let v29 : (string -> unit) = v8.l0 > v29 v24 > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit = > let v3 : (unit -> string) = closure5(v0, v1, v2) > method8(v0, v3) > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit = > method4(v0, v1, v2) > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) = > closure4(v0, v1) > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) = > closure3(v0) > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0() > let v1 : US0 = US0_0 > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2() > let trace x = v2 x > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > module SpiralTrace = > let trace x = > #if !INTERACTIVE > Trace.trace x > #else > trace x > #endif > > type TraceLevel = > #if !INTERACTIVE > Trace.US0 > #else > US0 > #endif > > module SpiralCrypto = > let hash_text x = > #if !INTERACTIVE > Crypto.hash_text x > #else > hash_text x > #endif > > let hash_to_port x = > #if !INTERACTIVE > Crypto.hash_to_port x > #else > hash_to_port x > #endif > > #if !FABLE_COMPILER && !WASM && !CONTRACT > > module SpiralAsync = > let merge_cancellation_token_with_default_async x = > #if !INTERACTIVE > Async_.merge_cancellation_token_with_default_async x > #else > merge_cancellation_token_with_default_async x > #endif > > module SpiralThreading = > let new_disposable_token x = > #if !INTERACTIVE > Threading.new_disposable_token x > #else > new_disposable_token x > #endif > > module SpiralNetworking = > let test_port_open x = > #if !INTERACTIVE > Networking.test_port_open x > #else > test_port_open x > #endif > > let test_port_open_timeout x = > #if !INTERACTIVE > Networking.test_port_open_timeout x > #else > test_port_open_timeout x > #endif > > let wait_for_port_access x = > #if !INTERACTIVE > Networking.wait_for_port_access x > #else > wait_for_port_access x > #endif > > let get_available_port x = > #if !INTERACTIVE > Networking.get_available_port x > #else > get_available_port x > #endif > > module SpiralPlatform = > let get_executable_suffix () = > #if !INTERACTIVE > Platform.g...e.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> File_system.US0_0 > | Trace.US0_1 -> File_system.US0_1 > | Trace.US0_2 -> File_system.US0_2 > | Trace.US0_3 -> File_system.US0_3 > | Trace.US0_4 -> File_system.US0_4 > ) > > Runtime.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Runtime.US0_0 > | Trace.US0_1 -> Runtime.US0_1 > | Trace.US0_2 -> Runtime.US0_2 > | Trace.US0_3 -> Runtime.US0_3 > | Trace.US0_4 -> Runtime.US0_4 > ) > > Common.State.trace_state > |> Option.iter (fun struct (_, _, level, _, _) -> > level.l0 <- > match new_level with > | Trace.US0_0 -> Common.US0_0 > | Trace.US0_1 -> Common.US0_1 > | Trace.US0_2 -> Common.US0_2 > | Trace.US0_3 -> Common.US0_3 > | Trace.US0_4 -> Common.US0_4 > ) > > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.iter (fun (struct (_, _, level, _, _)) -> > level.l0 <- new_level > ) > > let get_trace_level () = > #if !INTERACTIVE > Trace.State.trace_state > #else > State.trace_state > #endif > |> Option.map (fun struct (_, _, level, _, _) -> > level.l0 > ) > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level / > trace_state=None") > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll" > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > type AssertExceptionFormatter (ex) = > member _.Text = > ex.ToString() > .Replace("32m", "<span style=\"color: green;\">") > .Replace("36m", "</span>") > .Replace("31m", "<span style=\"color: red;\">") > .Replace("\n", "<br/>\n") > > > Formatter.Register<AssertExceptionFormatter> ((fun (x : > AssertExceptionFormatter) -> x.Text), "text/html") > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __expect fn log expected actual = > if log then printfn $"{actual.ToDisplayString ()}" > try > "Testing.__expect" |> fn actual expected > with :? Expecto.AssertException as ex -> > AssertExceptionFormatter(ex).Display () |> ignore > failwith (ex.GetType().FullName) > > let inline __contains log expected actual = __expect Expecto.Expect.contains log > expected actual > let inline _contains expected actual = __contains true expected actual > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log > expected actual > let inline _assertEqual expected actual = __assertEqual true expected actual > > let inline __isGreaterThan log expected actual = __expect > Expecto.Expect.isGreaterThan log expected actual > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual > > let inline __isGreaterThanOrEqual log expected actual = __expect > Expecto.Expect.isGreaterThanOrEqual log expected actual > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true > expected actual > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan > log expected actual > let inline _isLessThan expected actual = __isLessThan true expected actual > > let inline __isLessThanOrEqual log expected actual = __expect > Expecto.Expect.isLessThanOrEqual log expected actual > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true > expected actual > > let inline __sequenceEqual log expected actual = __expect > Expecto.Expect.sequenceEqual log expected actual > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual > > let inline __stringContains log expected actual = __expect > Expecto.Expect.stringContains log expected actual > let inline _stringContains expected actual = __stringContains true expected > actual > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds > log expected actual > let inline _stringEnds expected actual = __stringEnds true expected actual > > let inline __stringStarts log expected actual = __expect > Expecto.Expect.stringStarts log expected actual > let inline _stringStarts expected actual = __stringStarts true expected actual > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log > expected actual > let inline _throwsC expected actual = __throwsC true expected actual > > ── fsharp - import ───────────────────────────────────────────────────────────── > //// test > > let inline __isBetween log a b actual = > let inline isBetween actual (a, b) _ = > __isGreaterThanOrEqual log a actual > __isLessThanOrEqual log b actual > __expect isBetween log (a, b) actual > let inline _isBetween a b actual = __isBetween true a b actual > > ── fsharp ────────────────────────────────────────────────────────────────────── > #!import ../../lib/fsharp/Common.fs > #!import ../../lib/fsharp/CommonFSharp.fs > #!import ../../lib/fsharp/Async.fs > #!import ../../lib/fsharp/AsyncSeq.fs > #!import ../../lib/fsharp/Runtime.fs > #!import ../../lib/fsharp/FileSystem.fs > > #!import ../../apps/builder/Builder.fs > #!import ../../apps/spiral/Supervisor.fs > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Common = > > #if !INTERACTIVE > open Lib > #endif > > let nl = System.Environment.NewLine > let q = @"""" > > let inline cons head tail = head :: tail > > /// ## memoize > let inline memoize fn = > let result = lazy fn () > fun () -> result.Value > > /// ## TraceLevel > type TraceLevel = > | Verbose > | Debug > | Info > | Warning > | Critical > > let inline _locals () = "" > > /// ## trace > let to_trace_level = function > | Verbose -> SpiralTrace.TraceLevel.US0_0 > | Debug -> SpiralTrace.TraceLevel.US0_1 > | Info -> SpiralTrace.TraceLevel.US0_2 > | Warning -> SpiralTrace.TraceLevel.US0_3 > | Critical -> SpiralTrace.TraceLevel.US0_4 > > let trace level fn locals = > let level = level |> to_trace_level > SpiralTrace.trace level fn locals > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module CommonFSharp = > > open Common > > /// ## getUnionCaseName > let inline getUnionCaseName<'T> (x: 'T) = > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with > | case, _ -> case.Name > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Async = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## choice > let inline choice asyncs = async { > let e = Event<_> () > use cts = new System.Threading.CancellationTokenSource () > let fn = > asyncs > |> Seq.map (fun a -> async { > let! x = a > e.Trigger x > }) > |> Async.Parallel > |> Async.Ignore > Async.Start (fn, cts.Token) > let! result = Async.AwaitEvent e.Publish > cts.Cancel () > return result > } > > /// ## map > let inline map fn a = async { > let! x = a > return fn x > } > > /// ## catch > let inline catch a = > a > |> Async.Catch > |> map (function > | Choice1Of2 result -> Ok result > | Choice2Of2 ex -> Error ex > ) > > /// ## runWithTimeoutChoiceAsync > let inline runWithTimeoutChoiceAsync (timeout : int) fn = > let _locals () = $"timeout: {timeout} / {_locals ()}" > > let timeoutTask = async { > do! Async.Sleep timeout > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals > return None > } > > let task = async { > try > let! result = fn > return Some result > with > | :? System.AggregateException as ex when > ex.InnerExceptions > |> Seq.exists (function :? Sy... None > > /// ## awaitValueTask > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) = > task.AsTask () |> Async.AwaitTask > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) = > task.AsTask () |> Async.AwaitTask > > /// ## init > let inline init x = async { > return x > } > > /// ## withCancellationToken > let inline withCancellationToken (ct : System.Threading.CancellationToken) > fn = > Async.StartImmediateAsTask (fn, ct) > |> Async.AwaitTask > > /// ## retryAsync > let inline retryAsync retries fn = > let rec loop retry lastError = async { > try > return! > if retry <= retries > then fn |> map Ok > else lastError |> Error |> init > with ex -> > trace Debug (fun () -> $"Async.retryAsync / retry: > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals > do! Async.Sleep 1 > return! loop (retry + 1) (ex |> SpiralSm.format_exception) > } > loop 1 "Async.retryAsync / invalid retries / retries: {retries}" > > /// ## fold > let fold folder state array = > let rec loop acc i = > async { > if i < Array.length array then > let! newAcc = folder acc array.[[i]] > return! loop newAcc (i + 1) > else > return acc > } > loop state 0 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module AsyncSeq = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## subscribeEvent > let inline subscribeEvent (event: IEvent<'H, 'A>) map = > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H, > 'A>(event.AddHandler, event.RemoveHandler) > System.Reactive.Linq.Observable.Select (observable, fun event -> map > event.EventArgs) > |> FSharp.Control.AsyncSeq.ofObservableBuffered > > /// ## subscribeToken > let subscribeToken (token : System.Threading.CancellationToken) = > let tcs = new System.Threading.Tasks.TaskCompletionSource () > System.Action tcs.SetResult |> token.Register |> ignore > let start = System.DateTime.Now.Ticks > FSharp.Control.AsyncSeq.unfoldAsync > (fun () -> async { > do! tcs.Task |> Async.AwaitTask > return Some (System.DateTime.Now.Ticks - start, ()) > }) > () > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Runtime = > > #if !INTERACTIVE > open Lib > #endif > > open Common > > /// ## parseArgs > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args = > let assemblyName = > System.Reflection.Assembly.GetEntryAssembly().GetName().Name > let errorHandler : Argu.IExiter = > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |> > List.contains assemblyName > then Argu.ExceptionExiter () > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | > _ -> Some System.ConsoleColor.Red) > > let parser = > Argu.ArgumentParser.Create<'T> ( > programName = > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}", > errorHandler = errorHandler > ) > > parser.ParseCommandLine args > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseArgs<'T> > |> fun results -> results.GetAllResults () > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args = > args > |> parseAllArgs<'T> > |> List.groupBy CommonFSharp.getUnionCaseName<'T> > |> Map.ofList > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module FileSystem = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## watchDirectory > [[<RequireQualifiedAccess>]] > type FileSystemChangeType = > | Failure > | Changed > | Created > | Deleted > | Renamed > > [[<RequireQualifiedAccess>]] > type FileSystemChange = > | Failure of exn: exn > | Changed of path: string * content: string option > | Created of path: string * content: string option > | Deleted of path: string > | Renamed of oldPath: string * (string * string option) > > > let inline watchDirectoryWithFilter filter shouldReadContent path = > let fullPath = path |> System.IO.Path.GetFullPath > let _locals () = $"filter: {filter} / {_locals ()}" > > let watcher = > new System.IO.FileSystemWatcher ( > Path = fullPath, > NotifyFilter = filter, > EnableRaisingEvents = true, > IncludeSubdirectories = true > ) > > let inline getEventPath (path : string) = > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |> > SpiralSm.trim_start [[| '/'; '\\' |]] > > let inline ticks () = > System.DateTime.UtcNow.Ticks > > let changedStream = > AsyncSeq.subscribeEvent > watcher.Changed > (fun event -> > ticks (), > [[ FileSystemChang...d_all_text_retry_async > return t, FileSystemChange.Changed (path, content) > | true, FileSystemChange.Created (path, _) -> > do! Async.Sleep 5 > let! content = fullPath </> path |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Created (path, content) > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) -> > let! content = fullPath </> newPath |> > SpiralFileSystem.read_all_text_retry_async > return t, FileSystemChange.Renamed (oldPath, (newPath, > content)) > | _ -> return t, event > }) > > let disposable = > new_disposable (fun () -> > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing > watch stream") _locals > watcher.EnableRaisingEvents <- false > watcher.Dispose () > ) > > stream, disposable > > let inline watchDirectory path = > watchDirectoryWithFilter > (System.IO.NotifyFilters.FileName > // ||| System.IO.NotifyFilters.DirectoryName > // ||| System.IO.NotifyFilters.Attributes > //// ||| System.IO.NotifyFilters.Size > ||| System.IO.NotifyFilters.LastWrite > //// ||| System.IO.NotifyFilters.LastAccess > // ||| System.IO.NotifyFilters.CreationTime > // ||| System.IO.NotifyFilters.Security > ) > path > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Builder = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > > /// ## buildProject > let inline buildProject runtime outputDir path = async { > let fullPath = path |> System.IO.Path.GetFullPath > let fileDir = fullPath |> System.IO.Path.GetDirectoryName > let extension = fullPath |> System.IO.Path.GetExtension > > trace Debug > (fun () -> "buildProject") > (fun () -> $"fullPath: {fullPath} / {_locals ()}") > > match extension with > | ".fsproj" -> () > | _ -> failwith "Invalid project file" > > let runtimes = > runtime > |> Option.map List.singleton > |> Option.defaultValue [[ "linux-x64"; "win-x64" ]] > > let outputDir = outputDir |> Option.defaultValue "dist" > > return! > runtimes > |> List.map (fun runtime -> async { > let command = $@"dotnet publish ""{path}"" --configuration > Release --output ""{outputDir}"" --runtime {runtime}" > let! exitCode, _result = > SpiralRuntime.execution_options (fun x -> > { x with > l1 = command > l6 = Some fileDir > } > ) > |> SpiralRuntime.execute_with_options_async > return exitCode > }) > |> Async.Sequential > ...erTemplate with > member s.Usage = > match s with > | Path _ -> nameof Path > | Packages _ -> nameof Packages > | Modules _ -> nameof Modules > | Runtime _ -> nameof Runtime > | Persist_Only -> nameof Persist_Only > > /// ## main > let main args = > let argsMap = args |> Runtime.parseArgsMap<Arguments> > > let path = > match argsMap.[[nameof Arguments.Path]] with > | [[ Arguments.Path path ]] -> Some path > | _ -> None > |> Option.get > > let packages = > match argsMap |> Map.tryFind (nameof Arguments.Packages) with > | Some [[ Arguments.Packages packages ]] -> packages > | _ -> [[]] > > let modules = > match argsMap |> Map.tryFind (nameof Arguments.Modules) with > | Some [[ Arguments.Modules modules ]] -> modules > | _ -> [[]] > > let runtime = > match argsMap |> Map.tryFind (nameof Arguments.Runtime) with > | Some [[ Arguments.Runtime runtime ]] -> Some runtime > | _ -> None > > let persistOnly = argsMap |> Map.containsKey (nameof > Arguments.Persist_Only) > > if persistOnly > then path |> persistFile packages modules |> Async.map (fun _ -> 0) > else path |> buildFile runtime packages modules > |> Async.runWithTimeout (60000 * 60) > |> function > | Some exitCode -> exitCode > | None -> 1 > > > ── fsharp - import ───────────────────────────────────────────────────────────── > #if !INTERACTIVE > namespace Polyglot > #endif > > module Supervisor = > > #if !INTERACTIVE > open Lib > #endif > > open Common > open SpiralFileSystem.Operators > open Microsoft.AspNetCore.SignalR.Client > > /// ## sendJson > let inline sendJson (port : int) (json : string) = async { > let host = "127.0.0.1" > let! portOpen = SpiralNetworking.test_port_open host port > if portOpen then > try > let connection = > HubConnectionBuilder().WithUrl($"http://{host}:{port}").Build() > do! connection.StartAsync () |> Async.AwaitTask > let! result = > connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask > do! connection.StopAsync () |> Async.AwaitTask > trace Verbose (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / result: {result |> Option.ofObj |> > Option.map (SpiralSm.ellipsis_end 200)}") _locals > return Some result > with ex -> > trace Critical (fun () -> $"Supervisor.sendJson / port: {port} / > json: {json |> SpiralSm.ellipsis_end 200} / ex: {ex |> > SpiralSm.format_exception}") _locals > return None > else > trace Debug (fun () -> "Supervisor.sendJson / port: {port} / error: > port not open") _locals > return None > } > > /// ## sendObj > let inline sendObj port obj = > obj > |> System.Text.Json.JsonSerializer.Serialize > |> s...utputPath > return 0 > | None -> > if isExitOnError > then SpiralRuntime.current_process_kill () > > return 1 > }) > > let executeCommandAsync = > executeCommandActions > |> List.map (fun command -> async { > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = Some compilerToken > l1 = command > } > ) > |> SpiralRuntime.execute_with_options_async > > trace Debug (fun () -> $"main / executeCommand / exitCode: > {exitCode} / command: {command}") _locals > > if isExitOnError && exitCode <> 0 > then SpiralRuntime.current_process_kill () > > return exitCode > }) > > return! > [[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]] > |> Seq.collect id > |> fun x -> > if isParallel > then Async.Parallel (x, float > System.Environment.ProcessorCount * 0.51 |> ceil |> int) > else Async.Sequential x > |> Async.map Array.sum > } > |> Async.runWithTimeout timeout > |> Option.defaultValue 1 > > > ── fsharp ────────────────────────────────────────────────────────────────────── > #if !INTERACTIVE > open Lib > #endif > > ── fsharp ────────────────────────────────────────────────────────────────────── > open Common > open SpiralFileSystem.Operators > open Microsoft.AspNetCore.SignalR.Client > > ── fsharp ────────────────────────────────────────────────────────────────────── > open System > open System.Collections.Generic > open System.IO > open System.Text > open System.Threading > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## mapErrors │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline mapErrors (severity, errors, lastTopLevelIndex) allCode = > let allCodeLineLength = > allCode |> SpiralSm.split "\n" |> Array.length > > errors > |> List.map (fun (_, error) -> > match error with > | Supervisor.FatalError message -> > ( > severity, message, 0, ("", (0, 0), (0, 0)) > ) > |> List.singleton > | Supervisor.TracedError data -> > data.trace > |> List.truncate 5 > |> List.append [[ data.message ]] > |> List.map (fun message -> > ( > severity, message, 0, ("", (0, 0), (0, 0)) > ) > ) > | Supervisor.PackageErrors data > | Supervisor.TokenizerErrors data > | Supervisor.ParserErrors data > | Supervisor.TypeErrors data -> > data.errors > |> List.filter (fun ((rangeStart, _), _) -> > trace Debug (fun () -> $"Eval.mapErrors / rangeStart.line: > {rangeStart.line} / lastTopLevelIndex: {lastTopLevelIndex} / allCodeLineLength: > {allCodeLineLength} / filtered: {rangeStart.line > allCodeLineLength}") _locals > rangeStart.line > allCodeLineLength > ) > |> List.map (fun ((rangeStart, rangeEnd), message) -> > ( > severity, > message, > 0, > ( > (data.uri |> System.IO.Path.GetFileName), > ( > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeStart.line - allCodeLineLength - 2 > | _ -> rangeStart.line - allCodeLineLength), > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeStart.character - 4 > | _ -> rangeStart.character) > ), > ( > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeEnd.line - allCodeLineLength - 2 > | _ -> rangeEnd.line - allCodeLineLength), > (match lastTopLevelIndex with > | Some i when rangeStart.line >= i + > allCodeLineLength + 3 -> > rangeEnd.character - 4 > | _ -> rangeEnd.character) > ) > ) > ) > ) > ) > |> List.collect id > |> List.toArray > > ── fsharp ────────────────────────────────────────────────────────────────────── > let workspaceRoot = SpiralFileSystem.get_workspace_root () > let targetDir = workspaceRoot </> "target/spiral_Eval" > [[ targetDir ]] > |> List.iter (fun dir -> if Directory.Exists dir |> not then > Directory.CreateDirectory dir |> ignore) > > let assemblyName = Reflection.Assembly.GetEntryAssembly().GetName().Name > > let mutable allCode = "" > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## getParentProcessId │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let getParentProcessId () = > if SpiralPlatform.is_windows () |> not > then 0u > else > let pid = System.Diagnostics.Process.GetCurrentProcess().Id > let query = $"SELECT ParentProcessId FROM Win32_Process WHERE ProcessId > = {pid}" > use searcher = new System.Management.ManagementObjectSearcher (query) > use results = searcher.Get () > let data = results |> Seq.cast<System.Management.ManagementObject> > if data |> Seq.isEmpty > then 0u > else data |> Seq.head |> (fun mo -> mo.[["ParentProcessId"]] :?> uint32) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## startTokenRangeWatcher │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline startTokenRangeWatcher () = > if [[ "dotnet-repl" ]] |> List.contains assemblyName |> not then > let tokensDir = targetDir </> "tokens" > > [[ tokensDir ]] > |> List.iter (fun dir -> if Directory.Exists dir |> not then > Directory.CreateDirectory dir |> ignore) > > let stream, disposable = FileSystem.watchDirectory (fun _ -> false) > tokensDir > > try > let existingFilesChild = > tokensDir > |> System.IO.Directory.GetDirectories > |> Array.map (fun codeDir -> async { > try > let tokensPath = codeDir </> "tokens.json" > if tokensPath |> File.Exists |> not then > let codePath = codeDir </> "main.spi" > let! tokens = codePath |> > Supervisor.getFileTokenRange None None > match tokens with > | Some tokens -> > do! > tokens > |> FSharp.Json.Json.serialize > |> SpiralFileSystem.write_all_text_async > tokensPath > | None -> > trace Verbose (fun () -> > $"Eval.startTokenRangeWatcher / GetDirectories / tokens: None") _locals > with ex -> > trace Critical (fun () -> $"Eval.startTokenRangeWatcher > / GetDirectories / ex: {ex |> SpiralSm.format_exception}") _locals > }) > |> Async.Parallel > |> Async.Ignore > > let streamAsyncChild = > stream > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) > -> async { > try > match event with > | FileSystem.FileSystemChange.Changed (codePath, _) > when System.IO.Path.GetFileName codePath = > "main.spi" > -> > let hashDir = codePath |> > System.IO.Directory.GetParent > let hashHex = hashDir.Name > let codePath = tokensDir </> codePath > let tokensPath = tokensDir </> hashHex </> > "tokens.json" > do! > codePath > |> SpiralFileSystem.wait_for_file_access_read > |> Async.runWithTimeoutAsync 3000 > |> Async.Ignore > let! tokens = codePath |> > Supervisor.getFileTokenRange None None > match tokens with > | Some tokens -> > do! > tokens > |> FSharp.Json.Json.serialize > |> SpiralFileSystem.write_all_text_async > tokensPath > | None -> > trace Verbose (fun () -> > $"Eval.startTokenRangeWatcher / iterAsyncParallel / tokens: None") _locals > | _ -> () > with ex -> > trace Critical (fun () -> $"Eval.startTokenRangeWatcher > / iterAsyncParallel / ex: {ex |> SpiralSm.format_exception}") _locals > }) > > let parentAsyncChild = async { > let parentProcessId = getParentProcessId () > trace Verbose > (fun () -> "Eval.parentAsyncChild") > (fun () -> $"parentProcessId: {parentProcessId} / {_locals > ()}") > > if parentProcessId > 0u then > let parentProcess = parentProcessId |> int |> > System.Diagnostics.Process.GetProcessById > do! parentProcess.WaitForExitAsync () |> Async.AwaitTask > trace Verbose > (fun () -> "Eval.parentAsyncChild / Parent process has > exited. Performing cleanup...") > (fun () -> $"{_locals ()}") > System.Threading.Thread.Sleep 1000 > System.Environment.Exit 1 > } > > async { > do! Async.Sleep 3000 > existingFilesChild |> Async.StartImmediate > streamAsyncChild |> Async.Start > parentAsyncChild |> Async.Start > } > |> Async.Start > with ex -> > trace Critical (fun () -> $"Eval.startTokenRangeWatcher / ex: {ex |> > SpiralSm.format_exception}") _locals > > disposable > else new_disposable (fun () -> ()) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## startCommandsWatcher │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let startCommandsWatcher (uriServer : string) = > let commandsDir = targetDir </> "eval_commands" > let commandHistoryDir = targetDir </> "eval_command_history" > [[ commandsDir; commandHistoryDir ]] > |> List.iter (fun dir -> if Directory.Exists dir |> not then > Directory.CreateDirectory dir |> ignore) > > Directory.EnumerateFiles commandsDir |> Seq.iter File.Delete > > let stream, disposable = > commandsDir > |> FileSystem.watchDirectory (function > | FileSystem.FileSystemChange.Created _ -> true > | _ -> false > ) > > let connection = HubConnectionBuilder().WithUrl(uriServer).Build() > connection.StartAsync() |> Async.AwaitTask |> Async.Start > // let _ = connection.On<string>("ServerToClientMsg", fun x -> > // printfn $"ServerToClientMsg: '{x}'" > // ) > > stream > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) -> async { > let _locals () = $"ticks: {ticks} / event: {event} / {_locals ()}" > trace Verbose (fun () -> "Eval.startCommandsWatcher / > iterAsyncParallel") _locals > > match event with > | FileSystem.FileSystemChange.Created (path, Some json) -> > try > let fullPath = commandsDir </> path > let! result = > connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask > let commandHistoryPath = commandHistoryDir </> path > do! fullPath |> SpiralFileSystem.move_file_async > commandHistoryPath |> Async.Ignore > if result |> SpiralSm.trim |> String.length > 0 then > let resultPath = commandHistoryDir </> > $"{Path.GetFileNameWithoutExtension path}_result.json" > do! result |> SpiralFileSystem.write_all_text_async > resultPath > with ex -> > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / > {_locals ()}" > trace Critical (fun () -> "Eval.startCommandsWatcher / > iterAsyncParallel") _locals > | _ -> () > }) > |> Async.StartChild > |> Async.Ignore > |> Async.Start > > new_disposable (fun () -> > disposable.Dispose () > ) > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## prepareSpi │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let prepareSpi rawCellCode lines = > let lastBlock = > lines > |> Array.tryFindBack (fun line -> > line |> String.length > 0 > && line.[[0]] <> ' ' > ) > > let hasMain = > lastBlock > |> Option.exists (fun line -> > line |> SpiralSm.starts_with "inl main " > || line |> SpiralSm.starts_with "let main " > ) > > if hasMain > then rawCellCode, None > else > let lastTopLevelIndex, _ = > (lines |> Array.indexed, (None, false)) > ||> Array.foldBack (fun (i, line) (lastTopLevelIndex, finished) -> > trace Verbose (fun () -> $"Eval.prepareSpi / i: {i} / line: > '{line}' / lastTopLevelIndex: {lastTopLevelIndex} / finished: {finished}") > _locals > match line with > | _ when finished -> lastTopLevelIndex, true > | "" -> lastTopLevelIndex, false > | line when > line |> SpiralSm.starts_with " " > || line |> SpiralSm.starts_with "// " -> lastTopLevelIndex, > false > | line when > line |> SpiralSm.starts_with "open " > || line |> SpiralSm.starts_with "prototype " > || line |> SpiralSm.starts_with "instance " > || line |> SpiralSm.starts_with "type " > || line |> SpiralSm.starts_with "union " > || line |> SpiralSm.starts_with "nominal " -> > lastTopLevelIndex, true > | line when > line |> SpiralSm.starts_with "inl " > || line |> SpiralSm.starts_with "let " -> > let m = > System.Text.RegularExpressions.Regex.Match ( > line, > @"^(inl|let) +([[~\(\w]][[\w\d']]*(?:| > *[[~\w]][[\w\d']]*\)|, *[[~\w]][[\w\d']]*)) +[[:=]](?! +function)" > ) > trace Verbose (fun () -> $"Eval.prepareSpi / m: '{m}' / > m.Groups.Count: {m.Groups.Count}") _locals > if m.Groups.Count = 3 > then Some i, false > else lastTopLevelIndex, true > | _ -> Some i, false > ) > let code = > match lastTopLevelIndex with > | Some lastTopLevelIndex -> > lines > |> Array.mapi (fun i line -> > match i with > | i when i < lastTopLevelIndex -> line > | i when i = lastTopLevelIndex -> $"\nlet main () =\n > {line}" > | _ when line |> SpiralSm.trim = "" -> "" > | _ -> $" {line}" > ) > |> SpiralSm.concat "\n" > | None -> $"{rawCellCode}\n\ninl main () = ()\n" > code, lastTopLevelIndex > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## processSpiralOutput │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let processSpiralOutput > (props : {| > printCode: bool > traceLevel: TraceLevel > builderCommands: string array > lastTopLevelIndex: int option > backend: Supervisor.Backend > cancellationToken: _ > spiralErrors: _ > code: string > outputPath: string > |}) > = async { > let inline _trace (fn : unit -> string) = > if props.traceLevel = Verbose > then trace Info (fun () -> $"Eval.processSpiralOutput / props: {props |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / {fn ()}") _locals > else fn () |> System.Console.WriteLine > > if props.printCode then > let ext = props.outputPath |> System.IO.Path.GetExtension > _trace (fun () -> if props.builderCommands.Length > 0 then > $"{ext}:\n{props.code}\n" else props.code) > > let workspaceRootExternal = > let currentDir = > System.IO.Directory.GetCurrentDirectory () > |> SpiralSm.to_lower > let workspaceRoot = workspaceRoot |> SpiralSm.to_lower > if currentDir |> SpiralSm.starts_with workspaceRoot > then None > else Some workspaceRoot > > let! spiralBuilderResults = > match props.builderCommands, props.lastTopLevelIndex with > | [[||]], _ | _, None -> [[||]] |> Async.init > | builderCommands, _ -> > builderCommands > |> Array.map (fun builderCommand -> > let path = > workspaceRoot </> > $@"workspace/target/release/spiral_builder{SpiralPlatform.get_executable_suffix > ()}" > |> System.IO.Path.GetFullPath > let commands = > if props.backend = Supervisor.Fsharp > && ( > builderCommand |> SpiralSm.starts_with "rust" > || builderCommand |> SpiralSm.starts_with > "typescript" > || builderCommand |> SpiralSm.starts_with "python" > ) > then [[| $"{path} fable --fs-path \"{props.outputPath}\" > --command \"{builderCommand}\"" |]] > elif props.backend = Supervisor.Cuda > && builderCommand |> SpiralSm.starts_with "cuda" > then [[| $"{path} {builderCommand} --py-path > \"{props.outputPath}\"" |]] > else [[||]] > builderCommand, commands > ) > |> Array.filter (fun (_, commands) -> commands.Length > 0) > |> Array.map (fun (builderCommand, commands) -> > commands > |> Array.map (fun command -> async { > let! exitCode, result = > SpiralRuntime.execution_options (fun x -> > { x with > l0 = props.cancellationToken > l1 = command > l2 = [[| > "AUTOMATION", assemblyName = "dotnet-repl" > |> string > "TRACE_LEVEL", $"%A{if props.printCode then > props.traceLevel else Info}" > |]] > l6 = workspaceRootExternal > } > ) > |> SpiralRuntime.execute_with_options_async > trace Debug > (fun () -> $"Eval.processSpiralOutput / spiral_builder") > (fun () -> $"exitCode: {exitCode} / result: {result |> > SpiralSm.ellipsis_end 400} / {_locals ()}") > return > if exitCode = 0 > then (result, false) |> Ok > else result |> Error > }) > ) > |> Array.collect id > |> Async.Parallel > > let hasEval = > props.backend = Supervisor.Fsharp > && props.builderCommands |> Array.exists (fun x -> x |> > SpiralSm.starts_with "fsharp") > > let outputResult = > if props.builderCommands.Length > 0 && not hasEval > then None > else > let code = > if props.builderCommands.Length > 1 > then > let header = "System.Console.WriteLine \".fsx output:\"\n" > $"{header}{props.code}" > else props.code > Some (Ok [[ code, true ]]) > > match outputResult, spiralBuilderResults with > | Some outputResult, [[||]] -> > return outputResult, [[||]] > | None, [[||]] -> > return Ok [[ "()", true ]], [[||]] > | _, spiralBuilderResults -> > try > let spiralResults = > match outputResult with > | Some (Ok code) -> > spiralBuilderResults > |> Array.append (code |> List.map Ok |> List.toArray) > | _ -> spiralBuilderResults > let codes = > spiralResults > |> Array.map (fun spiralBuilderResult' -> > let spiralBuilderResult'', errors = > match spiralBuilderResult' with > | Ok (x, false) -> > let x = x |> > FSharp.Json.Json.deserialize<Map<string,string>> > x, [[||]] > | Ok (x, true) -> > let result = > [[ > "command_result", > [[ > "extension", "fsx" > "code", x > "output", "" > ]] > |> Map.ofList > |> FSharp.Json.Json.serialize > ]] > |> Map.ofList > result, [[||]] > > | Error error -> > ([[]] |> Map), > [[| > ( > TraceLevel.Critical, > $"Eval.processSpiralOutput / evalResult error / errors[[0]] / outputPath: > {props.outputPath} / builderCommands: %A{props.builderCommands} / > spiralBuilderResult': %A{spiralBuilderResult'} / error: %A{error}", 0, ("", (0, > 0), (0, 0)) > ) > |]] > > if errors |> Array.isEmpty |> not > || spiralBuilderResult'' |> Map.containsKey > "command_result" |> not > then Error (Exception $"Eval.processSpiralOutput / > evalResult errors / Exception / spiralBuilderResult'': > %A{spiralBuilderResult''}"), errors > else > let commandResult = > spiralBuilderResult''.[["command_result"]] |> > FSharp.Json.Json.deserialize<Map<string,string>> > > let extension = commandResult.[["extension"]] > let code = commandResult.[["code"]] > let output = commandResult.[["output"]] > > if props.printCode > then _trace (fun () -> $""".{extension}:{'\n'}{code}""") > > let eval = output = "" && extension = "fsx" > > trace Debug > (fun () -> $"Eval.processSpiralOutput / result") > (fun () -> $"commandResult: {commandResult |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400}/ {_locals ()}") > > let code = > if props.printCode > || spiralResults.Length > 1 > || props.builderCommands.Length > 1 > then > if eval then > code > else > let header = > if props.backend = Supervisor.Fsharp > then $".{extension} output:\n" > else $".{extension} output > ({props.backend}):\n" > $"{header}{output}" > elif eval > then code > else output > Ok (code, eval), [[||]] > ) > trace Debug > (fun () -> $"Eval.processSpiralOutput / codes") > (fun () -> > let props = {| props with cancellationToken = None |} > $"codes: {codes |> FSharp.Json.Json.serialize |> > SpiralSm.ellipsis_end 400} / spiralResults: {spiralResults |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / spiralBuilderResults: > {spiralBuilderResults |> FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end > 400} / props: {props |> FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} > / {_locals ()}") > return > (((Ok [[]]), [[||]]), codes) > ||> Array.fold (fun (acc_code, acc_errors) (code, errors) -> > match code, acc_code with > | Ok code, Ok acc_code -> > let errors = > acc_errors > |> Array.append errors > |> Array.append props.spiralErrors > let errors = > if errors |> Array.isEmpty > then errors > else > errors > |> Array.append [[| > TraceLevel.Critical, > $"Eval.processSpiralOutput / errors / errors[[-1]] / outputPath: > {props.outputPath} / builderCommands: %A{props.builderCommands} / code: {code |> > fst |> SpiralSm.ellipsis_end 400}", 0, ("", (0, 0), (0, 0)) > |]] > Ok (code :: acc_code), errors > | Error error, _ > | _, Error error -> > Error error, > acc_errors |> Array.append errors > ) > with ex -> > trace Critical (fun () -> $"Eval.processSpiralOutput / try 2 ex / > spiralBuilderResults: %A{spiralBuilderResults} / ex: {ex |> > SpiralSm.format_exception}") _locals > return Error (Exception $"Eval.processSpiralOutput / try 2 ex / > Exception / spiralBuilderResults: %A{spiralBuilderResults} / ex: {ex |> > SpiralSm.format_exception}"), > [[| > ( > TraceLevel.Critical, $"Eval.processSpiralOutput / try 2 ex / > errors[[0]] / spiralBuilderResults: %A{spiralBuilderResults} / ex: {ex |> > SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0)) > ) > |]] > } > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## tryGetPropertyValue │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let tryGetPropertyValue (propertyName: string) (obj: obj) = > let objType = obj.GetType () > let propertyInfo = propertyName |> objType.GetProperty > if propertyInfo <> null > then propertyInfo.GetValue (obj, null) |> Some > else None > > ── markdown ──────────────────────────────────────────────────────────────────── > ╭──────────────────────────────────────────────────────────────────────────────╮ > │ ## eval │ > ╰──────────────────────────────────────────────────────────────────────────────╯ > > ── fsharp ────────────────────────────────────────────────────────────────────── > let inline eval > (fsi_eval: > string > -> System.Threading.CancellationToken > -> Choice<'a, Exception> * (TraceLevel * string * int * (string * (int * > int) * (int * int))) array) > (cancellationToken: Option<System.Threading.CancellationToken>) > (code: string) > = > trace Verbose > (fun () -> $"Eval.eval") > (fun () -> $"code: {code |> SpiralSm.ellipsis_end 400} / {_locals ()}") > > let rawCellCode = > code |> SpiralSm.replace "\r\n" "\n" > > let lines = rawCellCode |> SpiralSm.split "\n" > > if lines |> Array.exists (fun line -> line |> SpiralSm.starts_with "#r " && > line |> SpiralSm.ends_with "\"") then > let cancellationToken = defaultArg cancellationToken > System.Threading.CancellationToken.None > let ch, errors = fsi_eval code cancellationToken > trace Verbose (fun () -> $"Eval.eval / fsi_eval 1 / ch: %A{ch} / errors: > {errors}") _locals > match ch with > | Choice1Of2 v -> Ok(v), errors > | Choice2Of2 ex -> Error(ex), errors > else > let builderCommands = > lines > |> Array.choose (fun line -> > if line |> SpiralSm.starts_with "///! " > then line |> SpiralSm.split "///! " |> Array.tryItem 1 > else None > ) > > let timeout = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// timeout=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > int > else None > ) > |> Option.defaultValue (60000 * 60) > > let printCode = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// print_code=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > ((=) "true") > else None > ) > |> Option.defaultValue false > > let isTrace = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// trace=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > ((=) "true") > else None > ) > |> Option.defaultValue false > > let isCache = > lines > |> Array.tryPick (fun line -> > if line |> SpiralSm.starts_with "//// cache=" > then line |> SpiralSm.split "=" |> Array.tryItem 1 |> Option.map > ((=) "true") > else None > ) > |> Option.defaultValue false > > let oldLevel = get_trace_level () > let traceLevel = > if isTrace > then Verbose > else Info > traceLevel > |> to_trace_level > |> set_trace_level > use _ = (new_disposable (fun () -> > oldLevel |> set_trace_level > )) > > async { > try > let cellCode, lastTopLevelIndex = prepareSpi rawCellCode lines > > let newAllCode = $"{allCode}\n\n{cellCode}" > > let buildBackends = > if builderCommands.Length = 0 > then [[| Supervisor.Fsharp |]] > else > builderCommands > |> Array.map (fun x -> > if x |> SpiralSm.starts_with "cuda" > then Supervisor.Cuda > else Supervisor.Fsharp > ) > |> Array.distinct > > trace Verbose > (fun () -> $"Eval.eval") > (fun () -> $"cellCode: {cellCode |> SpiralSm.ellipsis_end > 400} / lastTopLevelIndex: {lastTopLevelIndex} / builderCommands: > %A{builderCommands} / buildBackends: %A{buildBackends} / {_locals ()}") > > let! buildCodeResults = > buildBackends > |> Array.map (fun backend -> async { > let! result = > newAllCode > |> Supervisor.buildCode backend isCache timeout > cancellationToken > return backend, result > }) > |> Async.Parallel > |> Async.catch > |> Async.runWithTimeoutAsync timeout > > match buildCodeResults with > | Some (Ok buildCodeResults) -> > let! result, errors = > ((Ok [[]], [[||]]), buildCodeResults) > ||> Async.fold (fun acc buildCodeResult -> async { > match buildCodeResult with > | (backend, (spiPath, (outputPath, Some code), > spiralErrors)) -> > let spiralErrors = > mapErrors (Warning, spiralErrors, > lastTopLevelIndex) allCode > let! result = > processSpiralOutput > {| > printCode = printCode > traceLevel = traceLevel > builderCommands = builderCommands > lastTopLevelIndex = > lastTopLevelIndex > backend = backend > cancellationToken = > cancellationToken > spiralErrors = spiralErrors > code = code > outputPath = outputPath > |} > match result, acc with > | (Ok code, errors), (Ok acc_code, acc_errors) > -> > return Ok (acc_code @ code), acc_errors |> > Array.append errors > | (Error ex, errors), _ | _, (Error ex, errors) > -> > return Error ex, errors |> Array.append > errors > | _ -> return acc > }) > let cancellationToken = defaultArg cancellationToken > System.Threading.CancellationToken.None > match result, errors with > | Ok code, [[||]] -> > let code, eval = > code > |> List.map (fun (code, eval) -> > if eval > then None, Some code > else Some code, None > ) > |> List.unzip > let code = code |> List.choose id > let eval = eval |> List.choose id > > trace Debug > (fun () -> $"Eval.eval") > (fun () -> $"eval: {eval |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / code: {code |> > FSharp.Json.Json.serialize |> SpiralSm.ellipsis_end 400} / {_locals ()}") > > let ch, errors = > match eval, code with > | [[]], [[]] -> > Choice2Of2 (Exception $"Eval.eval / errors / > buildCodeResults: %A{buildCodeResults} / code: %A{code}"), errors > | [[ eval ]], [[]] -> > let ch, errors2 = fsi_eval eval > cancellationToken > let errors = > errors2 > // |> Array.map (fun (e1, e2, e3, _) -> > // (e1, e2, e3, ("", (0, 0), (0, 0))) > // ) > |> Array.append errors > ch, errors > | [[]], _ -> > let code = code |> List.rev |> String.concat > "\n\n" > let code = > if printCode > then $"\"\"\"{code}\n\n\n\"\"\"" > else $"\"\"\"{code}\n\"\"\"" > let ch, errors2 = fsi_eval code > cancellationToken > let errors = > errors2 > // |> Array.map (fun (e1, e2, e3, _) -> > // (e1, e2, e3, ("", (0, 0), (0, 0))) > // ) > |> Array.append errors > ch, errors > | _ -> > let code, errors = > ((Ok (code |> List.rev), [[||]]), eval) > ||> List.fold (fun (acc, acc_errors) eval -> > match acc with > | Error x -> Error x, acc_errors > | Ok acc -> > let ch, errors = fsi_eval eval > cancellationToken > let errors = > errors > |> Array.map (fun (e1, e2, e3, > _) -> > (e1, e2, e3, ("", (0, 0), > (0, 0))) > ) > |> Array.append acc_errors > match ch with > | Choice1Of2 v -> > let v = > v > |> tryGetPropertyValue > "ReflectionValue" > |> Option.map (fun x -> > $"%A{x}") > |> Option.defaultValue "" > Ok (v :: acc), errors > | Choice2Of2 ex -> > trace Critical (fun () -> > $"Eval.eval / fsi_eval fold Choice error / buildCodeResults: > %A{buildCodeResults} / ex: {ex |> SpiralSm.format_exception}") _locals > Error ch, errors > ) > match code with > | Error ch -> ch, errors > | Ok code -> > let code = > code > |> List.filter ((<>) "") > |> String.concat "\n\n" > let code = > if printCode > then $"\"\"\"{code}\n\n\n\"\"\"" > else $"\"\"\"{code}\n\"\"\"" > let ch, errors2 = fsi_eval code > cancellationToken > let errors = > errors2 > // |> Array.map (fun (e1, e2, e3, _) -> > // (e1, e2, e3, ("", (0, 0), (0, > 0))) > // ) > |> Array.append errors > ch, errors > match ch with > | Choice1Of2 v -> > allCode <- newAllCode > return Ok(v), errors > | Choice2Of2 ex -> > return Error ex, errors > | Ok code, errors -> > return Error (Exception "Eval.eval / errors / > buildCodeResults: %A{buildCodeResults} / code: %A{code}"), errors > | Error error, errors -> > return Error error, errors > | Some (Error ex) -> > trace Critical (fun () -> $"Eval.eval / buildCodeResults > Error / buildCodeResults: %A{buildCodeResults} / ex: {ex |> > SpiralSm.format_exception}") _locals > return Error (Exception $"Eval.eval / buildCodeResults Error > / Exception / buildCodeResults: %A{buildCodeResults} / ex: {ex |> > SpiralSm.format_exception}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / buildCodeResults > Error / errors[[0]] / buildCodeResults: %A{buildCodeResults} / ex: {ex |> > SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0)) > ) > |]] > | _ -> > return Error (Exception $"Eval.eval / buildCodeResults / > Exception / buildCodeResults: %A{buildCodeResults}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / buildCodeResults > / errors[[0]] / buildCodeResults: %A{buildCodeResults}", 0, ("", (0, 0), (0, 0)) > ) > |]] > with ex -> > trace Critical (fun () -> $"Eval.eval / try 1 ex / lines : > %A{lines} / ex: {ex |> SpiralSm.format_exception}") _locals > return Error (Exception $"Eval.eval / try 1 ex / Exception / > %A{lines} / ex: {ex |> SpiralSm.format_exception}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / try 1 ex / > errors[[0]] / %A{lines} / ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, > 0), (0, 0)) > ) > |]] > } > |> Async.runWithTimeout timeout > |> Option.defaultValue ( > Error (Exception $"Eval.eval / Async.runWithTimeout / Exception / > timeout: {timeout} / %A{lines}"), > [[| > ( > TraceLevel.Critical, $"Eval.eval / Async.runWithTimeout / > errors[[0]] / timeout: {timeout} / %A{lines}", 0, ("", (0, 0), (0, 0)) > ) > |]] > ) 00:00:54 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 103541 00:00:54 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) 00:00:56 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/Eval.dib.ipynb to html 00:00:56 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. 00:00:56 verbose #7 ! validate(nb) 00:00:58 verbose #8 ! [NbConvertApp] Writing 428474 bytes to c:\home\git\polyglot\apps\spiral\Eval.dib.html 00:00:59 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641 00:00:59 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641 00:00:59 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Eval.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/Eval.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None) 00:01:00 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 00:01:00 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 00:01:00 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 104241 00:00:00 debug #1 writeDibCode / output: Fs / path: Eval.dib 00:00:00 debug #2 parseDibCode / output: Fs / file: Eval.dib
In [ ]:
{ pwsh ../apps/spiral/builder/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../../workspace/target/release/spiral_builder.exe dib --path spiral_builder.dib",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "spiral_builder.dib"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib" --output-path "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:05 verbose #10 > >
00:00:05 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #13 > > │ # spiral_builder │
00:00:05 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #15 > >
00:00:05 verbose #16 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #17 > > open file_system_operators
00:00:05 verbose #18 > > open rust_operators
00:00:05 verbose #19 > > open sm'_operators
00:00:05 verbose #20 > >
00:00:05 verbose #21 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:05 verbose #22 > > #r
00:00:05 verbose #23 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #24 > > otNet.Interactive.Spiral.dll"
00:00:05 verbose #25 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:05 verbose #26 > > #r
00:00:05 verbose #27 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #28 > > otNet.Interactive.dll"
00:00:05 verbose #29 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:09 verbose #30 > >
00:00:09 verbose #31 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #32 > > //// test
00:00:09 verbose #33 > >
00:00:09 verbose #34 > > open testing
00:00:09 verbose #35 > >
00:00:09 verbose #36 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #37 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #38 > > │ ## types │
00:00:09 verbose #39 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #40 > >
00:00:09 verbose #41 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #42 > > inl types () =
00:00:09 verbose #43 > > env.types ()
00:00:09 verbose #44 > > file_system.types ()
00:00:09 verbose #45 > > runtime.types ()
00:00:09 verbose #46 > > rust.types ()
00:00:09 verbose #47 > > sm'.types ()
00:00:09 verbose #48 > > crypto.types ()
00:00:09 verbose #49 > >
00:00:09 verbose #50 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #51 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #52 > > │ ## get_args │
00:00:09 verbose #53 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #54 > >
00:00:09 verbose #55 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #56 > > inl get_args () =
00:00:09 verbose #57 > > {
00:00:09 verbose #58 > > fsharp = "fsharp", {
00:00:09 verbose #59 > > spi_path = "spi-path", 's'
00:00:09 verbose #60 > > }
00:00:09 verbose #61 > > cuda = "cuda", {
00:00:09 verbose #62 > > py_path = "py-path", 'p'
00:00:09 verbose #63 > > env = "env", 'e'
00:00:09 verbose #64 > > deps = "deps", 'd'
00:00:09 verbose #65 > > }
00:00:09 verbose #66 > > fable = "fable", {
00:00:09 verbose #67 > > fs_path = "fs-path", 'f'
00:00:09 verbose #68 > > command = "command", 'c'
00:00:09 verbose #69 > > }
00:00:09 verbose #70 > > rust = "rust", {
00:00:09 verbose #71 > > fs_path = "fs-path", 'f'
00:00:09 verbose #72 > > deps = "deps", 'd'
00:00:09 verbose #73 > > }
00:00:09 verbose #74 > > typescript = "typescript", {
00:00:09 verbose #75 > > fs_path = "fs-path", 'f'
00:00:09 verbose #76 > > deps = "deps", 'd'
00:00:09 verbose #77 > > }
00:00:09 verbose #78 > > python = "python", {
00:00:09 verbose #79 > > fs_path = "fs-path", 'f'
00:00:09 verbose #80 > > deps = "deps", 'd'
00:00:09 verbose #81 > > }
00:00:09 verbose #82 > > dib = "dib", {
00:00:09 verbose #83 > > path = "path", 'p'
00:00:09 verbose #84 > > retries = "retries", 'r'
00:00:09 verbose #85 > > working_directory = "working-directory", 'w'
00:00:09 verbose #86 > > }
00:00:09 verbose #87 > > }
00:00:09 verbose #88 > >
00:00:09 verbose #89 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #90 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #91 > > │ ## cuda_env │
00:00:09 verbose #92 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #93 > >
00:00:09 verbose #94 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #95 > > union cuda_env =
00:00:09 verbose #96 > > | Pip
00:00:09 verbose #97 > > | Poetry
00:00:09 verbose #98 > >
00:00:09 verbose #99 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #100 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #101 > > │ ## get_command │
00:00:09 verbose #102 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #103 > >
00:00:09 verbose #104 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #105 > > let get_command () =
00:00:09 verbose #106 > > ##"command"
00:00:09 verbose #107 > > |> runtime.new_command
00:00:09 verbose #108 > > |> runtime.command_subcommand_required true
00:00:09 verbose #109 > > |> runtime.command_subcommand (
00:00:09 verbose #110 > > ##(get_args () .fsharp |> fst)
00:00:09 verbose #111 > > |> runtime.new_command
00:00:09 verbose #112 > > |> runtime.command_init_arg ((get_args () .fsharp |> snd).spi_path) (
00:00:09 verbose #113 > > runtime.arg_required true
00:00:09 verbose #114 > > )
00:00:09 verbose #115 > > )
00:00:09 verbose #116 > > |> runtime.command_subcommand (
00:00:09 verbose #117 > > ##(get_args () .cuda |> fst)
00:00:09 verbose #118 > > |> runtime.new_command
00:00:09 verbose #119 > > |> runtime.command_init_arg ((get_args () .cuda |> snd).py_path) (
00:00:09 verbose #120 > > runtime.arg_required true
00:00:09 verbose #121 > > )
00:00:09 verbose #122 > > |> runtime.command_init_arg ((get_args () .cuda |> snd).env) (
00:00:09 verbose #123 > > real runtime.arg_union `cuda_env ignore
00:00:09 verbose #124 > > )
00:00:09 verbose #125 > > |> runtime.command_init_arg ((get_args () .cuda |> snd).deps) (
00:00:09 verbose #126 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:09 verbose #127 > > >> runtime.arg_num_args_range (
00:00:09 verbose #128 > > runtime.new_value_range
00:00:09 verbose #129 > > (am'.Start (1i32 |> convert : unativeint))
00:00:09 verbose #130 > > (am'.End id)
00:00:09 verbose #131 > > )
00:00:09 verbose #132 > > >> runtime.arg_action runtime.Append
00:00:09 verbose #133 > > )
00:00:09 verbose #134 > > )
00:00:09 verbose #135 > > |> runtime.command_subcommand (
00:00:09 verbose #136 > > ##(get_args () .fable |> fst)
00:00:09 verbose #137 > > |> runtime.new_command
00:00:09 verbose #138 > > |> runtime.command_init_arg ((get_args () .fable |> snd).fs_path) (
00:00:09 verbose #139 > > runtime.arg_required true
00:00:09 verbose #140 > > )
00:00:09 verbose #141 > > |> runtime.command_init_arg ((get_args () .fable |> snd).command) (
00:00:09 verbose #142 > > id
00:00:09 verbose #143 > > )
00:00:09 verbose #144 > > )
00:00:09 verbose #145 > > |> runtime.command_subcommand (
00:00:09 verbose #146 > > ##(get_args () .rust |> fst)
00:00:09 verbose #147 > > |> runtime.new_command
00:00:09 verbose #148 > > |> runtime.command_init_arg ((get_args () .rust |> snd).fs_path) (
00:00:09 verbose #149 > > runtime.arg_required true
00:00:09 verbose #150 > > )
00:00:09 verbose #151 > > |> runtime.command_init_arg ((get_args () .rust |> snd).deps) (
00:00:09 verbose #152 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:09 verbose #153 > > >> runtime.arg_num_args_range (
00:00:09 verbose #154 > > runtime.new_value_range
00:00:09 verbose #155 > > (am'.Start (1i32 |> convert : unativeint))
00:00:09 verbose #156 > > (am'.End id)
00:00:09 verbose #157 > > )
00:00:09 verbose #158 > > >> runtime.arg_action runtime.Append
00:00:09 verbose #159 > > )
00:00:09 verbose #160 > > )
00:00:09 verbose #161 > > |> runtime.command_subcommand (
00:00:09 verbose #162 > > ##(get_args () .typescript |> fst)
00:00:09 verbose #163 > > |> runtime.new_command
00:00:09 verbose #164 > > |> runtime.command_init_arg ((get_args () .typescript |> snd).fs_path) (
00:00:09 verbose #165 > > runtime.arg_required true
00:00:09 verbose #166 > > )
00:00:09 verbose #167 > > |> runtime.command_init_arg ((get_args () .typescript |> snd).deps) (
00:00:09 verbose #168 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:09 verbose #169 > > >> runtime.arg_num_args_range (
00:00:09 verbose #170 > > runtime.new_value_range
00:00:09 verbose #171 > > (am'.Start (1i32 |> convert : unativeint))
00:00:09 verbose #172 > > (am'.End id)
00:00:09 verbose #173 > > )
00:00:09 verbose #174 > > >> runtime.arg_action runtime.Append
00:00:09 verbose #175 > > )
00:00:09 verbose #176 > > )
00:00:09 verbose #177 > > |> runtime.command_subcommand (
00:00:09 verbose #178 > > ##(get_args () .python |> fst)
00:00:09 verbose #179 > > |> runtime.new_command
00:00:09 verbose #180 > > |> runtime.command_init_arg ((get_args () .python |> snd).fs_path) (
00:00:09 verbose #181 > > runtime.arg_required true
00:00:09 verbose #182 > > )
00:00:09 verbose #183 > > |> runtime.command_init_arg ((get_args () .python |> snd).deps) (
00:00:09 verbose #184 > > runtime.arg_value_names ;[[ ##"NAME"; ##"VERSION" ]]
00:00:09 verbose #185 > > >> runtime.arg_num_args_range (
00:00:09 verbose #186 > > runtime.new_value_range
00:00:09 verbose #187 > > (am'.Start (1i32 |> convert : unativeint))
00:00:09 verbose #188 > > (am'.End id)
00:00:09 verbose #189 > > )
00:00:09 verbose #190 > > >> runtime.arg_action runtime.Append
00:00:09 verbose #191 > > )
00:00:09 verbose #192 > > )
00:00:09 verbose #193 > > |> runtime.command_subcommand (
00:00:09 verbose #194 > > ##(get_args () .dib |> fst)
00:00:09 verbose #195 > > |> runtime.new_command
00:00:09 verbose #196 > > |> runtime.command_init_arg ((get_args () .dib |> snd).path) (
00:00:09 verbose #197 > > runtime.arg_required true
00:00:09 verbose #198 > > // >> runtime.arg_value_parser (runtime.value_parser_path_buf ())
00:00:09 verbose #199 > > )
00:00:09 verbose #200 > > |> runtime.command_init_arg ((get_args () .dib |> snd).retries) (
00:00:09 verbose #201 > > runtime.arg_value_parser (runtime.value_parser_expr "u8")
00:00:09 verbose #202 > > )
00:00:09 verbose #203 > > |> runtime.command_init_arg ((get_args () .dib |>
00:00:09 verbose #204 > > snd).working_directory) (
00:00:09 verbose #205 > > id
00:00:09 verbose #206 > > )
00:00:09 verbose #207 > > )
00:00:09 verbose #208 > >
00:00:09 verbose #209 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #210 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #211 > > │ ## fable │
00:00:09 verbose #212 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #213 > >
00:00:09 verbose #214 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #215 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #216 > > │ ### execute_dotnet_fable │
00:00:09 verbose #217 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #218 > >
00:00:09 verbose #219 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #220 > > let execute_dotnet_fable { workspace_root_external fsproj_path extension
00:00:09 verbose #221 > > package_dir } =
00:00:09 verbose #222 > > fun () =>
00:00:09 verbose #223 > > inl exit_code, result =
00:00:09 verbose #224 > > inl platform =
00:00:09 verbose #225 > > if platform.is_windows ()
00:00:09 verbose #226 > > then "_WINDOWS"
00:00:09 verbose #227 > > else "_LINUX"
00:00:09 verbose #228 > > runtime.execution_options fun x => { x with
00:00:09 verbose #229 > > command = $'$"dotnet fable \\\"{!fsproj_path}\\\" --optimize
00:00:09 verbose #230 > > --lang {!extension} --extension .{!extension} --outDir \\\"{!package_dir}\\\"
00:00:09 verbose #231 > > --define {!platform}"'
00:00:09 verbose #232 > > working_directory = workspace_root_external |> resultm.box |>
00:00:09 verbose #233 > > resultm.ok'
00:00:09 verbose #234 > > }
00:00:09 verbose #235 > > |> runtime.execute_with_options
00:00:09 verbose #236 > > if exit_code = 0
00:00:09 verbose #237 > > then Ok (exit_code, result)
00:00:09 verbose #238 > > else Error (exit_code, result)
00:00:09 verbose #239 > > |> retry_fn' 3u8
00:00:09 verbose #240 > >
00:00:09 verbose #241 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #242 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #243 > > │ ### persist_code_project │
00:00:09 verbose #244 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #245 > >
00:00:09 verbose #246 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #247 > > inl persist_code_project packages modules name hash code =
00:00:09 verbose #248 > > inl modules_code = ""
00:00:09 verbose #249 > >
00:00:09 verbose #250 > > inl workspace_root = file_system.get_workspace_root ()
00:00:09 verbose #251 > > inl target_dir =
00:00:09 verbose #252 > > inl target_dir = workspace_root </> "target/spiral_builder" </> name
00:00:09 verbose #253 > > match hash with
00:00:09 verbose #254 > > | Some hash => target_dir </> "packages" </> hash
00:00:09 verbose #255 > > | None => target_dir
00:00:09 verbose #256 > > target_dir |> file_system.create_dir |> ignore
00:00:09 verbose #257 > >
00:00:09 verbose #258 > > inl fs_path = target_dir </> $'$"{!name}.fs"' |> file_system.normalize_path
00:00:09 verbose #259 > > code |> file_system.write_all_text_exists' fs_path
00:00:09 verbose #260 > >
00:00:09 verbose #261 > > inl modules_code =
00:00:09 verbose #262 > > modules
00:00:09 verbose #263 > > |> listm.map fun path =>
00:00:09 verbose #264 > > inl path = workspace_root </> path
00:00:09 verbose #265 > > $'$"<Compile Include=\\\"{!path}\\\" />"' : string
00:00:09 verbose #266 > > |> listm'.box
00:00:09 verbose #267 > > |> seq.of_list'
00:00:09 verbose #268 > > |> sm'.concat "\\n "
00:00:09 verbose #269 > >
00:00:09 verbose #270 > > inl packages_code =
00:00:09 verbose #271 > > packages
00:00:09 verbose #272 > > |> listm.map fun (package : string) =>
00:00:09 verbose #273 > > $'$"<PackageReference Include=\\\"{!package}\\\" Version=\\\"*\\\"
00:00:09 verbose #274 > > />"' : string
00:00:09 verbose #275 > > |> listm'.box
00:00:09 verbose #276 > > |> seq.of_list'
00:00:09 verbose #277 > > |> sm'.concat "\\n "
00:00:09 verbose #278 > >
00:00:09 verbose #279 > > inl fsproj_path = target_dir </> $'$"{!name}.fsproj"' |>
00:00:09 verbose #280 > > file_system.normalize_path
00:00:09 verbose #281 > > inl fsproj_code : string =
00:00:09 verbose #282 > > $'$"<Project Sdk=\\\"Microsoft.NET.Sdk\\\">"'
00:00:09 verbose #283 > > +#. $'$"<PropertyGroup>"'
00:00:09 verbose #284 > > +#. $'$" <TargetFramework>net9.0</TargetFramework>"'
00:00:09 verbose #285 > > +#. $'$" <LangVersion>preview</LangVersion>"'
00:00:09 verbose #286 > > +#. $'$" <RollForward>Major</RollForward>"'
00:00:09 verbose #287 > > +#. $'$" <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>"'
00:00:09 verbose #288 > > +#. $'$" <PublishAot>false</PublishAot>"'
00:00:09 verbose #289 > > +#. $'$" <PublishTrimmed>false</PublishTrimmed>"'
00:00:09 verbose #290 > > +#. $'$" <PublishSingleFile>true</PublishSingleFile>"'
00:00:09 verbose #291 > > +#. $'$" <SelfContained>true</SelfContained>"'
00:00:09 verbose #292 > > +#. $'$" <Version>0.0.1-alpha.1</Version>"'
00:00:09 verbose #293 > > +#. $'$" <OutputType>Exe</OutputType>"'
00:00:09 verbose #294 > > +#. $'$"</PropertyGroup>"'
00:00:09 verbose #295 > >
00:00:09 verbose #296 > > +#. $'$"<PropertyGroup
00:00:09 verbose #297 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'FreeBSD\'))\\\">"'
00:00:09 verbose #298 > > +#. $'$" <DefineConstants>_FREEBSD</DefineConstants>"'
00:00:09 verbose #299 > > +#. $'$"</PropertyGroup>"'
00:00:09 verbose #300 > >
00:00:09 verbose #301 > > +#. $'$"<PropertyGroup
00:00:09 verbose #302 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'Linux\'))\\\">"'
00:00:09 verbose #303 > > +#. $'$" <DefineConstants>_LINUX</DefineConstants>"'
00:00:09 verbose #304 > > +#. $'$"</PropertyGroup>"'
00:00:09 verbose #305 > >
00:00:09 verbose #306 > > +#. $'$"<PropertyGroup
00:00:09 verbose #307 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'OSX\'))\\\">"'
00:00:09 verbose #308 > > +#. $'$" <DefineConstants>_OSX</DefineConstants>"'
00:00:09 verbose #309 > > +#. $'$"</PropertyGroup>"'
00:00:09 verbose #310 > >
00:00:09 verbose #311 > > +#. $'$"<PropertyGroup
00:00:09 verbose #312 > > Condition=\\\"$([[MSBuild]]::IsOSPlatform(\'Windows\'))\\\">"'
00:00:09 verbose #313 > > +#. $'$" <DefineConstants>_WINDOWS</DefineConstants>"'
00:00:09 verbose #314 > > +#. $'$"</PropertyGroup>"'
00:00:09 verbose #315 > >
00:00:09 verbose #316 > > +#. $'$"<ItemGroup>"'
00:00:09 verbose #317 > > +#. $'$" {!modules_code}"'
00:00:09 verbose #318 > > +#. $'$" <Compile Include=\\\"{!fs_path}\\\" />"'
00:00:09 verbose #319 > > +#. $'$"</ItemGroup>"'
00:00:09 verbose #320 > >
00:00:09 verbose #321 > > +#. $'$"<ItemGroup>"'
00:00:09 verbose #322 > > +#. $'$" {!packages_code}"'
00:00:09 verbose #323 > > +#. $'$"</ItemGroup>"'
00:00:09 verbose #324 > >
00:00:09 verbose #325 > > +#. $'$"</Project>"'
00:00:09 verbose #326 > >
00:00:09 verbose #327 > > fsproj_code |> file_system.write_all_text_exists' fsproj_path
00:00:09 verbose #328 > >
00:00:09 verbose #329 > > fsproj_path
00:00:09 verbose #330 > >
00:00:09 verbose #331 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #332 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #333 > > │ ### build_project │
00:00:09 verbose #334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #335 > >
00:00:09 verbose #336 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #337 > > inl build_project runtime' output_dir path =
00:00:09 verbose #338 > > inl full_path = path |> file_system.get_full_path
00:00:09 verbose #339 > > inl file_dir = full_path |> file_system.get_directory_name
00:00:09 verbose #340 > > inl extension = full_path |> file_system.get_extension
00:00:09 verbose #341 > >
00:00:09 verbose #342 > > trace Debug
00:00:09 verbose #343 > > fun () => "build_project"
00:00:09 verbose #344 > > fun () => $'$"full_path: {!full_path} / {!_locals ()}"'
00:00:09 verbose #345 > >
00:00:09 verbose #346 > > match extension with
00:00:09 verbose #347 > > | "fsproj" => ()
00:00:09 verbose #348 > > | _ => failwith $'$"spiral_builder.build_project / Invalid project file
00:00:09 verbose #349 > > extension: {!extension}"'
00:00:09 verbose #350 > >
00:00:09 verbose #351 > > inl runtimes =
00:00:09 verbose #352 > > runtime'
00:00:09 verbose #353 > > |> optionm.map listm.singleton
00:00:09 verbose #354 > > |> optionm'.default_value [[ "linux-x64"; "win-x64" ]]
00:00:09 verbose #355 > >
00:00:09 verbose #356 > > inl output_dir = output_dir |> optionm'.default_value "dist"
00:00:09 verbose #357 > >
00:00:09 verbose #358 > > runtimes
00:00:09 verbose #359 > > |> listm.map fun runtime' =>
00:00:09 verbose #360 > > runtime.execution_options fun x => { x with
00:00:09 verbose #361 > > command = $'$@@"dotnet publish \"\"{!path}\"\" --configuration
00:00:09 verbose #362 > > Release --output \"\"{!output_dir}\"\" --runtime {!runtime'}"'
00:00:09 verbose #363 > > working_directory = file_dir |> Some |> optionm'.box
00:00:09 verbose #364 > > }
00:00:09 verbose #365 > > |> runtime.execute_with_options
00:00:09 verbose #366 > > |> fst
00:00:09 verbose #367 > > |> listm'.sum
00:00:09 verbose #368 > >
00:00:09 verbose #369 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:09 verbose #370 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:09 verbose #371 > > │ ### build_code │
00:00:09 verbose #372 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:09 verbose #373 > >
00:00:09 verbose #374 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #375 > > inl build_code runtime packages modules output_dir name code =
00:00:09 verbose #376 > > inl fsproj_path = code |> persist_code_project packages modules name None
00:00:09 verbose #377 > > inl exit_code = fsproj_path |> build_project runtime output_dir
00:00:09 verbose #378 > > if exit_code <>. 0 then
00:00:09 verbose #379 > > inl fsproj_text = fsproj_path |> file_system.read_all_text
00:00:09 verbose #380 > > trace Critical
00:00:09 verbose #381 > > fun () => "build_code"
00:00:09 verbose #382 > > fun () =>
00:00:09 verbose #383 > > inl code = code |> sm'.ellipsis_end 400
00:00:09 verbose #384 > > $'$"code: {!code} / fsproj_text: {!fsproj_text} / {!_locals
00:00:09 verbose #385 > > ()}"'
00:00:09 verbose #386 > > exit_code
00:00:09 verbose #387 > >
00:00:09 verbose #388 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #389 > > //// test
00:00:09 verbose #390 > > ///! rust -d encoding_rs encoding_rs_io regex
00:00:09 verbose #391 > >
00:00:09 verbose #392 > > types ()
00:00:09 verbose #393 > > "1 + 1 |> ignore"
00:00:09 verbose #394 > > |> build_code None [[]] [[]] None "test1"
00:00:09 verbose #395 > > |> _assert_eq 0
00:00:31 verbose #396 > >
00:00:31 verbose #397 > > ╭─[ 21.93s - return value ]────────────────────────────────────────────────────╮
00:00:31 verbose #398 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:00:31 verbose #399 > > │ c:\home\git\polyglot\target/spiral_builder\test1 │
00:00:31 verbose #400 > > │ 00:00:00 debug #2 build_project / full_path: │
00:00:31 verbose #401 > > │ \\?\C:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj │
00:00:31 verbose #402 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:00:31 verbose #403 > > │ arguments: ["publish", │
00:00:31 verbose #404 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj", │
00:00:31 verbose #405 > > │ "--configuration", "Release", "--output", "dist", "--runtime", "win-x64"] / │
00:00:31 verbose #406 > > │ options: (None, "dotnet publish │
00:00:31 verbose #407 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj" │
00:00:31 verbose #408 > > │ --configuration Release --output "dist" --runtime win-x64", Array(MutCell([ │
00:00:31 verbose #409 > > │ ])), None, None, true, │
00:00:31 verbose #410 > > │ Some("\\?\C:\home\git\polyglot\target\spiral_builder\test1")) │
00:00:31 verbose #411 > > │ 00:00:00 verbose #4 > MSBuild version │
00:00:31 verbose #412 > > │ 17.10.0-preview-24101-01+07fd5d51f for .NET │
00:00:31 verbose #413 > > │ 00:00:00 verbose #5 > Determining projects to restore... │
00:00:31 verbose #414 > > │ 00:00:01 verbose #6 > Restored │
00:00:31 verbose #415 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj (in 348 ms). │
00:00:31 verbose #416 > > │ 00:00:01 verbose #7 > │
00:00:31 verbose #417 > > │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
00:00:31 verbose #418 > > │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
00:00:31 verbose #419 > > │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
00:00:31 verbose #420 > > │ .NET. See: https://aka.ms/dotnet-support-policy [ │
00:00:31 verbose #421 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj] │
00:00:31 verbose #422 > > │ 00:00:02 verbose #8 > test1 -> │
00:00:31 verbose #423 > > │ c:\home\git\polyglot\target\spiral_builder\test1\bin\Release\net9.0\win-x6.. │
00:00:31 verbose #424 > > │ ..execute_with_options / file_name: dotnet / arguments: ["publish", │
00:00:31 verbose #425 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj", │
00:00:31 verbose #426 > > │ "--configuration", "Release", "--output", "dist", "--runtime", "linux-x64"] │
00:00:31 verbose #427 > > │ / options: (None, "dotnet publish │
00:00:31 verbose #428 > > │ "c:/home/git/polyglot/target/spiral_builder/test1/test1.fsproj" │
00:00:31 verbose #429 > > │ --configuration Release --output "dist" --runtime linux-x64", Array(MutCell( │
00:00:31 verbose #430 > > │ [])), None, None, true, │
00:00:31 verbose #431 > > │ Some("\\?\C:\home\git\polyglot\target\spiral_builder\test1")) │
00:00:31 verbose #432 > > │ 00:00:06 verbose #12 > MSBuild version │
00:00:31 verbose #433 > > │ 17.10.0-preview-24101-01+07fd5d51f for .NET │
00:00:31 verbose #434 > > │ 00:00:06 verbose #13 > Determining projects to restore... │
00:00:31 verbose #435 > > │ 00:00:07 verbose #14 > Restored │
00:00:31 verbose #436 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj (in 404 ms). │
00:00:31 verbose #437 > > │ 00:00:07 verbose #15 > │
00:00:31 verbose #438 > > │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
00:00:31 verbose #439 > > │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
00:00:31 verbose #440 > > │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
00:00:31 verbose #441 > > │ .NET. See: https://aka.ms/dotnet-support-policy [ │
00:00:31 verbose #442 > > │ c:\home\git\polyglot\target\spiral_builder\test1\test1.fsproj] │
00:00:31 verbose #443 > > │ 00:00:08 verbose #16 > test1 -> │
00:00:31 verbose #444 > > │ c:\home\git\polyglot\target\spiral_builder\test1\bin\Release\net9.0\linux-x6 │
00:00:31 verbose #445 > > │ 4\test1.dll │
00:00:31 verbose #446 > > │ 00:00:09 verbose #17 > test1 -> │
00:00:31 verbose #447 > > │ \\?\C:\home\git\polyglot\target\spiral_builder\test1\dist\ │
00:00:31 verbose #448 > > │ 00:00:09 verbose #18 runtime.execute_with_options / result / │
00:00:31 verbose #449 > > │ exit_code: 0 / std_trace.Length: 689 │
00:00:31 verbose #450 > > │ assert_eq / actual: 0 / expected: 0 │
00:00:31 verbose #451 > > │ │
00:00:31 verbose #452 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #453 > >
00:00:31 verbose #454 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #455 > > //// test
00:00:31 verbose #456 > > ///! rust -d encoding_rs encoding_rs_io regex
00:00:31 verbose #457 > >
00:00:31 verbose #458 > > types ()
00:00:31 verbose #459 > > "1 + a |> ignore"
00:00:31 verbose #460 > > |> build_code None [[]] [[]] None "test2"
00:00:31 verbose #461 > > |> _assert_eq 2
00:00:44 verbose #462 > >
00:00:44 verbose #463 > > ╭─[ 13.02s - return value ]────────────────────────────────────────────────────╮
00:00:44 verbose #464 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:00:44 verbose #465 > > │ c:\home\git\polyglot\target/spiral_builder\test2 │
00:00:44 verbose #466 > > │ 00:00:00 debug #2 build_project / full_path: │
00:00:44 verbose #467 > > │ \\?\C:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj │
00:00:44 verbose #468 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:00:44 verbose #469 > > │ arguments: ["publish", │
00:00:44 verbose #470 > > │ "c:/home/git/polyglot/target/spiral_builder/test2/test2.fsproj", │
00:00:44 verbose #471 > > │ "--configuration", "Release", "--output", "dist", "--runtime", "win-x64"] / │
00:00:44 verbose #472 > > │ options: (None, "dotnet publish │
00:00:44 verbose #473 > > │ "c:/home/git/polyglot/target/spiral_builder/test2/test2.fsproj" │
00:00:44 verbose #474 > > │ --configuration Release --output "dist" --runtime win-x64", Array(MutCell([ │
00:00:44 verbose #475 > > │ ])), None, None, true, │
00:00:44 verbose #476 > > │ Some("\\?\C:\home\git\polyglot\target\spiral_builder\test2")) │
00:00:44 verbose #477 > > │ 00:00:00 verbose #4 > MSBuild version │
00:00:44 verbose #478 > > │ 17.10.0-preview-24101-01+07fd5d51f for .NET │
00:00:44 verbose #479 > > │ 00:00:00 verbose #5 > Determining projects to restore... │
00:00:44 verbose #480 > > │ 00:00:01 verbose #6 > Restored │
00:00:44 verbose #481 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj (in 359 ms). │
00:00:44 verbose #482 > > │ 00:00:01 verbose #7 > │
00:00:44 verbose #483 > > │ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
00:00:44 verbose #484 > > │ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
00:00:44 verbose #485 > > │ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
00:00:44 verbose #486 > > │ .NET. See: https://aka.ms/dotnet-support-policy [ │
00:00:44 verbose #487 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj] │
00:00:44 verbose #488 > > │ 00:00:03 verbose #8 > │
00:00:44 verbose #489 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fs(1,5): error │
00:00:44 verbose #490 > > │ FS0039: The val...or FS0039: The value or constructor 'a' is not defined. [ │
00:00:44 verbose #491 > > │ c:\home\git\polyglot\target\spiral_builder\test2\test2.fsproj] │
00:00:44 verbose #492 > > │ 00:00:07 verbose #16 runtime.execute_with_options / result / │
00:00:44 verbose #493 > > │ exit_code: 1 / std_trace.Length: 707 │
00:00:44 verbose #494 > > │ 00:00:07 critical #17 build_code / code: 1 + a |> ignore / │
00:00:44 verbose #495 > > │ fsproj_text: <Project Sdk="Microsoft.NET.Sdk"> │
00:00:44 verbose #496 > > │ <PropertyGroup> │
00:00:44 verbose #497 > > │ <TargetFramework>net9.0</TargetFramework> │
00:00:44 verbose #498 > > │ <LangVersion>preview</LangVersion> │
00:00:44 verbose #499 > > │ <RollForward>Major</RollForward> │
00:00:44 verbose #500 > > │ <TargetLatestRuntimePatch>true</TargetLatestRuntimePatch> │
00:00:44 verbose #501 > > │ <PublishAot>false</PublishAot> │
00:00:44 verbose #502 > > │ <PublishTrimmed>false</PublishTrimmed> │
00:00:44 verbose #503 > > │ <PublishSingleFile>true</PublishSingleFile> │
00:00:44 verbose #504 > > │ <SelfContained>true</SelfContained> │
00:00:44 verbose #505 > > │ <Version>0.0.1-alpha.1</Version> │
00:00:44 verbose #506 > > │ <OutputType>Exe</OutputType> │
00:00:44 verbose #507 > > │ </PropertyGroup> │
00:00:44 verbose #508 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('FreeBSD'))"> │
00:00:44 verbose #509 > > │ <DefineConstants>_FREEBSD</DefineConstants> │
00:00:44 verbose #510 > > │ </PropertyGroup> │
00:00:44 verbose #511 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Linux'))"> │
00:00:44 verbose #512 > > │ <DefineConstants>_LINUX</DefineConstants> │
00:00:44 verbose #513 > > │ </PropertyGroup> │
00:00:44 verbose #514 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('OSX'))"> │
00:00:44 verbose #515 > > │ <DefineConstants>_OSX</DefineConstants> │
00:00:44 verbose #516 > > │ </PropertyGroup> │
00:00:44 verbose #517 > > │ <PropertyGroup Condition="$([MSBuild]::IsOSPlatform('Windows'))"> │
00:00:44 verbose #518 > > │ <DefineConstants>_WINDOWS</DefineConstants> │
00:00:44 verbose #519 > > │ </PropertyGroup> │
00:00:44 verbose #520 > > │ <ItemGroup> │
00:00:44 verbose #521 > > │ │
00:00:44 verbose #522 > > │ <Compile │
00:00:44 verbose #523 > > │ Include="c:/home/git/polyglot/target/spiral_builder/test2/test2.fs" /> │
00:00:44 verbose #524 > > │ </ItemGroup> │
00:00:44 verbose #525 > > │ <ItemGroup> │
00:00:44 verbose #526 > > │ │
00:00:44 verbose #527 > > │ </ItemGroup> │
00:00:44 verbose #528 > > │ </Project> │
00:00:44 verbose #529 > > │ assert_eq / actual: 2 / expected: 2 │
00:00:44 verbose #530 > > │ │
00:00:44 verbose #531 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #532 > >
00:00:44 verbose #533 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #534 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #535 > > │ ### read_file │
00:00:44 verbose #536 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #537 > >
00:00:44 verbose #538 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #539 > > inl read_file path =
00:00:44 verbose #540 > > inl code =
00:00:44 verbose #541 > > path
00:00:44 verbose #542 > > |> file_system.read_all_text
00:00:44 verbose #543 > > |> sm'.replace_regex $'@@"(?P<a> *)(?P<b>let\\s+main\\s+.*?\\s*=)"'
00:00:44 verbose #544 > > "$a[[<EntryPoint>]]\n$a$b"
00:00:44 verbose #545 > >
00:00:44 verbose #546 > > inl code_trim = code |> sm'.trim_end ;[[]]
00:00:44 verbose #547 > > if code_trim |> sm'.ends_with "\\n()"
00:00:44 verbose #548 > > then code_trim |> sm'.slice 0i64 ((code_trim |> sm'.length) - 3)
00:00:44 verbose #549 > > else code
00:00:44 verbose #550 > >
00:00:44 verbose #551 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #552 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #553 > > │ ### persist_file │
00:00:44 verbose #554 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #555 > >
00:00:44 verbose #556 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #557 > > inl persist_file packages modules path =
00:00:44 verbose #558 > > inl full_path = path |> file_system.get_full_path
00:00:44 verbose #559 > > inl name = full_path |> file_system.get_file_name_without_extension
00:00:44 verbose #560 > > inl code = full_path |> read_file
00:00:44 verbose #561 > > code |> persist_code_project packages modules name None
00:00:44 verbose #562 > >
00:00:44 verbose #563 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #564 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #565 > > │ ### build_file │
00:00:44 verbose #566 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #567 > >
00:00:44 verbose #568 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #569 > > inl build_file runtime packages modules path =
00:00:44 verbose #570 > > inl full_path = path |> file_system.get_full_path
00:00:44 verbose #571 > > inl dir = full_path |> file_system.get_directory_name
00:00:44 verbose #572 > > inl name = full_path |> file_system.get_file_name_without_extension
00:00:44 verbose #573 > > inl code = full_path |> read_file
00:00:44 verbose #574 > > code |> build_code runtime packages modules (dir </> "dist" |> Some) name
00:00:44 verbose #575 > >
00:00:44 verbose #576 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #577 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #578 > > │ ## rust │
00:00:44 verbose #579 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #580 > >
00:00:44 verbose #581 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #582 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #583 > > │ ### get_workspace_cargo_toml_content │
00:00:44 verbose #584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #585 > >
00:00:44 verbose #586 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #587 > > inl get_workspace_cargo_toml_content { workspace_root } : string =
00:00:44 verbose #588 > > inl workspace_root = workspace_root |> file_system.normalize_path
00:00:44 verbose #589 > > $'$"[[workspace]]"'
00:00:44 verbose #590 > > +#. $'$"resolver = \\\"2\\\""'
00:00:44 verbose #591 > > +#. $'$"members = [[\\\"packages/*\\\"]]"'
00:00:44 verbose #592 > > +#. $'$""'
00:00:44 verbose #593 > > +#. $'$"[[workspace.dependencies.fable_library_rust]]"'
00:00:44 verbose #594 > > +#. $'$"path =
00:00:44 verbose #595 > > \\\"{!workspace_root}/lib/rust/fable/fable_modules/fable-library-rust\\\""'
00:00:44 verbose #596 > > +#. $'$"default-features = false"'
00:00:44 verbose #597 > > +#. $'$"features = [[\\\"static_do_bindings\\\", \\\"datetime\\\",
00:00:44 verbose #598 > > \\\"guid\\\", \\\"threaded\\\"]]"'
00:00:44 verbose #599 > > +#. $'$""'
00:00:44 verbose #600 > > +#. $'$"[[workspace.dependencies]]"'
00:00:44 verbose #601 > > +#. $'$"inline_colorization = \\\"~0.1\\\""'
00:00:44 verbose #602 > >
00:00:44 verbose #603 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #604 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #605 > > │ ### get_cargo_toml_content │
00:00:44 verbose #606 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #607 > >
00:00:44 verbose #608 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #609 > > inl get_cargo_toml_content { hash_hex deps } : string =
00:00:44 verbose #610 > > $'$"[[package]]"'
00:00:44 verbose #611 > > +#. $'$"name = \\\"spiral_builder_{!hash_hex}\\\""'
00:00:44 verbose #612 > > +#. $'$"version = \\\"0.0.1\\\""'
00:00:44 verbose #613 > > +#. $'$"edition = \\\"2021\\\""'
00:00:44 verbose #614 > > +#. $'$""'
00:00:44 verbose #615 > > +#. $'$"[[dependencies]]"'
00:00:44 verbose #616 > > +#. $'$"fable_library_rust = {{ workspace = true }}"'
00:00:44 verbose #617 > > +#. $'$"inline_colorization = {{ workspace = true }}"'
00:00:44 verbose #618 > > +#. $'$"{!deps}"'
00:00:44 verbose #619 > > +#. $'$""'
00:00:44 verbose #620 > > +#. $'$"[[[[bin]]]]"'
00:00:44 verbose #621 > > +#. $'$"name = \\\"spiral_builder_{!hash_hex}\\\""'
00:00:44 verbose #622 > > +#. $'$"path = \\\"spiral_builder.rs\\\" "'
00:00:44 verbose #623 > >
00:00:44 verbose #624 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:44 verbose #625 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:44 verbose #626 > > │ ### process_rust │
00:00:44 verbose #627 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:44 verbose #628 > >
00:00:44 verbose #629 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:44 verbose #630 > > inl process_rust { fs_path deps trace_level } =
00:00:44 verbose #631 > > inl is_trace = trace_level = Verbose
00:00:44 verbose #632 > > inl _trace (fn : () -> string) =
00:00:44 verbose #633 > > if is_trace
00:00:44 verbose #634 > > then trace Info (fun () => $'$"spiral_builder.process_rust / {!fn ()}"')
00:00:44 verbose #635 > > _locals
00:00:44 verbose #636 > > else fn () |> console.write_line
00:00:44 verbose #637 > >
00:00:44 verbose #638 > > inl extension = "rs"
00:00:44 verbose #639 > > inl code = fs_path |> file_system.read_all_text
00:00:44 verbose #640 > >
00:00:44 verbose #641 > > inl hash_hex = (extension, code) |> sm'.format_debug |> crypto.hash_text
00:00:44 verbose #642 > >
00:00:44 verbose #643 > > inl workspace_name = "spiral_builder"
00:00:44 verbose #644 > >
00:00:44 verbose #645 > > inl fsproj_path =
00:00:44 verbose #646 > > code
00:00:44 verbose #647 > > |> persist_code_project
00:00:44 verbose #648 > > [[ "Fable.Core" ]]
00:00:44 verbose #649 > > [[]]
00:00:44 verbose #650 > > workspace_name
00:00:44 verbose #651 > > (hash_hex |> Some)
00:00:44 verbose #652 > >
00:00:44 verbose #653 > > inl package_dir = fsproj_path |> file_system.get_directory_name
00:00:44 verbose #654 > >
00:00:44 verbose #655 > > inl cargo_toml_path = package_dir </> "Cargo.toml"
00:00:44 verbose #656 > >
00:00:44 verbose #657 > > inl workspace_dir = package_dir </> "../.."
00:00:44 verbose #658 > > inl workspace_cargo_toml_path = workspace_dir </> "Cargo.toml"
00:00:44 verbose #659 > >
00:00:44 verbose #660 > > inl empty_cargo_toml_content () =
00:00:44 verbose #661 > > inl guid = date_time.now () |> date_time.new_guid_from_date_time |>
00:00:44 verbose #662 > > sm'.obj_to_string
00:00:44 verbose #663 > > $'$"[[package]]"'
00:00:44 verbose #664 > > +#. $'$"name = \\\"spiral_builder_{!guid}\\\""'
00:00:44 verbose #665 > > +#. $'$"version = \\\"0.0.1\\\""'
00:00:44 verbose #666 > > +#. $'$"edition = \\\"2021\\\""'
00:00:44 verbose #667 > > +#. $'$""'
00:00:44 verbose #668 > > +#. $'$"[[[[bin]]]]"'
00:00:44 verbose #669 > > +#. $'$"name = \\\"spiral_builder_{!guid}\\\""'
00:00:44 verbose #670 > > +#. $'$"path = \\\"spiral_builder.{!extension}\\\""'
00:00:44 verbose #671 > >
00:00:44 verbose #672 > > if cargo_toml_path |> file_system.file_exists |> not
00:00:44 verbose #673 > > then empty_cargo_toml_content () |> file_system.write_all_text
00:00:44 verbose #674 > > cargo_toml_path
00:00:44 verbose #675 > >
00:00:44 verbose #676 > > if workspace_cargo_toml_path |> file_system.file_exists |> not
00:00:44 verbose #677 > > then empty_cargo_toml_content () |> file_system.write_all_text
00:00:44 verbose #678 > > workspace_cargo_toml_path
00:00:44 verbose #679 > >
00:00:44 verbose #680 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:00:44 verbose #681 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:00:44 verbose #682 > > resultm.unwrap_or_else id
00:00:44 verbose #683 > >
00:00:44 verbose #684 > > inl lib_link_target_path = workspace_root </>
00:00:44 verbose #685 > > "lib/rust/fable/fable_modules/fable-library-rust"
00:00:44 verbose #686 > > inl lib_link_path = package_dir </> "fable_modules/fable-library-rust"
00:00:44 verbose #687 > >
00:00:44 verbose #688 > > lib_link_path |> file_system.link_directory lib_link_target_path
00:00:44 verbose #689 > >
00:00:44 verbose #690 > > inl exit_code, dotnet_fable_result =
00:00:44 verbose #691 > > execute_dotnet_fable { workspace_root_external fsproj_path extension
00:00:44 verbose #692 > > package_dir }
00:00:44 verbose #693 > >
00:00:44 verbose #694 > > if exit_code <>. 0 then
00:00:44 verbose #695 > > trace Critical
00:00:44 verbose #696 > > fun () => "spiral_builder.process_rust / dotnet fable error"
00:00:44 verbose #697 > > fun () => $'$"exit_code: {!exit_code} / dotnet_fable_result:
00:00:44 verbose #698 > > {!dotnet_fable_result} / {!_locals ()}"'
00:00:44 verbose #699 > > { extension = Some extension; code = None; output = Some
00:00:44 verbose #700 > > dotnet_fable_result }
00:00:44 verbose #701 > > else
00:00:44 verbose #702 > > inl deps =
00:00:44 verbose #703 > > deps
00:00:44 verbose #704 > > |> am'.vec_map fun dep =>
00:00:44 verbose #705 > > inl dep = dep |> sm'.from_std_string
00:00:44 verbose #706 > > if dep |> sm'.contains "="
00:00:44 verbose #707 > > then dep
00:00:44 verbose #708 > > elif dep |> sm'.ends_with "]]"
00:00:44 verbose #709 > > then dep |> sm'.replace "[[" $'$"={{version=\'*\',features=[["'
00:00:44 verbose #710 > > |> fun x => $'$"{!x}}}"'
00:00:44 verbose #711 > > else $'$"{!dep}=\'*\'"'
00:00:44 verbose #712 > > |> am'.from_vec
00:00:44 verbose #713 > > |> fun x => x : _ i32 _
00:00:44 verbose #714 > > |> seq.of_array'
00:00:44 verbose #715 > > |> sm'.concat "\n"
00:00:44 verbose #716 > >
00:00:44 verbose #717 > > inl cargo_toml_content = get_cargo_toml_content { hash_hex deps }
00:00:44 verbose #718 > > inl workspace_cargo_toml_content = get_workspace_cargo_toml_content {
00:00:44 verbose #719 > > workspace_root }
00:00:44 verbose #720 > >
00:00:44 verbose #721 > > cargo_toml_content |> file_system.write_all_text_exists' cargo_toml_path
00:00:44 verbose #722 > >
00:00:44 verbose #723 > > workspace_cargo_toml_content |> file_system.write_all_text_exists'
00:00:44 verbose #724 > > workspace_cargo_toml_path
00:00:44 verbose #725 > >
00:00:44 verbose #726 > > inl range_rs_path = lib_link_path </> "src/Range.rs"
00:00:44 verbose #727 > > if range_rs_path |> file_system.file_exists then
00:00:44 verbose #728 > > inl text = range_rs_path |> file_system.read_all_text
00:00:44 verbose #729 > > text
00:00:44 verbose #730 > > |> sm'.replace "use crate::String_::fromCharCode;" "use
00:00:44 verbose #731 > > crate::String_::fromChar;"
00:00:44 verbose #732 > > |> sm'.replace "fromCharCode(c)" "std::char::from_u32(c).unwrap()"
00:00:44 verbose #733 > > |> file_system.write_all_text_exists' range_rs_path
00:00:44 verbose #734 > >
00:00:44 verbose #735 > > inl exit_code, cargo_fmt_result =
00:00:44 verbose #736 > > fun () =>
00:00:44 verbose #737 > > inl exit_code, result =
00:00:44 verbose #738 > > runtime.execution_options fun x => { x with
00:00:44 verbose #739 > > command = $'$"cargo fmt --manifest-path
00:00:44 verbose #740 > > \\\"{!cargo_toml_path}\\\" --"'
00:00:44 verbose #741 > > working_directory = workspace_root_external |>
00:00:44 verbose #742 > > resultm.box |> resultm.ok'
00:00:44 verbose #743 > > }
00:00:44 verbose #744 > > |> runtime.execute_with_options
00:00:44 verbose #745 > >
00:00:44 verbose #746 > > inl return () =
00:00:44 verbose #747 > > if exit_code = 0
00:00:44 verbose #748 > > then Ok (exit_code, result)
00:00:44 verbose #749 > > else Error (exit_code, result)
00:00:44 verbose #750 > >
00:00:44 verbose #751 > > if result |> sm'.contains "failed to load manifest for workspace
00:00:44 verbose #752 > > member" |> not
00:00:44 verbose #753 > > then return ()
00:00:44 verbose #754 > > else
00:00:44 verbose #755 > > inl missing_toml_path =
00:00:44 verbose #756 > > "failed to read `(?<a>.*?Cargo.toml)`"
00:00:44 verbose #757 > > |> sm'.new_regex
00:00:44 verbose #758 > > |> resultm.unwrap'
00:00:44 verbose #759 > > |> sm'.regex_captures result
00:00:44 verbose #760 > > |> am'.from_vec
00:00:44 verbose #761 > > |> fun x => x : _ i32 _
00:00:44 verbose #762 > > |> am'.try_item 0
00:00:44 verbose #763 > > |> optionm.map (mapm.get "a" >> optionm'.unbox)
00:00:44 verbose #764 > > |> optionm'.flatten
00:00:44 verbose #765 > >
00:00:44 verbose #766 > > match missing_toml_path with
00:00:44 verbose #767 > > | None => Error (exit_code, result)
00:00:44 verbose #768 > > | Some missing_toml_path =>
00:00:44 verbose #769 > > if missing_toml_path |> file_system.file_exists |> not
00:00:44 verbose #770 > > then
00:00:44 verbose #771 > > missing_toml_path
00:00:44 verbose #772 > > |> file_system.get_directory_name
00:00:44 verbose #773 > > |> file_system.create_dir
00:00:44 verbose #774 > > |> ignore
00:00:44 verbose #775 > >
00:00:44 verbose #776 > > empty_cargo_toml_content ()
00:00:44 verbose #777 > > |> file_system.write_all_text missing_toml_path
00:00:44 verbose #778 > > return ()
00:00:44 verbose #779 > > |> retry_fn' 3u8
00:00:44 verbose #780 > >
00:00:44 verbose #781 > > if exit_code <>. 0 then
00:00:44 verbose #782 > > trace Critical
00:00:44 verbose #783 > > fun () => "spiral_builder.process_rust / cargo fmt error"
00:00:44 verbose #784 > > fun () => $'$"exit_code: {!exit_code} / cargo_fmt_result:
00:00:44 verbose #785 > > {!cargo_fmt_result} / {!_locals ()}"'
00:00:44 verbose #786 > >
00:00:44 verbose #787 > > inl new_code_path = package_dir </> $'$"{!workspace_name}.{!extension}"'
00:00:44 verbose #788 > > inl new_code = new_code_path |> file_system.read_all_text
00:00:44 verbose #789 > >
00:00:44 verbose #790 > > inl main_code_header =
00:00:44 verbose #791 > > "pub fn main() -> Result<(), String> " +. !\($'"\\\"{\\\".into()"')
00:00:44 verbose #792 > > inl main_code = $'$"{!main_code_header} Ok(()) }}"' : string
00:00:44 verbose #793 > >
00:00:44 verbose #794 > > inl cached = new_code |> sm'.contains main_code_header
00:00:44 verbose #795 > >
00:00:44 verbose #796 > > inl new_code =
00:00:44 verbose #797 > > if cached
00:00:44 verbose #798 > > then new_code
00:00:44 verbose #799 > > else
00:00:44 verbose #800 > > new_code
00:00:44 verbose #801 > > |> sm'.replace
00:00:44 verbose #802 > > ("),)" +. !\($'"\\\";\\\".into()"'))
00:00:44 verbose #803 > > "));"
00:00:44 verbose #804 > > |> sm'.replace
00:00:44 verbose #805 > > ("},)" +. !\($'"\\\";\\\".into()"'))
00:00:44 verbose #806 > > "});"
00:00:44 verbose #807 > > |> sm'.replace_regex
00:00:44 verbose #808 > > "\\s\\sdefaultOf\\(\\);"
00:00:44 verbose #809 > > " defaultOf::<()>();"
00:00:44 verbose #810 > > |> sm'.replace
00:00:44 verbose #811 > > ("defaultOf()" +. !\($'"\\\",\\\".into()"'))
00:00:44 verbose #812 > > "defaultOf::<std::sync::Arc<dyn IDisposable>>(),"
00:00:44 verbose #813 > > |> sm'.replace
00:00:44 verbose #814 > > ("_self" +. !\($'"\\\"_.\\\".into()"'))
00:00:44 verbose #815 > > "self."
00:00:44 verbose #816 > > |> sm'.replace
00:00:44 verbose #817 > > ("get_or_insert_wit" +. !\($'"\\\"h\\\".into()"'))
00:00:44 verbose #818 > > "get_or_init"
00:00:44 verbose #819 > > |> sm'.replace
00:00:44 verbose #820 > > ("use
00:00:44 verbose #821 > > fable_library_rust::System::Collections::Concurrent::ConcurrentStack_1" +.
00:00:44 verbose #822 > > !\($'"\\\";\\\".into()"'))
00:00:44 verbose #823 > > "type ConcurrentStack_1<T> = T;"
00:00:44 verbose #824 > > |> sm'.replace
00:00:44 verbose #825 > > ("use
00:00:44 verbose #826 > > fable_library_rust::System::Threading::CancellationToken" +.
00:00:44 verbose #827 > > !\($'"\\\";\\\".into()"'))
00:00:44 verbose #828 > > "type CancellationToken = ();"
00:00:44 verbose #829 > > |> sm'.replace
00:00:44 verbose #830 > > ("use fable_library_rust::System::TimeZoneInfo" +.
00:00:44 verbose #831 > > !\($'"\\\";\\\".into()"'))
00:00:44 verbose #832 > > "type TimeZoneInfo = i64;"
00:00:44 verbose #833 > > |> sm'.replace
00:00:44 verbose #834 > > ("use
00:00:44 verbose #835 > > fable_library_rust::System::Threading::Tasks::TaskCanceledException" +.
00:00:44 verbose #836 > > !\($'"\\\";\\\".into()"'))
00:00:44 verbose #837 > > "type TaskCanceledException = ();"
00:00:44 verbose #838 > >
00:00:44 verbose #839 > > if not cached
00:00:44 verbose #840 > > then
00:00:44 verbose #841 > > $'$"{!new_code}\\n\\n{!main_code}\\n"'
00:00:44 verbose #842 > > |> file_system.write_all_text_exists' new_code_path
00:00:44 verbose #843 > >
00:00:44 verbose #844 > > inl command = $'$"cargo +nightly run --manifest-path
00:00:44 verbose #845 > > \\\"{!cargo_toml_path}\\\""'
00:00:44 verbose #846 > > inl environment_variables =
00:00:44 verbose #847 > > inl fast = false
00:00:44 verbose #848 > > ;[[
00:00:44 verbose #849 > > "TRACE_LEVEL", "Verbose"
00:00:44 verbose #850 > > "RUSTC_WRAPPER", "sccache"
00:00:44 verbose #851 > > "RUSTFLAGS",
00:00:44 verbose #852 > > if fast
00:00:44 verbose #853 > > then "-C prefer-dynamic -C strip=symbols -C link-arg=-s -C
00:00:44 verbose #854 > > debuginfo=0"
00:00:44 verbose #855 > > else "-C prefer-dynamic"
00:00:44 verbose #856 > > ]]
00:00:44 verbose #857 > > inl exit_code, cargo_run_result =
00:00:44 verbose #858 > > runtime.execution_options fun x => { x with
00:00:44 verbose #859 > > command
00:00:44 verbose #860 > > environment_variables
00:00:44 verbose #861 > > working_directory = workspace_root_external |> resultm.box |>
00:00:44 verbose #862 > > resultm.ok'
00:00:44 verbose #863 > > }
00:00:44 verbose #864 > > |> runtime.execute_with_options
00:00:44 verbose #865 > >
00:00:44 verbose #866 > > inl cleanup =
00:00:44 verbose #867 > > [[ ".d"; ".exe"; ".pdb"; "" ]]
00:00:44 verbose #868 > > |> listm.map fun ext => workspace_dir </>
00:00:44 verbose #869 > > $'$"target/debug/spiral_builder_{!hash_hex}{!ext}"'
00:00:44 verbose #870 > > |> listm.map fun path => path, path |> file_system.file_exists
00:00:44 verbose #871 > >
00:00:44 verbose #872 > > trace Verbose
00:00:44 verbose #873 > > fun () => "spiral_builder.process_rust"
00:00:44 verbose #874 > > fun () => $'$"new_code_path: {!new_code_path} / cleanup:
00:00:44 verbose #875 > > %A{!cleanup} / {!_locals ()}"'
00:00:44 verbose #876 > >
00:00:44 verbose #877 > > cleanup
00:00:44 verbose #878 > > |> listm'.filter snd
00:00:44 verbose #879 > > |> listm.iter (fst >> file_system.file_delete)
00:00:44 verbose #880 > >
00:00:44 verbose #881 > > inl external_command =
00:00:44 verbose #882 > > inl vars =
00:00:44 verbose #883 > > a environment_variables
00:00:44 verbose #884 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:00:44 verbose #885 > > |> fun x => x : _ i32 _
00:00:44 verbose #886 > > |> seq.of_array
00:00:44 verbose #887 > > |> sm'.concat ";"
00:00:44 verbose #888 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:00:44 verbose #889 > > if exit_code = 0 then
00:00:44 verbose #890 > > inl output =
00:00:44 verbose #891 > > try
00:00:44 verbose #892 > > fun () =>
00:00:44 verbose #893 > > cargo_run_result
00:00:44 verbose #894 > > |> sm'.split "\n"
00:00:44 verbose #895 > > |> fun x => a x : _ i32 _
00:00:44 verbose #896 > > |> am'.skip_while fun line =>
00:00:44 verbose #897 > > (line |> sm'.contains "profile [[optimized]] target"
00:00:44 verbose #898 > > |> not)
00:00:44 verbose #899 > > && (line |> sm'.contains "profile
00:00:44 verbose #900 > > [[unoptimized]] target" |> not)
00:00:44 verbose #901 > > && (line |> sm'.contains "profile [[unoptimized
00:00:44 verbose #902 > > + debuginfo]] target" |> not)
00:00:44 verbose #903 > > |> am'.skip 2
00:00:44 verbose #904 > > |> seq.of_array
00:00:44 verbose #905 > > |> sm'.concat "\n"
00:00:44 verbose #906 > > fun ex =>
00:00:44 verbose #907 > > trace Critical
00:00:44 verbose #908 > > fun () => "spiral_builder.process_rust / Exception"
00:00:44 verbose #909 > > fun () => $'$"ex: {!ex} / new_code_path:
00:00:44 verbose #910 > > {!new_code_path} / external_command: {!external_command} / cargo_run_result:
00:00:44 verbose #911 > > {!cargo_run_result} / {!_locals ()}"'
00:00:44 verbose #912 > > None
00:00:44 verbose #913 > > |> optionm'.box
00:00:44 verbose #914 > > |> optionm'.unwrap
00:00:44 verbose #915 > >
00:00:44 verbose #916 > > { extension = Some extension; code = Some new_code; output = Some
00:00:44 verbose #917 > > output }
00:00:44 verbose #918 > > else
00:00:44 verbose #919 > > trace Critical
00:00:44 verbose #920 > > fun () => "spiral_builder.process_rust / error"
00:00:44 verbose #921 > > fun () => $'$"exit_code: {!exit_code} / new_code_path:
00:00:44 verbose #922 > > {!new_code_path} / external_command: {!external_command} / cargo_run_result:
00:00:44 verbose #923 > > {!cargo_run_result}"'
00:00:44 verbose #924 > > { extension = Some extension; code = None; output = None }
00:00:46 verbose #925 > 00:00:45 debug #4 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/5342955f28e63d209bd238c340e2c12a087828425f809b80074420c680037046/main.spi
00:00:49 verbose #926 > >
00:00:49 verbose #927 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 verbose #928 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 verbose #929 > > │ ## dib │
00:00:49 verbose #930 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 verbose #931 > >
00:00:49 verbose #932 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 verbose #933 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 verbose #934 > > │ ### process_dib │
00:00:49 verbose #935 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 verbose #936 > >
00:00:49 verbose #937 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:49 verbose #938 > > inl process_dib { path retries working_directory } =
00:00:49 verbose #939 > > inl exit_code, repl_result =
00:00:49 verbose #940 > > let rec loop retry =
00:00:49 verbose #941 > > inl exit_code, repl_result =
00:00:49 verbose #942 > > runtime.execution_options fun x => { x with
00:00:49 verbose #943 > > command = $'$"dotnet repl --exit-after-run --run
00:00:49 verbose #944 > > \\\"{!path}\\\" --output-path \\\"{!path}.ipynb\\\""'
00:00:49 verbose #945 > > environment_variables = ;[[
00:00:49 verbose #946 > > "TRACE_LEVEL", "Verbose"
00:00:49 verbose #947 > > "AUTOMATION", "True"
00:00:49 verbose #948 > > ]]
00:00:49 verbose #949 > > trace = false
00:00:49 verbose #950 > > working_directory
00:00:49 verbose #951 > > }
00:00:49 verbose #952 > > |> runtime.execute_with_options
00:00:49 verbose #953 > >
00:00:49 verbose #954 > > if exit_code = 0 || retry >= retries
00:00:49 verbose #955 > > then exit_code, repl_result
00:00:49 verbose #956 > > else
00:00:49 verbose #957 > > trace Debug
00:00:49 verbose #958 > > fun () => $'"spiral_builder.run / repl error"'
00:00:49 verbose #959 > > fun () => $'$"exit_code: {!exit_code} / retry:
00:00:49 verbose #960 > > {!retry}/{!retries} / repl_result: {!repl_result} / {!_locals ()}"'
00:00:49 verbose #961 > > loop (retry + 1)
00:00:49 verbose #962 > > loop 1
00:00:49 verbose #963 > >
00:00:49 verbose #964 > > inl exit_code, result =
00:00:49 verbose #965 > > if exit_code <>. 0
00:00:49 verbose #966 > > then exit_code, repl_result
00:00:49 verbose #967 > > else
00:00:49 verbose #968 > > inl exit_code, jupyter_result =
00:00:49 verbose #969 > > runtime.execution_options fun x => { x with
00:00:49 verbose #970 > > command = $'$"jupyter nbconvert \\\"{!path}.ipynb\\\" --to
00:00:49 verbose #971 > > html --HTMLExporter.theme=dark"'
00:00:49 verbose #972 > > }
00:00:49 verbose #973 > > |> runtime.execute_with_options
00:00:49 verbose #974 > >
00:00:49 verbose #975 > > trace Debug
00:00:49 verbose #976 > > fun () => $'"spiral_builder.run / dib / jupyter nbconvert"'
00:00:49 verbose #977 > > fun () => $'$"exit_code: {!exit_code} / jupyter_result.Length:
00:00:49 verbose #978 > > {!jupyter_result.Length} / {!_locals ()}"'
00:00:49 verbose #979 > >
00:00:49 verbose #980 > > if exit_code <>. 0
00:00:49 verbose #981 > > then exit_code, $'$"repl_result: {!repl_result}\n\njupyter_result:
00:00:49 verbose #982 > > {!jupyter_result}"'
00:00:49 verbose #983 > > else
00:00:49 verbose #984 > > inl exit_code, pwsh_replace_html_result =
00:00:49 verbose #985 > > inl path = path |> sm'.replace "'" "''"
00:00:49 verbose #986 > > runtime.execution_options fun x => { x with
00:00:49 verbose #987 > > command = $'$"pwsh -c \\\"$counter = 1; $path =
00:00:49 verbose #988 > > \'{!path}.html\'; (Get-Content $path -Raw) -replace
00:00:49 verbose #989 > > \'(id=\\\\\\"cell-id=)[[a-fA-F0-9]]{{8}}\', {{ $_.Groups[[1]].Value + $counter++
00:00:49 verbose #990 > > }} | Set-Content $path\\\""'
00:00:49 verbose #991 > > }
00:00:49 verbose #992 > > |> runtime.execute_with_options
00:00:49 verbose #993 > >
00:00:49 verbose #994 > > trace Debug
00:00:49 verbose #995 > > fun () => $'"spiral_builder.run / dib / html cell ids"'
00:00:49 verbose #996 > > fun () => $'$"exit_code: {!exit_code}
00:00:49 verbose #997 > > pwsh_replace_html_result.Length: {!pwsh_replace_html_result.Length} / {!_locals
00:00:49 verbose #998 > > ()}"'
00:00:49 verbose #999 > >
00:00:49 verbose #1000 > > $'$"{!path}.html"'
00:00:49 verbose #1001 > > |> file_system.read_all_text
00:00:49 verbose #1002 > > |> sm'.replace "\r\n" "\n"
00:00:49 verbose #1003 > > |> file_system.write_all_text $'$"{!path}.html"'
00:00:49 verbose #1004 > >
00:00:49 verbose #1005 > > $'$"{!path}.ipynb"'
00:00:49 verbose #1006 > > |> file_system.read_all_text
00:00:49 verbose #1007 > > |> sm'.replace "\\r\\n" "\\n"
00:00:49 verbose #1008 > > |> file_system.write_all_text $'$"{!path}.ipynb"'
00:00:49 verbose #1009 > >
00:00:49 verbose #1010 > > exit_code, $'$"repl_result: {!repl_result}\n\njupyter_result:
00:00:49 verbose #1011 > > {!jupyter_result}\n\npwsh_replace_html_result: {!pwsh_replace_html_result}"'
00:00:49 verbose #1012 > >
00:00:49 verbose #1013 > > trace Debug
00:00:49 verbose #1014 > > fun () => $'"spiral_builder.run / dib"'
00:00:49 verbose #1015 > > fun () => $'$"exit_code: {!exit_code} / result.Length: {!result.Length}
00:00:49 verbose #1016 > > / {!_locals ()}"'
00:00:49 verbose #1017 > >
00:00:49 verbose #1018 > > if exit_code <>. 0
00:00:49 verbose #1019 > > then failwith $'$"spiral_builder.run / dib / exit_code: {!exit_code}
00:00:49 verbose #1020 > > result: {!result} / {!_locals ()}"'
00:00:49 verbose #1021 > > ;[[
00:00:49 verbose #1022 > > "stdio",
00:00:49 verbose #1023 > > result
00:00:49 verbose #1024 > > ]]
00:00:50 verbose #1025 > 00:00:49 debug #5 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/49ebc438f86a553aae31b3a384efa76e26d223741fce14e6b14e660cba95c4f7/main.spi
00:00:50 verbose #1026 > >
00:00:50 verbose #1027 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 verbose #1028 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 verbose #1029 > > │ ## typescript │
00:00:50 verbose #1030 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 verbose #1031 > >
00:00:50 verbose #1032 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 verbose #1033 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 verbose #1034 > > │ ### process_typescript │
00:00:50 verbose #1035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 verbose #1036 > >
00:00:50 verbose #1037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #1038 > > inl process_typescript { fs_path deps trace_level } =
00:00:50 verbose #1039 > > inl extension = "ts"
00:00:50 verbose #1040 > > inl is_trace = trace_level = Verbose
00:00:50 verbose #1041 > > inl _trace (fn : () -> string) =
00:00:50 verbose #1042 > > if is_trace
00:00:50 verbose #1043 > > then trace Info (fun () => $'$"spiral_builder.process_typescript / {!fn
00:00:50 verbose #1044 > > ()}"') _locals
00:00:50 verbose #1045 > > else fn () |> console.write_line
00:00:50 verbose #1046 > >
00:00:50 verbose #1047 > > inl code = fs_path |> file_system.read_all_text
00:00:50 verbose #1048 > >
00:00:50 verbose #1049 > > inl hash_hex = (extension, code) |> sm'.format_debug |> crypto.hash_text
00:00:50 verbose #1050 > >
00:00:50 verbose #1051 > > inl workspace_name = "spiral_builder"
00:00:50 verbose #1052 > >
00:00:50 verbose #1053 > > inl fsproj_path =
00:00:50 verbose #1054 > > code
00:00:50 verbose #1055 > > |> persist_code_project
00:00:50 verbose #1056 > > [[ "Fable.Core" ]]
00:00:50 verbose #1057 > > [[]]
00:00:50 verbose #1058 > > workspace_name
00:00:50 verbose #1059 > > (hash_hex |> Some)
00:00:50 verbose #1060 > >
00:00:50 verbose #1061 > > inl package_dir = fsproj_path |> file_system.get_directory_name
00:00:50 verbose #1062 > >
00:00:50 verbose #1063 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:00:50 verbose #1064 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:00:50 verbose #1065 > > resultm.unwrap_or_else id
00:00:50 verbose #1066 > >
00:00:50 verbose #1067 > > inl lib_path = workspace_root </> "lib/typescript/fable/fable_modules"
00:00:50 verbose #1068 > >
00:00:50 verbose #1069 > > inl versions =
00:00:50 verbose #1070 > > lib_path
00:00:50 verbose #1071 > > |> file_system.new_walk_dir
00:00:50 verbose #1072 > > |> file_system.walk_dir_filter fun entry => async.future_init_send (2,
00:00:50 verbose #1073 > > 1) 1 fun () =>
00:00:50 verbose #1074 > > entry
00:00:50 verbose #1075 > > |> file_system.dir_entry_file_type
00:00:50 verbose #1076 > > |> async.await_send
00:00:50 verbose #1077 > > |> resultm.map_error' sm'.format'
00:00:50 verbose #1078 > > |> resultm.unbox
00:00:50 verbose #1079 > > |> function
00:00:50 verbose #1080 > > | Ok file_type when file_type |> file_system.file_type_is_dir |>
00:00:50 verbose #1081 > > not => file_system.Ignore
00:00:50 verbose #1082 > > | _ => file_system.Continue
00:00:50 verbose #1083 > > |> file_system.stream_filter_map fun entry =>
00:00:50 verbose #1084 > > inl entry = entry |> resultm.map_error' sm'.format' |> resultm.unbox
00:00:50 verbose #1085 > > match entry with
00:00:50 verbose #1086 > > | Ok entry =>
00:00:50 verbose #1087 > > inl path =
00:00:50 verbose #1088 > > entry
00:00:50 verbose #1089 > > |> file_system.dir_entry_path
00:00:50 verbose #1090 > > |> file_system.path_buf_display
00:00:50 verbose #1091 > > |> sm'.format'
00:00:50 verbose #1092 > > |> sm'.from_std_string
00:00:50 verbose #1093 > > inl version =
00:00:50 verbose #1094 > > $'$"fable-library-{!extension}\\.(?<a>[[\\d.]]+)$"'
00:00:50 verbose #1095 > > |> sm'.new_regex
00:00:50 verbose #1096 > > |> resultm.unwrap'
00:00:50 verbose #1097 > > |> sm'.regex_captures path
00:00:50 verbose #1098 > > |> am'.from_vec
00:00:50 verbose #1099 > > |> fun x => x : _ i32 _
00:00:50 verbose #1100 > > |> am'.try_item 0
00:00:50 verbose #1101 > > |> optionm.map (mapm.get "a" >> optionm'.unbox)
00:00:50 verbose #1102 > > |> optionm'.flatten
00:00:50 verbose #1103 > > match version with
00:00:50 verbose #1104 > > | None => None
00:00:50 verbose #1105 > > | Some version => Some (path, version)
00:00:50 verbose #1106 > > | Error error =>
00:00:50 verbose #1107 > > trace Critical
00:00:50 verbose #1108 > > fun () => $'"spiral_builder.process_typescript
00:00:50 verbose #1109 > > stream_filter_map"'
00:00:50 verbose #1110 > > fun () => $'$"error: {!error} / {!_locals ()}"'
00:00:50 verbose #1111 > > None
00:00:50 verbose #1112 > > |> optionm'.box
00:00:50 verbose #1113 > > |> async.into_par_iter
00:00:50 verbose #1114 > > |> async.par_map fun file =>
00:00:50 verbose #1115 > > file
00:00:50 verbose #1116 > > |> async.par_collect
00:00:50 verbose #1117 > >
00:00:50 verbose #1118 > > inl version =
00:00:50 verbose #1119 > > versions
00:00:50 verbose #1120 > > |> am'.from_vec
00:00:50 verbose #1121 > > |> fun x => x : _ i32 _
00:00:50 verbose #1122 > > |> am'.try_item 0
00:00:50 verbose #1123 > >
00:00:50 verbose #1124 > > trace Debug
00:00:50 verbose #1125 > > fun () => $'"spiral_builder.process_typescript"'
00:00:50 verbose #1126 > > fun () =>
00:00:50 verbose #1127 > > inl version = version |> sm'.format_pretty'
00:00:50 verbose #1128 > > $'$"version: {!version} / {!_locals ()}"'
00:00:50 verbose #1129 > >
00:00:50 verbose #1130 > > match version with
00:00:50 verbose #1131 > > | None => ()
00:00:50 verbose #1132 > > | Some (_path, version) =>
00:00:50 verbose #1133 > > inl lib_link_target_path = lib_path </>
00:00:50 verbose #1134 > > $'$"fable-library-{!extension}.{!version}"'
00:00:50 verbose #1135 > > inl lib_link_path = package_dir </>
00:00:50 verbose #1136 > > $'$"fable_modules/fable-library-{!extension}.{!version}"'
00:00:50 verbose #1137 > >
00:00:50 verbose #1138 > > lib_link_path |> file_system.link_directory lib_link_target_path
00:00:50 verbose #1139 > >
00:00:50 verbose #1140 > > inl exit_code, dotnet_fable_result =
00:00:50 verbose #1141 > > execute_dotnet_fable { workspace_root_external fsproj_path extension
00:00:50 verbose #1142 > > package_dir }
00:00:50 verbose #1143 > >
00:00:50 verbose #1144 > > if exit_code <>. 0 then
00:00:50 verbose #1145 > > trace Critical (fun () => $'$"spiral_builder.process_typescript
00:00:50 verbose #1146 > > exit_code: {!exit_code} / dotnet_fable_result: {!dotnet_fable_result}"') _locals
00:00:50 verbose #1147 > > { extension = Some extension; code = None; output = Some
00:00:50 verbose #1148 > > dotnet_fable_result }
00:00:50 verbose #1149 > > else
00:00:50 verbose #1150 > > inl deps =
00:00:50 verbose #1151 > > deps
00:00:50 verbose #1152 > > |> am'.vec_map fun dep =>
00:00:50 verbose #1153 > > inl dep = dep |> sm'.from_std_string
00:00:50 verbose #1154 > > if dep |> sm'.contains "="
00:00:50 verbose #1155 > > then dep
00:00:50 verbose #1156 > > else $'$"\\"{!dep}\\":\\"*\\""'
00:00:50 verbose #1157 > > |> am'.from_vec
00:00:50 verbose #1158 > > |> fun x => x : _ i32 _
00:00:50 verbose #1159 > > |> seq.of_array'
00:00:50 verbose #1160 > > |> sm'.concat ",\n"
00:00:50 verbose #1161 > >
00:00:50 verbose #1162 > > inl package_json_content =
00:00:50 verbose #1163 > > $'$"{{"'
00:00:50 verbose #1164 > > +. $'$" \\\"name\\\": \\\"spiral_builder_{!hash_hex}\\\","'
00:00:50 verbose #1165 > > +. $'$" \\\"dependencies\\\": {{"'
00:00:50 verbose #1166 > > +. deps
00:00:50 verbose #1167 > > +. $'$" }},"'
00:00:50 verbose #1168 > > +. $'$" \\\"devDependencies\\\": {{"'
00:00:50 verbose #1169 > > +. $'$" }},"'
00:00:50 verbose #1170 > > +. $'$"}}"'
00:00:50 verbose #1171 > >
00:00:50 verbose #1172 > > inl workspace_package_json_content =
00:00:50 verbose #1173 > > ""
00:00:50 verbose #1174 > >
00:00:50 verbose #1175 > > inl package_json_path = package_dir </> "package.json"
00:00:50 verbose #1176 > >
00:00:50 verbose #1177 > > inl workspace_dir = package_dir </> "../.."
00:00:50 verbose #1178 > > inl workspace_package_json_path = workspace_dir </> "package.json"
00:00:50 verbose #1179 > >
00:00:50 verbose #1180 > > package_json_content |> file_system.write_all_text_exists'
00:00:50 verbose #1181 > > package_json_path
00:00:50 verbose #1182 > >
00:00:50 verbose #1183 > > workspace_package_json_content |> file_system.write_all_text_exists'
00:00:50 verbose #1184 > > workspace_package_json_path
00:00:50 verbose #1185 > >
00:00:50 verbose #1186 > > inl new_code_path = package_dir </> $'$"{!workspace_name}.{!extension}"'
00:00:50 verbose #1187 > > trace Debug
00:00:50 verbose #1188 > > fun () => $'"spiral_builder.process_typescript"'
00:00:50 verbose #1189 > > fun () => $'$"new_code_path: {!new_code_path} / {!_locals ()}"'
00:00:50 verbose #1190 > > inl new_code = new_code_path |> file_system.read_all_text
00:00:50 verbose #1191 > >
00:00:50 verbose #1192 > > inl main_code_header =
00:00:50 verbose #1193 > > "// spiral_builder.process_typescript"
00:00:50 verbose #1194 > > inl main_code = "// spiral_builder.process_typescript"
00:00:50 verbose #1195 > >
00:00:50 verbose #1196 > > inl cached = new_code |> sm'.contains main_code_header
00:00:50 verbose #1197 > >
00:00:50 verbose #1198 > > inl new_code =
00:00:50 verbose #1199 > > if cached
00:00:50 verbose #1200 > > then new_code
00:00:50 verbose #1201 > > else
00:00:50 verbose #1202 > > new_code
00:00:50 verbose #1203 > > |> sm'.replace
00:00:50 verbose #1204 > > $'$"\\\"./fable_modules/fable-library-ts.{!version}/"'
00:00:50 verbose #1205 > >
00:00:50 verbose #1206 > > $'$"\\\"{!workspace_root}/lib/typescript/fable/fable_modules/fable-library-ts.{!
00:00:50 verbose #1207 > > version}/"'
00:00:50 verbose #1208 > > |> sm'.replace_regex
00:00:50 verbose #1209 > > "\\s\\sdefaultOf\\(\\);"
00:00:50 verbose #1210 > > " defaultOf::<()>();"
00:00:50 verbose #1211 > >
00:00:50 verbose #1212 > > if not cached
00:00:50 verbose #1213 > > then
00:00:50 verbose #1214 > > $'$"{!new_code}\\n\\n{!main_code}\\n"'
00:00:50 verbose #1215 > > |> file_system.write_all_text_exists' new_code_path
00:00:50 verbose #1216 > >
00:00:50 verbose #1217 > > inl command = $'$"bun run \\\"{!new_code_path}\\\""'
00:00:51 verbose #1218 > > inl env_path = "PATH" |> env.get_environment_variable
00:00:51 verbose #1219 > > inl environment_variables =
00:00:51 verbose #1220 > > match "~/.bun/bin" |> env.append_path with
00:00:51 verbose #1221 > > | Some path => [[ "PATH", path ]]
00:00:51 verbose #1222 > > | None => [[]]
00:00:51 verbose #1223 > > ++ [[
00:00:51 verbose #1224 > > "TRACE_LEVEL", "Verbose"
00:00:51 verbose #1225 > > ]]
00:00:51 verbose #1226 > > |> listm'.box
00:00:51 verbose #1227 > > |> listm'.to_array'
00:00:51 verbose #1228 > > |> am'.base'
00:00:51 verbose #1229 > > inl exit_code, run_result =
00:00:51 verbose #1230 > > runtime.execution_options fun x => { x with
00:00:51 verbose #1231 > > command
00:00:51 verbose #1232 > > environment_variables
00:00:51 verbose #1233 > > working_directory = workspace_root_external |> resultm.box |>
00:00:51 verbose #1234 > > resultm.ok'
00:00:51 verbose #1235 > > }
00:00:51 verbose #1236 > > |> runtime.execute_with_options
00:00:51 verbose #1237 > >
00:00:51 verbose #1238 > > inl external_command =
00:00:51 verbose #1239 > > inl vars =
00:00:51 verbose #1240 > > a environment_variables
00:00:51 verbose #1241 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:00:51 verbose #1242 > > |> fun x => x : _ i32 _
00:00:51 verbose #1243 > > |> seq.of_array
00:00:51 verbose #1244 > > |> sm'.concat ";"
00:00:51 verbose #1245 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:00:51 verbose #1246 > > if exit_code = 0 then
00:00:51 verbose #1247 > > inl output =
00:00:51 verbose #1248 > > try
00:00:51 verbose #1249 > > fun () =>
00:00:51 verbose #1250 > > run_result
00:00:51 verbose #1251 > > |> sm'.split "\n"
00:00:51 verbose #1252 > > |> fun x => a x : _ i32 _
00:00:51 verbose #1253 > > |> seq.of_array
00:00:51 verbose #1254 > > |> sm'.concat "\n"
00:00:51 verbose #1255 > > fun ex =>
00:00:51 verbose #1256 > > trace Critical
00:00:51 verbose #1257 > > fun () => "spiral_builder.process_typescript
00:00:51 verbose #1258 > > Exception"
00:00:51 verbose #1259 > > fun () => $'$"ex: {!ex} / new_code_path:
00:00:51 verbose #1260 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:51 verbose #1261 > > {!run_result} / {!_locals ()}"'
00:00:51 verbose #1262 > > None
00:00:51 verbose #1263 > > |> optionm'.box
00:00:51 verbose #1264 > > |> optionm'.unwrap
00:00:51 verbose #1265 > >
00:00:51 verbose #1266 > > { extension = Some extension; code = Some new_code; output = Some
00:00:51 verbose #1267 > > output }
00:00:51 verbose #1268 > > else
00:00:51 verbose #1269 > > trace Critical
00:00:51 verbose #1270 > > fun () => "spiral_builder.process_typescript / error"
00:00:51 verbose #1271 > > fun () => $'$"exit_code: {!exit_code} / new_code_path:
00:00:51 verbose #1272 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:51 verbose #1273 > > {!run_result}"'
00:00:51 verbose #1274 > > { extension = Some extension; code = None; output = None }
00:00:51 verbose #1275 > 00:00:50 debug #6 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/0c93d13e9adb6a88f2d3016ac7fd591d2fad9d29239d2da0ec61706af42064da/main.spi
00:00:52 verbose #1276 > >
00:00:52 verbose #1277 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 verbose #1278 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 verbose #1279 > > │ ## python │
00:00:52 verbose #1280 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 verbose #1281 > >
00:00:52 verbose #1282 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 verbose #1283 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 verbose #1284 > > │ ### process_python │
00:00:52 verbose #1285 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 verbose #1286 > >
00:00:52 verbose #1287 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 verbose #1288 > > inl process_python { fs_path deps trace_level } =
00:00:52 verbose #1289 > > inl extension = "py"
00:00:52 verbose #1290 > > inl is_trace = trace_level = Verbose
00:00:52 verbose #1291 > > inl _trace (fn : () -> string) =
00:00:52 verbose #1292 > > if is_trace
00:00:52 verbose #1293 > > then trace Info (fun () => $'$"spiral_builder.process_python / {!fn
00:00:52 verbose #1294 > > ()}"') _locals
00:00:52 verbose #1295 > > else fn () |> console.write_line
00:00:52 verbose #1296 > >
00:00:52 verbose #1297 > > inl code = fs_path |> file_system.read_all_text
00:00:52 verbose #1298 > >
00:00:52 verbose #1299 > > inl hash_hex = (extension, code) |> sm'.format_debug |> crypto.hash_text
00:00:52 verbose #1300 > >
00:00:52 verbose #1301 > > inl workspace_name = "spiral_builder"
00:00:52 verbose #1302 > >
00:00:52 verbose #1303 > > inl fsproj_path =
00:00:52 verbose #1304 > > code
00:00:52 verbose #1305 > > |> persist_code_project
00:00:52 verbose #1306 > > [[ "Fable.Core" ]]
00:00:52 verbose #1307 > > [[]]
00:00:52 verbose #1308 > > workspace_name
00:00:52 verbose #1309 > > (hash_hex |> Some)
00:00:52 verbose #1310 > >
00:00:52 verbose #1311 > > inl package_dir = fsproj_path |> file_system.get_directory_name
00:00:52 verbose #1312 > >
00:00:52 verbose #1313 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:00:52 verbose #1314 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:00:52 verbose #1315 > > resultm.unwrap_or_else id
00:00:52 verbose #1316 > >
00:00:52 verbose #1317 > > inl lib_path = workspace_root </> "lib/python/fable/fable_modules"
00:00:52 verbose #1318 > >
00:00:52 verbose #1319 > > inl lib_link_target_path = lib_path </> $'$"fable-library-{!extension}"'
00:00:52 verbose #1320 > > inl lib_link_path = package_dir </> $'$"fable_modules/fable-library"'
00:00:52 verbose #1321 > >
00:00:52 verbose #1322 > > lib_link_path |> file_system.link_directory lib_link_target_path
00:00:52 verbose #1323 > >
00:00:52 verbose #1324 > > inl exit_code, dotnet_fable_result =
00:00:52 verbose #1325 > > execute_dotnet_fable { workspace_root_external fsproj_path extension
00:00:52 verbose #1326 > > package_dir }
00:00:52 verbose #1327 > >
00:00:52 verbose #1328 > > if exit_code <>. 0 then
00:00:52 verbose #1329 > > trace Critical (fun () => $'$"spiral_builder.process_python / exit_code:
00:00:52 verbose #1330 > > {!exit_code} / dotnet_fable_result: {!dotnet_fable_result}"') _locals
00:00:52 verbose #1331 > > { extension = Some extension; code = None; output = Some
00:00:52 verbose #1332 > > dotnet_fable_result }
00:00:52 verbose #1333 > > else
00:00:52 verbose #1334 > > inl deps =
00:00:52 verbose #1335 > > deps
00:00:52 verbose #1336 > > |> am'.vec_map fun dep =>
00:00:52 verbose #1337 > > inl dep = dep |> sm'.from_std_string
00:00:52 verbose #1338 > > if dep |> sm'.contains "="
00:00:52 verbose #1339 > > then dep
00:00:52 verbose #1340 > > else $'$"\\"{!dep}\\":\\"*\\""'
00:00:52 verbose #1341 > > |> am'.from_vec
00:00:52 verbose #1342 > > |> fun x => x : _ i32 _
00:00:52 verbose #1343 > > |> seq.of_array'
00:00:52 verbose #1344 > > |> sm'.concat ",\n"
00:00:52 verbose #1345 > >
00:00:52 verbose #1346 > > inl package_json_content =
00:00:52 verbose #1347 > > $'$"{{"'
00:00:52 verbose #1348 > > +. $'$" \\\"name\\\": \\\"spiral_builder_{!hash_hex}\\\","'
00:00:52 verbose #1349 > > +. $'$" \\\"dependencies\\\": {{"'
00:00:52 verbose #1350 > > +. deps
00:00:52 verbose #1351 > > +. $'$" }},"'
00:00:52 verbose #1352 > > +. $'$" \\\"devDependencies\\\": {{"'
00:00:52 verbose #1353 > > +. $'$" }},"'
00:00:52 verbose #1354 > > +. $'$"}}"'
00:00:52 verbose #1355 > >
00:00:52 verbose #1356 > > inl workspace_package_json_content =
00:00:52 verbose #1357 > > ""
00:00:52 verbose #1358 > >
00:00:52 verbose #1359 > > inl package_json_path = package_dir </> "package.json"
00:00:52 verbose #1360 > >
00:00:52 verbose #1361 > > inl workspace_dir = package_dir </> "../.."
00:00:52 verbose #1362 > > inl workspace_package_json_path = workspace_dir </> "package.json"
00:00:52 verbose #1363 > >
00:00:52 verbose #1364 > > package_json_content |> file_system.write_all_text_exists'
00:00:52 verbose #1365 > > package_json_path
00:00:52 verbose #1366 > >
00:00:52 verbose #1367 > > workspace_package_json_content |> file_system.write_all_text_exists'
00:00:52 verbose #1368 > > workspace_package_json_path
00:00:52 verbose #1369 > >
00:00:52 verbose #1370 > > inl new_code_path = package_dir </> $'$"{!workspace_name}.{!extension}"'
00:00:52 verbose #1371 > > trace Debug
00:00:52 verbose #1372 > > fun () => $'"spiral_builder.process_python"'
00:00:52 verbose #1373 > > fun () => $'$"new_code_path: {!new_code_path} / {!_locals ()}"'
00:00:52 verbose #1374 > > inl new_code = new_code_path |> file_system.read_all_text
00:00:52 verbose #1375 > >
00:00:52 verbose #1376 > > inl main_code_header =
00:00:52 verbose #1377 > > "# spiral_builder.process_python"
00:00:52 verbose #1378 > > inl main_code = "# spiral_builder.process_python"
00:00:52 verbose #1379 > >
00:00:52 verbose #1380 > > inl cached = new_code |> sm'.contains main_code_header
00:00:52 verbose #1381 > >
00:00:52 verbose #1382 > > inl new_code =
00:00:52 verbose #1383 > > if cached
00:00:52 verbose #1384 > > then new_code
00:00:52 verbose #1385 > > else
00:00:52 verbose #1386 > > new_code
00:00:52 verbose #1387 > > |> sm'.replace
00:00:52 verbose #1388 > > ("),)" +. !\($'"\\\";\\\".into()"'))
00:00:52 verbose #1389 > > "));"
00:00:52 verbose #1390 > > |> sm'.replace_regex
00:00:52 verbose #1391 > > "\\s\\sdefaultOf\\(\\);"
00:00:52 verbose #1392 > > " defaultOf::<()>();"
00:00:52 verbose #1393 > >
00:00:52 verbose #1394 > > if not cached
00:00:52 verbose #1395 > > then
00:00:52 verbose #1396 > > $'$"{!new_code}\\n\\n{!main_code}\\n"'
00:00:52 verbose #1397 > > |> file_system.write_all_text_exists' new_code_path
00:00:52 verbose #1398 > >
00:00:52 verbose #1399 > > inl command = $'$"python \\\"{!new_code_path}\\\""'
00:00:52 verbose #1400 > > inl environment_variables =
00:00:52 verbose #1401 > > ;[[
00:00:52 verbose #1402 > > "TRACE_LEVEL", "Verbose"
00:00:52 verbose #1403 > > ]]
00:00:52 verbose #1404 > > inl exit_code, run_result =
00:00:52 verbose #1405 > > runtime.execution_options fun x => { x with
00:00:52 verbose #1406 > > command
00:00:52 verbose #1407 > > environment_variables
00:00:52 verbose #1408 > > working_directory = workspace_root_external |> resultm.box |>
00:00:52 verbose #1409 > > resultm.ok'
00:00:52 verbose #1410 > > }
00:00:52 verbose #1411 > > |> runtime.execute_with_options
00:00:52 verbose #1412 > >
00:00:52 verbose #1413 > > inl external_command =
00:00:52 verbose #1414 > > inl vars =
00:00:52 verbose #1415 > > a environment_variables
00:00:52 verbose #1416 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:00:52 verbose #1417 > > |> fun x => x : _ i32 _
00:00:52 verbose #1418 > > |> seq.of_array
00:00:52 verbose #1419 > > |> sm'.concat ";"
00:00:52 verbose #1420 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:00:52 verbose #1421 > > if exit_code = 0 then
00:00:52 verbose #1422 > > inl output =
00:00:52 verbose #1423 > > try
00:00:52 verbose #1424 > > fun () =>
00:00:52 verbose #1425 > > run_result
00:00:52 verbose #1426 > > |> sm'.split "\n"
00:00:52 verbose #1427 > > |> fun x => a x : _ i32 _
00:00:52 verbose #1428 > > |> seq.of_array
00:00:52 verbose #1429 > > |> sm'.concat "\n"
00:00:52 verbose #1430 > > fun ex =>
00:00:52 verbose #1431 > > trace Critical
00:00:52 verbose #1432 > > fun () => "spiral_builder.process_python
00:00:52 verbose #1433 > > Exception"
00:00:52 verbose #1434 > > fun () => $'$"ex: {!ex} / new_code_path:
00:00:52 verbose #1435 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:52 verbose #1436 > > {!run_result} / {!_locals ()}"'
00:00:52 verbose #1437 > > None
00:00:52 verbose #1438 > > |> optionm'.box
00:00:52 verbose #1439 > > |> optionm'.unwrap
00:00:52 verbose #1440 > >
00:00:52 verbose #1441 > > { extension = Some extension; code = Some new_code; output = Some
00:00:52 verbose #1442 > > output }
00:00:52 verbose #1443 > > else
00:00:52 verbose #1444 > > trace Critical
00:00:52 verbose #1445 > > fun () => "spiral_builder.process_python / error"
00:00:52 verbose #1446 > > fun () => $'$"exit_code: {!exit_code} / new_code_path:
00:00:52 verbose #1447 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:52 verbose #1448 > > {!run_result}"'
00:00:52 verbose #1449 > > { extension = Some extension; code = None; output = None }
00:00:52 verbose #1450 > 00:00:51 debug #7 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/b85516d38677327acefa50cdcf4ffd4d3b9472b400d3c732752282abd31fdee1/main.spi
00:00:53 verbose #1451 > >
00:00:53 verbose #1452 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 verbose #1453 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 verbose #1454 > > │ ## cuda │
00:00:53 verbose #1455 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #1456 > >
00:00:53 verbose #1457 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 verbose #1458 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 verbose #1459 > > │ ### process_cuda │
00:00:53 verbose #1460 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #1461 > >
00:00:53 verbose #1462 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 verbose #1463 > > inl process_cuda { py_path env deps } =
00:00:53 verbose #1464 > > inl extension = "py"
00:00:53 verbose #1465 > >
00:00:53 verbose #1466 > > inl new_code_path = py_path
00:00:53 verbose #1467 > > inl new_code = new_code_path |> file_system.read_all_text
00:00:53 verbose #1468 > >
00:00:53 verbose #1469 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:00:53 verbose #1470 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:00:53 verbose #1471 > > resultm.unwrap_or_else id
00:00:53 verbose #1472 > >
00:00:53 verbose #1473 > > inl package_dir = new_code_path |> file_system.get_directory_name
00:00:53 verbose #1474 > >
00:00:53 verbose #1475 > > inl manifest_path =
00:00:53 verbose #1476 > > match env with
00:00:53 verbose #1477 > > | Pip => package_dir </> "requirements.txt"
00:00:53 verbose #1478 > > | Poetry => package_dir </> "pyproject.toml"
00:00:53 verbose #1479 > >
00:00:53 verbose #1480 > > inl deps =
00:00:53 verbose #1481 > > deps
00:00:53 verbose #1482 > > |> am'.vec_map fun dep =>
00:00:53 verbose #1483 > > inl dep = dep |> sm'.from_std_string
00:00:53 verbose #1484 > > if dep |> sm'.contains "="
00:00:53 verbose #1485 > > then dep
00:00:53 verbose #1486 > > elif dep |> sm'.ends_with "]]"
00:00:53 verbose #1487 > > then dep |> sm'.replace "[[" $'$"={{version=\'*\',features=[["' |>
00:00:53 verbose #1488 > > fun x => $'$"{!x}}}"'
00:00:53 verbose #1489 > > else $'$"{!dep}=\'*\'"'
00:00:53 verbose #1490 > > |> am'.from_vec
00:00:53 verbose #1491 > > |> fun x => x : _ i32 _
00:00:53 verbose #1492 > > |> seq.of_array'
00:00:53 verbose #1493 > > |> sm'.concat "\n"
00:00:53 verbose #1494 > >
00:00:53 verbose #1495 > > inl exit_code, run_result =
00:00:53 verbose #1496 > > if deps = ""
00:00:53 verbose #1497 > > then 0, ""
00:00:53 verbose #1498 > > else
00:00:53 verbose #1499 > > inl manifest =
00:00:53 verbose #1500 > > match env with
00:00:53 verbose #1501 > > | Pip =>
00:00:53 verbose #1502 > > deps
00:00:53 verbose #1503 > > | Poetry =>
00:00:53 verbose #1504 > > $'$"[[tool.poetry]]"'
00:00:53 verbose #1505 > > +#. $'$"name = \\\"test\\\""'
00:00:53 verbose #1506 > > +#. $'$"version = \\\"0.0.1\\\""'
00:00:53 verbose #1507 > > +#. $'$"description = \\\"\\\""'
00:00:53 verbose #1508 > > +#. $'$"authors = [[]]"'
00:00:53 verbose #1509 > > +#. $'$""'
00:00:53 verbose #1510 > > +#. $'$"[[tool.poetry.dependencies]]"'
00:00:53 verbose #1511 > > +#. $'$"python=\\\"~3.12\\\""'
00:00:53 verbose #1512 > > +#. $'$"{!deps}"'
00:00:53 verbose #1513 > > +#. $'$""'
00:00:53 verbose #1514 > > +#. $'$"[[build-system]]"'
00:00:53 verbose #1515 > > +#. $'$"requires = [[\\\"poetry-core\\\"]]"'
00:00:53 verbose #1516 > > +#. $'$"build-backend = \\\"poetry.core.masonry.api\\\""'
00:00:53 verbose #1517 > >
00:00:53 verbose #1518 > > manifest |> file_system.write_all_text_exists' manifest_path
00:00:53 verbose #1519 > >
00:00:53 verbose #1520 > > runtime.execution_options fun x => { x with
00:00:53 verbose #1521 > > command =
00:00:53 verbose #1522 > > match env with
00:00:53 verbose #1523 > > | Pip => $'$"pip install -r requirements.txt"'
00:00:53 verbose #1524 > > | Poetry => $'$"poetry install"'
00:00:53 verbose #1525 > > working_directory = package_dir |> optionm'.some'
00:00:53 verbose #1526 > > }
00:00:53 verbose #1527 > > |> runtime.execute_with_options
00:00:53 verbose #1528 > >
00:00:53 verbose #1529 > > if exit_code <>. 0 then
00:00:53 verbose #1530 > > trace Critical
00:00:53 verbose #1531 > > fun () => "spiral_builder.process_cuda / env install error"
00:00:53 verbose #1532 > > fun () => $'$"env: {!env} / exit_code: {!exit_code} / new_code_path:
00:00:53 verbose #1533 > > {!new_code_path} / run_result: {!run_result}"'
00:00:53 verbose #1534 > > { extension = Some extension; code = None; output = None }
00:00:53 verbose #1535 > > else
00:00:53 verbose #1536 > > inl command =
00:00:53 verbose #1537 > > match env with
00:00:53 verbose #1538 > > | Pip => $'$"python \\\"{!new_code_path}\\\""'
00:00:53 verbose #1539 > > | Poetry => $'$"poetry run python \\\"{!new_code_path}\\\""'
00:00:53 verbose #1540 > > inl environment_variables =
00:00:53 verbose #1541 > > ;[[
00:00:53 verbose #1542 > > "TRACE_LEVEL", "Verbose"
00:00:53 verbose #1543 > > ]]
00:00:53 verbose #1544 > > inl exit_code, run_result =
00:00:53 verbose #1545 > > runtime.execution_options fun x => { x with
00:00:53 verbose #1546 > > command
00:00:53 verbose #1547 > > environment_variables
00:00:53 verbose #1548 > > working_directory = package_dir |> optionm'.some'
00:00:53 verbose #1549 > > }
00:00:53 verbose #1550 > > |> runtime.execute_with_options
00:00:53 verbose #1551 > >
00:00:53 verbose #1552 > > inl external_command =
00:00:53 verbose #1553 > > inl vars =
00:00:53 verbose #1554 > > a environment_variables
00:00:53 verbose #1555 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:00:53 verbose #1556 > > |> fun x => x : _ i32 _
00:00:53 verbose #1557 > > |> seq.of_array
00:00:53 verbose #1558 > > |> sm'.concat ";"
00:00:53 verbose #1559 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:00:53 verbose #1560 > > if exit_code = 0 then
00:00:53 verbose #1561 > > inl output =
00:00:53 verbose #1562 > > try
00:00:53 verbose #1563 > > fun () =>
00:00:53 verbose #1564 > > run_result
00:00:53 verbose #1565 > > |> sm'.split "\n"
00:00:53 verbose #1566 > > |> fun x => a x : _ i32 _
00:00:53 verbose #1567 > > |> seq.of_array
00:00:53 verbose #1568 > > |> sm'.concat "\n"
00:00:53 verbose #1569 > > fun ex =>
00:00:53 verbose #1570 > > trace Critical
00:00:53 verbose #1571 > > fun () => "spiral_builder.process_cuda / Exception"
00:00:53 verbose #1572 > > fun () => $'$"ex: {!ex} / new_code_path:
00:00:53 verbose #1573 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:53 verbose #1574 > > {!run_result} / {!_locals ()}"'
00:00:53 verbose #1575 > > None
00:00:53 verbose #1576 > > |> optionm'.box
00:00:53 verbose #1577 > > |> optionm'.unwrap
00:00:53 verbose #1578 > >
00:00:53 verbose #1579 > > { extension = Some extension; code = Some new_code; output = Some
00:00:53 verbose #1580 > > output }
00:00:53 verbose #1581 > > else
00:00:53 verbose #1582 > > trace Critical
00:00:53 verbose #1583 > > fun () => "spiral_builder.process_cuda / error"
00:00:53 verbose #1584 > > fun () => $'$"exit_code: {!exit_code} / new_code_path:
00:00:53 verbose #1585 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:53 verbose #1586 > > {!run_result}"'
00:00:53 verbose #1587 > > { extension = Some extension; code = None; output = None }
00:00:53 verbose #1588 > 00:00:52 debug #8 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/b94ff886463b751420f54c75e9be12e449a0e1a6f503e0cabaee6d9e264c5924/main.spi
00:00:54 verbose #1589 > >
00:00:54 verbose #1590 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 verbose #1591 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 verbose #1592 > > │ ## fsharp │
00:00:54 verbose #1593 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #1594 > >
00:00:54 verbose #1595 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 verbose #1596 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 verbose #1597 > > │ ### process_fsharp │
00:00:54 verbose #1598 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 verbose #1599 > >
00:00:54 verbose #1600 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 verbose #1601 > > inl process_fsharp { spi_path } =
00:00:54 verbose #1602 > > inl extension = "fsx"
00:00:54 verbose #1603 > >
00:00:54 verbose #1604 > > inl new_code_path = spi_path
00:00:54 verbose #1605 > > inl new_code = new_code_path |> file_system.read_all_text
00:00:54 verbose #1606 > >
00:00:54 verbose #1607 > > inl workspace_root_external = file_system.get_workspace_root_external ()
00:00:54 verbose #1608 > > inl workspace_root = workspace_root_external |> resultm.box |>
00:00:54 verbose #1609 > > resultm.unwrap_or_else id
00:00:54 verbose #1610 > >
00:00:54 verbose #1611 > > inl supervisor_path = workspace_root </>
00:00:54 verbose #1612 > > $"apps/spiral/dist/Supervisor!(platform.get_executable_suffix ())"
00:00:54 verbose #1613 > > inl code_dir = new_code_path |> file_system.get_directory_name
00:00:54 verbose #1614 > > inl file_name = new_code_path |> file_system.get_file_name_without_extension
00:00:54 verbose #1615 > > inl output_path = code_dir </> $'$"{!file_name}.{!extension}"'
00:00:54 verbose #1616 > > inl command = $'$"{!supervisor_path} --build-file \\\"{!new_code_path}\\\"
00:00:54 verbose #1617 > > \\\"{!output_path}\\\""'
00:00:54 verbose #1618 > > inl environment_variables =
00:00:54 verbose #1619 > > ;[[
00:00:54 verbose #1620 > > "TRACE_LEVEL", "Verbose"
00:00:54 verbose #1621 > > ]]
00:00:54 verbose #1622 > > inl exit_code, run_result =
00:00:54 verbose #1623 > > runtime.execution_options fun x => { x with
00:00:54 verbose #1624 > > command
00:00:54 verbose #1625 > > environment_variables
00:00:54 verbose #1626 > > working_directory = workspace_root_external |> resultm.box |>
00:00:54 verbose #1627 > > resultm.ok'
00:00:54 verbose #1628 > > }
00:00:54 verbose #1629 > > |> runtime.execute_with_options
00:00:54 verbose #1630 > >
00:00:54 verbose #1631 > > inl external_command =
00:00:54 verbose #1632 > > inl vars =
00:00:54 verbose #1633 > > a environment_variables
00:00:54 verbose #1634 > > |> am.map fun k, v => $'$"$env:{!k}=\'\'{!v}\'\'"' : string
00:00:54 verbose #1635 > > |> fun x => x : _ i32 _
00:00:54 verbose #1636 > > |> seq.of_array
00:00:54 verbose #1637 > > |> sm'.concat ";"
00:00:54 verbose #1638 > > $'$"pwsh -c \'{!vars}; {!command}\'"' : string
00:00:54 verbose #1639 > > if exit_code = 0 then
00:00:54 verbose #1640 > > inl output =
00:00:54 verbose #1641 > > try
00:00:54 verbose #1642 > > fun () =>
00:00:54 verbose #1643 > > run_result
00:00:54 verbose #1644 > > |> sm'.split "\n"
00:00:54 verbose #1645 > > |> fun x => a x : _ i32 _
00:00:54 verbose #1646 > > |> seq.of_array
00:00:54 verbose #1647 > > |> sm'.concat "\n"
00:00:54 verbose #1648 > > fun ex =>
00:00:54 verbose #1649 > > trace Critical
00:00:54 verbose #1650 > > fun () => "spiral_builder.process_fsharp / Exception"
00:00:54 verbose #1651 > > fun () => $'$"ex: {!ex} / new_code_path:
00:00:54 verbose #1652 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:54 verbose #1653 > > {!run_result} / {!_locals ()}"'
00:00:54 verbose #1654 > > None
00:00:54 verbose #1655 > > |> optionm'.box
00:00:54 verbose #1656 > > |> optionm'.unwrap
00:00:54 verbose #1657 > >
00:00:54 verbose #1658 > > { extension = Some extension; code = Some new_code; output = Some output
00:00:54 verbose #1659 > > }
00:00:54 verbose #1660 > > else
00:00:54 verbose #1661 > > trace Critical
00:00:54 verbose #1662 > > fun () => "spiral_builder.process_fsharp / error"
00:00:54 verbose #1663 > > fun () => $'$"exit_code: {!exit_code} / new_code_path:
00:00:54 verbose #1664 > > {!new_code_path} / external_command: {!external_command} / run_result:
00:00:54 verbose #1665 > > {!run_result}"'
00:00:54 verbose #1666 > > { extension = Some extension; code = None; output = None }
00:00:54 verbose #1667 > 00:00:53 debug #9 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/75f4913d081593fb95cf201325bf1071342d20040c4dee39cd64bac0ff9091aa/main.spi
00:00:55 verbose #1668 > >
00:00:55 verbose #1669 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 verbose #1670 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 verbose #1671 > > │ ## run │
00:00:55 verbose #1672 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 verbose #1673 > >
00:00:55 verbose #1674 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 verbose #1675 > > let rec run trace_level (matches : runtime.arg_matches) : async.future_pin
00:00:55 verbose #1676 > > (resultm.result' string string) =
00:00:55 verbose #1677 > > fun () =>
00:00:55 verbose #1678 > > match matches |> runtime.matches_subcommand |> optionm'.unbox with
00:00:55 verbose #1679 > > | Some (subcommand, arg_matches)
00:00:55 verbose #1680 > > when (subcommand |> sm'.from_std_string) = (get_args () .cuda |>
00:00:55 verbose #1681 > > fst) =>
00:00:55 verbose #1682 > >
00:00:55 verbose #1683 > > inl py_path =
00:00:55 verbose #1684 > > arg_matches
00:00:55 verbose #1685 > > |> runtime.matches_get_one ((get_args () .cuda |> snd).py_path
00:00:55 verbose #1686 > > |> fst)
00:00:55 verbose #1687 > > |> optionm'.unbox
00:00:55 verbose #1688 > > |> optionm.value
00:00:55 verbose #1689 > > |> sm'.from_std_string
00:00:55 verbose #1690 > >
00:00:55 verbose #1691 > > inl env =
00:00:55 verbose #1692 > > arg_matches
00:00:55 verbose #1693 > > |> runtime.matches_get_one ((get_args () .cuda |> snd).env |>
00:00:55 verbose #1694 > > fst)
00:00:55 verbose #1695 > > |> optionm'.unbox
00:00:55 verbose #1696 > > |> optionm.map (
00:00:55 verbose #1697 > > sm'.from_std_string
00:00:55 verbose #1698 > > >> reflection.union_try_pick
00:00:55 verbose #1699 > > )
00:00:55 verbose #1700 > > |> optionm'.flatten
00:00:55 verbose #1701 > > |> optionm'.default_value Pip
00:00:55 verbose #1702 > >
00:00:55 verbose #1703 > > inl deps : am'.vec sm'.std_string =
00:00:55 verbose #1704 > > arg_matches
00:00:55 verbose #1705 > > |> runtime.matches_get_many ((get_args () .cuda |> snd).deps |>
00:00:55 verbose #1706 > > fst)
00:00:55 verbose #1707 > > |> optionm'.unbox
00:00:55 verbose #1708 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:00:55 verbose #1709 > >
00:00:55 verbose #1710 > > inl command_result =
00:00:55 verbose #1711 > > process_cuda { py_path env deps }
00:00:55 verbose #1712 > > |> fun { extension code output } =>
00:00:55 verbose #1713 > > ;[[
00:00:55 verbose #1714 > > "extension", extension |> optionm'.default_value ""
00:00:55 verbose #1715 > > "code", code |> optionm'.default_value ""
00:00:55 verbose #1716 > > "output", output |> optionm'.default_value ""
00:00:55 verbose #1717 > > ]]
00:00:55 verbose #1718 > >
00:00:55 verbose #1719 > > ;[[
00:00:55 verbose #1720 > > "command_result",
00:00:55 verbose #1721 > > command_result
00:00:55 verbose #1722 > > |> am'.to_vec
00:00:55 verbose #1723 > > |> am'.vec_map' fun k, v =>
00:00:55 verbose #1724 > > new_pair (sm'.to_std_string k) (sm'.to_std_string v)
00:00:55 verbose #1725 > > |> mapm.b_tree_map_from_vec_pairs
00:00:55 verbose #1726 > > |> sm'.serialize
00:00:55 verbose #1727 > > |> resultm.unwrap'
00:00:55 verbose #1728 > > |> sm'.from_std_string
00:00:55 verbose #1729 > > ]]
00:00:55 verbose #1730 > >
00:00:55 verbose #1731 > > | Some (subcommand, arg_matches)
00:00:55 verbose #1732 > > when (subcommand |> sm'.from_std_string) = (get_args () .fable
00:00:55 verbose #1733 > > |> fst) =>
00:00:55 verbose #1734 > >
00:00:55 verbose #1735 > > inl fs_path =
00:00:55 verbose #1736 > > arg_matches
00:00:55 verbose #1737 > > |> runtime.matches_get_one ((get_args () .fable |> snd).fs_path
00:00:55 verbose #1738 > > |> fst)
00:00:55 verbose #1739 > > |> optionm'.unbox
00:00:55 verbose #1740 > > |> optionm.value
00:00:55 verbose #1741 > > |> sm'.from_std_string
00:00:55 verbose #1742 > >
00:00:55 verbose #1743 > > inl command =
00:00:55 verbose #1744 > > arg_matches
00:00:55 verbose #1745 > > |> runtime.matches_get_one ((get_args () .fable |> snd).command
00:00:55 verbose #1746 > > |> fst)
00:00:55 verbose #1747 > > |> optionm'.unbox
00:00:55 verbose #1748 > > |> optionm.map sm'.from_std_string
00:00:55 verbose #1749 > >
00:00:55 verbose #1750 > > inl command_result =
00:00:55 verbose #1751 > > match command with
00:00:55 verbose #1752 > > | Some command =>
00:00:55 verbose #1753 > > get_command ()
00:00:55 verbose #1754 > > |> runtime.command_get_matches_from (
00:00:55 verbose #1755 > > $'$"_ {!command} --fs-path \\\"{!fs_path}\\\""' |>
00:00:55 verbose #1756 > > runtime.split_args |> resultm.get
00:00:55 verbose #1757 > > )
00:00:55 verbose #1758 > > |> run trace_level
00:00:55 verbose #1759 > > |> async.await
00:00:55 verbose #1760 > > |> resultm.unwrap'
00:00:55 verbose #1761 > > | None => "{}"
00:00:55 verbose #1762 > >
00:00:55 verbose #1763 > > ;[[
00:00:55 verbose #1764 > > "command_result",
00:00:55 verbose #1765 > > command_result
00:00:55 verbose #1766 > > ]]
00:00:55 verbose #1767 > >
00:00:55 verbose #1768 > > | Some (subcommand, arg_matches)
00:00:55 verbose #1769 > > when (subcommand |> sm'.from_std_string) = (get_args () .dib |> fst)
00:00:55 verbose #1770 > > =>
00:00:55 verbose #1771 > >
00:00:55 verbose #1772 > > inl path =
00:00:55 verbose #1773 > > arg_matches
00:00:55 verbose #1774 > > |> runtime.matches_get_one ((get_args () .dib |> snd).path |>
00:00:55 verbose #1775 > > fst)
00:00:55 verbose #1776 > > |> optionm'.map'' (
00:00:55 verbose #1777 > > sm'.from_std_string
00:00:55 verbose #1778 > > >> file_system.absolute_path
00:00:55 verbose #1779 > > )
00:00:55 verbose #1780 > > |> optionm'.unwrap
00:00:55 verbose #1781 > >
00:00:55 verbose #1782 > > inl retries =
00:00:55 verbose #1783 > > arg_matches
00:00:55 verbose #1784 > > |> runtime.matches_get_one ((get_args () .dib |> snd).retries |>
00:00:55 verbose #1785 > > fst)
00:00:55 verbose #1786 > > |> optionm'.default_value' 1u8
00:00:55 verbose #1787 > >
00:00:55 verbose #1788 > > inl working_directory : optionm'.option' string =
00:00:55 verbose #1789 > > arg_matches
00:00:55 verbose #1790 > > |> runtime.matches_get_one ((get_args () .dib |>
00:00:55 verbose #1791 > > snd).working_directory |> fst)
00:00:55 verbose #1792 > >
00:00:55 verbose #1793 > > process_dib { path retries working_directory }
00:00:55 verbose #1794 > >
00:00:55 verbose #1795 > > | matches =>
00:00:55 verbose #1796 > > match matches with
00:00:55 verbose #1797 > > | Some (subcommand, arg_matches)
00:00:55 verbose #1798 > > when (subcommand |> sm'.from_std_string) = (get_args ()
00:00:55 verbose #1799 > > .rust |> fst) =>
00:00:55 verbose #1800 > >
00:00:55 verbose #1801 > > inl fs_path =
00:00:55 verbose #1802 > > arg_matches
00:00:55 verbose #1803 > > |> runtime.matches_get_one ((get_args () .rust |>
00:00:55 verbose #1804 > > snd).fs_path |> fst)
00:00:55 verbose #1805 > > |> optionm'.unbox
00:00:55 verbose #1806 > > |> optionm.value
00:00:55 verbose #1807 > > |> sm'.from_std_string
00:00:55 verbose #1808 > >
00:00:55 verbose #1809 > > inl deps : am'.vec sm'.std_string =
00:00:55 verbose #1810 > > arg_matches
00:00:55 verbose #1811 > > |> runtime.matches_get_many ((get_args () .rust |> snd).deps
00:00:55 verbose #1812 > > |> fst)
00:00:55 verbose #1813 > > |> optionm'.unbox
00:00:55 verbose #1814 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:00:55 verbose #1815 > >
00:00:55 verbose #1816 > > process_rust { fs_path deps trace_level }
00:00:55 verbose #1817 > >
00:00:55 verbose #1818 > > | Some (subcommand, arg_matches)
00:00:55 verbose #1819 > > when (subcommand |> sm'.from_std_string) = (get_args ()
00:00:55 verbose #1820 > > .typescript |> fst) =>
00:00:55 verbose #1821 > >
00:00:55 verbose #1822 > > inl fs_path =
00:00:55 verbose #1823 > > arg_matches
00:00:55 verbose #1824 > > |> runtime.matches_get_one ((get_args () .typescript |>
00:00:55 verbose #1825 > > snd).fs_path |> fst)
00:00:55 verbose #1826 > > |> optionm'.unbox
00:00:55 verbose #1827 > > |> optionm.value
00:00:55 verbose #1828 > > |> sm'.from_std_string
00:00:55 verbose #1829 > >
00:00:55 verbose #1830 > > inl deps : am'.vec sm'.std_string =
00:00:55 verbose #1831 > > arg_matches
00:00:55 verbose #1832 > > |> runtime.matches_get_many ((get_args () .typescript |>
00:00:55 verbose #1833 > > snd).deps |> fst)
00:00:55 verbose #1834 > > |> optionm'.unbox
00:00:55 verbose #1835 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:00:55 verbose #1836 > >
00:00:55 verbose #1837 > > process_typescript { fs_path deps trace_level }
00:00:55 verbose #1838 > >
00:00:55 verbose #1839 > > | Some (subcommand, arg_matches)
00:00:55 verbose #1840 > > when (subcommand |> sm'.from_std_string) = (get_args ()
00:00:55 verbose #1841 > > .python |> fst) =>
00:00:55 verbose #1842 > > inl fs_path =
00:00:55 verbose #1843 > > arg_matches
00:00:55 verbose #1844 > > |> runtime.matches_get_one ((get_args () .python |>
00:00:55 verbose #1845 > > snd).fs_path |> fst)
00:00:55 verbose #1846 > > |> optionm'.unbox
00:00:55 verbose #1847 > > |> optionm.value
00:00:55 verbose #1848 > > |> sm'.from_std_string
00:00:55 verbose #1849 > >
00:00:55 verbose #1850 > > inl deps : am'.vec sm'.std_string =
00:00:55 verbose #1851 > > arg_matches
00:00:55 verbose #1852 > > |> runtime.matches_get_many ((get_args () .python |>
00:00:55 verbose #1853 > > snd).deps |> fst)
00:00:55 verbose #1854 > > |> optionm'.unbox
00:00:55 verbose #1855 > > |> optionm'.default_value (;[[]] |> am'.to_vec)
00:00:55 verbose #1856 > >
00:00:55 verbose #1857 > > process_python { fs_path deps trace_level }
00:00:55 verbose #1858 > >
00:00:55 verbose #1859 > > | Some (subcommand, arg_matches) =>
00:00:55 verbose #1860 > > trace Debug
00:00:55 verbose #1861 > > fun () => $'"spiral_builder.run / invalid subcommand"'
00:00:55 verbose #1862 > > fun () => $'$"subcommand: {!subcommand} / arg_matches:
00:00:55 verbose #1863 > > %A{!arg_matches} / {!_locals ()}"'
00:00:55 verbose #1864 > >
00:00:55 verbose #1865 > > { extension = None; code = None; output = None }
00:00:55 verbose #1866 > > | _ =>
00:00:55 verbose #1867 > > { extension = None; code = None; output = None }
00:00:55 verbose #1868 > > |> fun { extension code output } =>
00:00:55 verbose #1869 > > ;[[
00:00:55 verbose #1870 > > "extension", extension |> optionm'.default_value ""
00:00:55 verbose #1871 > > "code", code |> optionm'.default_value ""
00:00:55 verbose #1872 > > "output", output |> optionm'.default_value ""
00:00:55 verbose #1873 > > ]]
00:00:55 verbose #1874 > > |> am'.to_vec
00:00:55 verbose #1875 > > |> am'.vec_map' fun k, v =>
00:00:55 verbose #1876 > > new_pair (sm'.to_std_string k) (sm'.to_std_string v)
00:00:55 verbose #1877 > > |> mapm.b_tree_map_from_vec_pairs
00:00:55 verbose #1878 > > |> sm'.serialize
00:00:55 verbose #1879 > > |> resultm.map_error' (sm'.format' >> sm'.from_std_string)
00:00:55 verbose #1880 > > |> resultm.map' sm'.from_std_string
00:00:55 verbose #1881 > > |> async.future_init (3, 2) 1
00:00:55 verbose #1882 > 00:00:54 debug #10 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/32b1510fa9cf587b061bcabb8a9a6849298dbfc7376f4492483dd91c03306c04/main.spi
00:00:56 verbose #1883 > >
00:00:56 verbose #1884 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 verbose #1885 > > //// test
00:00:56 verbose #1886 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io futures rand
00:00:56 verbose #1887 > > rayon regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:00:56 verbose #1888 > >
00:00:56 verbose #1889 > > types ()
00:00:56 verbose #1890 > >
00:00:56 verbose #1891 > > inl file_name = "main.fs"
00:00:56 verbose #1892 > > inl code = "3 - 6 |> System.Console.WriteLine\n"
00:00:56 verbose #1893 > >
00:00:56 verbose #1894 > > inl temp_dir, disposable =
00:00:56 verbose #1895 > > (file_name, code)
00:00:56 verbose #1896 > > |> sm'.format_debug
00:00:56 verbose #1897 > > |> crypto.hash_text
00:00:56 verbose #1898 > > |> file_system.create_temp_dir'
00:00:56 verbose #1899 > > inl fs_path = temp_dir </> file_name
00:00:56 verbose #1900 > >
00:00:56 verbose #1901 > > code |> file_system.write_all_text fs_path
00:00:56 verbose #1902 > >
00:00:56 verbose #1903 > > get_command ()
00:00:56 verbose #1904 > > |> runtime.command_get_matches_from ($'$"_ fable -f \\\"{!fs_path}\\\" -c
00:00:56 verbose #1905 > > \\\"rust -d regex=\'*\'\\\""' |> runtime.split_args |> resultm.get)
00:00:56 verbose #1906 > > |> run Verbose
00:00:56 verbose #1907 > > |> async.block_on
00:00:56 verbose #1908 > > |> resultm.unwrap'
00:00:56 verbose #1909 > > |> sm'.deserialize
00:00:56 verbose #1910 > > |> resultm.unwrap'
00:00:56 verbose #1911 > > |> mapm.get ("command_result" |> sm'.to_std_string)
00:00:56 verbose #1912 > > |> optionm'.unwrap
00:00:56 verbose #1913 > > |> sm'.from_std_string
00:00:56 verbose #1914 > > |> sm'.deserialize
00:00:56 verbose #1915 > > |> resultm.unwrap'
00:00:56 verbose #1916 > > |> fun result =>
00:00:56 verbose #1917 > > result
00:00:56 verbose #1918 > > |> mapm.get ("extension" |> sm'.to_std_string)
00:00:56 verbose #1919 > > |> optionm'.unwrap
00:00:56 verbose #1920 > > |> sm'.from_std_string
00:00:56 verbose #1921 > > |> _assert_eq "rs"
00:00:56 verbose #1922 > > result
00:00:56 verbose #1923 > > |> mapm.get ("output" |> sm'.to_std_string)
00:00:56 verbose #1924 > > |> optionm'.unwrap
00:00:56 verbose #1925 > > |> sm'.from_std_string
00:00:56 verbose #1926 > > |> _assert_eq "-3"
00:00:56 verbose #1927 > >
00:00:56 verbose #1928 > > disposable |> use |> ignore
00:00:57 verbose #1929 > 00:00:55 debug #11 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/1a96ce3e3798db973a0ab17e22faf3e82c32247080b5d7d51a8a89fe0ba9825c/main.spi
00:01:53 verbose #1930 > >
00:01:53 verbose #1931 > > ╭─[ 57.49s - return value ]────────────────────────────────────────────────────╮
00:01:53 verbose #1932 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:01:53 verbose #1933 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_aab9039a │
00:01:53 verbose #1934 > > │ f501a4c1420e868b3fe7eb002d41f59b3baf4c918c6846e4e0b6967b\c6422374-71e4-07d4- │
00:01:53 verbose #1935 > > │ 0ba4-c3084b24fbba │
00:01:53 verbose #1936 > > │ 00:00:00 verbose #2 file_system.create_dir / dir: │
00:01:53 verbose #1937 > > │ c:\home\git\polyglot\target/spiral_builder\spiral_builder\packages\bbba338a4 │
00:01:53 verbose #1938 > > │ 7ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892 │
00:01:53 verbose #1939 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:01:53 verbose #1940 > > │ arguments: ["fable", │
00:01:53 verbose #1941 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:01:53 verbose #1942 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892/spiral_builder.fspr │
00:01:53 verbose #1943 > > │ oj", "--optimize", "--lang", "rs", "--extension", ".rs", "--outDir", │
00:01:53 verbose #1944 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:01:53 verbose #1945 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892", "--define", │
00:01:53 verbose #1946 > > │ "_WINDOWS"] / options: (None, "dotnet fable │
00:01:54 verbose #1947 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:01:54 verbose #1948 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892/spiral_builder.fspr │
00:01:54 verbose #1949 > > │ oj" --optimize --lang rs --extension .rs --outDir │
00:01:54 verbose #1950 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a │
00:01:54 verbose #1951 > > │ 47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892" --define │
00:01:54 verbose #1952 > > │ _WINDOWS", Array(MutCell([])), None, None, true, None) │
00:01:54 verbose #1953 > > │ 00:00:00 verbose #4 > Fable 4.17.0: F# to Rust compiler (status: │
00:01:54 verbose #1954 > > │ alpha) │
00:01:54 verbose #1955 > > │ 00:00:00 verbose #5 > │
00:01:54 verbose #1956 > > │ 00:00:00 verbose #6 > Thanks to the │
00:01:54 verbose #1957 > > │ con...277df176e65d83bd5db52892.exe` │
00:01:54 verbose #1958 > > │ 00:00:05 verbose #22 > -3 │
00:01:54 verbose #1959 > > │ 00:00:05 verbose #23 runtime.execute_with_options / result / │
00:01:54 verbose #1960 > > │ exit_code: 0 / std_trace.Length: 628 │
00:01:54 verbose #1961 > > │ 00:00:05 verbose #24 spiral_builder.process_rust / new_code_path: │
00:01:54 verbose #1962 > > │ c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bbba338a4 │
00:01:54 verbose #1963 > > │ 7ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\spiral_builder.rs / │
00:01:54 verbose #1964 > > │ cleanup: │
00:01:54 verbose #1965 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:01:54 verbose #1966 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:01:54 verbose #1967 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:01:54 verbose #1968 > > │ d5db52892.d", true, │
00:01:54 verbose #1969 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:01:54 verbose #1970 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:01:54 verbose #1971 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:01:54 verbose #1972 > > │ d5db52892.exe", true, │
00:01:54 verbose #1973 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:01:54 verbose #1974 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:01:54 verbose #1975 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:01:54 verbose #1976 > > │ d5db52892.pdb", true, │
00:01:54 verbose #1977 > > │ UH3_1("c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/bb │
00:01:54 verbose #1978 > > │ ba338a47ca28119f39303b7763a976cf95da9c277df176e65d83bd5db52892\../..\target/ │
00:01:54 verbose #1979 > > │ debug/spiral_builder_bbba338a47ca28119f39303b7763a976cf95da9c277df176e65d83b │
00:01:54 verbose #1980 > > │ d5db52892", false, UH3_0)))) │
00:01:54 verbose #1981 > > │ assert_eq / actual: "rs" / expected: "rs" │
00:01:54 verbose #1982 > > │ assert_eq / actual: "-3" / expected: "-3" │
00:01:54 verbose #1983 > > │ │
00:01:54 verbose #1984 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 verbose #1985 > >
00:01:54 verbose #1986 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 verbose #1987 > > //// test
00:01:54 verbose #1988 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io futures rand
00:01:54 verbose #1989 > > rayon regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:01:54 verbose #1990 > >
00:01:54 verbose #1991 > > types ()
00:01:54 verbose #1992 > >
00:01:54 verbose #1993 > > inl code = "3 - 6 |> System.Console.WriteLine\n"
00:01:54 verbose #1994 > > inl file_name = "main.fs"
00:01:54 verbose #1995 > >
00:01:54 verbose #1996 > > inl temp_dir, disposable =
00:01:54 verbose #1997 > > (file_name, code)
00:01:54 verbose #1998 > > |> sm'.format_debug
00:01:54 verbose #1999 > > |> crypto.hash_text
00:01:54 verbose #2000 > > |> file_system.create_temp_dir'
00:01:54 verbose #2001 > > inl fs_path = temp_dir </> file_name
00:01:54 verbose #2002 > >
00:01:54 verbose #2003 > > code |> file_system.write_all_text fs_path
00:01:54 verbose #2004 > >
00:01:54 verbose #2005 > > get_command ()
00:01:54 verbose #2006 > > |> runtime.command_get_matches_from ($'$"_ fable -f \\\"{!fs_path}\\\" -c
00:01:54 verbose #2007 > > \\\"typescript\\\""' |> runtime.split_args |> resultm.get)
00:01:54 verbose #2008 > > |> run Verbose
00:01:54 verbose #2009 > > |> async.block_on
00:01:54 verbose #2010 > > |> resultm.unwrap'
00:01:54 verbose #2011 > > |> sm'.deserialize
00:01:54 verbose #2012 > > |> resultm.unwrap'
00:01:54 verbose #2013 > > |> mapm.get ("command_result" |> sm'.to_std_string)
00:01:54 verbose #2014 > > |> optionm'.unwrap
00:01:54 verbose #2015 > > |> sm'.from_std_string
00:01:54 verbose #2016 > > |> sm'.deserialize
00:01:54 verbose #2017 > > |> resultm.unwrap'
00:01:54 verbose #2018 > > |> fun result =>
00:01:54 verbose #2019 > > result
00:01:54 verbose #2020 > > |> mapm.get ("extension" |> sm'.to_std_string)
00:01:54 verbose #2021 > > |> optionm'.unwrap
00:01:54 verbose #2022 > > |> sm'.from_std_string
00:01:54 verbose #2023 > > |> _assert_eq "ts"
00:01:54 verbose #2024 > > result
00:01:54 verbose #2025 > > |> mapm.get ("output" |> sm'.to_std_string)
00:01:54 verbose #2026 > > |> optionm'.unwrap
00:01:54 verbose #2027 > > |> sm'.from_std_string
00:01:54 verbose #2028 > > |> _assert_eq "-3"
00:01:54 verbose #2029 > >
00:01:54 verbose #2030 > > disposable |> use |> ignore
00:01:54 verbose #2031 > 00:01:53 debug #12 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/8557a86030d4f65923909a2542892e33865397c6576ba86d147fbc27cad7758a/main.spi
00:02:38 verbose #2032 > >
00:02:38 verbose #2033 > > ╭─[ 44.27s - return value ]────────────────────────────────────────────────────╮
00:02:38 verbose #2034 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:02:38 verbose #2035 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_ee1e2b5d │
00:02:38 verbose #2036 > > │ 1850a416d52b9da7b8f66180fdf03c789b04f6f919c01700015dea38\c6422374-71e4-07d4- │
00:02:38 verbose #2037 > > │ 0ba4-c3084b24fbba │
00:02:38 verbose #2038 > > │ 00:00:00 verbose #2 file_system.create_dir / dir: │
00:02:38 verbose #2039 > > │ c:\home\git\polyglot\target/spiral_builder\spiral_builder\packages\702335b07 │
00:02:38 verbose #2040 > > │ 56baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8 │
00:02:38 verbose #2041 > > │ 00:00:00 debug #3 spiral_builder.process_typescript / version: │
00:02:38 verbose #2042 > > │ US39_1 │
00:02:38 verbose #2043 > > │ 00:00:00 debug #4 runtime.execute_with_options / file_name: dotnet / │
00:02:38 verbose #2044 > > │ arguments: ["fable", │
00:02:38 verbose #2045 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:02:38 verbose #2046 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8/spiral_builder.fspr │
00:02:38 verbose #2047 > > │ oj", "--optimize", "--lang", "ts", "--extension", ".ts", "--outDir", │
00:02:38 verbose #2048 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:02:38 verbose #2049 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8", "--define", │
00:02:38 verbose #2050 > > │ "_WINDOWS"] / options: (None, "dotnet fable │
00:02:38 verbose #2051 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:02:38 verbose #2052 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8/spiral_builder.fspr │
00:02:38 verbose #2053 > > │ oj" --optimize --lang ts --extension .ts --outDir │
00:02:38 verbose #2054 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/702335b0 │
00:02:38 verbose #2055 > > │ 756baa7db0d02dbbeaf9fc04cf2c3b7dbb45866c578c5109aaa8c4a8" --define │
00:02:38 verbose #2056 > > │ _WINDOWS", Array(MutCell([])), None, None, true, None) │
00:02:38 verbose #2057 > > │ 00:00:00 verbose #5 > Fable 4.17.0: F# to TypeScript compiler │
00:02:38 verbose #2058 > > │ 00:00:00 │
00:02:38 verbose #2059 > > │ ...\current;C:\Users\i574n\scoop\apps\python\current;C:\Users\i574n\scoop\ap │
00:02:38 verbose #2060 > > │ ps\nircmd\current;C:\Users\i574n\scoop\apps\graalvm-nightly-jdk17\current\bi │
00:02:38 verbose #2061 > > │ n;C:\Users\i574n\scoop\apps\dotnet3-sdk\current;C:\WINDOWS\System32;C:\WINDO │
00:02:38 verbose #2062 > > │ WS;C:\WINDOWS\System32\wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;C:\W │
00:02:38 verbose #2063 > > │ INDOWS\System32\OpenSSH\;C:\Users\i574n\scoop\shims;C:\Users\i574n/scoop\shi │
00:02:38 verbose #2064 > > │ ms;C:\Users\i574n\AppData\Local\Microsoft\WindowsApps;C:\Users\i574n/scoop/b │
00:02:38 verbose #2065 > > │ uckets/mold/home/windows/path;C:\Users\i574n/scoop\persist\rustup\.cargo\bin │
00:02:38 verbose #2066 > > │ ;C:\Users\i574n/scoop\apps\nvm\current\nodejs\nodejs;C:\Users\i574n/scoop\ap │
00:02:38 verbose #2067 > > │ ps\cygwin\current\root\bin;C:\Users\i574n/scoop/persist/rustup/.cargo/bin;C: │
00:02:38 verbose #2068 > > │ \Users\i574n/scoop/apps/nvm/current/nodejs/nodejs;C:\Users\i574n/scoop/apps/ │
00:02:38 verbose #2069 > > │ cygwin/current/root/bin;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\AppData\ │
00:02:38 verbose #2070 > > │ Local\Programs\Microsoft VS Code\bin;C:\Program │
00:02:38 verbose #2071 > > │ Files\Intel\WiFi\bin\;C:\Program Files\Common │
00:02:38 verbose #2072 > > │ Files\Intel\WirelessCommon\;C:\Users\i574n\AppData\Local\Microsoft\WindowsAp │
00:02:38 verbose #2073 > > │ ps;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\Downloads\bun-windows-x64;C:\ │
00:02:38 verbose #2074 > > │ Users\i574n\.dotnet\tools;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\.bun\b │
00:02:38 verbose #2075 > > │ in;C:\Users\i574n\.dotnet\tools;C:\Users\i574n\.dotnet\tools"), │
00:02:38 verbose #2076 > > │ ("TRACE_LEVEL", "Verbose")])), None, None, true, None) │
00:02:38 verbose #2077 > > │ 00:00:01 verbose #19 > -3 │
00:02:38 verbose #2078 > > │ 00:00:01 verbose #20 runtime.execute_with_options / result / │
00:02:38 verbose #2079 > > │ exit_code: 0 / std_trace.Length: 2 │
00:02:38 verbose #2080 > > │ assert_eq / actual: "ts" / expected: "ts" │
00:02:38 verbose #2081 > > │ assert_eq / actual: "-3" / expected: "-3" │
00:02:38 verbose #2082 > > │ │
00:02:38 verbose #2083 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 verbose #2084 > >
00:02:38 verbose #2085 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:38 verbose #2086 > > //// test
00:02:38 verbose #2087 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io futures rand
00:02:38 verbose #2088 > > rayon regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:02:38 verbose #2089 > >
00:02:38 verbose #2090 > > types ()
00:02:38 verbose #2091 > >
00:02:38 verbose #2092 > > inl file_name = "main.fs"
00:02:38 verbose #2093 > > inl code = "3 - 6 |> System.Console.WriteLine\n"
00:02:38 verbose #2094 > >
00:02:38 verbose #2095 > > inl temp_dir, disposable =
00:02:38 verbose #2096 > > (file_name, code)
00:02:38 verbose #2097 > > |> sm'.format_debug
00:02:38 verbose #2098 > > |> crypto.hash_text
00:02:38 verbose #2099 > > |> file_system.create_temp_dir'
00:02:38 verbose #2100 > > inl fs_path = temp_dir </> file_name
00:02:38 verbose #2101 > >
00:02:38 verbose #2102 > > code |> file_system.write_all_text fs_path
00:02:38 verbose #2103 > >
00:02:38 verbose #2104 > > get_command ()
00:02:38 verbose #2105 > > |> runtime.command_get_matches_from ($'$"_ fable -f \\\"{!fs_path}\\\" -c
00:02:38 verbose #2106 > > \\\"python\\\""' |> runtime.split_args |> resultm.get)
00:02:38 verbose #2107 > > |> run Verbose
00:02:38 verbose #2108 > > |> async.block_on
00:02:38 verbose #2109 > > |> resultm.unwrap'
00:02:38 verbose #2110 > > |> sm'.deserialize
00:02:38 verbose #2111 > > |> resultm.unwrap'
00:02:38 verbose #2112 > > |> mapm.get ("command_result" |> sm'.to_std_string)
00:02:38 verbose #2113 > > |> optionm'.unwrap
00:02:38 verbose #2114 > > |> sm'.from_std_string
00:02:38 verbose #2115 > > |> sm'.deserialize
00:02:38 verbose #2116 > > |> resultm.unwrap'
00:02:38 verbose #2117 > > |> fun result =>
00:02:38 verbose #2118 > > result
00:02:38 verbose #2119 > > |> mapm.get ("extension" |> sm'.to_std_string)
00:02:38 verbose #2120 > > |> optionm'.unwrap
00:02:38 verbose #2121 > > |> sm'.from_std_string
00:02:38 verbose #2122 > > |> _assert_eq "py"
00:02:38 verbose #2123 > > result
00:02:38 verbose #2124 > > |> mapm.get ("output" |> sm'.to_std_string)
00:02:38 verbose #2125 > > |> optionm'.unwrap
00:02:38 verbose #2126 > > |> sm'.from_std_string
00:02:38 verbose #2127 > > |> _assert_eq "-3"
00:02:38 verbose #2128 > >
00:02:38 verbose #2129 > > disposable |> use |> ignore
00:02:38 verbose #2130 > 00:02:37 debug #13 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/5b007b2aaaea3ac8235fc586bb52ae002417c911f3f5ef001d40a0d0e44aaf01/main.spi
00:03:22 verbose #2131 > >
00:03:22 verbose #2132 > > ╭─[ 44.32s - return value ]────────────────────────────────────────────────────╮
00:03:22 verbose #2133 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:03:22 verbose #2134 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_24848da4 │
00:03:22 verbose #2135 > > │ 2265b7a46c336a358a29fa47556e31c474cac548fb65fceb605b7569\c6422374-71e4-07d4- │
00:03:22 verbose #2136 > > │ 0ba4-c3084b24fbba │
00:03:22 verbose #2137 > > │ 00:00:00 verbose #2 file_system.create_dir / dir: │
00:03:22 verbose #2138 > > │ c:\home\git\polyglot\target/spiral_builder\spiral_builder\packages\cb8f3dd33 │
00:03:22 verbose #2139 > > │ 197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce │
00:03:22 verbose #2140 > > │ 00:00:00 debug #3 runtime.execute_with_options / file_name: dotnet / │
00:03:22 verbose #2141 > > │ arguments: ["fable", │
00:03:22 verbose #2142 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:22 verbose #2143 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce/spiral_builder.fspr │
00:03:22 verbose #2144 > > │ oj", "--optimize", "--lang", "py", "--extension", ".py", "--outDir", │
00:03:22 verbose #2145 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:22 verbose #2146 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce", "--define", │
00:03:22 verbose #2147 > > │ "_WINDOWS"] / options: (None, "dotnet fable │
00:03:22 verbose #2148 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:22 verbose #2149 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce/spiral_builder.fspr │
00:03:22 verbose #2150 > > │ oj" --optimize --lang py --extension .py --outDir │
00:03:22 verbose #2151 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:22 verbose #2152 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce" --define │
00:03:22 verbose #2153 > > │ _WINDOWS", Array(MutCell([])), None, None, true, None) │
00:03:22 verbose #2154 > > │ 00:00:00 verbose #4 > Fable 4.17.0: F# to Python compiler (status: │
00:03:22 verbose #2155 > > │ beta) │
00:03:22 verbose #2156 > > │ 00:00:00 verbose #5 > │
00:03:22 verbose #2157 > > │ 00:00:00 verbose #6 > Thanks to the │
00:03:22 verbose #2158 > > │ co...7bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\spiral_builder.fs │
00:03:22 verbose #2159 > > │ proj... │
00:03:22 verbose #2160 > > │ 00:00:00 verbose #10 > Retrieving project options from cache, in case │
00:03:22 verbose #2161 > > │ of issues run `dotnet fable clean` or try `--noCache` option. │
00:03:22 verbose #2162 > > │ 00:00:00 verbose #11 > Project and references (1 source files) parsed │
00:03:22 verbose #2163 > > │ in 212ms │
00:03:22 verbose #2164 > > │ 00:00:00 verbose #12 > │
00:03:22 verbose #2165 > > │ 00:00:00 verbose #13 > Skipped compilation because all generated files │
00:03:22 verbose #2166 > > │ are up-to-date! │
00:03:22 verbose #2167 > > │ 00:00:00 verbose #14 runtime.execute_with_options / result / │
00:03:22 verbose #2168 > > │ exit_code: 0 / std_trace.Length: 526 │
00:03:22 verbose #2169 > > │ 00:00:00 debug #15 spiral_builder.process_python / new_code_path: │
00:03:22 verbose #2170 > > │ c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd33 │
00:03:22 verbose #2171 > > │ 197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\spiral_builder.py │
00:03:22 verbose #2172 > > │ 00:00:00 debug #16 runtime.execute_with_options / file_name: python │
00:03:22 verbose #2173 > > │ / arguments: [ │
00:03:22 verbose #2174 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:22 verbose #2175 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\\spiral_builder.py" │
00:03:22 verbose #2176 > > │ ] / options: (None, "python │
00:03:22 verbose #2177 > > │ "c:/home/git/polyglot/target/spiral_builder/spiral_builder/packages/cb8f3dd3 │
00:03:22 verbose #2178 > > │ 3197bb0bc95f09b3f3057a6844a0b70d75477350491883d14d8680ce\spiral_builder.py"" │
00:03:22 verbose #2179 > > │ , Array(MutCell([("TRACE_LEVEL", "Verbose")])), None, None, true, None) │
00:03:22 verbose #2180 > > │ 00:00:01 verbose #17 > -3 │
00:03:22 verbose #2181 > > │ 00:00:01 verbose #18 runtime.execute_with_options / result / │
00:03:22 verbose #2182 > > │ exit_code: 0 / std_trace.Length: 2 │
00:03:22 verbose #2183 > > │ assert_eq / actual: "py" / expected: "py" │
00:03:22 verbose #2184 > > │ assert_eq / actual: "-3" / expected: "-3" │
00:03:22 verbose #2185 > > │ │
00:03:22 verbose #2186 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 verbose #2187 > >
00:03:22 verbose #2188 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 verbose #2189 > > //// test
00:03:22 verbose #2190 > > ///! rust -d async-walkdir chrono clap encoding_rs encoding_rs_io rand rayon
00:03:22 verbose #2191 > > regex serde_json sha2 tokio[['rt-multi-thread']] tokio-stream
00:03:22 verbose #2192 > >
00:03:22 verbose #2193 > > types ()
00:03:22 verbose #2194 > >
00:03:22 verbose #2195 > > inl file_name = "test.dib"
00:03:22 verbose #2196 > > inl code =
00:03:22 verbose #2197 > >
00:03:22 verbose #2198 > > "#!meta\n\n{\"kernelInfo\":{\"defaultKernelName\":\"fsharp\",\"items\":[[]]}}\n\
00:03:22 verbose #2199 > > n#!fsharp\n\n3 - 6\n"
00:03:22 verbose #2200 > >
00:03:22 verbose #2201 > > inl temp_dir, disposable =
00:03:22 verbose #2202 > > (file_name, code)
00:03:22 verbose #2203 > > |> sm'.format_debug
00:03:22 verbose #2204 > > |> crypto.hash_text
00:03:22 verbose #2205 > > |> file_system.create_temp_dir'
00:03:22 verbose #2206 > > inl path = temp_dir </> file_name |> file_system.normalize_path
00:03:22 verbose #2207 > >
00:03:22 verbose #2208 > > code
00:03:22 verbose #2209 > > |> file_system.write_all_text path
00:03:22 verbose #2210 > >
00:03:22 verbose #2211 > > get_command ()
00:03:22 verbose #2212 > > |> runtime.command_get_matches_from ($'$"_ dib -p {!path}"' |>
00:03:22 verbose #2213 > > runtime.split_args |> resultm.get)
00:03:22 verbose #2214 > > |> run Verbose
00:03:22 verbose #2215 > > |> async.block_on
00:03:22 verbose #2216 > > |> resultm.unwrap'
00:03:22 verbose #2217 > > |> __assert_string_contains false "<pre>-3 "
00:03:22 verbose #2218 > >
00:03:22 verbose #2219 > > $'$"{!path}.html"'
00:03:22 verbose #2220 > > |> file_system.read_all_text
00:03:22 verbose #2221 > > |> __assert_string_contains false "\"cell-id=1\""
00:03:22 verbose #2222 > >
00:03:22 verbose #2223 > > disposable |> use |> ignore
00:03:23 verbose #2224 > 00:03:22 debug #14 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/f155391eedb3c935993be67858b7c032df062973a9d593f852174287166ce056/main.spi
00:04:14 verbose #2225 > >
00:04:14 verbose #2226 > > ╭─[ 52.12s - return value ]────────────────────────────────────────────────────╮
00:04:14 verbose #2227 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:04:14 verbose #2228 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_f6092e48 │
00:04:14 verbose #2229 > > │ 89e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24\af524e22-8e9a-5d18- │
00:04:14 verbose #2230 > > │ 99ed-bd86e1b74623 │
00:04:14 verbose #2231 > > │ 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / │
00:04:14 verbose #2232 > > │ arguments: ["repl", "--exit-after-run", "--run", │
00:04:14 verbose #2233 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_f6092e4 │
00:04:14 verbose #2234 > > │ 889e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24/af524e22-8e9a-5d18 │
00:04:14 verbose #2235 > > │ -99ed-bd86e1b74623/test.dib", "--output-path", │
00:04:14 verbose #2236 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_f6092e4 │
00:04:14 verbose #2237 > > │ 889e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24/af524e22-8e9a-5d18 │
00:04:14 verbose #2238 > > │ -99ed-bd86e1b74623/test.dib.ipynb"] / options: (None, "dotnet repl │
00:04:14 verbose #2239 > > │ --exit-after-run --run │
00:04:14 verbose #2240 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_f6092e4 │
00:04:14 verbose #2241 > > │ 889e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24/af524e22-8e9a-5d18 │
00:04:14 verbose #2242 > > │ -99ed-bd86e1b74623/test.dib" --output-path │
00:04:14 verbose #2243 > > │ "c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_f6092e4 │
00:04:14 verbose #2244 > > │ 889e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24/af524e22-8e9a-5d18 │
00:04:14 verbose #2245 > > │ -99ed-bd86e1b74623/test.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", │
00:04:14 verbose #2246 > > │ "Verbose"), ("AUTOMATION", "True")])), None, None, false, None) │
00:04:14 verbose #2247 > > │ > │
00:04:14 verbose #2248 > > │ > ── fsharp │
00:04:14 verbose #2249 > > │ ────────────────────────────────────────────────────────────────────── │
00:04:14 verbose #2250 > > │ > 3 - 6 │
00:04:14 verbose #2251 > > │ > │
00:04:14 verbose #2252 > > │ > ── fsharp - import │
00:04:14 verbose #2253 > > │ ───────────────────────────────────────────────────────────── │
00:04:14 verbose #2254 > > │ > #r │
00:04:14 verbose #2255 > > │ > │
00:04:14 verbose #2256 > > │ "C:/Users/i574n/.nuget/packages...89e921773d7f95cd74e546652104269fe3ff62f4d1 │
00:04:14 verbose #2257 > > │ 50e2b906c55e24\af524e22-8e9a-5d18-99ed-bd86e1b74623\test.dib.html │
00:04:14 verbose #2258 > > │ 00:00:10 verbose #9 runtime.execute_with_options / result / exit_code: │
00:04:14 verbose #2259 > > │ 0 / std_trace.Length: 915 │
00:04:14 verbose #2260 > > │ 00:00:10 debug #10 spiral_builder.run / dib / jupyter nbconvert / │
00:04:14 verbose #2261 > > │ exit_code: 0 / jupyter_result.Length: 915 │
00:04:14 verbose #2262 > > │ 00:00:10 debug #11 runtime.execute_with_options / file_name: pwsh / │
00:04:14 verbose #2263 > > │ arguments: ["-c", "$counter = 1; $path = │
00:04:14 verbose #2264 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_f6092e4 │
00:04:14 verbose #2265 > > │ 889e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24/af524e22-8e9a-5d18 │
00:04:14 verbose #2266 > > │ -99ed-bd86e1b74623/test.dib.html'; (Get-Content $path -Raw) -replace │
00:04:14 verbose #2267 > > │ '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | │
00:04:14 verbose #2268 > > │ Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = │
00:04:14 verbose #2269 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_f6092e4 │
00:04:14 verbose #2270 > > │ 889e921773d7f95cd74e546652104269fe3ff62f4d150e2b906c55e24/af524e22-8e9a-5d18 │
00:04:14 verbose #2271 > > │ -99ed-bd86e1b74623/test.dib.html'; (Get-Content $path -Raw) -replace │
00:04:14 verbose #2272 > > │ '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | │
00:04:14 verbose #2273 > > │ Set-Content $path"", Array(MutCell([])), None, None, true, None) │
00:04:14 verbose #2274 > > │ 00:00:11 verbose #12 runtime.execute_with_options / result / │
00:04:14 verbose #2275 > > │ exit_code: 0 / std_trace.Length: 0 │
00:04:14 verbose #2276 > > │ 00:00:11 debug #13 spiral_builder.run / dib / html cell ids / │
00:04:14 verbose #2277 > > │ exit_code: 0 / pwsh_replace_html_result.Length: 0 │
00:04:14 verbose #2278 > > │ 00:00:12 debug #14 spiral_builder.run / dib / exit_code: 0 / │
00:04:14 verbose #2279 > > │ result.Length: 5290 │
00:04:14 verbose #2280 > > │ │
00:04:14 verbose #2281 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #2282 > >
00:04:14 verbose #2283 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:14 verbose #2284 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:14 verbose #2285 > > │ ## tests │
00:04:14 verbose #2286 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 verbose #2287 > >
00:04:14 verbose #2288 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 verbose #2289 > > inl tests () =
00:04:14 verbose #2290 > > rust.run_tests [[
00:04:14 verbose #2291 > > "verify_app", fun _ =>
00:04:14 verbose #2292 > > get_command () |> runtime.command_debug_assert
00:04:14 verbose #2293 > > ]]
00:04:15 verbose #2294 > 00:04:14 debug #15 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/a550c4059bbb2c1cedbf43715536b85471868629ab5b485d448193611d87fe4b/main.spi
00:04:15 verbose #2295 > >
00:04:15 verbose #2296 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 verbose #2297 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 verbose #2298 > > │ ## main │
00:04:15 verbose #2299 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 verbose #2300 > >
00:04:15 verbose #2301 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 verbose #2302 > > ///!
00:04:15 verbose #2303 > >
00:04:15 verbose #2304 > > inl main (args : array_base string) =
00:04:15 verbose #2305 > > inl trace_state = get_trace_state_or_init None
00:04:15 verbose #2306 > >
00:04:15 verbose #2307 > > trace Debug
00:04:15 verbose #2308 > > fun () => $'$"spiral_builder.main"'
00:04:15 verbose #2309 > > fun () => $'$"args: {!args} / {!_locals ()}"'
00:04:15 verbose #2310 > >
00:04:15 verbose #2311 > > inl command = get_command ()
00:04:15 verbose #2312 > > inl arg_matches = command |> runtime.command_get_matches
00:04:15 verbose #2313 > >
00:04:15 verbose #2314 > > inl trace_state_level = trace_state.level
00:04:15 verbose #2315 > >
00:04:15 verbose #2316 > > inl result =
00:04:15 verbose #2317 > > arg_matches
00:04:15 verbose #2318 > > |> run *trace_state_level
00:04:15 verbose #2319 > > |> async.block_on
00:04:15 verbose #2320 > > |> resultm.unwrap'
00:04:15 verbose #2321 > >
00:04:15 verbose #2322 > > if *trace_state_level = Info
00:04:15 verbose #2323 > > then result |> console.write_line
00:04:15 verbose #2324 > >
00:04:15 verbose #2325 > > 0i32
00:04:15 verbose #2326 > >
00:04:15 verbose #2327 > > inl main () =
00:04:15 verbose #2328 > > types ()
00:04:15 verbose #2329 > > $'let tests () = !tests ()' : ()
00:04:15 verbose #2330 > > $'let main args = !main args' : ()
00:04:16 verbose #2331 > 00:04:15 debug #16 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/d02ed95b90540b28421708e20e43d0ccc644ff938dde07c889e8104b1dd5545b/main.spi
00:04:16 verbose #2332 > 00:04:14 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 102352
00:04:16 verbose #2333 > 00:04:14 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:04:19 verbose #2334 > 00:04:16 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.ipynb to html
00:04:19 verbose #2335 > 00:04:16 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:19 verbose #2336 > 00:04:16 verbose #7 ! validate(nb)
00:04:21 verbose #2337 > 00:04:19 verbose #8 ! [NbConvertApp] Writing 560970 bytes to c:\home\git\polyglot\apps\spiral\builder\spiral_builder.dib.html
00:04:21 verbose #2338 > 00:04:19 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 677
00:04:21 verbose #2339 > 00:04:19 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 677
00:04:21 verbose #2340 > 00:04:19 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/builder/spiral_builder.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:04:22 verbose #2341 > 00:04:20 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:04:22 verbose #2342 > 00:04:20 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:04:23 verbose #2343 > 00:04:21 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 103088
00:04:23 debug #2344 runtime.execute_with_options_async / exit_code: 0 / output.Length: 110091
00:04:23 debug #3 main / executeCommand / exitCode: 0 / command: ../../../workspace/target/release/spiral_builder.exe dib --path spiral_builder.dib
00:04:23 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:04:23 debug #7 async.run_with_timeout_async / timeout: 100
00:00:00 debug #1 writeDibCode / output: Spi / path: spiral_builder.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: spiral_builder.dib
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:01 debug #6 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 async.run_with_timeout_async / timeout: 500
00:00:02 debug #3 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 debug #4 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:03 verbose #5 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # spiral_builder\nopen file_system_operators\nopen rust_operators\nopen ...ain args\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/apps/spiral/builder/spiral_builder.spi"}} / result:
00:00:03 verbose #6 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/spiral/builder/spiral_builder.spi"}} / result:
00:00:03 verbose #7 > 00:00:02 debug #4 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/apps/spiral/builder/spiral_builder.spi
00:00:04 debug #7 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #8 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #9 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #10 Supervisor.buildFile / takeWhileInclusive / path: spiral_builder.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]
#endif...5 : (string -> unit) = System.Console.WriteLine
v25 v21
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure1()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:06 debug #11 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 verbose #8 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:00:06 debug #9 async.run_with_timeout_async / timeout: 100
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: spiral_builder / hash: / code.Length: 575552
targetDir: C:\home\git\polyglot\target\Builder\spiral_builder
Fable 4.17.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @BillHally
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing target\Builder\spiral_builder\spiral_builder.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (14 source files) parsed in 204ms
Skipped compilation because all generated files are up-to-date!
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust)
Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder)
Finished `release` profile [optimized] target(s) in 26.32s
Running unittests spiral_builder.rs (C:\home\git\polyglot\workspace\target\release\deps\spiral_builder-af40d2f7998b9126.exe)
running 1 test
test module_7e2cd9e0::Spiral_builder::verify_app ... ok
successes:
successes:
module_7e2cd9e0::Spiral_builder::verify_app
test result: ok. 1 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.00s
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust)
Compiling spiral_builder v0.0.1 (C:\home\git\polyglot\apps\spiral\builder)
error: failed to remove file `C:\home\git\polyglot\workspace\target\release\spiral_builder.exe`
Caused by:
Access is denied. (os error 5)
# Invoke-Block / $retry: 1/1 / $Location: / Get-Location: C:\home\git\polyglot\apps\spiral\builder / $OnError: Continue / $exitcode: 101 / $EnvVars: null / $Error: '' / $ScriptBlock:
'cargo +nightly build --release'
In [ ]:
{ pwsh ../lib/fsharp/build.ps1 -sequential 1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Async.dib --retries 3",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Async.dib", "--retries", "3"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/Async.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/Async.dib" --output-path "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #10 > >
00:00:04 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #13 > > │ # Async (Polyglot) │
00:00:04 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #15 > >
00:00:04 verbose #16 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #17 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:04 verbose #18 > > #!import ../../lib/fsharp/Testing.dib
00:00:04 verbose #19 > >
00:00:04 verbose #20 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #21 > > #r
00:00:04 verbose #22 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:04 verbose #23 > > spNetCore.Html.Abstractions.dll"
00:00:04 verbose #24 > > #r
00:00:04 verbose #25 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #26 > > otNet.Interactive.dll"
00:00:04 verbose #27 > > #r
00:00:04 verbose #28 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #29 > > otNet.Interactive.FSharp.dll"
00:00:04 verbose #30 > > #r
00:00:04 verbose #31 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #32 > > otNet.Interactive.Formatting.dll"
00:00:04 verbose #33 > > open System
00:00:04 verbose #34 > > open System.IO
00:00:04 verbose #35 > > open System.Text
00:00:04 verbose #36 > > open Microsoft.DotNet.Interactive.Formatting
00:00:08 verbose #37 > >
00:00:08 verbose #38 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #39 > > #r
00:00:08 verbose #40 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #41 > > otNet.Interactive.FSharp.dll"
00:00:08 verbose #42 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:08 verbose #43 > > #r
00:00:08 verbose #44 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #45 > > otNet.Interactive.dll"
00:00:08 verbose #46 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:08 verbose #47 > >
00:00:08 verbose #48 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #49 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:08 verbose #50 > >
00:00:08 verbose #51 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #52 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:08 verbose #53 > > TextWriter)->fprintfn writer "%120A" x)
00:00:08 verbose #54 > >
00:00:08 verbose #55 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #56 > > //// test
00:00:08 verbose #57 > >
00:00:08 verbose #58 > > Formatter.ListExpansionLimit <- 100
00:00:09 verbose #59 > >
00:00:09 verbose #60 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #61 > > #if FABLE_COMPILER
00:00:09 verbose #62 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:09 verbose #63 > > #endif
00:00:09 verbose #64 > > type std_env_VarError = class end
00:00:09 verbose #65 > > #if FABLE_COMPILER
00:00:09 verbose #66 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:09 verbose #67 > > #endif
00:00:09 verbose #68 > > type core_any_Any = class end
00:00:09 verbose #69 > > #if FABLE_COMPILER
00:00:09 verbose #70 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:09 verbose #71 > > #endif
00:00:09 verbose #72 > > type core_ops_Try<'T> = class end
00:00:09 verbose #73 > > #if FABLE_COMPILER
00:00:09 verbose #74 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:09 verbose #75 > > #endif
00:00:09 verbose #76 > > type Func0<'T> = class end
00:00:09 verbose #77 > > #if FABLE_COMPILER
00:00:09 verbose #78 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:09 verbose #79 > > #endif
00:00:09 verbose #80 > > type Func0<'T, 'U> = class end
00:00:09 verbose #81 > > #if FABLE_COMPILER
00:00:09 verbose #82 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:09 verbose #83 > > #endif
00:00:09 verbose #84 > > type Box<'T> = class end
00:00:09 verbose #85 > > #if FABLE_COMPILER
00:00:09 verbose #86 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:09 verbose #87 > > #endif
00:00:09 verbose #88 > > type Dyn<'T> = class end
00:00:09 verbose #89 > > #if FABLE_COMPILER
00:00:09 verbose #90 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:09 verbose #91 > > #endif
00:00:09 verbose #92 > > type Send<'T> = class end
00:00:09 verbose #93 > > #if FABLE_COMPILER
00:00:09 verbose #94 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:09 verbose #95 > > #endif
00:00:09 verbose #96 > > type Fn<'T> = class end
00:00:09 verbose #97 > > #if FABLE_COMPILER
00:00:09 verbose #98 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:09 verbose #99 > > #endif
00:00:09 verbose #100 > > type FnUnit = class end
00:00:09 verbose #101 > > #if FABLE_COMPILER
00:00:09 verbose #102 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:09 verbose #103 > > #endif
00:00:09 verbose #104 > > type FnOnce<'T> = class end
00:00:09 verbose #105 > > #if FABLE_COMPILER
00:00:09 verbose #106 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:09 verbose #107 > > #endif
00:00:09 verbose #108 > > type ActionFn<'T> = class end
00:00:09 verbose #109 > > #if FABLE_COMPILER
00:00:09 verbose #110 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:09 verbose #111 > > #endif
00:00:09 verbose #112 > > type ActionFn2<'T, 'U> = class end
00:00:09 verbose #113 > > #if FABLE_COMPILER
00:00:09 verbose #114 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:09 verbose #115 > > #endif
00:00:09 verbose #116 > > type Impl<'T> = class end
00:00:09 verbose #117 > > #if FABLE_COMPILER
00:00:09 verbose #118 > > [[<Fabl... _v5=None"
00:00:09 verbose #119 > > US5_1
00:00:09 verbose #120 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:09 verbose #121 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:09 verbose #122 > > let v4 : (US4 -> US5) = closure6()
00:00:09 verbose #123 > > let v5 : (exn -> US5) = closure7(v2)
00:00:09 verbose #124 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:09 verbose #125 > > match v6 with
00:00:09 verbose #126 > > | US5_1 -> (* None *)
00:00:09 verbose #127 > > let v8 : int32 = v2 + 1
00:00:09 verbose #128 > > method6(v0, v1, v8)
00:00:09 verbose #129 > > | US5_0(v7) -> (* Some *)
00:00:09 verbose #130 > > v7
00:00:09 verbose #131 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:09 verbose #132 > > let v2 : int32 = 0
00:00:09 verbose #133 > > let v3 : US4 = method6(v0, v1, v2)
00:00:09 verbose #134 > > match v3 with
00:00:09 verbose #135 > > | US4_1 -> (* None *)
00:00:09 verbose #136 > > let v5 : unit option = None
00:00:09 verbose #137 > > v5
00:00:09 verbose #138 > > | US4_0 -> (* Some *)
00:00:09 verbose #139 > > let v4 : unit option = Some ()
00:00:09 verbose #140 > > v4
00:00:09 verbose #141 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:09 verbose #142 > > closure4(v0)
00:00:09 verbose #143 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #144 > > v0
00:00:09 verbose #145 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:09 verbose #146 > > v0.Value
00:00:09 verbose #147 > > ()
00:00:09 verbose #148 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #149 > > let v1 : (unit -> unit) = method12(v0)
00:00:09 verbose #150 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:09 verbose #151 > > closure13(v2)
00:00:09 verbose #152 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:09 verbose #153 > > let v1 : US0 = US0_0
00:00:09 verbose #154 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:09 verbose #155 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:09 verbose #156 > > let new_disposable x = v2 x
00:00:09 verbose #157 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:09 verbose #158 > > let retry_fn x = v3 x
00:00:09 verbose #159 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:09 verbose #160 > > let memoize x = v4 x
00:00:09 verbose #161 > > ()
00:00:09 verbose #162 > >
00:00:10 verbose #163 > >
00:00:10 verbose #164 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #165 > > #if FABLE_COMPILER
00:00:10 verbose #166 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:10 verbose #167 > > #endif
00:00:10 verbose #168 > > type core_any_Any = class end
00:00:10 verbose #169 > > #if FABLE_COMPILER
00:00:10 verbose #170 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:10 verbose #171 > > #endif
00:00:10 verbose #172 > > type core_ops_Try<'T> = class end
00:00:10 verbose #173 > > #if FABLE_COMPILER
00:00:10 verbose #174 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:10 verbose #175 > > #endif
00:00:10 verbose #176 > > type Func0<'T> = class end
00:00:10 verbose #177 > > #if FABLE_COMPILER
00:00:10 verbose #178 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:10 verbose #179 > > #endif
00:00:10 verbose #180 > > type Func0<'T, 'U> = class end
00:00:10 verbose #181 > > #if FABLE_COMPILER
00:00:10 verbose #182 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:10 verbose #183 > > #endif
00:00:10 verbose #184 > > type Box<'T> = class end
00:00:10 verbose #185 > > #if FABLE_COMPILER
00:00:10 verbose #186 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:10 verbose #187 > > #endif
00:00:10 verbose #188 > > type Dyn<'T> = class end
00:00:10 verbose #189 > > #if FABLE_COMPILER
00:00:10 verbose #190 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:10 verbose #191 > > #endif
00:00:10 verbose #192 > > type Send<'T> = class end
00:00:10 verbose #193 > > #if FABLE_COMPILER
00:00:10 verbose #194 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:10 verbose #195 > > #endif
00:00:10 verbose #196 > > type Fn<'T> = class end
00:00:10 verbose #197 > > #if FABLE_COMPILER
00:00:10 verbose #198 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:10 verbose #199 > > #endif
00:00:10 verbose #200 > > type FnUnit = class end
00:00:10 verbose #201 > > #if FABLE_COMPILER
00:00:10 verbose #202 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:10 verbose #203 > > #endif
00:00:10 verbose #204 > > type FnOnce<'T> = class end
00:00:10 verbose #205 > > #if FABLE_COMPILER
00:00:10 verbose #206 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:10 verbose #207 > > #endif
00:00:10 verbose #208 > > type ActionFn<'T> = class end
00:00:10 verbose #209 > > #if FABLE_COMPILER
00:00:10 verbose #210 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:10 verbose #211 > > #endif
00:00:10 verbose #212 > > type ActionFn2<'T, 'U> = class end
00:00:10 verbose #213 > > #if FABLE_COMPILER
00:00:10 verbose #214 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:10 verbose #215 > > #endif
00:00:10 verbose #216 > > type Impl<'T> = class end
00:00:10 verbose #217 > > #if FABLE_COMPILER
00:00:10 verbose #218 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:10 verbose #219 > > #endif
00:00:10 verbose #220 > > type Mut<'T> = class end
00:00:10 verbose #221 > > #if FABLE_COMPILER
00:00:10 verbose #222 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:10 verbose #223 > > let replace x = v4 x
00:00:10 verbose #224 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:10 verbose #225 > > let replace_regex x = v5 x
00:00:10 verbose #226 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:10 verbose #227 > > let slice x = v6 x
00:00:10 verbose #228 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:10 verbose #229 > > let split x = v7 x
00:00:10 verbose #230 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:10 verbose #231 > > let split_string x = v8 x
00:00:10 verbose #232 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:10 verbose #233 > > let starts_with x = v9 x
00:00:10 verbose #234 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:10 verbose #235 > > let substring x = v10 x
00:00:10 verbose #236 > > let v11 : (string -> string) = closure28()
00:00:10 verbose #237 > > let to_lower x = v11 x
00:00:10 verbose #238 > > let v12 : (string -> string) = closure29()
00:00:10 verbose #239 > > let to_upper x = v12 x
00:00:10 verbose #240 > > let v13 : (string -> string) = closure30()
00:00:10 verbose #241 > > let trim x = v13 x
00:00:10 verbose #242 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:10 verbose #243 > > let trim_end x = v14 x
00:00:10 verbose #244 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:10 verbose #245 > > let trim_start x = v15 x
00:00:10 verbose #246 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:10 verbose #247 > > let ellipsis x = v16 x
00:00:10 verbose #248 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:10 verbose #249 > > let ellipsis_end x = v17 x
00:00:10 verbose #250 > > let v18 : (exn -> string) = closure39()
00:00:10 verbose #251 > > let format_exception x = v18 x
00:00:10 verbose #252 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:10 verbose #253 > > let concat_array_trailing x = v19 x
00:00:10 verbose #254 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:10 verbose #255 > > let concat x = v20 x
00:00:10 verbose #256 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:10 verbose #257 > > let join' x = v21 x
00:00:10 verbose #258 > > let v22 : (string -> (char [[]])) = closure46()
00:00:10 verbose #259 > > let to_char_array x = v22 x
00:00:10 verbose #260 > > ()
00:00:10 verbose #261 > >
00:00:11 verbose #262 > >
00:00:11 verbose #263 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #264 > > #if FABLE_COMPILER
00:00:11 verbose #265 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #266 > > #endif
00:00:11 verbose #267 > > type core_any_Any = class end
00:00:11 verbose #268 > > #if FABLE_COMPILER
00:00:11 verbose #269 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #270 > > #endif
00:00:11 verbose #271 > > type core_ops_Try<'T> = class end
00:00:11 verbose #272 > > #if FABLE_COMPILER
00:00:11 verbose #273 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #274 > > #endif
00:00:11 verbose #275 > > type Func0<'T> = class end
00:00:11 verbose #276 > > #if FABLE_COMPILER
00:00:11 verbose #277 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #278 > > #endif
00:00:11 verbose #279 > > type Func0<'T, 'U> = class end
00:00:11 verbose #280 > > #if FABLE_COMPILER
00:00:11 verbose #281 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #282 > > #endif
00:00:11 verbose #283 > > type Box<'T> = class end
00:00:11 verbose #284 > > #if FABLE_COMPILER
00:00:11 verbose #285 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #286 > > #endif
00:00:11 verbose #287 > > type Dyn<'T> = class end
00:00:11 verbose #288 > > #if FABLE_COMPILER
00:00:11 verbose #289 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #290 > > #endif
00:00:11 verbose #291 > > type Send<'T> = class end
00:00:11 verbose #292 > > #if FABLE_COMPILER
00:00:11 verbose #293 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #294 > > #endif
00:00:11 verbose #295 > > type Fn<'T> = class end
00:00:11 verbose #296 > > #if FABLE_COMPILER
00:00:11 verbose #297 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #298 > > #endif
00:00:11 verbose #299 > > type FnUnit = class end
00:00:11 verbose #300 > > #if FABLE_COMPILER
00:00:11 verbose #301 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #302 > > #endif
00:00:11 verbose #303 > > type FnOnce<'T> = class end
00:00:11 verbose #304 > > #if FABLE_COMPILER
00:00:11 verbose #305 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #306 > > #endif
00:00:11 verbose #307 > > type ActionFn<'T> = class end
00:00:11 verbose #308 > > #if FABLE_COMPILER
00:00:11 verbose #309 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #310 > > #endif
00:00:11 verbose #311 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #312 > > #if FABLE_COMPILER
00:00:11 verbose #313 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #314 > > #endif
00:00:11 verbose #315 > > type Impl<'T> = class end
00:00:11 verbose #316 > > #if FABLE_COMPILER
00:00:11 verbose #317 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #318 > > #endif
00:00:11 verbose #319 > > type Mut<'T> = class end
00:00:11 verbose #320 > > #if FABLE_COMPILER
00:00:11 verbose #321 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:11 verbose #322 > > ()
00:00:11 verbose #323 > > #endif
00:00:11 verbose #324 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #325 > > let v28 : string = @"println!(""{}"", $0)"
00:00:11 verbose #326 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:11 verbose #327 > > ()
00:00:11 verbose #328 > > #endif
00:00:11 verbose #329 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:11 verbose #330 > > System.Console.WriteLine v24
00:00:11 verbose #331 > > ()
00:00:11 verbose #332 > > #endif
00:00:11 verbose #333 > > #if FABLE_COMPILER_PYTHON
00:00:11 verbose #334 > > System.Console.WriteLine v24
00:00:11 verbose #335 > > ()
00:00:11 verbose #336 > > #endif
00:00:11 verbose #337 > > #else
00:00:11 verbose #338 > > System.Console.WriteLine v24
00:00:11 verbose #339 > > ()
00:00:11 verbose #340 > > #endif
00:00:11 verbose #341 > > |> fun x -> _v25 <- Some x
00:00:11 verbose #342 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:11 verbose #343 > > _v25=None"
00:00:11 verbose #344 > > let v29 : (string -> unit) = v8.l0
00:00:11 verbose #345 > > v29 v24
00:00:11 verbose #346 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:11 verbose #347 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:11 verbose #348 > > method11(v0, v3)
00:00:11 verbose #349 > > and closure1 () (v0 : string) : uint16 =
00:00:11 verbose #350 > > let v1 : char = v0.[[int 0]]
00:00:11 verbose #351 > > let v2 : (char -> int32) = int32
00:00:11 verbose #352 > > let v3 : int32 = v2 v1
00:00:11 verbose #353 > > let v4 : string = v0.[[int 0..int 7]]
00:00:11 verbose #354 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:11 verbose #355 > > let v6 : int32 = v5 + v3
00:00:11 verbose #356 > > let v7 : (int32 -> uint16) = uint16
00:00:11 verbose #357 > > let v8 : uint16 = v7 v6
00:00:11 verbose #358 > > let v9 : US0 = US0_0
00:00:11 verbose #359 > > let v10 : (unit -> string) = closure2()
00:00:11 verbose #360 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:11 verbose #361 > > method3(v9, v10, v11)
00:00:11 verbose #362 > > let v12 : uint16 = v8 % 48128us
00:00:11 verbose #363 > > let v13 : uint16 = v12 + 1024us
00:00:11 verbose #364 > > v13
00:00:11 verbose #365 > > let v0 : (string -> string) = closure0()
00:00:11 verbose #366 > > let hash_text x = v0 x
00:00:11 verbose #367 > > let v1 : (string -> uint16) = closure1()
00:00:11 verbose #368 > > let hash_to_port x = v1 x
00:00:11 verbose #369 > > ()
00:00:11 verbose #370 > >
00:00:11 verbose #371 > >
00:00:11 verbose #372 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #373 > > #if FABLE_COMPILER
00:00:11 verbose #374 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #375 > > #endif
00:00:11 verbose #376 > > type core_any_Any = class end
00:00:11 verbose #377 > > #if FABLE_COMPILER
00:00:11 verbose #378 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #379 > > #endif
00:00:11 verbose #380 > > type core_ops_Try<'T> = class end
00:00:11 verbose #381 > > #if FABLE_COMPILER
00:00:11 verbose #382 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #383 > > #endif
00:00:11 verbose #384 > > type Func0<'T> = class end
00:00:11 verbose #385 > > #if FABLE_COMPILER
00:00:11 verbose #386 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #387 > > #endif
00:00:11 verbose #388 > > type Func0<'T, 'U> = class end
00:00:11 verbose #389 > > #if FABLE_COMPILER
00:00:11 verbose #390 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #391 > > #endif
00:00:11 verbose #392 > > type Box<'T> = class end
00:00:11 verbose #393 > > #if FABLE_COMPILER
00:00:11 verbose #394 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #395 > > #endif
00:00:11 verbose #396 > > type Dyn<'T> = class end
00:00:11 verbose #397 > > #if FABLE_COMPILER
00:00:11 verbose #398 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #399 > > #endif
00:00:11 verbose #400 > > type Send<'T> = class end
00:00:11 verbose #401 > > #if FABLE_COMPILER
00:00:11 verbose #402 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #403 > > #endif
00:00:11 verbose #404 > > type Fn<'T> = class end
00:00:11 verbose #405 > > #if FABLE_COMPILER
00:00:11 verbose #406 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #407 > > #endif
00:00:11 verbose #408 > > type FnUnit = class end
00:00:11 verbose #409 > > #if FABLE_COMPILER
00:00:11 verbose #410 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #411 > > #endif
00:00:11 verbose #412 > > type FnOnce<'T> = class end
00:00:11 verbose #413 > > #if FABLE_COMPILER
00:00:11 verbose #414 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #415 > > #endif
00:00:11 verbose #416 > > type ActionFn<'T> = class end
00:00:11 verbose #417 > > #if FABLE_COMPILER
00:00:11 verbose #418 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #419 > > #endif
00:00:11 verbose #420 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #421 > > #if FABLE_COMPILER
00:00:11 verbose #422 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #423 > > #endif
00:00:11 verbose #424 > > type Impl<'T> = class end
00:00:11 verbose #425 > > #if FABLE_COMPILER
00:00:11 verbose #426 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #427 > > #endif
00:00:11 verbose #428 > > type Mut<'T> = class end
00:00:11 verbose #429 > > #if FABLE_COMPILER
00:00:11 verbose #430 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:11 verbose #431 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:11 verbose #432 > > let v2 : System.Guid = v1 ()
00:00:11 verbose #433 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:11 verbose #434 > > let v4 : string = v3 v2
00:00:11 verbose #435 > > let v5 : (int64 -> string) = _.ToString()
00:00:11 verbose #436 > > let v6 : string = v5 v0
00:00:11 verbose #437 > > let v7 : string = v6.PadLeft (18, '0')
00:00:11 verbose #438 > > let v8 : System.Guid = System.Guid
00:00:11 verbose #439 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:11 verbose #440 > > v8
00:00:11 verbose #441 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:11 verbose #442 > > let v2 : (string -> string) = v1.ToString
00:00:11 verbose #443 > > v2 v0
00:00:11 verbose #444 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:11 verbose #445 > > closure12(v0)
00:00:11 verbose #446 > > and closure13 () (v0 : System.DateTime) : string =
00:00:11 verbose #447 > > let v1 : (string -> string) = v0.ToString
00:00:11 verbose #448 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:11 verbose #449 > > v1 v2
00:00:11 verbose #450 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:11 verbose #451 > > let date_time_guid_from_date_time x = v0 x
00:00:11 verbose #452 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:11 verbose #453 > > let date_time_from_guid x = v1 x
00:00:11 verbose #454 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:11 verbose #455 > > let timestamp_guid_from_timestamp x = v2 x
00:00:11 verbose #456 > > let v3 : (System.Guid -> int64) = closure8()
00:00:11 verbose #457 > > let timestamp_from_guid x = v3 x
00:00:11 verbose #458 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:11 verbose #459 > > let new_guid_from_date_time x = v4 x
00:00:11 verbose #460 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:11 verbose #461 > > let new_guid_from_timestamp x = v5 x
00:00:11 verbose #462 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:11 verbose #463 > > let format x = v6 x
00:00:11 verbose #464 > > let v7 : (System.DateTime -> string) = closure13()
00:00:11 verbose #465 > > let format_iso8601 x = v7 x
00:00:11 verbose #466 > > ()
00:00:11 verbose #467 > >
00:00:12 verbose #468 > >
00:00:12 verbose #469 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #470 > > #if FABLE_COMPILER
00:00:12 verbose #471 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:12 verbose #472 > > #endif
00:00:12 verbose #473 > > type futures_future_JoinAll<'T> = class end
00:00:12 verbose #474 > > #if FABLE_COMPILER
00:00:12 verbose #475 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:12 verbose #476 > > #endif
00:00:12 verbose #477 > > type futures_future_TryJoinAll<'T> = class end
00:00:12 verbose #478 > > #if FABLE_COMPILER
00:00:12 verbose #479 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:12 verbose #480 > > #endif
00:00:12 verbose #481 > > type rayon_iter_Map<'T> = class end
00:00:12 verbose #482 > > #if FABLE_COMPILER
00:00:12 verbose #483 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:12 verbose #484 > > #endif
00:00:12 verbose #485 > > type rayon_vec_IntoIter<'T> = class end
00:00:12 verbose #486 > > #if FABLE_COMPILER
00:00:12 verbose #487 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:12 verbose #488 > > #endif
00:00:12 verbose #489 > > type std_future_Future<'T> = class end
00:00:12 verbose #490 > > #if FABLE_COMPILER
00:00:12 verbose #491 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:12 verbose #492 > > #endif
00:00:12 verbose #493 > > type futures_future_Fuse<'T> = class end
00:00:12 verbose #494 > > #if FABLE_COMPILER
00:00:12 verbose #495 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:12 verbose #496 > > #endif
00:00:12 verbose #497 > > type tokio_task_JoinHandle<'T> = class end
00:00:12 verbose #498 > > #if FABLE_COMPILER
00:00:12 verbose #499 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:12 verbose #500 > > #endif
00:00:12 verbose #501 > > type tokio_stream_StreamExt = class end
00:00:12 verbose #502 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:12 verbose #503 > > Async<System.Threading.CancellationToken> =
00:00:12 verbose #504 > > let v1 : bool = true
00:00:12 verbose #505 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #506 > >
00:00:12 verbose #507 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #508 > >
00:00:12 verbose #509 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:12 verbose #510 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:12 verbose #511 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:12 verbose #512 > > v12
00:00:12 verbose #513 > > #endif
00:00:12 verbose #514 > > #else
00:00:12 verbose #515 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #516 > > let mutable _v13 = v13
00:00:12 verbose #517 > > async {
00:00:12 verbose #518 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:12 verbose #519 > > Async.CancellationToken
00:00:12 verbose #520 > > let! v14 = v14
00:00:12 verbose #521 > > let v15 : System.Threading.CancellationToken = v14
00:00:12 verbose #522 > > let v16 : System.Threading.CancellationToken =
00:00:12 verbose #523 > > Async.DefaultCancellationToken
00:00:12 verbose #524 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:12 verbose #525 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:12 verbose #526 > > System.Threading.CancellationTokenSource) =
00:00:12 verbose #527 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:12 verbose #528 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:12 verbose #529 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:12 verbose #530 > > return v20
00:00:12 verbose #531 > > }
00:00:12 verbose #532 > > |> fun x -> _v13 <- Some x
00:00:12 verbose #533 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:12 verbose #534 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:12 verbose #535 > > v21
00:00:12 verbose #536 > > #endif
00:00:12 verbose #537 > > |> fun x -> _v7 <- Some x
00:00:12 verbose #538 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:12 verbose #539 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:12 verbose #540 > > v22
00:00:12 verbose #541 > > #endif
00:00:12 verbose #542 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #543 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:12 verbose #544 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:12 verbose #545 > > v23
00:00:12 verbose #546 > > let v0 : (System.Threading.CancellationToken ->
00:00:12 verbose #547 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:12 verbose #548 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:12 verbose #549 > > ()
00:00:12 verbose #550 > >
00:00:12 verbose #551 > >
00:00:12 verbose #552 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #553 > > #if FABLE_COMPILER
00:00:12 verbose #554 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:12 verbose #555 > > #endif
00:00:12 verbose #556 > > type std_thread_JoinHandle<'T> = class end
00:00:12 verbose #557 > > #if FABLE_COMPILER
00:00:12 verbose #558 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:12 verbose #559 > > #endif
00:00:12 verbose #560 > > type std_sync_Arc<'T> = class end
00:00:12 verbose #561 > > #if FABLE_COMPILER
00:00:12 verbose #562 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:12 verbose #563 > > #endif
00:00:12 verbose #564 > > type std_sync_Mutex<'T> = class end
00:00:12 verbose #565 > > #if FABLE_COMPILER
00:00:12 verbose #566 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:12 verbose #567 > > #endif
00:00:12 verbose #568 > > type std_sync_MutexGuard<'T> = class end
00:00:12 verbose #569 > > #if FABLE_COMPILER
00:00:12 verbose #570 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:12 verbose #571 > > #endif
00:00:12 verbose #572 > > type std_sync_PoisonError<'T> = class end
00:00:12 verbose #573 > > #if FABLE_COMPILER
00:00:12 verbose #574 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:12 verbose #575 > > #endif
00:00:12 verbose #576 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:12 verbose #577 > > #if FABLE_COMPILER
00:00:12 verbose #578 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:12 verbose #579 > > #endif
00:00:12 verbose #580 > > type std_sync_mpsc_SendError<'T> = class end
00:00:12 verbose #581 > > #if FABLE_COMPILER
00:00:12 verbose #582 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:12 verbose #583 > > #endif
00:00:12 verbose #584 > > type std_sync_mpsc_Sender<'T> = class end
00:00:12 verbose #585 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:12 verbose #586 > > _.Dispose () = f ()
00:00:12 verbose #587 > > type [[<Struct>]] US0 =
00:00:12 verbose #588 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:12 verbose #589 > > | US0_1
00:00:12 verbose #590 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:12 verbose #591 > > let v1 : bool = true
00:00:12 verbose #592 > > let mutable _v1 : unit option = None
00:00:12 verbose #593 > >
00:00:12 verbose #594 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #595 > >
00:00:12 verbose #596 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:12 verbose #597 > > "$0()" )
00:00:12 verbose #598 > > v28
00:00:12 verbose #599 > > #endif
00:00:12 verbose #600 > > #if FABLE_COMPILER_RUST && WASM
00:00:12 verbose #601 > > let v29 : (unit -> unit) = method0(v25)
00:00:12 verbose #602 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:12 verbose #603 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:12 verbose #604 > > v30
00:00:12 verbose #605 > > #endif
00:00:12 verbose #606 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:12 verbose #607 > > let v31 : (unit -> unit) = method0(v25)
00:00:12 verbose #608 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:12 verbose #609 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:12 verbose #610 > > v32
00:00:12 verbose #611 > > #endif
00:00:12 verbose #612 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:12 verbose #613 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:12 verbose #614 > > v33
00:00:12 verbose #615 > > #endif
00:00:12 verbose #616 > > #if FABLE_COMPILER_PYTHON
00:00:12 verbose #617 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:12 verbose #618 > > v34
00:00:12 verbose #619 > > #endif
00:00:12 verbose #620 > > #else
00:00:12 verbose #621 > > let v35 : (unit -> unit) = method1(v25)
00:00:12 verbose #622 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:12 verbose #623 > > _.Dispose () = v35 () }
00:00:12 verbose #624 > > v36
00:00:12 verbose #625 > > #endif
00:00:12 verbose #626 > > |> fun x -> _v26 <- Some x
00:00:12 verbose #627 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:12 verbose #628 > > failwith "base.run_target / _v26=None"
00:00:12 verbose #629 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:12 verbose #630 > > struct (v38, v37)
00:00:12 verbose #631 > > #endif
00:00:12 verbose #632 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #633 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:12 verbose #634 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:12 verbose #635 > > "base.run_target / _v1=None"
00:00:12 verbose #636 > > struct (v39, v40)
00:00:12 verbose #637 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:12 verbose #638 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:12 verbose #639 > > let new_disposable_token x = v0 x
00:00:12 verbose #640 > > ()
00:00:12 verbose #641 > >
00:00:12 verbose #642 > >
00:00:12 verbose #643 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #644 > > #if FABLE_COMPILER
00:00:12 verbose #645 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:12 verbose #646 > > #endif
00:00:12 verbose #647 > > type reqwest_Error = class end
00:00:12 verbose #648 > > #if FABLE_COMPILER
00:00:12 verbose #649 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:12 verbose #650 > > #endif
00:00:12 verbose #651 > > type reqwest_RequestBuilder = class end
00:00:12 verbose #652 > > #if FABLE_COMPILER
00:00:12 verbose #653 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:12 verbose #654 > > #endif
00:00:12 verbose #655 > > type reqwest_Response = class end
00:00:12 verbose #656 > > #if FABLE_COMPILER
00:00:12 verbose #657 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:12 verbose #658 > > #endif
00:00:12 verbose #659 > > type std_env_VarError = class end
00:00:12 verbose #660 > > #if FABLE_COMPILER
00:00:12 verbose #661 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #662 > > #endif
00:00:12 verbose #663 > > type core_any_Any = class end
00:00:12 verbose #664 > > #if FABLE_COMPILER
00:00:12 verbose #665 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #666 > > #endif
00:00:12 verbose #667 > > type core_ops_Try<'T> = class end
00:00:12 verbose #668 > > #if FABLE_COMPILER
00:00:12 verbose #669 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #670 > > #endif
00:00:12 verbose #671 > > type Func0<'T> = class end
00:00:12 verbose #672 > > #if FABLE_COMPILER
00:00:12 verbose #673 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #674 > > #endif
00:00:12 verbose #675 > > type Func0<'T, 'U> = class end
00:00:12 verbose #676 > > #if FABLE_COMPILER
00:00:12 verbose #677 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #678 > > #endif
00:00:12 verbose #679 > > type Box<'T> = class end
00:00:12 verbose #680 > > #if FABLE_COMPILER
00:00:12 verbose #681 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #682 > > #endif
00:00:12 verbose #683 > > type Dyn<'T> = class end
00:00:12 verbose #684 > > #if FABLE_COMPILER
00:00:12 verbose #685 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #686 > > #endif
00:00:12 verbose #687 > > type Send<'T> = class end
00:00:12 verbose #688 > > #if FABLE_COMPILER
00:00:12 verbose #689 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #690 > > #endif
00:00:12 verbose #691 > > type Fn<'T> = class end
00:00:12 verbose #692 > > #if FABLE_COMPILER
00:00:12 verbose #693 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #694 > > #endif
00:00:12 verbose #695 > > type FnUnit = class end
00:00:12 verbose #696 > > #if FABLE_COMPILER
00:00:12 verbose #697 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #698 > > ... v212 = v212
00:00:12 verbose #699 > > let v213 : bool = v212
00:00:12 verbose #700 > > let v214 : bool = v213 = false
00:00:12 verbose #701 > > if v214 then
00:00:12 verbose #702 > > return v2
00:00:12 verbose #703 > > (*
00:00:12 verbose #704 > > ()
00:00:12 verbose #705 > > else
00:00:12 verbose #706 > > *) else
00:00:12 verbose #707 > > let v215 : int32 = v2 + 1
00:00:12 verbose #708 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:12 verbose #709 > > return! v216
00:00:12 verbose #710 > > (*
00:00:12 verbose #711 > > ()
00:00:12 verbose #712 > > *)
00:00:12 verbose #713 > > }
00:00:12 verbose #714 > > |> fun x -> _v9 <- Some x
00:00:12 verbose #715 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:12 verbose #716 > > "async.new_async_unit / _v9=None"
00:00:12 verbose #717 > > v217
00:00:12 verbose #718 > > #endif
00:00:12 verbose #719 > > |> fun x -> _v3 <- Some x
00:00:12 verbose #720 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:12 verbose #721 > > "base.run_target / _v3=None"
00:00:12 verbose #722 > > v218
00:00:12 verbose #723 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:12 verbose #724 > > method10(v0, v1, v2)
00:00:12 verbose #725 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:12 verbose #726 > > closure23(v0, v1)
00:00:12 verbose #727 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:12 verbose #728 > > closure22(v0)
00:00:12 verbose #729 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:12 verbose #730 > > let v1 : US0 = US0_0
00:00:12 verbose #731 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:12 verbose #732 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:12 verbose #733 > > let test_port_open x = v2 x
00:00:12 verbose #734 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:12 verbose #735 > > let test_port_open_timeout x = v3 x
00:00:12 verbose #736 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:12 verbose #737 > > closure15()
00:00:12 verbose #738 > > let wait_for_port_access x = v4 x
00:00:12 verbose #739 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:12 verbose #740 > > let get_available_port x = v5 x
00:00:12 verbose #741 > > ()
00:00:12 verbose #742 > >
00:00:14 verbose #743 > >
00:00:14 verbose #744 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #745 > > type [[<Struct>]] US0 =
00:00:14 verbose #746 > > | US0_0
00:00:14 verbose #747 > > | US0_1
00:00:14 verbose #748 > > | US0_2
00:00:14 verbose #749 > > and [[<Struct>]] US1 =
00:00:14 verbose #750 > > | US1_0 of f0_0 : US0
00:00:14 verbose #751 > > | US1_1 of f1_0 : US0
00:00:14 verbose #752 > > | US1_2 of f2_0 : US0
00:00:14 verbose #753 > > | US1_3 of f3_0 : US0
00:00:14 verbose #754 > > | US1_4 of f4_0 : US0
00:00:14 verbose #755 > > let rec closure0 () () : bool =
00:00:14 verbose #756 > > let v0 : bool = true
00:00:14 verbose #757 > > let mutable _v0 : bool option = None
00:00:14 verbose #758 > >
00:00:14 verbose #759 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:14 verbose #760 > >
00:00:14 verbose #761 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:14 verbose #762 > > let v1 : string = "cfg!(windows)"
00:00:14 verbose #763 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:14 verbose #764 > > v2
00:00:14 verbose #765 > > #endif
00:00:14 verbose #766 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #767 > > let v3 : string = "cfg!(windows)"
00:00:14 verbose #768 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:14 verbose #769 > > v4
00:00:14 verbose #770 > > #endif
00:00:14 verbose #771 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #772 > > let v5 : string = "cfg!(windows)"
00:00:14 verbose #773 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:14 verbose #774 > > v6
00:00:14 verbose #775 > > #endif
00:00:14 verbose #776 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #777 > > let v7 : US0 = US0_0
00:00:14 verbose #778 > > let v8 : US1 = US1_3(v7)
00:00:14 verbose #779 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:14 verbose #780 > > let v10 : bool = failwith<bool> v9
00:00:14 verbose #781 > > v10
00:00:14 verbose #782 > > #endif
00:00:14 verbose #783 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #784 > > let v11 : US0 = US0_0
00:00:14 verbose #785 > > let v12 : US1 = US1_4(v11)
00:00:14 verbose #786 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:14 verbose #787 > > let v14 : bool = failwith<bool> v13
00:00:14 verbose #788 > > v14
00:00:14 verbose #789 > > #endif
00:00:14 verbose #790 > > #else
00:00:14 verbose #791 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:14 verbose #792 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:14 verbose #793 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:14 verbose #794 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:14 verbose #795 > > let v17 : b...: string = "cfg!(windows)"
00:00:14 verbose #796 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:14 verbose #797 > > v2
00:00:14 verbose #798 > > #endif
00:00:14 verbose #799 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #800 > > let v3 : string = "cfg!(windows)"
00:00:14 verbose #801 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:14 verbose #802 > > v4
00:00:14 verbose #803 > > #endif
00:00:14 verbose #804 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #805 > > let v5 : string = "cfg!(windows)"
00:00:14 verbose #806 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:14 verbose #807 > > v6
00:00:14 verbose #808 > > #endif
00:00:14 verbose #809 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #810 > > let v7 : US0 = US0_0
00:00:14 verbose #811 > > let v8 : US1 = US1_3(v7)
00:00:14 verbose #812 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:14 verbose #813 > > let v10 : bool = failwith<bool> v9
00:00:14 verbose #814 > > v10
00:00:14 verbose #815 > > #endif
00:00:14 verbose #816 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #817 > > let v11 : US0 = US0_0
00:00:14 verbose #818 > > let v12 : US1 = US1_4(v11)
00:00:14 verbose #819 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:14 verbose #820 > > let v14 : bool = failwith<bool> v13
00:00:14 verbose #821 > > v14
00:00:14 verbose #822 > > #endif
00:00:14 verbose #823 > > #else
00:00:14 verbose #824 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:14 verbose #825 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:14 verbose #826 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:14 verbose #827 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:14 verbose #828 > > let v17 : bool = v16 v15
00:00:14 verbose #829 > > v17
00:00:14 verbose #830 > > #endif
00:00:14 verbose #831 > > |> fun x -> _v0 <- Some x
00:00:14 verbose #832 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:14 verbose #833 > > "base.run_target / _v0=None"
00:00:14 verbose #834 > > if v18 then
00:00:14 verbose #835 > > let v19 : string = ".exe"
00:00:14 verbose #836 > > v19
00:00:14 verbose #837 > > else
00:00:14 verbose #838 > > let v20 : string = ""
00:00:14 verbose #839 > > v20
00:00:14 verbose #840 > > let v0 : (unit -> bool) = closure0()
00:00:14 verbose #841 > > let is_windows () = v0 ()
00:00:14 verbose #842 > > let v1 : (unit -> string) = closure1()
00:00:14 verbose #843 > > let get_executable_suffix () = v1 ()
00:00:14 verbose #844 > > ()
00:00:14 verbose #845 > >
00:00:14 verbose #846 > >
00:00:14 verbose #847 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #848 > > #if FABLE_COMPILER
00:00:14 verbose #849 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:14 verbose #850 > > #endif
00:00:14 verbose #851 > > type clap_Arg = class end
00:00:14 verbose #852 > > #if FABLE_COMPILER
00:00:14 verbose #853 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:14 verbose #854 > > #endif
00:00:14 verbose #855 > > type clap_ArgAction = class end
00:00:14 verbose #856 > > #if FABLE_COMPILER
00:00:14 verbose #857 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:14 verbose #858 > > #endif
00:00:14 verbose #859 > > type clap_Command = class end
00:00:14 verbose #860 > > #if FABLE_COMPILER
00:00:14 verbose #861 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:14 verbose #862 > > #endif
00:00:14 verbose #863 > > type clap_ArgMatches = class end
00:00:14 verbose #864 > > #if FABLE_COMPILER
00:00:14 verbose #865 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:14 verbose #866 > > #endif
00:00:14 verbose #867 > > type clap_builder_ValueRange = class end
00:00:14 verbose #868 > > #if FABLE_COMPILER
00:00:14 verbose #869 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:14 verbose #870 > > #endif
00:00:14 verbose #871 > > type clap_builder_ValueParser = class end
00:00:14 verbose #872 > > #if FABLE_COMPILER
00:00:14 verbose #873 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:14 verbose #874 > > #endif
00:00:14 verbose #875 > > type clap_builder_PossibleValue = class end
00:00:14 verbose #876 > > #if FABLE_COMPILER
00:00:14 verbose #877 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:14 verbose #878 > > #endif
00:00:14 verbose #879 > > type std_process_Child = class end
00:00:14 verbose #880 > > #if FABLE_COMPILER
00:00:14 verbose #881 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:14 verbose #882 > > #endif
00:00:14 verbose #883 > > type std_process_ChildStderr = class end
00:00:14 verbose #884 > > #if FABLE_COMPILER
00:00:14 verbose #885 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:14 verbose #886 > > #endif
00:00:14 verbose #887 > > type std_process_ChildStdout = class end
00:00:14 verbose #888 > > #if FABLE_COMPILER
00:00:14 verbose #889 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:14 verbose #890 > > #endif
00:00:14 verbose #891 > > type std_process_ChildStdin = class end
00:00:14 verbose #892 > > #if FABLE_COMPILER
00:00:14 verbose #893 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:14 verbose #894 > > #endif
00:00:14 verbose #895 > > type std_process_Command = class... with
00:00:14 verbose #896 > > | US14_1(v28) -> (* Error *)
00:00:14 verbose #897 > > US8_1(v28)
00:00:14 verbose #898 > > | US14_0(v26) -> (* Ok *)
00:00:14 verbose #899 > > US8_0(v26)
00:00:14 verbose #900 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:00:14 verbose #901 > > let v1 : US8 = method16(v0)
00:00:14 verbose #902 > > match v1 with
00:00:14 verbose #903 > > | US8_1(v4) -> (* Error *)
00:00:14 verbose #904 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:14 verbose #905 > > v5
00:00:14 verbose #906 > > | US8_0(v2) -> (* Ok *)
00:00:14 verbose #907 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:14 verbose #908 > > v3
00:00:14 verbose #909 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:14 verbose #910 > > let v1 : US0 = US0_0
00:00:14 verbose #911 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:14 verbose #912 > > let v2 : (unit -> unit) = closure2()
00:00:14 verbose #913 > > let current_process_kill () = v2 ()
00:00:14 verbose #914 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:00:14 verbose #915 > > let execute_async x = v3 x
00:00:14 verbose #916 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:14 verbose #917 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:14 verbose #918 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:14 verbose #919 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:00:14 verbose #920 > > let execute_with_options_async x = v4 x
00:00:14 verbose #921 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:14 verbose #922 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:14 verbose #923 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:14 verbose #924 > > unit) option * bool * string option)) = closure18()
00:00:14 verbose #925 > > let execution_options x = v5 x
00:00:14 verbose #926 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:00:14 verbose #927 > > let split_args x = v6 x
00:00:14 verbose #928 > > ()
00:00:14 verbose #929 > >
00:00:17 verbose #930 > >
00:00:17 verbose #931 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #932 > > #if FABLE_COMPILER
00:00:17 verbose #933 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:17 verbose #934 > > #endif
00:00:17 verbose #935 > > type std_fs_File = class end
00:00:17 verbose #936 > > #if FABLE_COMPILER
00:00:17 verbose #937 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:17 verbose #938 > > #endif
00:00:17 verbose #939 > > type std_fs_FileType = class end
00:00:17 verbose #940 > > #if FABLE_COMPILER
00:00:17 verbose #941 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:17 verbose #942 > > #endif
00:00:17 verbose #943 > > type std_path_Display = class end
00:00:17 verbose #944 > > #if FABLE_COMPILER
00:00:17 verbose #945 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:17 verbose #946 > > #endif
00:00:17 verbose #947 > > type std_path_Path = class end
00:00:17 verbose #948 > > #if FABLE_COMPILER
00:00:17 verbose #949 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:17 verbose #950 > > #endif
00:00:17 verbose #951 > > type std_path_PathBuf = class end
00:00:17 verbose #952 > > #if FABLE_COMPILER
00:00:17 verbose #953 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:17 verbose #954 > > #endif
00:00:17 verbose #955 > > type async_walkdir_DirEntry = class end
00:00:17 verbose #956 > > #if FABLE_COMPILER
00:00:17 verbose #957 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:17 verbose #958 > > #endif
00:00:17 verbose #959 > > type async_walkdir_Filtering = class end
00:00:17 verbose #960 > > #if FABLE_COMPILER
00:00:17 verbose #961 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:17 verbose #962 > > #endif
00:00:17 verbose #963 > > type async_walkdir_WalkDir = class end
00:00:17 verbose #964 > > #if FABLE_COMPILER
00:00:17 verbose #965 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:17 verbose #966 > > #endif
00:00:17 verbose #967 > > type core_any_Any = class end
00:00:17 verbose #968 > > #if FABLE_COMPILER
00:00:17 verbose #969 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:17 verbose #970 > > #endif
00:00:17 verbose #971 > > type core_ops_Try<'T> = class end
00:00:17 verbose #972 > > #if FABLE_COMPILER
00:00:17 verbose #973 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:17 verbose #974 > > #endif
00:00:17 verbose #975 > > type Func0<'T> = class end
00:00:17 verbose #976 > > #if FABLE_COMPILER
00:00:17 verbose #977 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:17 verbose #978 > > #endif
00:00:17 verbose #979 > > type Func0<'T, 'U> = class end
00:00:17 verbose #980 > > #if FABLE_COMPILER
00:00:17 verbose #981 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:17 verbose #982 > > #endif
00:00:17 verbose #983 > > type Box<'T> = cla...4>) = closure12()
00:00:17 verbose #984 > > let wait_for_file_access_read x = v4 x
00:00:17 verbose #985 > > let v5 : (string -> Async<string>) = closure13()
00:00:17 verbose #986 > > let read_all_text_async x = v5 x
00:00:17 verbose #987 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:00:17 verbose #988 > > let file_exists_content x = v6 x
00:00:17 verbose #989 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:17 verbose #990 > > let write_all_text_async x = v7 x
00:00:17 verbose #991 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:17 verbose #992 > > let write_all_text_exists x = v8 x
00:00:17 verbose #993 > > let v9 : (string -> Async<int64>) = closure20()
00:00:17 verbose #994 > > let delete_file_async x = v9 x
00:00:17 verbose #995 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:17 verbose #996 > > let move_file_async x = v10 x
00:00:17 verbose #997 > > let v11 : (string -> Async<string option>) = closure27()
00:00:17 verbose #998 > > let read_all_text_retry_async x = v11 x
00:00:17 verbose #999 > > let v12 : (unit -> string) = closure35()
00:00:17 verbose #1000 > > let create_temp_path () = v12 ()
00:00:17 verbose #1001 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:17 verbose #1002 > > let create_temp_dir () = v13 ()
00:00:17 verbose #1003 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:17 verbose #1004 > > let create_temp_dir' x = v14 x
00:00:17 verbose #1005 > > let v15 : (unit -> string) = closure49()
00:00:17 verbose #1006 > > let get_source_directory () = v15 ()
00:00:17 verbose #1007 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:00:17 verbose #1008 > > let find_parent x = v16 x
00:00:17 verbose #1009 > > let v17 : (string -> string) = closure56()
00:00:17 verbose #1010 > > let normalize_path x = v17 x
00:00:17 verbose #1011 > > let v18 : (string -> string) = closure57()
00:00:17 verbose #1012 > > let new_file_uri x = v18 x
00:00:17 verbose #1013 > > let v19 : (unit -> string) = closure58()
00:00:17 verbose #1014 > > let get_workspace_root () = v19 ()
00:00:17 verbose #1015 > > let v20 : (bool -> unit) = closure59()
00:00:17 verbose #1016 > > let init_trace_file x = v20 x
00:00:17 verbose #1017 > > let v21 : (string -> (string -> string)) = closure61()
00:00:17 verbose #1018 > > let (</>) x = v21 x
00:00:17 verbose #1019 > > ()
00:00:17 verbose #1020 > >
00:00:20 verbose #1021 > >
00:00:20 verbose #1022 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1023 > > #if FABLE_COMPILER
00:00:20 verbose #1024 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:20 verbose #1025 > > #endif
00:00:20 verbose #1026 > > type core_any_Any = class end
00:00:20 verbose #1027 > > #if FABLE_COMPILER
00:00:20 verbose #1028 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:20 verbose #1029 > > #endif
00:00:20 verbose #1030 > > type core_ops_Try<'T> = class end
00:00:20 verbose #1031 > > #if FABLE_COMPILER
00:00:20 verbose #1032 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:20 verbose #1033 > > #endif
00:00:20 verbose #1034 > > type Func0<'T> = class end
00:00:20 verbose #1035 > > #if FABLE_COMPILER
00:00:20 verbose #1036 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:20 verbose #1037 > > #endif
00:00:20 verbose #1038 > > type Func0<'T, 'U> = class end
00:00:20 verbose #1039 > > #if FABLE_COMPILER
00:00:20 verbose #1040 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:20 verbose #1041 > > #endif
00:00:20 verbose #1042 > > type Box<'T> = class end
00:00:20 verbose #1043 > > #if FABLE_COMPILER
00:00:20 verbose #1044 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:20 verbose #1045 > > #endif
00:00:20 verbose #1046 > > type Dyn<'T> = class end
00:00:20 verbose #1047 > > #if FABLE_COMPILER
00:00:20 verbose #1048 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:20 verbose #1049 > > #endif
00:00:20 verbose #1050 > > type Send<'T> = class end
00:00:20 verbose #1051 > > #if FABLE_COMPILER
00:00:20 verbose #1052 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:20 verbose #1053 > > #endif
00:00:20 verbose #1054 > > type Fn<'T> = class end
00:00:20 verbose #1055 > > #if FABLE_COMPILER
00:00:20 verbose #1056 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:20 verbose #1057 > > #endif
00:00:20 verbose #1058 > > type FnUnit = class end
00:00:20 verbose #1059 > > #if FABLE_COMPILER
00:00:20 verbose #1060 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:20 verbose #1061 > > #endif
00:00:20 verbose #1062 > > type FnOnce<'T> = class end
00:00:20 verbose #1063 > > #if FABLE_COMPILER
00:00:20 verbose #1064 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:20 verbose #1065 > > #endif
00:00:20 verbose #1066 > > type ActionFn<'T> = class end
00:00:20 verbose #1067 > > #if FABLE_COMPILER
00:00:20 verbose #1068 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:20 verbose #1069 > > #endif
00:00:20 verbose #1070 > > type ActionFn2<'T, 'U> = class end
00:00:20 verbose #1071 > > #if FABLE_COMPILER
00:00:20 verbose #1072 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:20 verbose #1073 > > #endif
00:00:20 verbose #1074 > > type Impl<'T> = class end
00:00:20 verbose #1075 > > #if FABLE_COMPILER
00:00:20 verbose #1076 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:20 verbose #1077 > > #endif
00:00:20 verbose #1078 > > type Mut<'T> = class end
00:00:20 verbose #1079 > > #if FABLE_COMPILER
00:00:20 verbose #1080 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:20 verbose #1081 > > #if FABLE_COMPILER_RUST && WASM
00:00:20 verbose #1082 > > let v27 : string = @"println!(""{}"", $0)"
00:00:20 verbose #1083 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:20 verbose #1084 > > ()
00:00:20 verbose #1085 > > #endif
00:00:20 verbose #1086 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:20 verbose #1087 > > let v28 : string = @"println!(""{}"", $0)"
00:00:20 verbose #1088 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:20 verbose #1089 > > ()
00:00:20 verbose #1090 > > #endif
00:00:20 verbose #1091 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:20 verbose #1092 > > System.Console.WriteLine v24
00:00:20 verbose #1093 > > ()
00:00:20 verbose #1094 > > #endif
00:00:20 verbose #1095 > > #if FABLE_COMPILER_PYTHON
00:00:20 verbose #1096 > > System.Console.WriteLine v24
00:00:20 verbose #1097 > > ()
00:00:20 verbose #1098 > > #endif
00:00:20 verbose #1099 > > #else
00:00:20 verbose #1100 > > System.Console.WriteLine v24
00:00:20 verbose #1101 > > ()
00:00:20 verbose #1102 > > #endif
00:00:20 verbose #1103 > > |> fun x -> _v25 <- Some x
00:00:20 verbose #1104 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:20 verbose #1105 > > _v25=None"
00:00:20 verbose #1106 > > let v29 : (string -> unit) = v8.l0
00:00:20 verbose #1107 > > v29 v24
00:00:20 verbose #1108 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:20 verbose #1109 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:20 verbose #1110 > > method8(v0, v3)
00:00:20 verbose #1111 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:20 verbose #1112 > > method4(v0, v1, v2)
00:00:20 verbose #1113 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:20 verbose #1114 > > closure4(v0, v1)
00:00:20 verbose #1115 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:20 verbose #1116 > > closure3(v0)
00:00:20 verbose #1117 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:20 verbose #1118 > > let v1 : US0 = US0_0
00:00:20 verbose #1119 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:20 verbose #1120 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:20 verbose #1121 > > let trace x = v2 x
00:00:20 verbose #1122 > > ()
00:00:20 verbose #1123 > >
00:00:20 verbose #1124 > >
00:00:20 verbose #1125 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1126 > > module SpiralTrace =
00:00:20 verbose #1127 > > let trace x =
00:00:20 verbose #1128 > > #if !INTERACTIVE
00:00:20 verbose #1129 > > Trace.trace x
00:00:20 verbose #1130 > > #else
00:00:20 verbose #1131 > > trace x
00:00:20 verbose #1132 > > #endif
00:00:20 verbose #1133 > >
00:00:20 verbose #1134 > > type TraceLevel =
00:00:20 verbose #1135 > > #if !INTERACTIVE
00:00:20 verbose #1136 > > Trace.US0
00:00:20 verbose #1137 > > #else
00:00:20 verbose #1138 > > US0
00:00:20 verbose #1139 > > #endif
00:00:20 verbose #1140 > >
00:00:20 verbose #1141 > > module SpiralCrypto =
00:00:20 verbose #1142 > > let hash_text x =
00:00:20 verbose #1143 > > #if !INTERACTIVE
00:00:20 verbose #1144 > > Crypto.hash_text x
00:00:20 verbose #1145 > > #else
00:00:20 verbose #1146 > > hash_text x
00:00:20 verbose #1147 > > #endif
00:00:20 verbose #1148 > >
00:00:20 verbose #1149 > > let hash_to_port x =
00:00:20 verbose #1150 > > #if !INTERACTIVE
00:00:20 verbose #1151 > > Crypto.hash_to_port x
00:00:20 verbose #1152 > > #else
00:00:20 verbose #1153 > > hash_to_port x
00:00:20 verbose #1154 > > #endif
00:00:20 verbose #1155 > >
00:00:20 verbose #1156 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:20 verbose #1157 > >
00:00:20 verbose #1158 > > module SpiralAsync =
00:00:20 verbose #1159 > > let merge_cancellation_token_with_default_async x =
00:00:20 verbose #1160 > > #if !INTERACTIVE
00:00:20 verbose #1161 > > Async_.merge_cancellation_token_with_default_async x
00:00:20 verbose #1162 > > #else
00:00:20 verbose #1163 > > merge_cancellation_token_with_default_async x
00:00:20 verbose #1164 > > #endif
00:00:20 verbose #1165 > >
00:00:20 verbose #1166 > > module SpiralThreading =
00:00:20 verbose #1167 > > let new_disposable_token x =
00:00:20 verbose #1168 > > #if !INTERACTIVE
00:00:20 verbose #1169 > > Threading.new_disposable_token x
00:00:20 verbose #1170 > > #else
00:00:20 verbose #1171 > > new_disposable_token x
00:00:20 verbose #1172 > > #endif
00:00:20 verbose #1173 > >
00:00:20 verbose #1174 > > module SpiralNetworking =
00:00:20 verbose #1175 > > let test_port_open x =
00:00:20 verbose #1176 > > #if !INTERACTIVE
00:00:20 verbose #1177 > > Networking.test_port_open x
00:00:20 verbose #1178 > > #else
00:00:20 verbose #1179 > > test_port_open x
00:00:20 verbose #1180 > > #endif
00:00:20 verbose #1181 > >
00:00:20 verbose #1182 > > let test_port_open_timeout x =
00:00:20 verbose #1183 > > #if !INTERACTIVE
00:00:20 verbose #1184 > > Networking.test_port_open_timeout x
00:00:20 verbose #1185 > > #else
00:00:20 verbose #1186 > > test_port_open_timeout x
00:00:20 verbose #1187 > > #endif
00:00:20 verbose #1188 > >
00:00:20 verbose #1189 > > let wait_for_port_access x =
00:00:20 verbose #1190 > > #if !INTERACTIVE
00:00:20 verbose #1191 > > Networking.wait_for_port_access x
00:00:20 verbose #1192 > > #else
00:00:20 verbose #1193 > > wait_for_port_access x
00:00:20 verbose #1194 > > #endif
00:00:20 verbose #1195 > >
00:00:20 verbose #1196 > > let get_available_port x =
00:00:20 verbose #1197 > > #if !INTERACTIVE
00:00:20 verbose #1198 > > Networking.get_available_port x
00:00:20 verbose #1199 > > #else
00:00:20 verbose #1200 > > get_available_port x
00:00:20 verbose #1201 > > #endif
00:00:20 verbose #1202 > >
00:00:20 verbose #1203 > > module SpiralPlatform =
00:00:20 verbose #1204 > > let get_executable_suffix () =
00:00:20 verbose #1205 > > #if !INTERACTIVE
00:00:20 verbose #1206 > > Platform.g...e.trace_state
00:00:20 verbose #1207 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1208 > > level.l0 <-
00:00:20 verbose #1209 > > match new_level with
00:00:20 verbose #1210 > > | Trace.US0_0 -> File_system.US0_0
00:00:20 verbose #1211 > > | Trace.US0_1 -> File_system.US0_1
00:00:20 verbose #1212 > > | Trace.US0_2 -> File_system.US0_2
00:00:20 verbose #1213 > > | Trace.US0_3 -> File_system.US0_3
00:00:20 verbose #1214 > > | Trace.US0_4 -> File_system.US0_4
00:00:20 verbose #1215 > > )
00:00:20 verbose #1216 > >
00:00:20 verbose #1217 > > Runtime.State.trace_state
00:00:20 verbose #1218 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1219 > > level.l0 <-
00:00:20 verbose #1220 > > match new_level with
00:00:20 verbose #1221 > > | Trace.US0_0 -> Runtime.US0_0
00:00:20 verbose #1222 > > | Trace.US0_1 -> Runtime.US0_1
00:00:20 verbose #1223 > > | Trace.US0_2 -> Runtime.US0_2
00:00:20 verbose #1224 > > | Trace.US0_3 -> Runtime.US0_3
00:00:20 verbose #1225 > > | Trace.US0_4 -> Runtime.US0_4
00:00:20 verbose #1226 > > )
00:00:20 verbose #1227 > >
00:00:20 verbose #1228 > > Common.State.trace_state
00:00:20 verbose #1229 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1230 > > level.l0 <-
00:00:20 verbose #1231 > > match new_level with
00:00:20 verbose #1232 > > | Trace.US0_0 -> Common.US0_0
00:00:20 verbose #1233 > > | Trace.US0_1 -> Common.US0_1
00:00:20 verbose #1234 > > | Trace.US0_2 -> Common.US0_2
00:00:20 verbose #1235 > > | Trace.US0_3 -> Common.US0_3
00:00:20 verbose #1236 > > | Trace.US0_4 -> Common.US0_4
00:00:20 verbose #1237 > > )
00:00:20 verbose #1238 > >
00:00:20 verbose #1239 > > Trace.State.trace_state
00:00:20 verbose #1240 > > #else
00:00:20 verbose #1241 > > State.trace_state
00:00:20 verbose #1242 > > #endif
00:00:20 verbose #1243 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:20 verbose #1244 > > level.l0 <- new_level
00:00:20 verbose #1245 > > )
00:00:20 verbose #1246 > >
00:00:20 verbose #1247 > > let get_trace_level () =
00:00:20 verbose #1248 > > #if !INTERACTIVE
00:00:20 verbose #1249 > > Trace.State.trace_state
00:00:20 verbose #1250 > > #else
00:00:20 verbose #1251 > > State.trace_state
00:00:20 verbose #1252 > > #endif
00:00:20 verbose #1253 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1254 > > level.l0
00:00:20 verbose #1255 > > )
00:00:20 verbose #1256 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:20 verbose #1257 > > trace_state=None")
00:00:20 verbose #1258 > >
00:00:20 verbose #1259 > >
00:00:20 verbose #1260 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1261 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:20 verbose #1262 > >
00:00:20 verbose #1263 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1264 > > //// test
00:00:20 verbose #1265 > >
00:00:20 verbose #1266 > > type AssertExceptionFormatter (ex) =
00:00:20 verbose #1267 > > member _.Text =
00:00:20 verbose #1268 > > ex.ToString()
00:00:20 verbose #1269 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:20 verbose #1270 > > .Replace("36m", "</span>")
00:00:20 verbose #1271 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:20 verbose #1272 > > .Replace("\n", "<br/>\n")
00:00:20 verbose #1273 > >
00:00:20 verbose #1274 > >
00:00:20 verbose #1275 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:20 verbose #1276 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:20 verbose #1277 > >
00:00:20 verbose #1278 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1279 > > //// test
00:00:20 verbose #1280 > >
00:00:20 verbose #1281 > > let inline __expect fn log expected actual =
00:00:20 verbose #1282 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:20 verbose #1283 > > try
00:00:20 verbose #1284 > > "Testing.__expect" |> fn actual expected
00:00:20 verbose #1285 > > with :? Expecto.AssertException as ex ->
00:00:20 verbose #1286 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:20 verbose #1287 > > failwith (ex.GetType().FullName)
00:00:20 verbose #1288 > >
00:00:20 verbose #1289 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:20 verbose #1290 > > expected actual
00:00:20 verbose #1291 > > let inline _contains expected actual = __contains true expected actual
00:00:20 verbose #1292 > >
00:00:20 verbose #1293 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:20 verbose #1294 > > expected actual
00:00:20 verbose #1295 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:20 verbose #1296 > >
00:00:20 verbose #1297 > > let inline __isGreaterThan log expected actual = __expect
00:00:20 verbose #1298 > > Expecto.Expect.isGreaterThan log expected actual
00:00:20 verbose #1299 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:20 verbose #1300 > >
00:00:20 verbose #1301 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:20 verbose #1302 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:20 verbose #1303 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:20 verbose #1304 > > expected actual
00:00:20 verbose #1305 > >
00:00:20 verbose #1306 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:20 verbose #1307 > > log expected actual
00:00:20 verbose #1308 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:20 verbose #1309 > >
00:00:20 verbose #1310 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:20 verbose #1311 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:20 verbose #1312 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:20 verbose #1313 > > expected actual
00:00:20 verbose #1314 > >
00:00:20 verbose #1315 > > let inline __sequenceEqual log expected actual = __expect
00:00:20 verbose #1316 > > Expecto.Expect.sequenceEqual log expected actual
00:00:20 verbose #1317 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:20 verbose #1318 > >
00:00:20 verbose #1319 > > let inline __stringContains log expected actual = __expect
00:00:20 verbose #1320 > > Expecto.Expect.stringContains log expected actual
00:00:20 verbose #1321 > > let inline _stringContains expected actual = __stringContains true expected
00:00:20 verbose #1322 > > actual
00:00:20 verbose #1323 > >
00:00:20 verbose #1324 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:20 verbose #1325 > > log expected actual
00:00:20 verbose #1326 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:20 verbose #1327 > >
00:00:20 verbose #1328 > > let inline __stringStarts log expected actual = __expect
00:00:20 verbose #1329 > > Expecto.Expect.stringStarts log expected actual
00:00:20 verbose #1330 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:20 verbose #1331 > >
00:00:20 verbose #1332 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:20 verbose #1333 > > expected actual
00:00:20 verbose #1334 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:20 verbose #1335 > >
00:00:20 verbose #1336 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1337 > > //// test
00:00:20 verbose #1338 > >
00:00:20 verbose #1339 > > let inline __isBetween log a b actual =
00:00:20 verbose #1340 > > let inline isBetween actual (a, b) _ =
00:00:20 verbose #1341 > > __isGreaterThanOrEqual log a actual
00:00:20 verbose #1342 > > __isLessThanOrEqual log b actual
00:00:20 verbose #1343 > > __expect isBetween log (a, b) actual
00:00:20 verbose #1344 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:21 verbose #1345 > >
00:00:21 verbose #1346 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1347 > > #!import ../../lib/fsharp/Common.fs
00:00:21 verbose #1348 > >
00:00:21 verbose #1349 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1350 > > #if !INTERACTIVE
00:00:21 verbose #1351 > > namespace Polyglot
00:00:21 verbose #1352 > > #endif
00:00:21 verbose #1353 > >
00:00:21 verbose #1354 > > module Common =
00:00:21 verbose #1355 > >
00:00:21 verbose #1356 > > #if !INTERACTIVE
00:00:21 verbose #1357 > > open Lib
00:00:21 verbose #1358 > > #endif
00:00:21 verbose #1359 > >
00:00:21 verbose #1360 > > let nl = System.Environment.NewLine
00:00:21 verbose #1361 > > let q = @""""
00:00:21 verbose #1362 > >
00:00:21 verbose #1363 > > let inline cons head tail = head :: tail
00:00:21 verbose #1364 > >
00:00:21 verbose #1365 > > /// ## memoize
00:00:21 verbose #1366 > > let inline memoize fn =
00:00:21 verbose #1367 > > let result = lazy fn ()
00:00:21 verbose #1368 > > fun () -> result.Value
00:00:21 verbose #1369 > >
00:00:21 verbose #1370 > > /// ## TraceLevel
00:00:21 verbose #1371 > > type TraceLevel =
00:00:21 verbose #1372 > > | Verbose
00:00:21 verbose #1373 > > | Debug
00:00:21 verbose #1374 > > | Info
00:00:21 verbose #1375 > > | Warning
00:00:21 verbose #1376 > > | Critical
00:00:21 verbose #1377 > >
00:00:21 verbose #1378 > > let inline _locals () = ""
00:00:21 verbose #1379 > >
00:00:21 verbose #1380 > > /// ## trace
00:00:21 verbose #1381 > > let to_trace_level = function
00:00:21 verbose #1382 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:21 verbose #1383 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:21 verbose #1384 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:21 verbose #1385 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:21 verbose #1386 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:21 verbose #1387 > >
00:00:21 verbose #1388 > > let trace level fn locals =
00:00:21 verbose #1389 > > let level = level |> to_trace_level
00:00:21 verbose #1390 > > SpiralTrace.trace level fn locals
00:00:21 verbose #1391 > >
00:00:21 verbose #1392 > >
00:00:21 verbose #1393 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1394 > > #if !INTERACTIVE
00:00:21 verbose #1395 > > open Lib
00:00:21 verbose #1396 > > #endif
00:00:21 verbose #1397 > >
00:00:21 verbose #1398 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1399 > > open Common
00:00:21 verbose #1400 > >
00:00:21 verbose #1401 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #1402 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #1403 > > │ ## choice │
00:00:21 verbose #1404 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1405 > >
00:00:21 verbose #1406 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1407 > > let inline choice asyncs = async {
00:00:21 verbose #1408 > > let e = Event<_> ()
00:00:21 verbose #1409 > > use cts = new System.Threading.CancellationTokenSource ()
00:00:21 verbose #1410 > > let fn =
00:00:21 verbose #1411 > > asyncs
00:00:21 verbose #1412 > > |> Seq.map (fun a -> async {
00:00:21 verbose #1413 > > let! x = a
00:00:21 verbose #1414 > > e.Trigger x
00:00:21 verbose #1415 > > })
00:00:21 verbose #1416 > > |> Async.Parallel
00:00:21 verbose #1417 > > |> Async.Ignore
00:00:21 verbose #1418 > > Async.Start (fn, cts.Token)
00:00:21 verbose #1419 > > let! result = Async.AwaitEvent e.Publish
00:00:21 verbose #1420 > > cts.Cancel ()
00:00:21 verbose #1421 > > return result
00:00:21 verbose #1422 > > }
00:00:21 verbose #1423 > >
00:00:21 verbose #1424 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #1425 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #1426 > > │ ## map │
00:00:21 verbose #1427 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1428 > >
00:00:21 verbose #1429 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1430 > > let inline map fn a = async {
00:00:21 verbose #1431 > > let! x = a
00:00:21 verbose #1432 > > return fn x
00:00:21 verbose #1433 > > }
00:00:21 verbose #1434 > >
00:00:21 verbose #1435 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #1436 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #1437 > > │ ## catch │
00:00:21 verbose #1438 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1439 > >
00:00:21 verbose #1440 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1441 > > let inline catch a =
00:00:21 verbose #1442 > > a
00:00:21 verbose #1443 > > |> Async.Catch
00:00:21 verbose #1444 > > |> map (function
00:00:21 verbose #1445 > > | Choice1Of2 result -> Ok result
00:00:21 verbose #1446 > > | Choice2Of2 ex -> Error ex
00:00:21 verbose #1447 > > )
00:00:21 verbose #1448 > >
00:00:21 verbose #1449 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #1450 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #1451 > > │ ## runWithTimeoutChoiceAsync │
00:00:21 verbose #1452 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1453 > >
00:00:21 verbose #1454 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1455 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:00:21 verbose #1456 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:21 verbose #1457 > >
00:00:21 verbose #1458 > > let timeoutTask = async {
00:00:21 verbose #1459 > > do! Async.Sleep timeout
00:00:21 verbose #1460 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:00:21 verbose #1461 > > return None
00:00:21 verbose #1462 > > }
00:00:21 verbose #1463 > >
00:00:21 verbose #1464 > > let task = async {
00:00:21 verbose #1465 > > try
00:00:21 verbose #1466 > > let! result = fn
00:00:21 verbose #1467 > > return Some result
00:00:21 verbose #1468 > > with
00:00:21 verbose #1469 > > | :? System.AggregateException as ex when
00:00:21 verbose #1470 > > ex.InnerExceptions
00:00:21 verbose #1471 > > |> Seq.exists (function :?
00:00:21 verbose #1472 > > System.Threading.Tasks.TaskCanceledException -> true | _ -> false)
00:00:21 verbose #1473 > > ->
00:00:21 verbose #1474 > > trace Warning
00:00:21 verbose #1475 > > (fun () -> "runWithTimeoutChoiceAsync")
00:00:21 verbose #1476 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:21 verbose #1477 > > ()}")
00:00:21 verbose #1478 > > return None
00:00:21 verbose #1479 > > | ex ->
00:00:21 verbose #1480 > > trace Critical
00:00:21 verbose #1481 > > (fun () -> "runWithTimeoutChoiceAsync")
00:00:21 verbose #1482 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:21 verbose #1483 > > ()}")
00:00:21 verbose #1484 > > return None
00:00:21 verbose #1485 > > }
00:00:21 verbose #1486 > >
00:00:21 verbose #1487 > > [[ timeoutTask; task ]]
00:00:21 verbose #1488 > > |> choice
00:00:21 verbose #1489 > >
00:00:21 verbose #1490 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1491 > > let inline runWithTimeoutChoice timeout fn =
00:00:21 verbose #1492 > > fn
00:00:21 verbose #1493 > > |> runWithTimeoutChoiceAsync timeout
00:00:21 verbose #1494 > > |> Async.RunSynchronously
00:00:21 verbose #1495 > >
00:00:21 verbose #1496 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1497 > > //// test
00:00:21 verbose #1498 > >
00:00:21 verbose #1499 > > Async.Sleep 120
00:00:21 verbose #1500 > > |> runWithTimeoutChoice 10
00:00:21 verbose #1501 > > |> _assertEqual None
00:00:21 verbose #1502 > >
00:00:21 verbose #1503 > > ╭─[ 202.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 verbose #1504 > > │ 00:00:01 debug #1 runWithTimeoutChoiceAsync / timeout: 10 │
00:00:21 verbose #1505 > > │ <null> │
00:00:21 verbose #1506 > > │ │
00:00:21 verbose #1507 > > │ │
00:00:21 verbose #1508 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1509 > >
00:00:21 verbose #1510 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1511 > > //// test
00:00:21 verbose #1512 > >
00:00:21 verbose #1513 > > Async.Sleep 10
00:00:21 verbose #1514 > > |> runWithTimeoutChoice 60
00:00:21 verbose #1515 > > |> _assertEqual (Some ())
00:00:21 verbose #1516 > >
00:00:21 verbose #1517 > > ╭─[ 148.63ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 verbose #1518 > > │ Some () │
00:00:21 verbose #1519 > > │ │
00:00:21 verbose #1520 > > │ │
00:00:21 verbose #1521 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1522 > >
00:00:21 verbose #1523 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1524 > > //// test
00:00:21 verbose #1525 > >
00:00:21 verbose #1526 > > async {
00:00:21 verbose #1527 > > raise (exn "error")
00:00:21 verbose #1528 > > }
00:00:21 verbose #1529 > > |> runWithTimeoutChoice 60
00:00:21 verbose #1530 > > |> _assertEqual None
00:00:21 verbose #1531 > >
00:00:21 verbose #1532 > > ╭─[ 143.35ms - stdout ]────────────────────────────────────────────────────────╮
00:00:21 verbose #1533 > > │ 00:00:01 critical #2 runWithTimeoutChoiceAsync / ex: System.Exception: error │
00:00:21 verbose #1534 > > │ / timeout: 60 │
00:00:21 verbose #1535 > > │ <null> │
00:00:21 verbose #1536 > > │ │
00:00:21 verbose #1537 > > │ │
00:00:21 verbose #1538 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1539 > >
00:00:21 verbose #1540 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:21 verbose #1541 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:21 verbose #1542 > > │ ## runWithTimeoutAsync │
00:00:21 verbose #1543 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 verbose #1544 > >
00:00:21 verbose #1545 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1546 > > let inline runWithTimeoutAsync (timeout : int) fn = async {
00:00:21 verbose #1547 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:21 verbose #1548 > > let! child = Async.StartChild (fn, timeout)
00:00:21 verbose #1549 > > return!
00:00:21 verbose #1550 > > child
00:00:21 verbose #1551 > > |> catch
00:00:21 verbose #1552 > > |> map (function
00:00:21 verbose #1553 > > | Ok result -> Some result
00:00:21 verbose #1554 > > | Error (:? System.TimeoutException as ex) ->
00:00:21 verbose #1555 > > trace Debug (fun () -> $"runWithTimeoutAsync") _locals
00:00:21 verbose #1556 > > None
00:00:21 verbose #1557 > > | Error ex ->
00:00:21 verbose #1558 > > trace Critical (fun () -> $"runWithTimeoutAsync** / ex: %A{ex}")
00:00:21 verbose #1559 > > _locals
00:00:21 verbose #1560 > > None
00:00:21 verbose #1561 > > )
00:00:21 verbose #1562 > > }
00:00:22 verbose #1563 > >
00:00:22 verbose #1564 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1565 > > let inline runWithTimeout timeout fn =
00:00:22 verbose #1566 > > fn
00:00:22 verbose #1567 > > |> runWithTimeoutAsync timeout
00:00:22 verbose #1568 > > |> Async.RunSynchronously
00:00:22 verbose #1569 > >
00:00:22 verbose #1570 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1571 > > //// test
00:00:22 verbose #1572 > >
00:00:22 verbose #1573 > > Async.Sleep 60
00:00:22 verbose #1574 > > |> runWithTimeout 10
00:00:22 verbose #1575 > > |> _assertEqual None
00:00:22 verbose #1576 > >
00:00:22 verbose #1577 > > ╭─[ 110.17ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #1578 > > │ 00:00:01 debug #3 runWithTimeoutAsync / timeout: 10 │
00:00:22 verbose #1579 > > │ <null> │
00:00:22 verbose #1580 > > │ │
00:00:22 verbose #1581 > > │ │
00:00:22 verbose #1582 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1583 > >
00:00:22 verbose #1584 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1585 > > //// test
00:00:22 verbose #1586 > >
00:00:22 verbose #1587 > > Async.Sleep 10
00:00:22 verbose #1588 > > |> runWithTimeout 60
00:00:22 verbose #1589 > > |> _assertEqual (Some ())
00:00:22 verbose #1590 > >
00:00:22 verbose #1591 > > ╭─[ 103.05ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #1592 > > │ Some () │
00:00:22 verbose #1593 > > │ │
00:00:22 verbose #1594 > > │ │
00:00:22 verbose #1595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1596 > >
00:00:22 verbose #1597 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1598 > > //// test
00:00:22 verbose #1599 > >
00:00:22 verbose #1600 > > async {
00:00:22 verbose #1601 > > raise (exn "error")
00:00:22 verbose #1602 > > }
00:00:22 verbose #1603 > > |> runWithTimeout 60
00:00:22 verbose #1604 > > |> _assertEqual None
00:00:22 verbose #1605 > >
00:00:22 verbose #1606 > > ╭─[ 107.09ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #1607 > > │ 00:00:01 critical #4 runWithTimeoutAsync** / ex: System.Exception: error │
00:00:22 verbose #1608 > > │ at FSI_0036.it@4-119.Invoke(Unit unitVar) │
00:00:22 verbose #1609 > > │ at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvoke[ │
00:00:22 verbose #1610 > > │ T,TResult](AsyncActivation`1 ctxt, TResult result1, FSharpFunc`2 part2) in │
00:00:22 verbose #1611 > > │ D:\a\_work\1\s\src\FSharp.Core\async.fs:line 510 │
00:00:22 verbose #1612 > > │ at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) │
00:00:22 verbose #1613 > > │ in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 112 │
00:00:22 verbose #1614 > > │ --- End of stack trace from previous location --- │
00:00:22 verbose #1615 > > │ at Microsoft.FSharp.Control.AsyncResult`1.Commit() in │
00:00:22 verbose #1616 > > │ D:\a\_work\1\s\src\FSharp.Core\async.fs:line 454 │
00:00:22 verbose #1617 > > │ at │
00:00:22 verbose #1618 > > │ <StartupCode$FSharp-Core>.$Async.AwaitAndBindChildResult@1962-4.Invoke(Unit │
00:00:22 verbose #1619 > > │ unitVar) in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 1964 │
00:00:22 verbose #1620 > > │ at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvoke[ │
00:00:22 verbose #1621 > > │ T,TResult](AsyncActivation`1 ctxt, TResult result1, FSharpFunc`2 part2) in │
00:00:22 verbose #1622 > > │ D:\a\_work\1\s\src\FSharp.Core\async.fs:line 510 │
00:00:22 verbose #1623 > > │ at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) │
00:00:22 verbose #1624 > > │ in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 112 / timeout: 60 │
00:00:22 verbose #1625 > > │ <null> │
00:00:22 verbose #1626 > > │ │
00:00:22 verbose #1627 > > │ │
00:00:22 verbose #1628 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1629 > >
00:00:22 verbose #1630 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1631 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1632 > > │ ## runWithTimeoutStrict │
00:00:22 verbose #1633 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1634 > >
00:00:22 verbose #1635 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1636 > > let inline runWithTimeoutStrict (timeout : int) fn =
00:00:22 verbose #1637 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:22 verbose #1638 > >
00:00:22 verbose #1639 > > let timeoutTask = async {
00:00:22 verbose #1640 > > do! Async.Sleep timeout
00:00:22 verbose #1641 > > return None, _locals
00:00:22 verbose #1642 > > }
00:00:22 verbose #1643 > >
00:00:22 verbose #1644 > > let task = async {
00:00:22 verbose #1645 > > try
00:00:22 verbose #1646 > > return Async.RunSynchronously (fn, timeout) |> Some, _locals
00:00:22 verbose #1647 > > with
00:00:22 verbose #1648 > > | :? System.TimeoutException as ex ->
00:00:22 verbose #1649 > > let _locals () = $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:22 verbose #1650 > > ()}"
00:00:22 verbose #1651 > > return None, _locals
00:00:22 verbose #1652 > > | ex ->
00:00:22 verbose #1653 > > trace Critical
00:00:22 verbose #1654 > > (fun () -> "runWithTimeoutStrict / async error")
00:00:22 verbose #1655 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals
00:00:22 verbose #1656 > > ()}")
00:00:22 verbose #1657 > > return raise ex
00:00:22 verbose #1658 > > }
00:00:22 verbose #1659 > >
00:00:22 verbose #1660 > > try
00:00:22 verbose #1661 > > [[| timeoutTask; task |]]
00:00:22 verbose #1662 > > |> Array.map Async.StartAsTask
00:00:22 verbose #1663 > > |> System.Threading.Tasks.Task.WhenAny
00:00:22 verbose #1664 > > |> fun task ->
00:00:22 verbose #1665 > > match task.Result.Result with
00:00:22 verbose #1666 > > | None, _locals ->
00:00:22 verbose #1667 > > trace Debug (fun () -> "runWithTimeoutStrict") _locals
00:00:22 verbose #1668 > > None
00:00:22 verbose #1669 > > | result, _ -> result
00:00:22 verbose #1670 > > with
00:00:22 verbose #1671 > > | :? System.AggregateException as ex when
00:00:22 verbose #1672 > > ex.InnerExceptions
00:00:22 verbose #1673 > > |> Seq.exists (function :? System.Threading.Tasks.TaskCanceledException
00:00:22 verbose #1674 > > -> true | _ -> false)
00:00:22 verbose #1675 > > ->
00:00:22 verbose #1676 > > trace Warning
00:00:22 verbose #1677 > > (fun () -> "runWithTimeoutStrict")
00:00:22 verbose #1678 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals ()}")
00:00:22 verbose #1679 > > None
00:00:22 verbose #1680 > > | ex ->
00:00:22 verbose #1681 > > trace Critical
00:00:22 verbose #1682 > > (fun () -> "runWithTimeoutStrict / task error")
00:00:22 verbose #1683 > > (fun () -> $"ex: {ex |> SpiralSm.format_exception} / {_locals ()}")
00:00:22 verbose #1684 > > None
00:00:22 verbose #1685 > >
00:00:22 verbose #1686 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1687 > > //// test
00:00:22 verbose #1688 > >
00:00:22 verbose #1689 > > Async.Sleep 60
00:00:22 verbose #1690 > > |> runWithTimeoutStrict 10
00:00:22 verbose #1691 > > |> _assertEqual None
00:00:22 verbose #1692 > >
00:00:22 verbose #1693 > > ╭─[ 153.92ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #1694 > > │ 00:00:02 debug #5 runWithTimeoutStrict / timeout: 10 │
00:00:22 verbose #1695 > > │ <null> │
00:00:22 verbose #1696 > > │ │
00:00:22 verbose #1697 > > │ │
00:00:22 verbose #1698 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1699 > >
00:00:22 verbose #1700 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1701 > > //// test
00:00:22 verbose #1702 > >
00:00:22 verbose #1703 > > Async.Sleep 10
00:00:22 verbose #1704 > > |> runWithTimeoutStrict 60
00:00:22 verbose #1705 > > |> _assertEqual (Some ())
00:00:22 verbose #1706 > >
00:00:22 verbose #1707 > > ╭─[ 139.74ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #1708 > > │ Some () │
00:00:22 verbose #1709 > > │ │
00:00:22 verbose #1710 > > │ │
00:00:22 verbose #1711 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1712 > >
00:00:22 verbose #1713 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1714 > > //// test
00:00:22 verbose #1715 > >
00:00:22 verbose #1716 > > async {
00:00:22 verbose #1717 > > raise (exn "error")
00:00:22 verbose #1718 > > }
00:00:22 verbose #1719 > > |> runWithTimeoutStrict 60
00:00:22 verbose #1720 > > |> _assertEqual None
00:00:23 verbose #1721 > >
00:00:23 verbose #1722 > > ╭─[ 154.51ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1723 > > │ 00:00:02 critical #6 runWithTimeoutStrict / async error / ex: │
00:00:23 verbose #1724 > > │ System.Exception: error / timeout: 60 │
00:00:23 verbose #1725 > > │ 00:00:02 critical #7 runWithTimeoutStrict / task error / ex: │
00:00:23 verbose #1726 > > │ System.AggregateException: One or more errors occurred. (error) / timeout: │
00:00:23 verbose #1727 > > │ 60 │
00:00:23 verbose #1728 > > │ <null> │
00:00:23 verbose #1729 > > │ │
00:00:23 verbose #1730 > > │ │
00:00:23 verbose #1731 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1732 > >
00:00:23 verbose #1733 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1734 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1735 > > │ ## awaitValueTask │
00:00:23 verbose #1736 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1737 > >
00:00:23 verbose #1738 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1739 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:23 verbose #1740 > > task.AsTask () |> Async.AwaitTask
00:00:23 verbose #1741 > >
00:00:23 verbose #1742 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:23 verbose #1743 > > task.AsTask () |> Async.AwaitTask
00:00:23 verbose #1744 > >
00:00:23 verbose #1745 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1746 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1747 > > │ ## init │
00:00:23 verbose #1748 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1749 > >
00:00:23 verbose #1750 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1751 > > let inline init x = async {
00:00:23 verbose #1752 > > return x
00:00:23 verbose #1753 > > }
00:00:23 verbose #1754 > >
00:00:23 verbose #1755 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1756 > > //// test
00:00:23 verbose #1757 > >
00:00:23 verbose #1758 > > init 1
00:00:23 verbose #1759 > > |> Async.RunSynchronously
00:00:23 verbose #1760 > > |> _assertEqual 1
00:00:23 verbose #1761 > >
00:00:23 verbose #1762 > > ╭─[ 38.80ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:23 verbose #1763 > > │ 1 │
00:00:23 verbose #1764 > > │ │
00:00:23 verbose #1765 > > │ │
00:00:23 verbose #1766 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1767 > >
00:00:23 verbose #1768 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1769 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1770 > > │ ## withCancellationToken │
00:00:23 verbose #1771 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1772 > >
00:00:23 verbose #1773 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1774 > > let inline withCancellationToken (ct : System.Threading.CancellationToken) fn =
00:00:23 verbose #1775 > > Async.StartImmediateAsTask (fn, ct)
00:00:23 verbose #1776 > > |> Async.AwaitTask
00:00:23 verbose #1777 > >
00:00:23 verbose #1778 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1779 > > //// test
00:00:23 verbose #1780 > >
00:00:23 verbose #1781 > > let cts = new System.Threading.CancellationTokenSource ()
00:00:23 verbose #1782 > >
00:00:23 verbose #1783 > > async {
00:00:23 verbose #1784 > > let run = async {
00:00:23 verbose #1785 > > do! Async.Sleep 100
00:00:23 verbose #1786 > > return 1
00:00:23 verbose #1787 > > }
00:00:23 verbose #1788 > >
00:00:23 verbose #1789 > > let! child =
00:00:23 verbose #1790 > > run
00:00:23 verbose #1791 > > |> withCancellationToken cts.Token
00:00:23 verbose #1792 > > |> catch
00:00:23 verbose #1793 > > |> Async.StartChild
00:00:23 verbose #1794 > >
00:00:23 verbose #1795 > > do! Async.Sleep 50
00:00:23 verbose #1796 > > cts.Cancel ()
00:00:23 verbose #1797 > > return! child
00:00:23 verbose #1798 > > }
00:00:23 verbose #1799 > > |> Async.RunSynchronously
00:00:23 verbose #1800 > > |> Result.mapError _.Message
00:00:23 verbose #1801 > > |> _assertEqual (Error ("A task was canceled."))
00:00:23 verbose #1802 > >
00:00:23 verbose #1803 > > ╭─[ 176.79ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1804 > > │ Error "A task was canceled." │
00:00:23 verbose #1805 > > │ │
00:00:23 verbose #1806 > > │ │
00:00:23 verbose #1807 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1808 > >
00:00:23 verbose #1809 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1810 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1811 > > │ ## retryAsync │
00:00:23 verbose #1812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1813 > >
00:00:23 verbose #1814 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1815 > > let inline retryAsync retries fn =
00:00:23 verbose #1816 > > let rec loop retry lastError = async {
00:00:23 verbose #1817 > > try
00:00:23 verbose #1818 > > return!
00:00:23 verbose #1819 > > if retry <= retries
00:00:23 verbose #1820 > > then fn |> map Ok
00:00:23 verbose #1821 > > else lastError |> Error |> init
00:00:23 verbose #1822 > > with ex ->
00:00:23 verbose #1823 > > trace Debug (fun () -> $"Async.retryAsync / retry: {retry}/{retries}
00:00:23 verbose #1824 > > / ex: {ex |> SpiralSm.format_exception}") _locals
00:00:23 verbose #1825 > > do! Async.Sleep 1
00:00:23 verbose #1826 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:00:23 verbose #1827 > > }
00:00:23 verbose #1828 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:00:23 verbose #1829 > >
00:00:23 verbose #1830 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1831 > > //// test
00:00:23 verbose #1832 > >
00:00:23 verbose #1833 > > let retry_fn_test = ref 0
00:00:23 verbose #1834 > > async {
00:00:23 verbose #1835 > > retry_fn_test.Value <- retry_fn_test.Value + 1
00:00:23 verbose #1836 > > return retry_fn_test.Value
00:00:23 verbose #1837 > > }
00:00:23 verbose #1838 > > |> retryAsync 3
00:00:23 verbose #1839 > > |> Async.RunSynchronously
00:00:23 verbose #1840 > > |> _assertEqual (Ok 1)
00:00:23 verbose #1841 > >
00:00:23 verbose #1842 > > ╭─[ 114.46ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1843 > > │ Ok 1 │
00:00:23 verbose #1844 > > │ │
00:00:23 verbose #1845 > > │ │
00:00:23 verbose #1846 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1847 > >
00:00:23 verbose #1848 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1849 > > //// test
00:00:23 verbose #1850 > >
00:00:23 verbose #1851 > > let retry_fn_test = ref 0
00:00:23 verbose #1852 > > async {
00:00:23 verbose #1853 > > return
00:00:23 verbose #1854 > > if retry_fn_test.Value >= 2
00:00:23 verbose #1855 > > then retry_fn_test.Value
00:00:23 verbose #1856 > > else
00:00:23 verbose #1857 > > retry_fn_test.Value <- retry_fn_test.Value + 1
00:00:23 verbose #1858 > > failwith "test"
00:00:23 verbose #1859 > > }
00:00:23 verbose #1860 > > |> retryAsync 3
00:00:23 verbose #1861 > > |> Async.RunSynchronously
00:00:23 verbose #1862 > > |> _assertEqual (Ok 2)
00:00:23 verbose #1863 > >
00:00:23 verbose #1864 > > ╭─[ 124.93ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1865 > > │ 00:00:03 debug #8 Async.retryAsync / retry: 1/3 / ex: System.Exception: │
00:00:23 verbose #1866 > > │ test │
00:00:23 verbose #1867 > > │ 00:00:03 debug #9 Async.retryAsync / retry: 2/3 / ex: System.Exception: │
00:00:23 verbose #1868 > > │ test │
00:00:23 verbose #1869 > > │ Ok 2 │
00:00:23 verbose #1870 > > │ │
00:00:23 verbose #1871 > > │ │
00:00:23 verbose #1872 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1873 > >
00:00:23 verbose #1874 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1875 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1876 > > │ ## fold │
00:00:23 verbose #1877 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1878 > >
00:00:23 verbose #1879 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1880 > > let fold folder state array =
00:00:23 verbose #1881 > > let rec loop acc i =
00:00:23 verbose #1882 > > async {
00:00:23 verbose #1883 > > if i < Array.length array then
00:00:23 verbose #1884 > > let! newAcc = folder acc array.[[i]]
00:00:23 verbose #1885 > > return! loop newAcc (i + 1)
00:00:23 verbose #1886 > > else
00:00:23 verbose #1887 > > return acc
00:00:23 verbose #1888 > > }
00:00:23 verbose #1889 > > loop state 0
00:00:24 verbose #1890 > 00:00:21 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 64743
00:00:24 verbose #1891 > 00:00:21 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:26 verbose #1892 > 00:00:24 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/Async.dib.ipynb to html
00:00:26 verbose #1893 > 00:00:24 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:26 verbose #1894 > 00:00:24 verbose #7 ! validate(nb)
00:00:28 verbose #1895 > 00:00:25 verbose #8 ! [NbConvertApp] Writing 332386 bytes to c:\home\git\polyglot\lib\fsharp\Async.dib.html
00:00:28 verbose #1896 > 00:00:26 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641
00:00:28 verbose #1897 > 00:00:26 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641
00:00:28 verbose #1898 > 00:00:26 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Async.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Async.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:29 verbose #1899 > 00:00:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:29 verbose #1900 > 00:00:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:29 verbose #1901 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 65443
00:00:29 debug #1902 runtime.execute_with_options_async / exit_code: 0 / output.Length: 71451
00:00:29 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Async.dib --retries 3
00:00:29 debug #1903 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path AsyncSeq.dib --retries 3",
[||], None, None, true, None)
00:00:30 verbose #1904 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "AsyncSeq.dib", "--retries", "3"])
00:00:30 verbose #1905 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib" --output-path "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:32 verbose #1906 > >
00:00:32 verbose #1907 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:32 verbose #1908 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:32 verbose #1909 > > │ # AsyncSeq (Polyglot) │
00:00:32 verbose #1910 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:32 verbose #1911 > >
00:00:32 verbose #1912 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:32 verbose #1913 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:32 verbose #1914 > > #!import ../../lib/fsharp/Testing.dib
00:00:32 verbose #1915 > >
00:00:32 verbose #1916 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:32 verbose #1917 > > #r
00:00:32 verbose #1918 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:32 verbose #1919 > > spNetCore.Html.Abstractions.dll"
00:00:32 verbose #1920 > > #r
00:00:32 verbose #1921 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:32 verbose #1922 > > otNet.Interactive.dll"
00:00:32 verbose #1923 > > #r
00:00:32 verbose #1924 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:32 verbose #1925 > > otNet.Interactive.FSharp.dll"
00:00:32 verbose #1926 > > #r
00:00:32 verbose #1927 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:32 verbose #1928 > > otNet.Interactive.Formatting.dll"
00:00:32 verbose #1929 > > open System
00:00:32 verbose #1930 > > open System.IO
00:00:32 verbose #1931 > > open System.Text
00:00:32 verbose #1932 > > open Microsoft.DotNet.Interactive.Formatting
00:00:36 verbose #1933 > >
00:00:36 verbose #1934 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:36 verbose #1935 > > #r
00:00:36 verbose #1936 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 verbose #1937 > > otNet.Interactive.FSharp.dll"
00:00:36 verbose #1938 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:36 verbose #1939 > > #r
00:00:36 verbose #1940 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:36 verbose #1941 > > otNet.Interactive.dll"
00:00:36 verbose #1942 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:37 verbose #1943 > >
00:00:37 verbose #1944 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:37 verbose #1945 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:37 verbose #1946 > >
00:00:37 verbose #1947 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:37 verbose #1948 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:37 verbose #1949 > > TextWriter)->fprintfn writer "%120A" x)
00:00:37 verbose #1950 > >
00:00:37 verbose #1951 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:37 verbose #1952 > > //// test
00:00:37 verbose #1953 > >
00:00:37 verbose #1954 > > Formatter.ListExpansionLimit <- 100
00:00:38 verbose #1955 > >
00:00:38 verbose #1956 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:38 verbose #1957 > > #if FABLE_COMPILER
00:00:38 verbose #1958 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:38 verbose #1959 > > #endif
00:00:38 verbose #1960 > > type std_env_VarError = class end
00:00:38 verbose #1961 > > #if FABLE_COMPILER
00:00:38 verbose #1962 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:38 verbose #1963 > > #endif
00:00:38 verbose #1964 > > type core_any_Any = class end
00:00:38 verbose #1965 > > #if FABLE_COMPILER
00:00:38 verbose #1966 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:38 verbose #1967 > > #endif
00:00:38 verbose #1968 > > type core_ops_Try<'T> = class end
00:00:38 verbose #1969 > > #if FABLE_COMPILER
00:00:38 verbose #1970 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:38 verbose #1971 > > #endif
00:00:38 verbose #1972 > > type Func0<'T> = class end
00:00:38 verbose #1973 > > #if FABLE_COMPILER
00:00:38 verbose #1974 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:38 verbose #1975 > > #endif
00:00:38 verbose #1976 > > type Func0<'T, 'U> = class end
00:00:38 verbose #1977 > > #if FABLE_COMPILER
00:00:38 verbose #1978 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:38 verbose #1979 > > #endif
00:00:38 verbose #1980 > > type Box<'T> = class end
00:00:38 verbose #1981 > > #if FABLE_COMPILER
00:00:38 verbose #1982 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:38 verbose #1983 > > #endif
00:00:38 verbose #1984 > > type Dyn<'T> = class end
00:00:38 verbose #1985 > > #if FABLE_COMPILER
00:00:38 verbose #1986 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:38 verbose #1987 > > #endif
00:00:38 verbose #1988 > > type Send<'T> = class end
00:00:38 verbose #1989 > > #if FABLE_COMPILER
00:00:38 verbose #1990 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:38 verbose #1991 > > #endif
00:00:38 verbose #1992 > > type Fn<'T> = class end
00:00:38 verbose #1993 > > #if FABLE_COMPILER
00:00:38 verbose #1994 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:38 verbose #1995 > > #endif
00:00:38 verbose #1996 > > type FnUnit = class end
00:00:38 verbose #1997 > > #if FABLE_COMPILER
00:00:38 verbose #1998 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:38 verbose #1999 > > #endif
00:00:38 verbose #2000 > > type FnOnce<'T> = class end
00:00:38 verbose #2001 > > #if FABLE_COMPILER
00:00:38 verbose #2002 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:38 verbose #2003 > > #endif
00:00:38 verbose #2004 > > type ActionFn<'T> = class end
00:00:38 verbose #2005 > > #if FABLE_COMPILER
00:00:38 verbose #2006 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:38 verbose #2007 > > #endif
00:00:38 verbose #2008 > > type ActionFn2<'T, 'U> = class end
00:00:38 verbose #2009 > > #if FABLE_COMPILER
00:00:38 verbose #2010 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:38 verbose #2011 > > #endif
00:00:38 verbose #2012 > > type Impl<'T> = class end
00:00:38 verbose #2013 > > #if FABLE_COMPILER
00:00:38 verbose #2014 > > [[<Fabl... _v5=None"
00:00:38 verbose #2015 > > US5_1
00:00:38 verbose #2016 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:38 verbose #2017 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:38 verbose #2018 > > let v4 : (US4 -> US5) = closure6()
00:00:38 verbose #2019 > > let v5 : (exn -> US5) = closure7(v2)
00:00:38 verbose #2020 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:38 verbose #2021 > > match v6 with
00:00:38 verbose #2022 > > | US5_1 -> (* None *)
00:00:38 verbose #2023 > > let v8 : int32 = v2 + 1
00:00:38 verbose #2024 > > method6(v0, v1, v8)
00:00:38 verbose #2025 > > | US5_0(v7) -> (* Some *)
00:00:38 verbose #2026 > > v7
00:00:38 verbose #2027 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:38 verbose #2028 > > let v2 : int32 = 0
00:00:38 verbose #2029 > > let v3 : US4 = method6(v0, v1, v2)
00:00:38 verbose #2030 > > match v3 with
00:00:38 verbose #2031 > > | US4_1 -> (* None *)
00:00:38 verbose #2032 > > let v5 : unit option = None
00:00:38 verbose #2033 > > v5
00:00:38 verbose #2034 > > | US4_0 -> (* Some *)
00:00:38 verbose #2035 > > let v4 : unit option = Some ()
00:00:38 verbose #2036 > > v4
00:00:38 verbose #2037 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:38 verbose #2038 > > closure4(v0)
00:00:38 verbose #2039 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:38 verbose #2040 > > v0
00:00:38 verbose #2041 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:38 verbose #2042 > > v0.Value
00:00:38 verbose #2043 > > ()
00:00:38 verbose #2044 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:38 verbose #2045 > > let v1 : (unit -> unit) = method12(v0)
00:00:38 verbose #2046 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:38 verbose #2047 > > closure13(v2)
00:00:38 verbose #2048 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:38 verbose #2049 > > let v1 : US0 = US0_0
00:00:38 verbose #2050 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:38 verbose #2051 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:38 verbose #2052 > > let new_disposable x = v2 x
00:00:38 verbose #2053 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:38 verbose #2054 > > let retry_fn x = v3 x
00:00:38 verbose #2055 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:38 verbose #2056 > > let memoize x = v4 x
00:00:38 verbose #2057 > > ()
00:00:38 verbose #2058 > >
00:00:39 verbose #2059 > >
00:00:39 verbose #2060 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:39 verbose #2061 > > #if FABLE_COMPILER
00:00:39 verbose #2062 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:39 verbose #2063 > > #endif
00:00:39 verbose #2064 > > type core_any_Any = class end
00:00:39 verbose #2065 > > #if FABLE_COMPILER
00:00:39 verbose #2066 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:39 verbose #2067 > > #endif
00:00:39 verbose #2068 > > type core_ops_Try<'T> = class end
00:00:39 verbose #2069 > > #if FABLE_COMPILER
00:00:39 verbose #2070 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:39 verbose #2071 > > #endif
00:00:39 verbose #2072 > > type Func0<'T> = class end
00:00:39 verbose #2073 > > #if FABLE_COMPILER
00:00:39 verbose #2074 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:39 verbose #2075 > > #endif
00:00:39 verbose #2076 > > type Func0<'T, 'U> = class end
00:00:39 verbose #2077 > > #if FABLE_COMPILER
00:00:39 verbose #2078 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:39 verbose #2079 > > #endif
00:00:39 verbose #2080 > > type Box<'T> = class end
00:00:39 verbose #2081 > > #if FABLE_COMPILER
00:00:39 verbose #2082 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:39 verbose #2083 > > #endif
00:00:39 verbose #2084 > > type Dyn<'T> = class end
00:00:39 verbose #2085 > > #if FABLE_COMPILER
00:00:39 verbose #2086 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:39 verbose #2087 > > #endif
00:00:39 verbose #2088 > > type Send<'T> = class end
00:00:39 verbose #2089 > > #if FABLE_COMPILER
00:00:39 verbose #2090 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:39 verbose #2091 > > #endif
00:00:39 verbose #2092 > > type Fn<'T> = class end
00:00:39 verbose #2093 > > #if FABLE_COMPILER
00:00:39 verbose #2094 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:39 verbose #2095 > > #endif
00:00:39 verbose #2096 > > type FnUnit = class end
00:00:39 verbose #2097 > > #if FABLE_COMPILER
00:00:39 verbose #2098 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:39 verbose #2099 > > #endif
00:00:39 verbose #2100 > > type FnOnce<'T> = class end
00:00:39 verbose #2101 > > #if FABLE_COMPILER
00:00:39 verbose #2102 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:39 verbose #2103 > > #endif
00:00:39 verbose #2104 > > type ActionFn<'T> = class end
00:00:39 verbose #2105 > > #if FABLE_COMPILER
00:00:39 verbose #2106 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:39 verbose #2107 > > #endif
00:00:39 verbose #2108 > > type ActionFn2<'T, 'U> = class end
00:00:39 verbose #2109 > > #if FABLE_COMPILER
00:00:39 verbose #2110 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:39 verbose #2111 > > #endif
00:00:39 verbose #2112 > > type Impl<'T> = class end
00:00:39 verbose #2113 > > #if FABLE_COMPILER
00:00:39 verbose #2114 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:39 verbose #2115 > > #endif
00:00:39 verbose #2116 > > type Mut<'T> = class end
00:00:39 verbose #2117 > > #if FABLE_COMPILER
00:00:39 verbose #2118 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:39 verbose #2119 > > let replace x = v4 x
00:00:39 verbose #2120 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:39 verbose #2121 > > let replace_regex x = v5 x
00:00:39 verbose #2122 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:39 verbose #2123 > > let slice x = v6 x
00:00:39 verbose #2124 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:39 verbose #2125 > > let split x = v7 x
00:00:39 verbose #2126 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:39 verbose #2127 > > let split_string x = v8 x
00:00:39 verbose #2128 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:39 verbose #2129 > > let starts_with x = v9 x
00:00:39 verbose #2130 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:39 verbose #2131 > > let substring x = v10 x
00:00:39 verbose #2132 > > let v11 : (string -> string) = closure28()
00:00:39 verbose #2133 > > let to_lower x = v11 x
00:00:39 verbose #2134 > > let v12 : (string -> string) = closure29()
00:00:39 verbose #2135 > > let to_upper x = v12 x
00:00:39 verbose #2136 > > let v13 : (string -> string) = closure30()
00:00:39 verbose #2137 > > let trim x = v13 x
00:00:39 verbose #2138 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:39 verbose #2139 > > let trim_end x = v14 x
00:00:39 verbose #2140 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:39 verbose #2141 > > let trim_start x = v15 x
00:00:39 verbose #2142 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:39 verbose #2143 > > let ellipsis x = v16 x
00:00:39 verbose #2144 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:39 verbose #2145 > > let ellipsis_end x = v17 x
00:00:39 verbose #2146 > > let v18 : (exn -> string) = closure39()
00:00:39 verbose #2147 > > let format_exception x = v18 x
00:00:39 verbose #2148 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:39 verbose #2149 > > let concat_array_trailing x = v19 x
00:00:39 verbose #2150 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:39 verbose #2151 > > let concat x = v20 x
00:00:39 verbose #2152 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:39 verbose #2153 > > let join' x = v21 x
00:00:39 verbose #2154 > > let v22 : (string -> (char [[]])) = closure46()
00:00:39 verbose #2155 > > let to_char_array x = v22 x
00:00:39 verbose #2156 > > ()
00:00:39 verbose #2157 > >
00:00:40 verbose #2158 > >
00:00:40 verbose #2159 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:40 verbose #2160 > > #if FABLE_COMPILER
00:00:40 verbose #2161 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:40 verbose #2162 > > #endif
00:00:40 verbose #2163 > > type core_any_Any = class end
00:00:40 verbose #2164 > > #if FABLE_COMPILER
00:00:40 verbose #2165 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:40 verbose #2166 > > #endif
00:00:40 verbose #2167 > > type core_ops_Try<'T> = class end
00:00:40 verbose #2168 > > #if FABLE_COMPILER
00:00:40 verbose #2169 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:40 verbose #2170 > > #endif
00:00:40 verbose #2171 > > type Func0<'T> = class end
00:00:40 verbose #2172 > > #if FABLE_COMPILER
00:00:40 verbose #2173 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:40 verbose #2174 > > #endif
00:00:40 verbose #2175 > > type Func0<'T, 'U> = class end
00:00:40 verbose #2176 > > #if FABLE_COMPILER
00:00:40 verbose #2177 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:40 verbose #2178 > > #endif
00:00:40 verbose #2179 > > type Box<'T> = class end
00:00:40 verbose #2180 > > #if FABLE_COMPILER
00:00:40 verbose #2181 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:40 verbose #2182 > > #endif
00:00:40 verbose #2183 > > type Dyn<'T> = class end
00:00:40 verbose #2184 > > #if FABLE_COMPILER
00:00:40 verbose #2185 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:40 verbose #2186 > > #endif
00:00:40 verbose #2187 > > type Send<'T> = class end
00:00:40 verbose #2188 > > #if FABLE_COMPILER
00:00:40 verbose #2189 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:40 verbose #2190 > > #endif
00:00:40 verbose #2191 > > type Fn<'T> = class end
00:00:40 verbose #2192 > > #if FABLE_COMPILER
00:00:40 verbose #2193 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:40 verbose #2194 > > #endif
00:00:40 verbose #2195 > > type FnUnit = class end
00:00:40 verbose #2196 > > #if FABLE_COMPILER
00:00:40 verbose #2197 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:40 verbose #2198 > > #endif
00:00:40 verbose #2199 > > type FnOnce<'T> = class end
00:00:40 verbose #2200 > > #if FABLE_COMPILER
00:00:40 verbose #2201 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:40 verbose #2202 > > #endif
00:00:40 verbose #2203 > > type ActionFn<'T> = class end
00:00:40 verbose #2204 > > #if FABLE_COMPILER
00:00:40 verbose #2205 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:40 verbose #2206 > > #endif
00:00:40 verbose #2207 > > type ActionFn2<'T, 'U> = class end
00:00:40 verbose #2208 > > #if FABLE_COMPILER
00:00:40 verbose #2209 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:40 verbose #2210 > > #endif
00:00:40 verbose #2211 > > type Impl<'T> = class end
00:00:40 verbose #2212 > > #if FABLE_COMPILER
00:00:40 verbose #2213 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:40 verbose #2214 > > #endif
00:00:40 verbose #2215 > > type Mut<'T> = class end
00:00:40 verbose #2216 > > #if FABLE_COMPILER
00:00:40 verbose #2217 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:40 verbose #2218 > > ()
00:00:40 verbose #2219 > > #endif
00:00:40 verbose #2220 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:40 verbose #2221 > > let v28 : string = @"println!(""{}"", $0)"
00:00:40 verbose #2222 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:40 verbose #2223 > > ()
00:00:40 verbose #2224 > > #endif
00:00:40 verbose #2225 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:40 verbose #2226 > > System.Console.WriteLine v24
00:00:40 verbose #2227 > > ()
00:00:40 verbose #2228 > > #endif
00:00:40 verbose #2229 > > #if FABLE_COMPILER_PYTHON
00:00:40 verbose #2230 > > System.Console.WriteLine v24
00:00:40 verbose #2231 > > ()
00:00:40 verbose #2232 > > #endif
00:00:40 verbose #2233 > > #else
00:00:40 verbose #2234 > > System.Console.WriteLine v24
00:00:40 verbose #2235 > > ()
00:00:40 verbose #2236 > > #endif
00:00:40 verbose #2237 > > |> fun x -> _v25 <- Some x
00:00:40 verbose #2238 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:40 verbose #2239 > > _v25=None"
00:00:40 verbose #2240 > > let v29 : (string -> unit) = v8.l0
00:00:40 verbose #2241 > > v29 v24
00:00:40 verbose #2242 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:40 verbose #2243 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:40 verbose #2244 > > method11(v0, v3)
00:00:40 verbose #2245 > > and closure1 () (v0 : string) : uint16 =
00:00:40 verbose #2246 > > let v1 : char = v0.[[int 0]]
00:00:40 verbose #2247 > > let v2 : (char -> int32) = int32
00:00:40 verbose #2248 > > let v3 : int32 = v2 v1
00:00:40 verbose #2249 > > let v4 : string = v0.[[int 0..int 7]]
00:00:40 verbose #2250 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:40 verbose #2251 > > let v6 : int32 = v5 + v3
00:00:40 verbose #2252 > > let v7 : (int32 -> uint16) = uint16
00:00:40 verbose #2253 > > let v8 : uint16 = v7 v6
00:00:40 verbose #2254 > > let v9 : US0 = US0_0
00:00:40 verbose #2255 > > let v10 : (unit -> string) = closure2()
00:00:40 verbose #2256 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:40 verbose #2257 > > method3(v9, v10, v11)
00:00:40 verbose #2258 > > let v12 : uint16 = v8 % 48128us
00:00:40 verbose #2259 > > let v13 : uint16 = v12 + 1024us
00:00:40 verbose #2260 > > v13
00:00:40 verbose #2261 > > let v0 : (string -> string) = closure0()
00:00:40 verbose #2262 > > let hash_text x = v0 x
00:00:40 verbose #2263 > > let v1 : (string -> uint16) = closure1()
00:00:40 verbose #2264 > > let hash_to_port x = v1 x
00:00:40 verbose #2265 > > ()
00:00:40 verbose #2266 > >
00:00:41 verbose #2267 > >
00:00:41 verbose #2268 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 verbose #2269 > > #if FABLE_COMPILER
00:00:41 verbose #2270 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:41 verbose #2271 > > #endif
00:00:41 verbose #2272 > > type core_any_Any = class end
00:00:41 verbose #2273 > > #if FABLE_COMPILER
00:00:41 verbose #2274 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:41 verbose #2275 > > #endif
00:00:41 verbose #2276 > > type core_ops_Try<'T> = class end
00:00:41 verbose #2277 > > #if FABLE_COMPILER
00:00:41 verbose #2278 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:41 verbose #2279 > > #endif
00:00:41 verbose #2280 > > type Func0<'T> = class end
00:00:41 verbose #2281 > > #if FABLE_COMPILER
00:00:41 verbose #2282 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:41 verbose #2283 > > #endif
00:00:41 verbose #2284 > > type Func0<'T, 'U> = class end
00:00:41 verbose #2285 > > #if FABLE_COMPILER
00:00:41 verbose #2286 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:41 verbose #2287 > > #endif
00:00:41 verbose #2288 > > type Box<'T> = class end
00:00:41 verbose #2289 > > #if FABLE_COMPILER
00:00:41 verbose #2290 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:41 verbose #2291 > > #endif
00:00:41 verbose #2292 > > type Dyn<'T> = class end
00:00:41 verbose #2293 > > #if FABLE_COMPILER
00:00:41 verbose #2294 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:41 verbose #2295 > > #endif
00:00:41 verbose #2296 > > type Send<'T> = class end
00:00:41 verbose #2297 > > #if FABLE_COMPILER
00:00:41 verbose #2298 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:41 verbose #2299 > > #endif
00:00:41 verbose #2300 > > type Fn<'T> = class end
00:00:41 verbose #2301 > > #if FABLE_COMPILER
00:00:41 verbose #2302 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:41 verbose #2303 > > #endif
00:00:41 verbose #2304 > > type FnUnit = class end
00:00:41 verbose #2305 > > #if FABLE_COMPILER
00:00:41 verbose #2306 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:41 verbose #2307 > > #endif
00:00:41 verbose #2308 > > type FnOnce<'T> = class end
00:00:41 verbose #2309 > > #if FABLE_COMPILER
00:00:41 verbose #2310 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:41 verbose #2311 > > #endif
00:00:41 verbose #2312 > > type ActionFn<'T> = class end
00:00:41 verbose #2313 > > #if FABLE_COMPILER
00:00:41 verbose #2314 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:41 verbose #2315 > > #endif
00:00:41 verbose #2316 > > type ActionFn2<'T, 'U> = class end
00:00:41 verbose #2317 > > #if FABLE_COMPILER
00:00:41 verbose #2318 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:41 verbose #2319 > > #endif
00:00:41 verbose #2320 > > type Impl<'T> = class end
00:00:41 verbose #2321 > > #if FABLE_COMPILER
00:00:41 verbose #2322 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:41 verbose #2323 > > #endif
00:00:41 verbose #2324 > > type Mut<'T> = class end
00:00:41 verbose #2325 > > #if FABLE_COMPILER
00:00:41 verbose #2326 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:41 verbose #2327 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:41 verbose #2328 > > let v2 : System.Guid = v1 ()
00:00:41 verbose #2329 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:41 verbose #2330 > > let v4 : string = v3 v2
00:00:41 verbose #2331 > > let v5 : (int64 -> string) = _.ToString()
00:00:41 verbose #2332 > > let v6 : string = v5 v0
00:00:41 verbose #2333 > > let v7 : string = v6.PadLeft (18, '0')
00:00:41 verbose #2334 > > let v8 : System.Guid = System.Guid
00:00:41 verbose #2335 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:41 verbose #2336 > > v8
00:00:41 verbose #2337 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:41 verbose #2338 > > let v2 : (string -> string) = v1.ToString
00:00:41 verbose #2339 > > v2 v0
00:00:41 verbose #2340 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:41 verbose #2341 > > closure12(v0)
00:00:41 verbose #2342 > > and closure13 () (v0 : System.DateTime) : string =
00:00:41 verbose #2343 > > let v1 : (string -> string) = v0.ToString
00:00:41 verbose #2344 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:41 verbose #2345 > > v1 v2
00:00:41 verbose #2346 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:41 verbose #2347 > > let date_time_guid_from_date_time x = v0 x
00:00:41 verbose #2348 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:41 verbose #2349 > > let date_time_from_guid x = v1 x
00:00:41 verbose #2350 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:41 verbose #2351 > > let timestamp_guid_from_timestamp x = v2 x
00:00:41 verbose #2352 > > let v3 : (System.Guid -> int64) = closure8()
00:00:41 verbose #2353 > > let timestamp_from_guid x = v3 x
00:00:41 verbose #2354 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:41 verbose #2355 > > let new_guid_from_date_time x = v4 x
00:00:41 verbose #2356 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:41 verbose #2357 > > let new_guid_from_timestamp x = v5 x
00:00:41 verbose #2358 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:41 verbose #2359 > > let format x = v6 x
00:00:41 verbose #2360 > > let v7 : (System.DateTime -> string) = closure13()
00:00:41 verbose #2361 > > let format_iso8601 x = v7 x
00:00:41 verbose #2362 > > ()
00:00:41 verbose #2363 > >
00:00:41 verbose #2364 > >
00:00:41 verbose #2365 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 verbose #2366 > > #if FABLE_COMPILER
00:00:41 verbose #2367 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:41 verbose #2368 > > #endif
00:00:41 verbose #2369 > > type futures_future_JoinAll<'T> = class end
00:00:41 verbose #2370 > > #if FABLE_COMPILER
00:00:41 verbose #2371 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:41 verbose #2372 > > #endif
00:00:41 verbose #2373 > > type futures_future_TryJoinAll<'T> = class end
00:00:41 verbose #2374 > > #if FABLE_COMPILER
00:00:41 verbose #2375 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:41 verbose #2376 > > #endif
00:00:41 verbose #2377 > > type rayon_iter_Map<'T> = class end
00:00:41 verbose #2378 > > #if FABLE_COMPILER
00:00:41 verbose #2379 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:41 verbose #2380 > > #endif
00:00:41 verbose #2381 > > type rayon_vec_IntoIter<'T> = class end
00:00:41 verbose #2382 > > #if FABLE_COMPILER
00:00:41 verbose #2383 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:41 verbose #2384 > > #endif
00:00:41 verbose #2385 > > type std_future_Future<'T> = class end
00:00:41 verbose #2386 > > #if FABLE_COMPILER
00:00:41 verbose #2387 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:41 verbose #2388 > > #endif
00:00:41 verbose #2389 > > type futures_future_Fuse<'T> = class end
00:00:41 verbose #2390 > > #if FABLE_COMPILER
00:00:41 verbose #2391 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:41 verbose #2392 > > #endif
00:00:41 verbose #2393 > > type tokio_task_JoinHandle<'T> = class end
00:00:41 verbose #2394 > > #if FABLE_COMPILER
00:00:41 verbose #2395 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:41 verbose #2396 > > #endif
00:00:41 verbose #2397 > > type tokio_stream_StreamExt = class end
00:00:41 verbose #2398 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:41 verbose #2399 > > Async<System.Threading.CancellationToken> =
00:00:41 verbose #2400 > > let v1 : bool = true
00:00:41 verbose #2401 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:41 verbose #2402 > >
00:00:41 verbose #2403 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:41 verbose #2404 > >
00:00:41 verbose #2405 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:41 verbose #2406 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:41 verbose #2407 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:41 verbose #2408 > > v12
00:00:41 verbose #2409 > > #endif
00:00:41 verbose #2410 > > #else
00:00:41 verbose #2411 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:41 verbose #2412 > > let mutable _v13 = v13
00:00:41 verbose #2413 > > async {
00:00:41 verbose #2414 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:41 verbose #2415 > > Async.CancellationToken
00:00:41 verbose #2416 > > let! v14 = v14
00:00:41 verbose #2417 > > let v15 : System.Threading.CancellationToken = v14
00:00:41 verbose #2418 > > let v16 : System.Threading.CancellationToken =
00:00:41 verbose #2419 > > Async.DefaultCancellationToken
00:00:41 verbose #2420 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:41 verbose #2421 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:41 verbose #2422 > > System.Threading.CancellationTokenSource) =
00:00:41 verbose #2423 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:41 verbose #2424 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:41 verbose #2425 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:41 verbose #2426 > > return v20
00:00:41 verbose #2427 > > }
00:00:41 verbose #2428 > > |> fun x -> _v13 <- Some x
00:00:41 verbose #2429 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:41 verbose #2430 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:41 verbose #2431 > > v21
00:00:41 verbose #2432 > > #endif
00:00:41 verbose #2433 > > |> fun x -> _v7 <- Some x
00:00:41 verbose #2434 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:41 verbose #2435 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:41 verbose #2436 > > v22
00:00:41 verbose #2437 > > #endif
00:00:41 verbose #2438 > > |> fun x -> _v1 <- Some x
00:00:41 verbose #2439 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:41 verbose #2440 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:41 verbose #2441 > > v23
00:00:41 verbose #2442 > > let v0 : (System.Threading.CancellationToken ->
00:00:41 verbose #2443 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:41 verbose #2444 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:41 verbose #2445 > > ()
00:00:41 verbose #2446 > >
00:00:41 verbose #2447 > >
00:00:41 verbose #2448 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 verbose #2449 > > #if FABLE_COMPILER
00:00:41 verbose #2450 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:41 verbose #2451 > > #endif
00:00:41 verbose #2452 > > type std_thread_JoinHandle<'T> = class end
00:00:41 verbose #2453 > > #if FABLE_COMPILER
00:00:41 verbose #2454 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:41 verbose #2455 > > #endif
00:00:41 verbose #2456 > > type std_sync_Arc<'T> = class end
00:00:41 verbose #2457 > > #if FABLE_COMPILER
00:00:41 verbose #2458 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:41 verbose #2459 > > #endif
00:00:41 verbose #2460 > > type std_sync_Mutex<'T> = class end
00:00:41 verbose #2461 > > #if FABLE_COMPILER
00:00:41 verbose #2462 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:41 verbose #2463 > > #endif
00:00:41 verbose #2464 > > type std_sync_MutexGuard<'T> = class end
00:00:41 verbose #2465 > > #if FABLE_COMPILER
00:00:41 verbose #2466 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:41 verbose #2467 > > #endif
00:00:41 verbose #2468 > > type std_sync_PoisonError<'T> = class end
00:00:41 verbose #2469 > > #if FABLE_COMPILER
00:00:41 verbose #2470 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:41 verbose #2471 > > #endif
00:00:41 verbose #2472 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:41 verbose #2473 > > #if FABLE_COMPILER
00:00:41 verbose #2474 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:41 verbose #2475 > > #endif
00:00:41 verbose #2476 > > type std_sync_mpsc_SendError<'T> = class end
00:00:41 verbose #2477 > > #if FABLE_COMPILER
00:00:41 verbose #2478 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:41 verbose #2479 > > #endif
00:00:41 verbose #2480 > > type std_sync_mpsc_Sender<'T> = class end
00:00:41 verbose #2481 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:41 verbose #2482 > > _.Dispose () = f ()
00:00:41 verbose #2483 > > type [[<Struct>]] US0 =
00:00:41 verbose #2484 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:41 verbose #2485 > > | US0_1
00:00:41 verbose #2486 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:41 verbose #2487 > > let v1 : bool = true
00:00:41 verbose #2488 > > let mutable _v1 : unit option = None
00:00:41 verbose #2489 > >
00:00:41 verbose #2490 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:41 verbose #2491 > >
00:00:41 verbose #2492 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:41 verbose #2493 > > "$0()" )
00:00:41 verbose #2494 > > v28
00:00:41 verbose #2495 > > #endif
00:00:41 verbose #2496 > > #if FABLE_COMPILER_RUST && WASM
00:00:41 verbose #2497 > > let v29 : (unit -> unit) = method0(v25)
00:00:41 verbose #2498 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:41 verbose #2499 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:41 verbose #2500 > > v30
00:00:41 verbose #2501 > > #endif
00:00:41 verbose #2502 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:41 verbose #2503 > > let v31 : (unit -> unit) = method0(v25)
00:00:41 verbose #2504 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:41 verbose #2505 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:41 verbose #2506 > > v32
00:00:41 verbose #2507 > > #endif
00:00:41 verbose #2508 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:41 verbose #2509 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:41 verbose #2510 > > v33
00:00:41 verbose #2511 > > #endif
00:00:41 verbose #2512 > > #if FABLE_COMPILER_PYTHON
00:00:41 verbose #2513 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:41 verbose #2514 > > v34
00:00:41 verbose #2515 > > #endif
00:00:41 verbose #2516 > > #else
00:00:41 verbose #2517 > > let v35 : (unit -> unit) = method1(v25)
00:00:41 verbose #2518 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:41 verbose #2519 > > _.Dispose () = v35 () }
00:00:41 verbose #2520 > > v36
00:00:41 verbose #2521 > > #endif
00:00:41 verbose #2522 > > |> fun x -> _v26 <- Some x
00:00:41 verbose #2523 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:41 verbose #2524 > > failwith "base.run_target / _v26=None"
00:00:41 verbose #2525 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:41 verbose #2526 > > struct (v38, v37)
00:00:41 verbose #2527 > > #endif
00:00:41 verbose #2528 > > |> fun x -> _v1 <- Some x
00:00:41 verbose #2529 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:41 verbose #2530 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:41 verbose #2531 > > "base.run_target / _v1=None"
00:00:41 verbose #2532 > > struct (v39, v40)
00:00:41 verbose #2533 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:41 verbose #2534 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:41 verbose #2535 > > let new_disposable_token x = v0 x
00:00:41 verbose #2536 > > ()
00:00:41 verbose #2537 > >
00:00:41 verbose #2538 > >
00:00:41 verbose #2539 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 verbose #2540 > > #if FABLE_COMPILER
00:00:41 verbose #2541 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:41 verbose #2542 > > #endif
00:00:41 verbose #2543 > > type reqwest_Error = class end
00:00:41 verbose #2544 > > #if FABLE_COMPILER
00:00:41 verbose #2545 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:41 verbose #2546 > > #endif
00:00:41 verbose #2547 > > type reqwest_RequestBuilder = class end
00:00:41 verbose #2548 > > #if FABLE_COMPILER
00:00:41 verbose #2549 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:41 verbose #2550 > > #endif
00:00:41 verbose #2551 > > type reqwest_Response = class end
00:00:41 verbose #2552 > > #if FABLE_COMPILER
00:00:41 verbose #2553 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:41 verbose #2554 > > #endif
00:00:41 verbose #2555 > > type std_env_VarError = class end
00:00:41 verbose #2556 > > #if FABLE_COMPILER
00:00:41 verbose #2557 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:41 verbose #2558 > > #endif
00:00:41 verbose #2559 > > type core_any_Any = class end
00:00:41 verbose #2560 > > #if FABLE_COMPILER
00:00:41 verbose #2561 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:41 verbose #2562 > > #endif
00:00:41 verbose #2563 > > type core_ops_Try<'T> = class end
00:00:41 verbose #2564 > > #if FABLE_COMPILER
00:00:41 verbose #2565 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:41 verbose #2566 > > #endif
00:00:41 verbose #2567 > > type Func0<'T> = class end
00:00:41 verbose #2568 > > #if FABLE_COMPILER
00:00:41 verbose #2569 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:41 verbose #2570 > > #endif
00:00:41 verbose #2571 > > type Func0<'T, 'U> = class end
00:00:41 verbose #2572 > > #if FABLE_COMPILER
00:00:41 verbose #2573 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:41 verbose #2574 > > #endif
00:00:41 verbose #2575 > > type Box<'T> = class end
00:00:41 verbose #2576 > > #if FABLE_COMPILER
00:00:41 verbose #2577 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:41 verbose #2578 > > #endif
00:00:41 verbose #2579 > > type Dyn<'T> = class end
00:00:41 verbose #2580 > > #if FABLE_COMPILER
00:00:41 verbose #2581 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:41 verbose #2582 > > #endif
00:00:41 verbose #2583 > > type Send<'T> = class end
00:00:41 verbose #2584 > > #if FABLE_COMPILER
00:00:41 verbose #2585 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:41 verbose #2586 > > #endif
00:00:41 verbose #2587 > > type Fn<'T> = class end
00:00:41 verbose #2588 > > #if FABLE_COMPILER
00:00:41 verbose #2589 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:41 verbose #2590 > > #endif
00:00:41 verbose #2591 > > type FnUnit = class end
00:00:41 verbose #2592 > > #if FABLE_COMPILER
00:00:41 verbose #2593 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:41 verbose #2594 > > ... v212 = v212
00:00:41 verbose #2595 > > let v213 : bool = v212
00:00:41 verbose #2596 > > let v214 : bool = v213 = false
00:00:41 verbose #2597 > > if v214 then
00:00:41 verbose #2598 > > return v2
00:00:41 verbose #2599 > > (*
00:00:41 verbose #2600 > > ()
00:00:41 verbose #2601 > > else
00:00:41 verbose #2602 > > *) else
00:00:41 verbose #2603 > > let v215 : int32 = v2 + 1
00:00:41 verbose #2604 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:41 verbose #2605 > > return! v216
00:00:41 verbose #2606 > > (*
00:00:41 verbose #2607 > > ()
00:00:41 verbose #2608 > > *)
00:00:41 verbose #2609 > > }
00:00:41 verbose #2610 > > |> fun x -> _v9 <- Some x
00:00:41 verbose #2611 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:41 verbose #2612 > > "async.new_async_unit / _v9=None"
00:00:41 verbose #2613 > > v217
00:00:41 verbose #2614 > > #endif
00:00:41 verbose #2615 > > |> fun x -> _v3 <- Some x
00:00:41 verbose #2616 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:41 verbose #2617 > > "base.run_target / _v3=None"
00:00:41 verbose #2618 > > v218
00:00:41 verbose #2619 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:41 verbose #2620 > > method10(v0, v1, v2)
00:00:41 verbose #2621 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:41 verbose #2622 > > closure23(v0, v1)
00:00:41 verbose #2623 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:41 verbose #2624 > > closure22(v0)
00:00:41 verbose #2625 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:41 verbose #2626 > > let v1 : US0 = US0_0
00:00:41 verbose #2627 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:41 verbose #2628 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:41 verbose #2629 > > let test_port_open x = v2 x
00:00:41 verbose #2630 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:41 verbose #2631 > > let test_port_open_timeout x = v3 x
00:00:41 verbose #2632 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:41 verbose #2633 > > closure15()
00:00:41 verbose #2634 > > let wait_for_port_access x = v4 x
00:00:41 verbose #2635 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:41 verbose #2636 > > let get_available_port x = v5 x
00:00:41 verbose #2637 > > ()
00:00:41 verbose #2638 > >
00:00:43 verbose #2639 > >
00:00:43 verbose #2640 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 verbose #2641 > > type [[<Struct>]] US0 =
00:00:43 verbose #2642 > > | US0_0
00:00:43 verbose #2643 > > | US0_1
00:00:43 verbose #2644 > > | US0_2
00:00:43 verbose #2645 > > and [[<Struct>]] US1 =
00:00:43 verbose #2646 > > | US1_0 of f0_0 : US0
00:00:43 verbose #2647 > > | US1_1 of f1_0 : US0
00:00:43 verbose #2648 > > | US1_2 of f2_0 : US0
00:00:43 verbose #2649 > > | US1_3 of f3_0 : US0
00:00:43 verbose #2650 > > | US1_4 of f4_0 : US0
00:00:43 verbose #2651 > > let rec closure0 () () : bool =
00:00:43 verbose #2652 > > let v0 : bool = true
00:00:43 verbose #2653 > > let mutable _v0 : bool option = None
00:00:43 verbose #2654 > >
00:00:43 verbose #2655 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:43 verbose #2656 > >
00:00:43 verbose #2657 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:43 verbose #2658 > > let v1 : string = "cfg!(windows)"
00:00:43 verbose #2659 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:43 verbose #2660 > > v2
00:00:43 verbose #2661 > > #endif
00:00:43 verbose #2662 > > #if FABLE_COMPILER_RUST && WASM
00:00:43 verbose #2663 > > let v3 : string = "cfg!(windows)"
00:00:43 verbose #2664 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:43 verbose #2665 > > v4
00:00:43 verbose #2666 > > #endif
00:00:43 verbose #2667 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:43 verbose #2668 > > let v5 : string = "cfg!(windows)"
00:00:43 verbose #2669 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:43 verbose #2670 > > v6
00:00:43 verbose #2671 > > #endif
00:00:43 verbose #2672 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:43 verbose #2673 > > let v7 : US0 = US0_0
00:00:43 verbose #2674 > > let v8 : US1 = US1_3(v7)
00:00:43 verbose #2675 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:43 verbose #2676 > > let v10 : bool = failwith<bool> v9
00:00:43 verbose #2677 > > v10
00:00:43 verbose #2678 > > #endif
00:00:43 verbose #2679 > > #if FABLE_COMPILER_PYTHON
00:00:43 verbose #2680 > > let v11 : US0 = US0_0
00:00:43 verbose #2681 > > let v12 : US1 = US1_4(v11)
00:00:43 verbose #2682 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:43 verbose #2683 > > let v14 : bool = failwith<bool> v13
00:00:43 verbose #2684 > > v14
00:00:43 verbose #2685 > > #endif
00:00:43 verbose #2686 > > #else
00:00:43 verbose #2687 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:43 verbose #2688 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:43 verbose #2689 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:43 verbose #2690 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:43 verbose #2691 > > let v17 : b...: string = "cfg!(windows)"
00:00:43 verbose #2692 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:43 verbose #2693 > > v2
00:00:43 verbose #2694 > > #endif
00:00:43 verbose #2695 > > #if FABLE_COMPILER_RUST && WASM
00:00:43 verbose #2696 > > let v3 : string = "cfg!(windows)"
00:00:43 verbose #2697 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:43 verbose #2698 > > v4
00:00:43 verbose #2699 > > #endif
00:00:43 verbose #2700 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:43 verbose #2701 > > let v5 : string = "cfg!(windows)"
00:00:43 verbose #2702 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:43 verbose #2703 > > v6
00:00:43 verbose #2704 > > #endif
00:00:43 verbose #2705 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:43 verbose #2706 > > let v7 : US0 = US0_0
00:00:43 verbose #2707 > > let v8 : US1 = US1_3(v7)
00:00:43 verbose #2708 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:43 verbose #2709 > > let v10 : bool = failwith<bool> v9
00:00:43 verbose #2710 > > v10
00:00:43 verbose #2711 > > #endif
00:00:43 verbose #2712 > > #if FABLE_COMPILER_PYTHON
00:00:43 verbose #2713 > > let v11 : US0 = US0_0
00:00:43 verbose #2714 > > let v12 : US1 = US1_4(v11)
00:00:43 verbose #2715 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:43 verbose #2716 > > let v14 : bool = failwith<bool> v13
00:00:43 verbose #2717 > > v14
00:00:43 verbose #2718 > > #endif
00:00:43 verbose #2719 > > #else
00:00:43 verbose #2720 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:43 verbose #2721 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:43 verbose #2722 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:43 verbose #2723 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:43 verbose #2724 > > let v17 : bool = v16 v15
00:00:43 verbose #2725 > > v17
00:00:43 verbose #2726 > > #endif
00:00:43 verbose #2727 > > |> fun x -> _v0 <- Some x
00:00:43 verbose #2728 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:43 verbose #2729 > > "base.run_target / _v0=None"
00:00:43 verbose #2730 > > if v18 then
00:00:43 verbose #2731 > > let v19 : string = ".exe"
00:00:43 verbose #2732 > > v19
00:00:43 verbose #2733 > > else
00:00:43 verbose #2734 > > let v20 : string = ""
00:00:43 verbose #2735 > > v20
00:00:43 verbose #2736 > > let v0 : (unit -> bool) = closure0()
00:00:43 verbose #2737 > > let is_windows () = v0 ()
00:00:43 verbose #2738 > > let v1 : (unit -> string) = closure1()
00:00:43 verbose #2739 > > let get_executable_suffix () = v1 ()
00:00:43 verbose #2740 > > ()
00:00:43 verbose #2741 > >
00:00:43 verbose #2742 > >
00:00:43 verbose #2743 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 verbose #2744 > > #if FABLE_COMPILER
00:00:43 verbose #2745 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:43 verbose #2746 > > #endif
00:00:43 verbose #2747 > > type clap_Arg = class end
00:00:43 verbose #2748 > > #if FABLE_COMPILER
00:00:43 verbose #2749 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:43 verbose #2750 > > #endif
00:00:43 verbose #2751 > > type clap_ArgAction = class end
00:00:43 verbose #2752 > > #if FABLE_COMPILER
00:00:43 verbose #2753 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:43 verbose #2754 > > #endif
00:00:43 verbose #2755 > > type clap_Command = class end
00:00:43 verbose #2756 > > #if FABLE_COMPILER
00:00:43 verbose #2757 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:43 verbose #2758 > > #endif
00:00:43 verbose #2759 > > type clap_ArgMatches = class end
00:00:43 verbose #2760 > > #if FABLE_COMPILER
00:00:43 verbose #2761 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:43 verbose #2762 > > #endif
00:00:43 verbose #2763 > > type clap_builder_ValueRange = class end
00:00:43 verbose #2764 > > #if FABLE_COMPILER
00:00:43 verbose #2765 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:43 verbose #2766 > > #endif
00:00:43 verbose #2767 > > type clap_builder_ValueParser = class end
00:00:43 verbose #2768 > > #if FABLE_COMPILER
00:00:43 verbose #2769 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:43 verbose #2770 > > #endif
00:00:43 verbose #2771 > > type clap_builder_PossibleValue = class end
00:00:43 verbose #2772 > > #if FABLE_COMPILER
00:00:43 verbose #2773 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:43 verbose #2774 > > #endif
00:00:43 verbose #2775 > > type std_process_Child = class end
00:00:43 verbose #2776 > > #if FABLE_COMPILER
00:00:43 verbose #2777 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:43 verbose #2778 > > #endif
00:00:43 verbose #2779 > > type std_process_ChildStderr = class end
00:00:43 verbose #2780 > > #if FABLE_COMPILER
00:00:43 verbose #2781 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:43 verbose #2782 > > #endif
00:00:43 verbose #2783 > > type std_process_ChildStdout = class end
00:00:43 verbose #2784 > > #if FABLE_COMPILER
00:00:43 verbose #2785 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:43 verbose #2786 > > #endif
00:00:43 verbose #2787 > > type std_process_ChildStdin = class end
00:00:43 verbose #2788 > > #if FABLE_COMPILER
00:00:43 verbose #2789 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:43 verbose #2790 > > #endif
00:00:43 verbose #2791 > > type std_process_Command = class... with
00:00:43 verbose #2792 > > | US14_1(v28) -> (* Error *)
00:00:43 verbose #2793 > > US8_1(v28)
00:00:43 verbose #2794 > > | US14_0(v26) -> (* Ok *)
00:00:43 verbose #2795 > > US8_0(v26)
00:00:43 verbose #2796 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:00:43 verbose #2797 > > let v1 : US8 = method16(v0)
00:00:43 verbose #2798 > > match v1 with
00:00:43 verbose #2799 > > | US8_1(v4) -> (* Error *)
00:00:43 verbose #2800 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:43 verbose #2801 > > v5
00:00:43 verbose #2802 > > | US8_0(v2) -> (* Ok *)
00:00:43 verbose #2803 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:43 verbose #2804 > > v3
00:00:43 verbose #2805 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:43 verbose #2806 > > let v1 : US0 = US0_0
00:00:43 verbose #2807 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:43 verbose #2808 > > let v2 : (unit -> unit) = closure2()
00:00:43 verbose #2809 > > let current_process_kill () = v2 ()
00:00:43 verbose #2810 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:00:43 verbose #2811 > > let execute_async x = v3 x
00:00:43 verbose #2812 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:43 verbose #2813 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:43 verbose #2814 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:43 verbose #2815 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:00:43 verbose #2816 > > let execute_with_options_async x = v4 x
00:00:43 verbose #2817 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:43 verbose #2818 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:43 verbose #2819 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:43 verbose #2820 > > unit) option * bool * string option)) = closure18()
00:00:43 verbose #2821 > > let execution_options x = v5 x
00:00:43 verbose #2822 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:00:43 verbose #2823 > > let split_args x = v6 x
00:00:43 verbose #2824 > > ()
00:00:43 verbose #2825 > >
00:00:46 verbose #2826 > >
00:00:46 verbose #2827 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:46 verbose #2828 > > #if FABLE_COMPILER
00:00:46 verbose #2829 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:46 verbose #2830 > > #endif
00:00:46 verbose #2831 > > type std_fs_File = class end
00:00:46 verbose #2832 > > #if FABLE_COMPILER
00:00:46 verbose #2833 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:46 verbose #2834 > > #endif
00:00:46 verbose #2835 > > type std_fs_FileType = class end
00:00:46 verbose #2836 > > #if FABLE_COMPILER
00:00:46 verbose #2837 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:46 verbose #2838 > > #endif
00:00:46 verbose #2839 > > type std_path_Display = class end
00:00:46 verbose #2840 > > #if FABLE_COMPILER
00:00:46 verbose #2841 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:46 verbose #2842 > > #endif
00:00:46 verbose #2843 > > type std_path_Path = class end
00:00:46 verbose #2844 > > #if FABLE_COMPILER
00:00:46 verbose #2845 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:46 verbose #2846 > > #endif
00:00:46 verbose #2847 > > type std_path_PathBuf = class end
00:00:46 verbose #2848 > > #if FABLE_COMPILER
00:00:46 verbose #2849 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:46 verbose #2850 > > #endif
00:00:46 verbose #2851 > > type async_walkdir_DirEntry = class end
00:00:46 verbose #2852 > > #if FABLE_COMPILER
00:00:46 verbose #2853 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:46 verbose #2854 > > #endif
00:00:46 verbose #2855 > > type async_walkdir_Filtering = class end
00:00:46 verbose #2856 > > #if FABLE_COMPILER
00:00:46 verbose #2857 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:46 verbose #2858 > > #endif
00:00:46 verbose #2859 > > type async_walkdir_WalkDir = class end
00:00:46 verbose #2860 > > #if FABLE_COMPILER
00:00:46 verbose #2861 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:46 verbose #2862 > > #endif
00:00:46 verbose #2863 > > type core_any_Any = class end
00:00:46 verbose #2864 > > #if FABLE_COMPILER
00:00:46 verbose #2865 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:46 verbose #2866 > > #endif
00:00:46 verbose #2867 > > type core_ops_Try<'T> = class end
00:00:46 verbose #2868 > > #if FABLE_COMPILER
00:00:46 verbose #2869 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:46 verbose #2870 > > #endif
00:00:46 verbose #2871 > > type Func0<'T> = class end
00:00:46 verbose #2872 > > #if FABLE_COMPILER
00:00:46 verbose #2873 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:46 verbose #2874 > > #endif
00:00:46 verbose #2875 > > type Func0<'T, 'U> = class end
00:00:46 verbose #2876 > > #if FABLE_COMPILER
00:00:46 verbose #2877 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:46 verbose #2878 > > #endif
00:00:46 verbose #2879 > > type Box<'T> = cla...4>) = closure12()
00:00:46 verbose #2880 > > let wait_for_file_access_read x = v4 x
00:00:46 verbose #2881 > > let v5 : (string -> Async<string>) = closure13()
00:00:46 verbose #2882 > > let read_all_text_async x = v5 x
00:00:46 verbose #2883 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:00:46 verbose #2884 > > let file_exists_content x = v6 x
00:00:46 verbose #2885 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:46 verbose #2886 > > let write_all_text_async x = v7 x
00:00:46 verbose #2887 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:46 verbose #2888 > > let write_all_text_exists x = v8 x
00:00:46 verbose #2889 > > let v9 : (string -> Async<int64>) = closure20()
00:00:46 verbose #2890 > > let delete_file_async x = v9 x
00:00:46 verbose #2891 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:46 verbose #2892 > > let move_file_async x = v10 x
00:00:46 verbose #2893 > > let v11 : (string -> Async<string option>) = closure27()
00:00:46 verbose #2894 > > let read_all_text_retry_async x = v11 x
00:00:46 verbose #2895 > > let v12 : (unit -> string) = closure35()
00:00:46 verbose #2896 > > let create_temp_path () = v12 ()
00:00:46 verbose #2897 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:46 verbose #2898 > > let create_temp_dir () = v13 ()
00:00:46 verbose #2899 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:46 verbose #2900 > > let create_temp_dir' x = v14 x
00:00:46 verbose #2901 > > let v15 : (unit -> string) = closure49()
00:00:46 verbose #2902 > > let get_source_directory () = v15 ()
00:00:46 verbose #2903 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:00:46 verbose #2904 > > let find_parent x = v16 x
00:00:46 verbose #2905 > > let v17 : (string -> string) = closure56()
00:00:46 verbose #2906 > > let normalize_path x = v17 x
00:00:46 verbose #2907 > > let v18 : (string -> string) = closure57()
00:00:46 verbose #2908 > > let new_file_uri x = v18 x
00:00:46 verbose #2909 > > let v19 : (unit -> string) = closure58()
00:00:46 verbose #2910 > > let get_workspace_root () = v19 ()
00:00:46 verbose #2911 > > let v20 : (bool -> unit) = closure59()
00:00:46 verbose #2912 > > let init_trace_file x = v20 x
00:00:46 verbose #2913 > > let v21 : (string -> (string -> string)) = closure61()
00:00:46 verbose #2914 > > let (</>) x = v21 x
00:00:46 verbose #2915 > > ()
00:00:46 verbose #2916 > >
00:00:48 verbose #2917 > >
00:00:48 verbose #2918 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:48 verbose #2919 > > #if FABLE_COMPILER
00:00:48 verbose #2920 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:48 verbose #2921 > > #endif
00:00:48 verbose #2922 > > type core_any_Any = class end
00:00:48 verbose #2923 > > #if FABLE_COMPILER
00:00:48 verbose #2924 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:48 verbose #2925 > > #endif
00:00:48 verbose #2926 > > type core_ops_Try<'T> = class end
00:00:48 verbose #2927 > > #if FABLE_COMPILER
00:00:48 verbose #2928 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:48 verbose #2929 > > #endif
00:00:48 verbose #2930 > > type Func0<'T> = class end
00:00:48 verbose #2931 > > #if FABLE_COMPILER
00:00:48 verbose #2932 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:48 verbose #2933 > > #endif
00:00:48 verbose #2934 > > type Func0<'T, 'U> = class end
00:00:48 verbose #2935 > > #if FABLE_COMPILER
00:00:48 verbose #2936 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:48 verbose #2937 > > #endif
00:00:48 verbose #2938 > > type Box<'T> = class end
00:00:48 verbose #2939 > > #if FABLE_COMPILER
00:00:48 verbose #2940 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:48 verbose #2941 > > #endif
00:00:48 verbose #2942 > > type Dyn<'T> = class end
00:00:48 verbose #2943 > > #if FABLE_COMPILER
00:00:48 verbose #2944 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:48 verbose #2945 > > #endif
00:00:48 verbose #2946 > > type Send<'T> = class end
00:00:48 verbose #2947 > > #if FABLE_COMPILER
00:00:48 verbose #2948 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:48 verbose #2949 > > #endif
00:00:48 verbose #2950 > > type Fn<'T> = class end
00:00:48 verbose #2951 > > #if FABLE_COMPILER
00:00:48 verbose #2952 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:48 verbose #2953 > > #endif
00:00:48 verbose #2954 > > type FnUnit = class end
00:00:48 verbose #2955 > > #if FABLE_COMPILER
00:00:48 verbose #2956 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:48 verbose #2957 > > #endif
00:00:48 verbose #2958 > > type FnOnce<'T> = class end
00:00:48 verbose #2959 > > #if FABLE_COMPILER
00:00:48 verbose #2960 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:48 verbose #2961 > > #endif
00:00:48 verbose #2962 > > type ActionFn<'T> = class end
00:00:48 verbose #2963 > > #if FABLE_COMPILER
00:00:48 verbose #2964 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:48 verbose #2965 > > #endif
00:00:48 verbose #2966 > > type ActionFn2<'T, 'U> = class end
00:00:48 verbose #2967 > > #if FABLE_COMPILER
00:00:48 verbose #2968 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:48 verbose #2969 > > #endif
00:00:48 verbose #2970 > > type Impl<'T> = class end
00:00:48 verbose #2971 > > #if FABLE_COMPILER
00:00:48 verbose #2972 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:48 verbose #2973 > > #endif
00:00:48 verbose #2974 > > type Mut<'T> = class end
00:00:48 verbose #2975 > > #if FABLE_COMPILER
00:00:48 verbose #2976 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:48 verbose #2977 > > #if FABLE_COMPILER_RUST && WASM
00:00:48 verbose #2978 > > let v27 : string = @"println!(""{}"", $0)"
00:00:48 verbose #2979 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:48 verbose #2980 > > ()
00:00:48 verbose #2981 > > #endif
00:00:48 verbose #2982 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:48 verbose #2983 > > let v28 : string = @"println!(""{}"", $0)"
00:00:48 verbose #2984 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:48 verbose #2985 > > ()
00:00:48 verbose #2986 > > #endif
00:00:48 verbose #2987 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:48 verbose #2988 > > System.Console.WriteLine v24
00:00:48 verbose #2989 > > ()
00:00:48 verbose #2990 > > #endif
00:00:48 verbose #2991 > > #if FABLE_COMPILER_PYTHON
00:00:48 verbose #2992 > > System.Console.WriteLine v24
00:00:48 verbose #2993 > > ()
00:00:48 verbose #2994 > > #endif
00:00:48 verbose #2995 > > #else
00:00:48 verbose #2996 > > System.Console.WriteLine v24
00:00:48 verbose #2997 > > ()
00:00:48 verbose #2998 > > #endif
00:00:48 verbose #2999 > > |> fun x -> _v25 <- Some x
00:00:48 verbose #3000 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:48 verbose #3001 > > _v25=None"
00:00:48 verbose #3002 > > let v29 : (string -> unit) = v8.l0
00:00:48 verbose #3003 > > v29 v24
00:00:48 verbose #3004 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:48 verbose #3005 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:48 verbose #3006 > > method8(v0, v3)
00:00:48 verbose #3007 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:48 verbose #3008 > > method4(v0, v1, v2)
00:00:48 verbose #3009 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:48 verbose #3010 > > closure4(v0, v1)
00:00:48 verbose #3011 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:48 verbose #3012 > > closure3(v0)
00:00:48 verbose #3013 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:48 verbose #3014 > > let v1 : US0 = US0_0
00:00:48 verbose #3015 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:48 verbose #3016 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:48 verbose #3017 > > let trace x = v2 x
00:00:48 verbose #3018 > > ()
00:00:48 verbose #3019 > >
00:00:49 verbose #3020 > >
00:00:49 verbose #3021 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3022 > > module SpiralTrace =
00:00:49 verbose #3023 > > let trace x =
00:00:49 verbose #3024 > > #if !INTERACTIVE
00:00:49 verbose #3025 > > Trace.trace x
00:00:49 verbose #3026 > > #else
00:00:49 verbose #3027 > > trace x
00:00:49 verbose #3028 > > #endif
00:00:49 verbose #3029 > >
00:00:49 verbose #3030 > > type TraceLevel =
00:00:49 verbose #3031 > > #if !INTERACTIVE
00:00:49 verbose #3032 > > Trace.US0
00:00:49 verbose #3033 > > #else
00:00:49 verbose #3034 > > US0
00:00:49 verbose #3035 > > #endif
00:00:49 verbose #3036 > >
00:00:49 verbose #3037 > > module SpiralCrypto =
00:00:49 verbose #3038 > > let hash_text x =
00:00:49 verbose #3039 > > #if !INTERACTIVE
00:00:49 verbose #3040 > > Crypto.hash_text x
00:00:49 verbose #3041 > > #else
00:00:49 verbose #3042 > > hash_text x
00:00:49 verbose #3043 > > #endif
00:00:49 verbose #3044 > >
00:00:49 verbose #3045 > > let hash_to_port x =
00:00:49 verbose #3046 > > #if !INTERACTIVE
00:00:49 verbose #3047 > > Crypto.hash_to_port x
00:00:49 verbose #3048 > > #else
00:00:49 verbose #3049 > > hash_to_port x
00:00:49 verbose #3050 > > #endif
00:00:49 verbose #3051 > >
00:00:49 verbose #3052 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:49 verbose #3053 > >
00:00:49 verbose #3054 > > module SpiralAsync =
00:00:49 verbose #3055 > > let merge_cancellation_token_with_default_async x =
00:00:49 verbose #3056 > > #if !INTERACTIVE
00:00:49 verbose #3057 > > Async_.merge_cancellation_token_with_default_async x
00:00:49 verbose #3058 > > #else
00:00:49 verbose #3059 > > merge_cancellation_token_with_default_async x
00:00:49 verbose #3060 > > #endif
00:00:49 verbose #3061 > >
00:00:49 verbose #3062 > > module SpiralThreading =
00:00:49 verbose #3063 > > let new_disposable_token x =
00:00:49 verbose #3064 > > #if !INTERACTIVE
00:00:49 verbose #3065 > > Threading.new_disposable_token x
00:00:49 verbose #3066 > > #else
00:00:49 verbose #3067 > > new_disposable_token x
00:00:49 verbose #3068 > > #endif
00:00:49 verbose #3069 > >
00:00:49 verbose #3070 > > module SpiralNetworking =
00:00:49 verbose #3071 > > let test_port_open x =
00:00:49 verbose #3072 > > #if !INTERACTIVE
00:00:49 verbose #3073 > > Networking.test_port_open x
00:00:49 verbose #3074 > > #else
00:00:49 verbose #3075 > > test_port_open x
00:00:49 verbose #3076 > > #endif
00:00:49 verbose #3077 > >
00:00:49 verbose #3078 > > let test_port_open_timeout x =
00:00:49 verbose #3079 > > #if !INTERACTIVE
00:00:49 verbose #3080 > > Networking.test_port_open_timeout x
00:00:49 verbose #3081 > > #else
00:00:49 verbose #3082 > > test_port_open_timeout x
00:00:49 verbose #3083 > > #endif
00:00:49 verbose #3084 > >
00:00:49 verbose #3085 > > let wait_for_port_access x =
00:00:49 verbose #3086 > > #if !INTERACTIVE
00:00:49 verbose #3087 > > Networking.wait_for_port_access x
00:00:49 verbose #3088 > > #else
00:00:49 verbose #3089 > > wait_for_port_access x
00:00:49 verbose #3090 > > #endif
00:00:49 verbose #3091 > >
00:00:49 verbose #3092 > > let get_available_port x =
00:00:49 verbose #3093 > > #if !INTERACTIVE
00:00:49 verbose #3094 > > Networking.get_available_port x
00:00:49 verbose #3095 > > #else
00:00:49 verbose #3096 > > get_available_port x
00:00:49 verbose #3097 > > #endif
00:00:49 verbose #3098 > >
00:00:49 verbose #3099 > > module SpiralPlatform =
00:00:49 verbose #3100 > > let get_executable_suffix () =
00:00:49 verbose #3101 > > #if !INTERACTIVE
00:00:49 verbose #3102 > > Platform.g...e.trace_state
00:00:49 verbose #3103 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:49 verbose #3104 > > level.l0 <-
00:00:49 verbose #3105 > > match new_level with
00:00:49 verbose #3106 > > | Trace.US0_0 -> File_system.US0_0
00:00:49 verbose #3107 > > | Trace.US0_1 -> File_system.US0_1
00:00:49 verbose #3108 > > | Trace.US0_2 -> File_system.US0_2
00:00:49 verbose #3109 > > | Trace.US0_3 -> File_system.US0_3
00:00:49 verbose #3110 > > | Trace.US0_4 -> File_system.US0_4
00:00:49 verbose #3111 > > )
00:00:49 verbose #3112 > >
00:00:49 verbose #3113 > > Runtime.State.trace_state
00:00:49 verbose #3114 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:49 verbose #3115 > > level.l0 <-
00:00:49 verbose #3116 > > match new_level with
00:00:49 verbose #3117 > > | Trace.US0_0 -> Runtime.US0_0
00:00:49 verbose #3118 > > | Trace.US0_1 -> Runtime.US0_1
00:00:49 verbose #3119 > > | Trace.US0_2 -> Runtime.US0_2
00:00:49 verbose #3120 > > | Trace.US0_3 -> Runtime.US0_3
00:00:49 verbose #3121 > > | Trace.US0_4 -> Runtime.US0_4
00:00:49 verbose #3122 > > )
00:00:49 verbose #3123 > >
00:00:49 verbose #3124 > > Common.State.trace_state
00:00:49 verbose #3125 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:49 verbose #3126 > > level.l0 <-
00:00:49 verbose #3127 > > match new_level with
00:00:49 verbose #3128 > > | Trace.US0_0 -> Common.US0_0
00:00:49 verbose #3129 > > | Trace.US0_1 -> Common.US0_1
00:00:49 verbose #3130 > > | Trace.US0_2 -> Common.US0_2
00:00:49 verbose #3131 > > | Trace.US0_3 -> Common.US0_3
00:00:49 verbose #3132 > > | Trace.US0_4 -> Common.US0_4
00:00:49 verbose #3133 > > )
00:00:49 verbose #3134 > >
00:00:49 verbose #3135 > > Trace.State.trace_state
00:00:49 verbose #3136 > > #else
00:00:49 verbose #3137 > > State.trace_state
00:00:49 verbose #3138 > > #endif
00:00:49 verbose #3139 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:49 verbose #3140 > > level.l0 <- new_level
00:00:49 verbose #3141 > > )
00:00:49 verbose #3142 > >
00:00:49 verbose #3143 > > let get_trace_level () =
00:00:49 verbose #3144 > > #if !INTERACTIVE
00:00:49 verbose #3145 > > Trace.State.trace_state
00:00:49 verbose #3146 > > #else
00:00:49 verbose #3147 > > State.trace_state
00:00:49 verbose #3148 > > #endif
00:00:49 verbose #3149 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:49 verbose #3150 > > level.l0
00:00:49 verbose #3151 > > )
00:00:49 verbose #3152 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:49 verbose #3153 > > trace_state=None")
00:00:49 verbose #3154 > >
00:00:49 verbose #3155 > >
00:00:49 verbose #3156 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3157 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:49 verbose #3158 > >
00:00:49 verbose #3159 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3160 > > //// test
00:00:49 verbose #3161 > >
00:00:49 verbose #3162 > > type AssertExceptionFormatter (ex) =
00:00:49 verbose #3163 > > member _.Text =
00:00:49 verbose #3164 > > ex.ToString()
00:00:49 verbose #3165 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:49 verbose #3166 > > .Replace("36m", "</span>")
00:00:49 verbose #3167 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:49 verbose #3168 > > .Replace("\n", "<br/>\n")
00:00:49 verbose #3169 > >
00:00:49 verbose #3170 > >
00:00:49 verbose #3171 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:49 verbose #3172 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:49 verbose #3173 > >
00:00:49 verbose #3174 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3175 > > //// test
00:00:49 verbose #3176 > >
00:00:49 verbose #3177 > > let inline __expect fn log expected actual =
00:00:49 verbose #3178 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:49 verbose #3179 > > try
00:00:49 verbose #3180 > > "Testing.__expect" |> fn actual expected
00:00:49 verbose #3181 > > with :? Expecto.AssertException as ex ->
00:00:49 verbose #3182 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:49 verbose #3183 > > failwith (ex.GetType().FullName)
00:00:49 verbose #3184 > >
00:00:49 verbose #3185 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:49 verbose #3186 > > expected actual
00:00:49 verbose #3187 > > let inline _contains expected actual = __contains true expected actual
00:00:49 verbose #3188 > >
00:00:49 verbose #3189 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:49 verbose #3190 > > expected actual
00:00:49 verbose #3191 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:49 verbose #3192 > >
00:00:49 verbose #3193 > > let inline __isGreaterThan log expected actual = __expect
00:00:49 verbose #3194 > > Expecto.Expect.isGreaterThan log expected actual
00:00:49 verbose #3195 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:49 verbose #3196 > >
00:00:49 verbose #3197 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:49 verbose #3198 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:49 verbose #3199 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:49 verbose #3200 > > expected actual
00:00:49 verbose #3201 > >
00:00:49 verbose #3202 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:49 verbose #3203 > > log expected actual
00:00:49 verbose #3204 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:49 verbose #3205 > >
00:00:49 verbose #3206 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:49 verbose #3207 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:49 verbose #3208 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:49 verbose #3209 > > expected actual
00:00:49 verbose #3210 > >
00:00:49 verbose #3211 > > let inline __sequenceEqual log expected actual = __expect
00:00:49 verbose #3212 > > Expecto.Expect.sequenceEqual log expected actual
00:00:49 verbose #3213 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:49 verbose #3214 > >
00:00:49 verbose #3215 > > let inline __stringContains log expected actual = __expect
00:00:49 verbose #3216 > > Expecto.Expect.stringContains log expected actual
00:00:49 verbose #3217 > > let inline _stringContains expected actual = __stringContains true expected
00:00:49 verbose #3218 > > actual
00:00:49 verbose #3219 > >
00:00:49 verbose #3220 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:49 verbose #3221 > > log expected actual
00:00:49 verbose #3222 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:49 verbose #3223 > >
00:00:49 verbose #3224 > > let inline __stringStarts log expected actual = __expect
00:00:49 verbose #3225 > > Expecto.Expect.stringStarts log expected actual
00:00:49 verbose #3226 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:49 verbose #3227 > >
00:00:49 verbose #3228 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:49 verbose #3229 > > expected actual
00:00:49 verbose #3230 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:49 verbose #3231 > >
00:00:49 verbose #3232 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3233 > > //// test
00:00:49 verbose #3234 > >
00:00:49 verbose #3235 > > let inline __isBetween log a b actual =
00:00:49 verbose #3236 > > let inline isBetween actual (a, b) _ =
00:00:49 verbose #3237 > > __isGreaterThanOrEqual log a actual
00:00:49 verbose #3238 > > __isLessThanOrEqual log b actual
00:00:49 verbose #3239 > > __expect isBetween log (a, b) actual
00:00:49 verbose #3240 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:49 verbose #3241 > >
00:00:49 verbose #3242 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:49 verbose #3243 > > #r
00:00:49 verbose #3244 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:49 verbose #3245 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:49 verbose #3246 > > #r
00:00:49 verbose #3247 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:49 verbose #3248 > > 0/System.Reactive.dll"
00:00:49 verbose #3249 > > #r
00:00:49 verbose #3250 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:49 verbose #3251 > > netstandard2.0/System.Reactive.Linq.dll"
00:00:49 verbose #3252 > >
00:00:49 verbose #3253 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:49 verbose #3254 > > #!import ../../lib/fsharp/Common.fs
00:00:49 verbose #3255 > > #!import ../../lib/fsharp/Async.fs
00:00:49 verbose #3256 > >
00:00:49 verbose #3257 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3258 > > #if !INTERACTIVE
00:00:49 verbose #3259 > > namespace Polyglot
00:00:49 verbose #3260 > > #endif
00:00:49 verbose #3261 > >
00:00:49 verbose #3262 > > module Common =
00:00:49 verbose #3263 > >
00:00:49 verbose #3264 > > #if !INTERACTIVE
00:00:49 verbose #3265 > > open Lib
00:00:49 verbose #3266 > > #endif
00:00:49 verbose #3267 > >
00:00:49 verbose #3268 > > let nl = System.Environment.NewLine
00:00:49 verbose #3269 > > let q = @""""
00:00:49 verbose #3270 > >
00:00:49 verbose #3271 > > let inline cons head tail = head :: tail
00:00:49 verbose #3272 > >
00:00:49 verbose #3273 > > /// ## memoize
00:00:49 verbose #3274 > > let inline memoize fn =
00:00:49 verbose #3275 > > let result = lazy fn ()
00:00:49 verbose #3276 > > fun () -> result.Value
00:00:49 verbose #3277 > >
00:00:49 verbose #3278 > > /// ## TraceLevel
00:00:49 verbose #3279 > > type TraceLevel =
00:00:49 verbose #3280 > > | Verbose
00:00:49 verbose #3281 > > | Debug
00:00:49 verbose #3282 > > | Info
00:00:49 verbose #3283 > > | Warning
00:00:49 verbose #3284 > > | Critical
00:00:49 verbose #3285 > >
00:00:49 verbose #3286 > > let inline _locals () = ""
00:00:49 verbose #3287 > >
00:00:49 verbose #3288 > > /// ## trace
00:00:49 verbose #3289 > > let to_trace_level = function
00:00:49 verbose #3290 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:49 verbose #3291 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:49 verbose #3292 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:49 verbose #3293 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:49 verbose #3294 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:49 verbose #3295 > >
00:00:49 verbose #3296 > > let trace level fn locals =
00:00:49 verbose #3297 > > let level = level |> to_trace_level
00:00:49 verbose #3298 > > SpiralTrace.trace level fn locals
00:00:49 verbose #3299 > >
00:00:49 verbose #3300 > >
00:00:49 verbose #3301 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:49 verbose #3302 > > #if !INTERACTIVE
00:00:49 verbose #3303 > > namespace Polyglot
00:00:49 verbose #3304 > > #endif
00:00:49 verbose #3305 > >
00:00:49 verbose #3306 > > module Async =
00:00:49 verbose #3307 > >
00:00:49 verbose #3308 > > #if !INTERACTIVE
00:00:49 verbose #3309 > > open Lib
00:00:49 verbose #3310 > > #endif
00:00:49 verbose #3311 > >
00:00:49 verbose #3312 > > open Common
00:00:49 verbose #3313 > >
00:00:49 verbose #3314 > > /// ## choice
00:00:49 verbose #3315 > > let inline choice asyncs = async {
00:00:49 verbose #3316 > > let e = Event<_> ()
00:00:49 verbose #3317 > > use cts = new System.Threading.CancellationTokenSource ()
00:00:49 verbose #3318 > > let fn =
00:00:49 verbose #3319 > > asyncs
00:00:49 verbose #3320 > > |> Seq.map (fun a -> async {
00:00:49 verbose #3321 > > let! x = a
00:00:49 verbose #3322 > > e.Trigger x
00:00:49 verbose #3323 > > })
00:00:49 verbose #3324 > > |> Async.Parallel
00:00:49 verbose #3325 > > |> Async.Ignore
00:00:49 verbose #3326 > > Async.Start (fn, cts.Token)
00:00:49 verbose #3327 > > let! result = Async.AwaitEvent e.Publish
00:00:49 verbose #3328 > > cts.Cancel ()
00:00:49 verbose #3329 > > return result
00:00:49 verbose #3330 > > }
00:00:49 verbose #3331 > >
00:00:49 verbose #3332 > > /// ## map
00:00:49 verbose #3333 > > let inline map fn a = async {
00:00:49 verbose #3334 > > let! x = a
00:00:49 verbose #3335 > > return fn x
00:00:49 verbose #3336 > > }
00:00:49 verbose #3337 > >
00:00:49 verbose #3338 > > /// ## catch
00:00:49 verbose #3339 > > let inline catch a =
00:00:49 verbose #3340 > > a
00:00:49 verbose #3341 > > |> Async.Catch
00:00:49 verbose #3342 > > |> map (function
00:00:49 verbose #3343 > > | Choice1Of2 result -> Ok result
00:00:49 verbose #3344 > > | Choice2Of2 ex -> Error ex
00:00:49 verbose #3345 > > )
00:00:49 verbose #3346 > >
00:00:49 verbose #3347 > > /// ## runWithTimeoutChoiceAsync
00:00:49 verbose #3348 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:00:49 verbose #3349 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:49 verbose #3350 > >
00:00:49 verbose #3351 > > let timeoutTask = async {
00:00:49 verbose #3352 > > do! Async.Sleep timeout
00:00:49 verbose #3353 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:00:49 verbose #3354 > > return None
00:00:49 verbose #3355 > > }
00:00:49 verbose #3356 > >
00:00:49 verbose #3357 > > let task = async {
00:00:49 verbose #3358 > > try
00:00:49 verbose #3359 > > let! result = fn
00:00:49 verbose #3360 > > return Some result
00:00:49 verbose #3361 > > with
00:00:49 verbose #3362 > > | :? System.AggregateException as ex when
00:00:49 verbose #3363 > > ex.InnerExceptions
00:00:49 verbose #3364 > > |> Seq.exists (function :? Sy... None
00:00:49 verbose #3365 > >
00:00:49 verbose #3366 > > /// ## awaitValueTask
00:00:49 verbose #3367 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:49 verbose #3368 > > task.AsTask () |> Async.AwaitTask
00:00:49 verbose #3369 > >
00:00:49 verbose #3370 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:49 verbose #3371 > > task.AsTask () |> Async.AwaitTask
00:00:49 verbose #3372 > >
00:00:49 verbose #3373 > > /// ## init
00:00:49 verbose #3374 > > let inline init x = async {
00:00:49 verbose #3375 > > return x
00:00:49 verbose #3376 > > }
00:00:49 verbose #3377 > >
00:00:49 verbose #3378 > > /// ## withCancellationToken
00:00:49 verbose #3379 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:00:49 verbose #3380 > > fn =
00:00:49 verbose #3381 > > Async.StartImmediateAsTask (fn, ct)
00:00:49 verbose #3382 > > |> Async.AwaitTask
00:00:49 verbose #3383 > >
00:00:49 verbose #3384 > > /// ## retryAsync
00:00:49 verbose #3385 > > let inline retryAsync retries fn =
00:00:49 verbose #3386 > > let rec loop retry lastError = async {
00:00:49 verbose #3387 > > try
00:00:49 verbose #3388 > > return!
00:00:49 verbose #3389 > > if retry <= retries
00:00:49 verbose #3390 > > then fn |> map Ok
00:00:49 verbose #3391 > > else lastError |> Error |> init
00:00:49 verbose #3392 > > with ex ->
00:00:49 verbose #3393 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:00:49 verbose #3394 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:00:49 verbose #3395 > > do! Async.Sleep 1
00:00:49 verbose #3396 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:00:49 verbose #3397 > > }
00:00:49 verbose #3398 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:00:49 verbose #3399 > >
00:00:49 verbose #3400 > > /// ## fold
00:00:49 verbose #3401 > > let fold folder state array =
00:00:49 verbose #3402 > > let rec loop acc i =
00:00:49 verbose #3403 > > async {
00:00:49 verbose #3404 > > if i < Array.length array then
00:00:49 verbose #3405 > > let! newAcc = folder acc array.[[i]]
00:00:49 verbose #3406 > > return! loop newAcc (i + 1)
00:00:49 verbose #3407 > > else
00:00:49 verbose #3408 > > return acc
00:00:49 verbose #3409 > > }
00:00:49 verbose #3410 > > loop state 0
00:00:49 verbose #3411 > >
00:00:50 verbose #3412 > >
00:00:50 verbose #3413 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #3414 > > #if !INTERACTIVE
00:00:50 verbose #3415 > > open Lib
00:00:50 verbose #3416 > > #endif
00:00:50 verbose #3417 > >
00:00:50 verbose #3418 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #3419 > > open Common
00:00:50 verbose #3420 > >
00:00:50 verbose #3421 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 verbose #3422 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 verbose #3423 > > │ ## subscribeEvent │
00:00:50 verbose #3424 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 verbose #3425 > >
00:00:50 verbose #3426 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #3427 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:50 verbose #3428 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:50 verbose #3429 > > 'A>(event.AddHandler, event.RemoveHandler)
00:00:50 verbose #3430 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:50 verbose #3431 > > event.EventArgs)
00:00:50 verbose #3432 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:50 verbose #3433 > >
00:00:50 verbose #3434 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #3435 > > //// test
00:00:50 verbose #3436 > >
00:00:50 verbose #3437 > > type TestEvent () as self =
00:00:50 verbose #3438 > > member val Calls = [[]] with get, set
00:00:50 verbose #3439 > > member val Event = Event<ErrorEventHandler, ErrorEventArgs> () with get
00:00:50 verbose #3440 > >
00:00:50 verbose #3441 > > member _.AddCall text =
00:00:50 verbose #3442 > > self.Calls <- self.Calls @ [[ text ]]
00:00:50 verbose #3443 > >
00:00:50 verbose #3444 > > member _.EventInterface =
00:00:50 verbose #3445 > > { new IEvent<ErrorEventHandler, ErrorEventArgs> with
00:00:50 verbose #3446 > > member _.AddHandler handler =
00:00:50 verbose #3447 > > self.AddCall "AddHandler"
00:00:50 verbose #3448 > > self.Event.Publish.AddHandler handler
00:00:50 verbose #3449 > >
00:00:50 verbose #3450 > > member _.RemoveHandler handler =
00:00:50 verbose #3451 > > self.AddCall "RemoveHandler"
00:00:50 verbose #3452 > > self.Event.Publish.RemoveHandler handler
00:00:50 verbose #3453 > >
00:00:50 verbose #3454 > > member _.Subscribe observer =
00:00:50 verbose #3455 > > self.AddCall "IObservable.Subscribe"
00:00:50 verbose #3456 > > let disposable = self.Event.Publish.Subscribe observer
00:00:50 verbose #3457 > > new_disposable (fun () ->
00:00:50 verbose #3458 > > self.AddCall "IObservable.Dispose"
00:00:50 verbose #3459 > > disposable.Dispose ()
00:00:50 verbose #3460 > > )
00:00:50 verbose #3461 > > }
00:00:50 verbose #3462 > >
00:00:50 verbose #3463 > > member _.Subscribe () =
00:00:50 verbose #3464 > > subscribeEvent
00:00:50 verbose #3465 > > self.EventInterface
00:00:50 verbose #3466 > > (fun args ->
00:00:50 verbose #3467 > > let result = args.GetException () |> SpiralSm.format_exception
00:00:50 verbose #3468 > > self.AddCall $"TestEvent.Subscribe({result})"
00:00:50 verbose #3469 > > result
00:00:50 verbose #3470 > > )
00:00:50 verbose #3471 > >
00:00:50 verbose #3472 > > member _.Iter subscription =
00:00:50 verbose #3473 > > subscription
00:00:50 verbose #3474 > > |> FSharp.Control.AsyncSeq.iteriAsync (fun i error -> async {
00:00:50 verbose #3475 > > self.AddCall $"TestEvent.Iter({i}: {error})"
00:00:50 verbose #3476 > > })
00:00:50 verbose #3477 > >
00:00:50 verbose #3478 > > member _.WaitCall text = async {
00:00:50 verbose #3479 > > while self.Calls |> List.last <> text do
00:00:50 verbose #3480 > > do! Async.SwitchToThreadPool ()
00:00:50 verbose #3481 > > }
00:00:50 verbose #3482 > >
00:00:50 verbose #3483 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:50 verbose #3484 > > //// test
00:00:50 verbose #3485 > >
00:00:50 verbose #3486 > > let testEvent = TestEvent ()
00:00:50 verbose #3487 > >
00:00:50 verbose #3488 > > async {
00:00:50 verbose #3489 > > testEvent.AddCall "1"
00:00:50 verbose #3490 > > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:50 verbose #3491 > > do! testEvent.WaitCall "AddHandler"
00:00:50 verbose #3492 > > testEvent.AddCall "2"
00:00:50 verbose #3493 > > do! child
00:00:50 verbose #3494 > > testEvent.AddCall "3"
00:00:50 verbose #3495 > > }
00:00:50 verbose #3496 > > |> Async.runWithTimeout 300
00:00:50 verbose #3497 > > |> _assertEqual None
00:00:50 verbose #3498 > >
00:00:50 verbose #3499 > > testEvent.Calls
00:00:50 verbose #3500 > > |> Seq.toList
00:00:50 verbose #3501 > > |> _assertEqual [[ "1"; "AddHandler"; "2"; "RemoveHandler" ]]
00:00:51 verbose #3502 > >
00:00:51 verbose #3503 > > ╭─[ 530.49ms - stdout ]────────────────────────────────────────────────────────╮
00:00:51 verbose #3504 > > │ 00:00:02 debug #1 runWithTimeoutAsync / timeout: 300 │
00:00:51 verbose #3505 > > │ <null> │
00:00:51 verbose #3506 > > │ │
00:00:51 verbose #3507 > > │ ["1"; "AddHandler"; "2"; "RemoveHandler"] │
00:00:51 verbose #3508 > > │ │
00:00:51 verbose #3509 > > │ │
00:00:51 verbose #3510 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 verbose #3511 > >
00:00:51 verbose #3512 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:51 verbose #3513 > > //// test
00:00:51 verbose #3514 > >
00:00:51 verbose #3515 > > let testEvent = TestEvent ()
00:00:51 verbose #3516 > >
00:00:51 verbose #3517 > > async {
00:00:51 verbose #3518 > > testEvent.AddCall "1"
00:00:51 verbose #3519 > > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:51 verbose #3520 > > do! testEvent.WaitCall "AddHandler"
00:00:51 verbose #3521 > > testEvent.AddCall "2"
00:00:51 verbose #3522 > > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:51 verbose #3523 > > testEvent.AddCall $"testEvent.EventInterface.Subscribe({args})"
00:00:51 verbose #3524 > > )
00:00:51 verbose #3525 > > testEvent.AddCall "3"
00:00:51 verbose #3526 > > do! child
00:00:51 verbose #3527 > > testEvent.AddCall "4"
00:00:51 verbose #3528 > > }
00:00:51 verbose #3529 > > |> Async.runWithTimeout 300
00:00:51 verbose #3530 > > |> _assertEqual None
00:00:51 verbose #3531 > >
00:00:51 verbose #3532 > > testEvent.Calls
00:00:51 verbose #3533 > > |> _assertEqual [[ "1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3";
00:00:51 verbose #3534 > > "RemoveHandler"; "IObservable.Dispose" ]]
00:00:51 verbose #3535 > >
00:00:51 verbose #3536 > > ╭─[ 448.39ms - stdout ]────────────────────────────────────────────────────────╮
00:00:51 verbose #3537 > > │ 00:00:02 debug #2 runWithTimeoutAsync / timeout: 300 │
00:00:51 verbose #3538 > > │ <null> │
00:00:51 verbose #3539 > > │ │
00:00:51 verbose #3540 > > │ ["1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3"; "RemoveHandler"; │
00:00:51 verbose #3541 > > │ "IObservable.Dispose"] │
00:00:51 verbose #3542 > > │ │
00:00:51 verbose #3543 > > │ │
00:00:51 verbose #3544 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 verbose #3545 > >
00:00:51 verbose #3546 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:51 verbose #3547 > > //// test
00:00:51 verbose #3548 > >
00:00:51 verbose #3549 > > let testEvent = TestEvent ()
00:00:51 verbose #3550 > >
00:00:51 verbose #3551 > > async {
00:00:51 verbose #3552 > > testEvent.AddCall "1"
00:00:51 verbose #3553 > > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:51 verbose #3554 > > do! testEvent.WaitCall "AddHandler"
00:00:51 verbose #3555 > > testEvent.AddCall "2"
00:00:51 verbose #3556 > > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:51 verbose #3557 > > async {
00:00:51 verbose #3558 > > do! testEvent.WaitCall "TestEvent.Iter(0: System.Exception: error)"
00:00:51 verbose #3559 > > testEvent.AddCall
00:00:51 verbose #3560 > > $"testEvent.EventInterface.Subscribe({args.GetException () |>
00:00:51 verbose #3561 > > SpiralSm.format_exception})"
00:00:51 verbose #3562 > > }
00:00:51 verbose #3563 > > |> Async.RunSynchronously
00:00:51 verbose #3564 > > )
00:00:51 verbose #3565 > > testEvent.AddCall "3"
00:00:51 verbose #3566 > > testEvent.Event.Trigger (null, ErrorEventArgs (Exception "error"))
00:00:51 verbose #3567 > > testEvent.AddCall "4"
00:00:51 verbose #3568 > > do! child
00:00:51 verbose #3569 > > testEvent.AddCall "5"
00:00:51 verbose #3570 > > }
00:00:51 verbose #3571 > > |> Async.runWithTimeout 300
00:00:51 verbose #3572 > > |> _assertEqual None
00:00:51 verbose #3573 > >
00:00:51 verbose #3574 > > testEvent.Calls
00:00:51 verbose #3575 > > |> _assertEqual [[
00:00:51 verbose #3576 > > "1"
00:00:51 verbose #3577 > > "AddHandler"
00:00:51 verbose #3578 > > "2"
00:00:51 verbose #3579 > > "IObservable.Subscribe"
00:00:51 verbose #3580 > > "3"
00:00:51 verbose #3581 > > "TestEvent.Subscribe(System.Exception: error)"
00:00:51 verbose #3582 > > "TestEvent.Iter(0: System.Exception: error)"
00:00:51 verbose #3583 > > "testEvent.EventInterface.Subscribe(System.Exception: error)"
00:00:51 verbose #3584 > > "4"
00:00:51 verbose #3585 > > "RemoveHandler"
00:00:51 verbose #3586 > > "IObservable.Dispose"
00:00:51 verbose #3587 > > ]]
00:00:52 verbose #3588 > >
00:00:52 verbose #3589 > > ╭─[ 469.99ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 verbose #3590 > > │ 00:00:03 debug #3 runWithTimeoutAsync / timeout: 300 │
00:00:52 verbose #3591 > > │ <null> │
00:00:52 verbose #3592 > > │ │
00:00:52 verbose #3593 > > │ ["1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3"; │
00:00:52 verbose #3594 > > │ "TestEvent.Subscribe(System.Exception: error)"; │
00:00:52 verbose #3595 > > │ "TestEvent.Iter(0: System.Exception: error)"; │
00:00:52 verbose #3596 > > │ "testEvent.EventInterface.Subscribe(System.Exception: error)"; "4"; │
00:00:52 verbose #3597 > > │ "RemoveHandler"; "IObservable.Dispose"] │
00:00:52 verbose #3598 > > │ │
00:00:52 verbose #3599 > > │ │
00:00:52 verbose #3600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 verbose #3601 > >
00:00:52 verbose #3602 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 verbose #3603 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 verbose #3604 > > │ ## subscribeToken │
00:00:52 verbose #3605 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 verbose #3606 > >
00:00:52 verbose #3607 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:52 verbose #3608 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:52 verbose #3609 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:52 verbose #3610 > > System.Action tcs.SetResult |> token.Register |> ignore
00:00:52 verbose #3611 > > let start = System.DateTime.Now.Ticks
00:00:52 verbose #3612 > > FSharp.Control.AsyncSeq.unfoldAsync
00:00:52 verbose #3613 > > (fun () -> async {
00:00:52 verbose #3614 > > do! tcs.Task |> Async.AwaitTask
00:00:52 verbose #3615 > > return Some (System.DateTime.Now.Ticks - start, ())
00:00:52 verbose #3616 > > })
00:00:52 verbose #3617 > > ()
00:00:52 verbose #3618 > >
00:00:52 verbose #3619 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:52 verbose #3620 > > //// test
00:00:52 verbose #3621 > >
00:00:52 verbose #3622 > > let cts = new System.Threading.CancellationTokenSource ()
00:00:52 verbose #3623 > >
00:00:52 verbose #3624 > > async {
00:00:52 verbose #3625 > > let! child =
00:00:52 verbose #3626 > > cts.Token
00:00:52 verbose #3627 > > |> subscribeToken
00:00:52 verbose #3628 > > |> FSharp.Control.AsyncSeq.tryFirst
00:00:52 verbose #3629 > > |> Async.StartChild
00:00:52 verbose #3630 > >
00:00:52 verbose #3631 > > do! Async.Sleep 100
00:00:52 verbose #3632 > > cts.Cancel ()
00:00:52 verbose #3633 > > return! child
00:00:52 verbose #3634 > > }
00:00:52 verbose #3635 > > |> Async.RunSynchronously
00:00:52 verbose #3636 > > |> Option.get
00:00:52 verbose #3637 > > |> fun x -> x > 900000
00:00:52 verbose #3638 > > |> _assertEqual true
00:00:52 verbose #3639 > >
00:00:52 verbose #3640 > > ╭─[ 180.78ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 verbose #3641 > > │ true │
00:00:52 verbose #3642 > > │ │
00:00:52 verbose #3643 > > │ │
00:00:52 verbose #3644 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 verbose #3645 > 00:00:22 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 56446
00:00:52 verbose #3646 > 00:00:22 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:54 verbose #3647 > 00:00:24 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.ipynb to html
00:00:54 verbose #3648 > 00:00:24 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:54 verbose #3649 > 00:00:24 verbose #7 ! validate(nb)
00:00:56 verbose #3650 > 00:00:26 verbose #8 ! [NbConvertApp] Writing 302746 bytes to c:\home\git\polyglot\lib\fsharp\AsyncSeq.dib.html
00:00:56 verbose #3651 > 00:00:26 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 647
00:00:56 verbose #3652 > 00:00:26 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 647
00:00:56 verbose #3653 > 00:00:26 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/AsyncSeq.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:57 verbose #3654 > 00:00:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:57 verbose #3655 > 00:00:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:57 verbose #3656 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 57152
00:00:57 debug #3657 runtime.execute_with_options_async / exit_code: 0 / output.Length: 62905
00:00:57 debug #4 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path AsyncSeq.dib --retries 3
00:00:57 debug #3658 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Common.dib --retries 3",
[||], None, None, true, None)
00:00:57 verbose #3659 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Common.dib", "--retries", "3"])
00:00:57 verbose #3660 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/Common.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/Common.dib" --output-path "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:00 verbose #3661 > >
00:01:00 verbose #3662 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 verbose #3663 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 verbose #3664 > > │ # Common (Polyglot) │
00:01:00 verbose #3665 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 verbose #3666 > >
00:01:00 verbose #3667 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:00 verbose #3668 > > #!import ../../lib/fsharp/Notebooks.dib
00:01:00 verbose #3669 > > #!import ../../lib/fsharp/Testing.dib
00:01:00 verbose #3670 > >
00:01:00 verbose #3671 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 verbose #3672 > > #r
00:01:00 verbose #3673 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:00 verbose #3674 > > spNetCore.Html.Abstractions.dll"
00:01:00 verbose #3675 > > #r
00:01:00 verbose #3676 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:00 verbose #3677 > > otNet.Interactive.dll"
00:01:00 verbose #3678 > > #r
00:01:00 verbose #3679 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:00 verbose #3680 > > otNet.Interactive.FSharp.dll"
00:01:00 verbose #3681 > > #r
00:01:00 verbose #3682 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:00 verbose #3683 > > otNet.Interactive.Formatting.dll"
00:01:00 verbose #3684 > > open System
00:01:00 verbose #3685 > > open System.IO
00:01:00 verbose #3686 > > open System.Text
00:01:00 verbose #3687 > > open Microsoft.DotNet.Interactive.Formatting
00:01:04 verbose #3688 > >
00:01:04 verbose #3689 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:04 verbose #3690 > > #r
00:01:04 verbose #3691 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:04 verbose #3692 > > otNet.Interactive.FSharp.dll"
00:01:04 verbose #3693 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:04 verbose #3694 > > #r
00:01:04 verbose #3695 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:04 verbose #3696 > > otNet.Interactive.dll"
00:01:04 verbose #3697 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:05 verbose #3698 > >
00:01:05 verbose #3699 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:05 verbose #3700 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:01:06 verbose #3701 > >
00:01:06 verbose #3702 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:06 verbose #3703 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:01:06 verbose #3704 > > TextWriter)->fprintfn writer "%120A" x)
00:01:06 verbose #3705 > >
00:01:06 verbose #3706 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:06 verbose #3707 > > //// test
00:01:06 verbose #3708 > >
00:01:06 verbose #3709 > > Formatter.ListExpansionLimit <- 100
00:01:06 verbose #3710 > >
00:01:06 verbose #3711 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:06 verbose #3712 > > #if FABLE_COMPILER
00:01:06 verbose #3713 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:06 verbose #3714 > > #endif
00:01:06 verbose #3715 > > type std_env_VarError = class end
00:01:06 verbose #3716 > > #if FABLE_COMPILER
00:01:06 verbose #3717 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:06 verbose #3718 > > #endif
00:01:06 verbose #3719 > > type core_any_Any = class end
00:01:06 verbose #3720 > > #if FABLE_COMPILER
00:01:06 verbose #3721 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:06 verbose #3722 > > #endif
00:01:06 verbose #3723 > > type core_ops_Try<'T> = class end
00:01:06 verbose #3724 > > #if FABLE_COMPILER
00:01:06 verbose #3725 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:06 verbose #3726 > > #endif
00:01:06 verbose #3727 > > type Func0<'T> = class end
00:01:06 verbose #3728 > > #if FABLE_COMPILER
00:01:06 verbose #3729 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:06 verbose #3730 > > #endif
00:01:06 verbose #3731 > > type Func0<'T, 'U> = class end
00:01:06 verbose #3732 > > #if FABLE_COMPILER
00:01:06 verbose #3733 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:06 verbose #3734 > > #endif
00:01:06 verbose #3735 > > type Box<'T> = class end
00:01:06 verbose #3736 > > #if FABLE_COMPILER
00:01:06 verbose #3737 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:06 verbose #3738 > > #endif
00:01:06 verbose #3739 > > type Dyn<'T> = class end
00:01:06 verbose #3740 > > #if FABLE_COMPILER
00:01:06 verbose #3741 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:06 verbose #3742 > > #endif
00:01:06 verbose #3743 > > type Send<'T> = class end
00:01:06 verbose #3744 > > #if FABLE_COMPILER
00:01:06 verbose #3745 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:06 verbose #3746 > > #endif
00:01:06 verbose #3747 > > type Fn<'T> = class end
00:01:06 verbose #3748 > > #if FABLE_COMPILER
00:01:06 verbose #3749 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:06 verbose #3750 > > #endif
00:01:06 verbose #3751 > > type FnUnit = class end
00:01:06 verbose #3752 > > #if FABLE_COMPILER
00:01:06 verbose #3753 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:06 verbose #3754 > > #endif
00:01:06 verbose #3755 > > type FnOnce<'T> = class end
00:01:06 verbose #3756 > > #if FABLE_COMPILER
00:01:06 verbose #3757 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:06 verbose #3758 > > #endif
00:01:06 verbose #3759 > > type ActionFn<'T> = class end
00:01:06 verbose #3760 > > #if FABLE_COMPILER
00:01:06 verbose #3761 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:06 verbose #3762 > > #endif
00:01:06 verbose #3763 > > type ActionFn2<'T, 'U> = class end
00:01:06 verbose #3764 > > #if FABLE_COMPILER
00:01:06 verbose #3765 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:06 verbose #3766 > > #endif
00:01:06 verbose #3767 > > type Impl<'T> = class end
00:01:06 verbose #3768 > > #if FABLE_COMPILER
00:01:06 verbose #3769 > > [[<Fabl... _v5=None"
00:01:06 verbose #3770 > > US5_1
00:01:06 verbose #3771 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:01:06 verbose #3772 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:01:06 verbose #3773 > > let v4 : (US4 -> US5) = closure6()
00:01:06 verbose #3774 > > let v5 : (exn -> US5) = closure7(v2)
00:01:06 verbose #3775 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:01:06 verbose #3776 > > match v6 with
00:01:06 verbose #3777 > > | US5_1 -> (* None *)
00:01:06 verbose #3778 > > let v8 : int32 = v2 + 1
00:01:06 verbose #3779 > > method6(v0, v1, v8)
00:01:06 verbose #3780 > > | US5_0(v7) -> (* Some *)
00:01:06 verbose #3781 > > v7
00:01:06 verbose #3782 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:01:06 verbose #3783 > > let v2 : int32 = 0
00:01:06 verbose #3784 > > let v3 : US4 = method6(v0, v1, v2)
00:01:06 verbose #3785 > > match v3 with
00:01:06 verbose #3786 > > | US4_1 -> (* None *)
00:01:06 verbose #3787 > > let v5 : unit option = None
00:01:06 verbose #3788 > > v5
00:01:06 verbose #3789 > > | US4_0 -> (* Some *)
00:01:06 verbose #3790 > > let v4 : unit option = Some ()
00:01:06 verbose #3791 > > v4
00:01:06 verbose #3792 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:01:06 verbose #3793 > > closure4(v0)
00:01:06 verbose #3794 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:01:06 verbose #3795 > > v0
00:01:06 verbose #3796 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:01:06 verbose #3797 > > v0.Value
00:01:06 verbose #3798 > > ()
00:01:06 verbose #3799 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:01:06 verbose #3800 > > let v1 : (unit -> unit) = method12(v0)
00:01:06 verbose #3801 > > let v2 : Lazy<unit> = lazy v1 ()
00:01:06 verbose #3802 > > closure13(v2)
00:01:06 verbose #3803 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:06 verbose #3804 > > let v1 : US0 = US0_0
00:01:06 verbose #3805 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:06 verbose #3806 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:01:06 verbose #3807 > > let new_disposable x = v2 x
00:01:06 verbose #3808 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:01:06 verbose #3809 > > let retry_fn x = v3 x
00:01:06 verbose #3810 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:01:06 verbose #3811 > > let memoize x = v4 x
00:01:06 verbose #3812 > > ()
00:01:06 verbose #3813 > >
00:01:08 verbose #3814 > >
00:01:08 verbose #3815 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:08 verbose #3816 > > #if FABLE_COMPILER
00:01:08 verbose #3817 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:08 verbose #3818 > > #endif
00:01:08 verbose #3819 > > type core_any_Any = class end
00:01:08 verbose #3820 > > #if FABLE_COMPILER
00:01:08 verbose #3821 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:08 verbose #3822 > > #endif
00:01:08 verbose #3823 > > type core_ops_Try<'T> = class end
00:01:08 verbose #3824 > > #if FABLE_COMPILER
00:01:08 verbose #3825 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:08 verbose #3826 > > #endif
00:01:08 verbose #3827 > > type Func0<'T> = class end
00:01:08 verbose #3828 > > #if FABLE_COMPILER
00:01:08 verbose #3829 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:08 verbose #3830 > > #endif
00:01:08 verbose #3831 > > type Func0<'T, 'U> = class end
00:01:08 verbose #3832 > > #if FABLE_COMPILER
00:01:08 verbose #3833 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:08 verbose #3834 > > #endif
00:01:08 verbose #3835 > > type Box<'T> = class end
00:01:08 verbose #3836 > > #if FABLE_COMPILER
00:01:08 verbose #3837 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:08 verbose #3838 > > #endif
00:01:08 verbose #3839 > > type Dyn<'T> = class end
00:01:08 verbose #3840 > > #if FABLE_COMPILER
00:01:08 verbose #3841 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:08 verbose #3842 > > #endif
00:01:08 verbose #3843 > > type Send<'T> = class end
00:01:08 verbose #3844 > > #if FABLE_COMPILER
00:01:08 verbose #3845 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:08 verbose #3846 > > #endif
00:01:08 verbose #3847 > > type Fn<'T> = class end
00:01:08 verbose #3848 > > #if FABLE_COMPILER
00:01:08 verbose #3849 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:08 verbose #3850 > > #endif
00:01:08 verbose #3851 > > type FnUnit = class end
00:01:08 verbose #3852 > > #if FABLE_COMPILER
00:01:08 verbose #3853 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:08 verbose #3854 > > #endif
00:01:08 verbose #3855 > > type FnOnce<'T> = class end
00:01:08 verbose #3856 > > #if FABLE_COMPILER
00:01:08 verbose #3857 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:08 verbose #3858 > > #endif
00:01:08 verbose #3859 > > type ActionFn<'T> = class end
00:01:08 verbose #3860 > > #if FABLE_COMPILER
00:01:08 verbose #3861 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:08 verbose #3862 > > #endif
00:01:08 verbose #3863 > > type ActionFn2<'T, 'U> = class end
00:01:08 verbose #3864 > > #if FABLE_COMPILER
00:01:08 verbose #3865 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:08 verbose #3866 > > #endif
00:01:08 verbose #3867 > > type Impl<'T> = class end
00:01:08 verbose #3868 > > #if FABLE_COMPILER
00:01:08 verbose #3869 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:08 verbose #3870 > > #endif
00:01:08 verbose #3871 > > type Mut<'T> = class end
00:01:08 verbose #3872 > > #if FABLE_COMPILER
00:01:08 verbose #3873 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:01:08 verbose #3874 > > let replace x = v4 x
00:01:08 verbose #3875 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:01:08 verbose #3876 > > let replace_regex x = v5 x
00:01:08 verbose #3877 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:01:08 verbose #3878 > > let slice x = v6 x
00:01:08 verbose #3879 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:01:08 verbose #3880 > > let split x = v7 x
00:01:08 verbose #3881 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:01:08 verbose #3882 > > let split_string x = v8 x
00:01:08 verbose #3883 > > let v9 : (string -> (string -> bool)) = closure23()
00:01:08 verbose #3884 > > let starts_with x = v9 x
00:01:08 verbose #3885 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:01:08 verbose #3886 > > let substring x = v10 x
00:01:08 verbose #3887 > > let v11 : (string -> string) = closure28()
00:01:08 verbose #3888 > > let to_lower x = v11 x
00:01:08 verbose #3889 > > let v12 : (string -> string) = closure29()
00:01:08 verbose #3890 > > let to_upper x = v12 x
00:01:08 verbose #3891 > > let v13 : (string -> string) = closure30()
00:01:08 verbose #3892 > > let trim x = v13 x
00:01:08 verbose #3893 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:01:08 verbose #3894 > > let trim_end x = v14 x
00:01:08 verbose #3895 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:01:08 verbose #3896 > > let trim_start x = v15 x
00:01:08 verbose #3897 > > let v16 : (int32 -> (string -> string)) = closure35()
00:01:08 verbose #3898 > > let ellipsis x = v16 x
00:01:08 verbose #3899 > > let v17 : (int64 -> (string -> string)) = closure37()
00:01:08 verbose #3900 > > let ellipsis_end x = v17 x
00:01:08 verbose #3901 > > let v18 : (exn -> string) = closure39()
00:01:08 verbose #3902 > > let format_exception x = v18 x
00:01:08 verbose #3903 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:01:08 verbose #3904 > > let concat_array_trailing x = v19 x
00:01:08 verbose #3905 > > let v20 : (string -> (string seq -> string)) = closure42()
00:01:08 verbose #3906 > > let concat x = v20 x
00:01:08 verbose #3907 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:01:08 verbose #3908 > > let join' x = v21 x
00:01:08 verbose #3909 > > let v22 : (string -> (char [[]])) = closure46()
00:01:08 verbose #3910 > > let to_char_array x = v22 x
00:01:08 verbose #3911 > > ()
00:01:08 verbose #3912 > >
00:01:08 verbose #3913 > >
00:01:08 verbose #3914 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:08 verbose #3915 > > #if FABLE_COMPILER
00:01:08 verbose #3916 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:08 verbose #3917 > > #endif
00:01:08 verbose #3918 > > type core_any_Any = class end
00:01:08 verbose #3919 > > #if FABLE_COMPILER
00:01:08 verbose #3920 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:08 verbose #3921 > > #endif
00:01:08 verbose #3922 > > type core_ops_Try<'T> = class end
00:01:08 verbose #3923 > > #if FABLE_COMPILER
00:01:08 verbose #3924 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:08 verbose #3925 > > #endif
00:01:08 verbose #3926 > > type Func0<'T> = class end
00:01:08 verbose #3927 > > #if FABLE_COMPILER
00:01:08 verbose #3928 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:08 verbose #3929 > > #endif
00:01:08 verbose #3930 > > type Func0<'T, 'U> = class end
00:01:08 verbose #3931 > > #if FABLE_COMPILER
00:01:08 verbose #3932 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:08 verbose #3933 > > #endif
00:01:08 verbose #3934 > > type Box<'T> = class end
00:01:08 verbose #3935 > > #if FABLE_COMPILER
00:01:08 verbose #3936 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:08 verbose #3937 > > #endif
00:01:08 verbose #3938 > > type Dyn<'T> = class end
00:01:08 verbose #3939 > > #if FABLE_COMPILER
00:01:08 verbose #3940 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:08 verbose #3941 > > #endif
00:01:08 verbose #3942 > > type Send<'T> = class end
00:01:08 verbose #3943 > > #if FABLE_COMPILER
00:01:08 verbose #3944 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:08 verbose #3945 > > #endif
00:01:08 verbose #3946 > > type Fn<'T> = class end
00:01:08 verbose #3947 > > #if FABLE_COMPILER
00:01:08 verbose #3948 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:08 verbose #3949 > > #endif
00:01:08 verbose #3950 > > type FnUnit = class end
00:01:08 verbose #3951 > > #if FABLE_COMPILER
00:01:08 verbose #3952 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:08 verbose #3953 > > #endif
00:01:08 verbose #3954 > > type FnOnce<'T> = class end
00:01:08 verbose #3955 > > #if FABLE_COMPILER
00:01:08 verbose #3956 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:08 verbose #3957 > > #endif
00:01:08 verbose #3958 > > type ActionFn<'T> = class end
00:01:08 verbose #3959 > > #if FABLE_COMPILER
00:01:08 verbose #3960 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:08 verbose #3961 > > #endif
00:01:08 verbose #3962 > > type ActionFn2<'T, 'U> = class end
00:01:08 verbose #3963 > > #if FABLE_COMPILER
00:01:08 verbose #3964 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:08 verbose #3965 > > #endif
00:01:08 verbose #3966 > > type Impl<'T> = class end
00:01:08 verbose #3967 > > #if FABLE_COMPILER
00:01:08 verbose #3968 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:08 verbose #3969 > > #endif
00:01:08 verbose #3970 > > type Mut<'T> = class end
00:01:08 verbose #3971 > > #if FABLE_COMPILER
00:01:08 verbose #3972 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:01:08 verbose #3973 > > ()
00:01:08 verbose #3974 > > #endif
00:01:08 verbose #3975 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:08 verbose #3976 > > let v28 : string = @"println!(""{}"", $0)"
00:01:08 verbose #3977 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:08 verbose #3978 > > ()
00:01:08 verbose #3979 > > #endif
00:01:08 verbose #3980 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:08 verbose #3981 > > System.Console.WriteLine v24
00:01:08 verbose #3982 > > ()
00:01:08 verbose #3983 > > #endif
00:01:08 verbose #3984 > > #if FABLE_COMPILER_PYTHON
00:01:08 verbose #3985 > > System.Console.WriteLine v24
00:01:08 verbose #3986 > > ()
00:01:08 verbose #3987 > > #endif
00:01:08 verbose #3988 > > #else
00:01:08 verbose #3989 > > System.Console.WriteLine v24
00:01:08 verbose #3990 > > ()
00:01:08 verbose #3991 > > #endif
00:01:08 verbose #3992 > > |> fun x -> _v25 <- Some x
00:01:08 verbose #3993 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:08 verbose #3994 > > _v25=None"
00:01:08 verbose #3995 > > let v29 : (string -> unit) = v8.l0
00:01:08 verbose #3996 > > v29 v24
00:01:08 verbose #3997 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:08 verbose #3998 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:08 verbose #3999 > > method11(v0, v3)
00:01:08 verbose #4000 > > and closure1 () (v0 : string) : uint16 =
00:01:08 verbose #4001 > > let v1 : char = v0.[[int 0]]
00:01:08 verbose #4002 > > let v2 : (char -> int32) = int32
00:01:08 verbose #4003 > > let v3 : int32 = v2 v1
00:01:08 verbose #4004 > > let v4 : string = v0.[[int 0..int 7]]
00:01:08 verbose #4005 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:01:08 verbose #4006 > > let v6 : int32 = v5 + v3
00:01:08 verbose #4007 > > let v7 : (int32 -> uint16) = uint16
00:01:08 verbose #4008 > > let v8 : uint16 = v7 v6
00:01:08 verbose #4009 > > let v9 : US0 = US0_0
00:01:08 verbose #4010 > > let v10 : (unit -> string) = closure2()
00:01:08 verbose #4011 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:01:08 verbose #4012 > > method3(v9, v10, v11)
00:01:08 verbose #4013 > > let v12 : uint16 = v8 % 48128us
00:01:08 verbose #4014 > > let v13 : uint16 = v12 + 1024us
00:01:08 verbose #4015 > > v13
00:01:08 verbose #4016 > > let v0 : (string -> string) = closure0()
00:01:08 verbose #4017 > > let hash_text x = v0 x
00:01:08 verbose #4018 > > let v1 : (string -> uint16) = closure1()
00:01:08 verbose #4019 > > let hash_to_port x = v1 x
00:01:08 verbose #4020 > > ()
00:01:08 verbose #4021 > >
00:01:09 verbose #4022 > >
00:01:09 verbose #4023 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:09 verbose #4024 > > #if FABLE_COMPILER
00:01:09 verbose #4025 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:09 verbose #4026 > > #endif
00:01:09 verbose #4027 > > type core_any_Any = class end
00:01:09 verbose #4028 > > #if FABLE_COMPILER
00:01:09 verbose #4029 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:09 verbose #4030 > > #endif
00:01:09 verbose #4031 > > type core_ops_Try<'T> = class end
00:01:09 verbose #4032 > > #if FABLE_COMPILER
00:01:09 verbose #4033 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:09 verbose #4034 > > #endif
00:01:09 verbose #4035 > > type Func0<'T> = class end
00:01:09 verbose #4036 > > #if FABLE_COMPILER
00:01:09 verbose #4037 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:09 verbose #4038 > > #endif
00:01:09 verbose #4039 > > type Func0<'T, 'U> = class end
00:01:09 verbose #4040 > > #if FABLE_COMPILER
00:01:09 verbose #4041 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:09 verbose #4042 > > #endif
00:01:09 verbose #4043 > > type Box<'T> = class end
00:01:09 verbose #4044 > > #if FABLE_COMPILER
00:01:09 verbose #4045 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:09 verbose #4046 > > #endif
00:01:09 verbose #4047 > > type Dyn<'T> = class end
00:01:09 verbose #4048 > > #if FABLE_COMPILER
00:01:09 verbose #4049 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:09 verbose #4050 > > #endif
00:01:09 verbose #4051 > > type Send<'T> = class end
00:01:09 verbose #4052 > > #if FABLE_COMPILER
00:01:09 verbose #4053 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:09 verbose #4054 > > #endif
00:01:09 verbose #4055 > > type Fn<'T> = class end
00:01:09 verbose #4056 > > #if FABLE_COMPILER
00:01:09 verbose #4057 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:09 verbose #4058 > > #endif
00:01:09 verbose #4059 > > type FnUnit = class end
00:01:09 verbose #4060 > > #if FABLE_COMPILER
00:01:09 verbose #4061 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:09 verbose #4062 > > #endif
00:01:09 verbose #4063 > > type FnOnce<'T> = class end
00:01:09 verbose #4064 > > #if FABLE_COMPILER
00:01:09 verbose #4065 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:09 verbose #4066 > > #endif
00:01:09 verbose #4067 > > type ActionFn<'T> = class end
00:01:09 verbose #4068 > > #if FABLE_COMPILER
00:01:09 verbose #4069 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:09 verbose #4070 > > #endif
00:01:09 verbose #4071 > > type ActionFn2<'T, 'U> = class end
00:01:09 verbose #4072 > > #if FABLE_COMPILER
00:01:09 verbose #4073 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:09 verbose #4074 > > #endif
00:01:09 verbose #4075 > > type Impl<'T> = class end
00:01:09 verbose #4076 > > #if FABLE_COMPILER
00:01:09 verbose #4077 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:09 verbose #4078 > > #endif
00:01:09 verbose #4079 > > type Mut<'T> = class end
00:01:09 verbose #4080 > > #if FABLE_COMPILER
00:01:09 verbose #4081 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:01:09 verbose #4082 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:01:09 verbose #4083 > > let v2 : System.Guid = v1 ()
00:01:09 verbose #4084 > > let v3 : (System.Guid -> string) = _.ToString()
00:01:09 verbose #4085 > > let v4 : string = v3 v2
00:01:09 verbose #4086 > > let v5 : (int64 -> string) = _.ToString()
00:01:09 verbose #4087 > > let v6 : string = v5 v0
00:01:09 verbose #4088 > > let v7 : string = v6.PadLeft (18, '0')
00:01:09 verbose #4089 > > let v8 : System.Guid = System.Guid
00:01:09 verbose #4090 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:01:09 verbose #4091 > > v8
00:01:09 verbose #4092 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:01:09 verbose #4093 > > let v2 : (string -> string) = v1.ToString
00:01:09 verbose #4094 > > v2 v0
00:01:09 verbose #4095 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:01:09 verbose #4096 > > closure12(v0)
00:01:09 verbose #4097 > > and closure13 () (v0 : System.DateTime) : string =
00:01:09 verbose #4098 > > let v1 : (string -> string) = v0.ToString
00:01:09 verbose #4099 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:01:09 verbose #4100 > > v1 v2
00:01:09 verbose #4101 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:01:09 verbose #4102 > > let date_time_guid_from_date_time x = v0 x
00:01:09 verbose #4103 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:01:09 verbose #4104 > > let date_time_from_guid x = v1 x
00:01:09 verbose #4105 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:01:09 verbose #4106 > > let timestamp_guid_from_timestamp x = v2 x
00:01:09 verbose #4107 > > let v3 : (System.Guid -> int64) = closure8()
00:01:09 verbose #4108 > > let timestamp_from_guid x = v3 x
00:01:09 verbose #4109 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:01:09 verbose #4110 > > let new_guid_from_date_time x = v4 x
00:01:09 verbose #4111 > > let v5 : (int64 -> System.Guid) = closure10()
00:01:09 verbose #4112 > > let new_guid_from_timestamp x = v5 x
00:01:09 verbose #4113 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:01:09 verbose #4114 > > let format x = v6 x
00:01:09 verbose #4115 > > let v7 : (System.DateTime -> string) = closure13()
00:01:09 verbose #4116 > > let format_iso8601 x = v7 x
00:01:09 verbose #4117 > > ()
00:01:09 verbose #4118 > >
00:01:10 verbose #4119 > >
00:01:10 verbose #4120 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 verbose #4121 > > #if FABLE_COMPILER
00:01:10 verbose #4122 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:01:10 verbose #4123 > > #endif
00:01:10 verbose #4124 > > type futures_future_JoinAll<'T> = class end
00:01:10 verbose #4125 > > #if FABLE_COMPILER
00:01:10 verbose #4126 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:01:10 verbose #4127 > > #endif
00:01:10 verbose #4128 > > type futures_future_TryJoinAll<'T> = class end
00:01:10 verbose #4129 > > #if FABLE_COMPILER
00:01:10 verbose #4130 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:01:10 verbose #4131 > > #endif
00:01:10 verbose #4132 > > type rayon_iter_Map<'T> = class end
00:01:10 verbose #4133 > > #if FABLE_COMPILER
00:01:10 verbose #4134 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:01:10 verbose #4135 > > #endif
00:01:10 verbose #4136 > > type rayon_vec_IntoIter<'T> = class end
00:01:10 verbose #4137 > > #if FABLE_COMPILER
00:01:10 verbose #4138 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:01:10 verbose #4139 > > #endif
00:01:10 verbose #4140 > > type std_future_Future<'T> = class end
00:01:10 verbose #4141 > > #if FABLE_COMPILER
00:01:10 verbose #4142 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:01:10 verbose #4143 > > #endif
00:01:10 verbose #4144 > > type futures_future_Fuse<'T> = class end
00:01:10 verbose #4145 > > #if FABLE_COMPILER
00:01:10 verbose #4146 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:01:10 verbose #4147 > > #endif
00:01:10 verbose #4148 > > type tokio_task_JoinHandle<'T> = class end
00:01:10 verbose #4149 > > #if FABLE_COMPILER
00:01:10 verbose #4150 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:01:10 verbose #4151 > > #endif
00:01:10 verbose #4152 > > type tokio_stream_StreamExt = class end
00:01:10 verbose #4153 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:10 verbose #4154 > > Async<System.Threading.CancellationToken> =
00:01:10 verbose #4155 > > let v1 : bool = true
00:01:10 verbose #4156 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:01:10 verbose #4157 > >
00:01:10 verbose #4158 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:10 verbose #4159 > >
00:01:10 verbose #4160 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:10 verbose #4161 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:10 verbose #4162 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:01:10 verbose #4163 > > v12
00:01:10 verbose #4164 > > #endif
00:01:10 verbose #4165 > > #else
00:01:10 verbose #4166 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:01:10 verbose #4167 > > let mutable _v13 = v13
00:01:10 verbose #4168 > > async {
00:01:10 verbose #4169 > > let v14 : Async<System.Threading.CancellationToken> =
00:01:10 verbose #4170 > > Async.CancellationToken
00:01:10 verbose #4171 > > let! v14 = v14
00:01:10 verbose #4172 > > let v15 : System.Threading.CancellationToken = v14
00:01:10 verbose #4173 > > let v16 : System.Threading.CancellationToken =
00:01:10 verbose #4174 > > Async.DefaultCancellationToken
00:01:10 verbose #4175 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:01:10 verbose #4176 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:01:10 verbose #4177 > > System.Threading.CancellationTokenSource) =
00:01:10 verbose #4178 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:01:10 verbose #4179 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:01:10 verbose #4180 > > let v20 : System.Threading.CancellationToken = v19.Token
00:01:10 verbose #4181 > > return v20
00:01:10 verbose #4182 > > }
00:01:10 verbose #4183 > > |> fun x -> _v13 <- Some x
00:01:10 verbose #4184 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:01:10 verbose #4185 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:01:10 verbose #4186 > > v21
00:01:10 verbose #4187 > > #endif
00:01:10 verbose #4188 > > |> fun x -> _v7 <- Some x
00:01:10 verbose #4189 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:01:10 verbose #4190 > > -> x | None -> failwith "base.run_target / _v7=None"
00:01:10 verbose #4191 > > v22
00:01:10 verbose #4192 > > #endif
00:01:10 verbose #4193 > > |> fun x -> _v1 <- Some x
00:01:10 verbose #4194 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:01:10 verbose #4195 > > -> x | None -> failwith "base.run_target / _v1=None"
00:01:10 verbose #4196 > > v23
00:01:10 verbose #4197 > > let v0 : (System.Threading.CancellationToken ->
00:01:10 verbose #4198 > > Async<System.Threading.CancellationToken>) = closure0()
00:01:10 verbose #4199 > > let merge_cancellation_token_with_default_async x = v0 x
00:01:10 verbose #4200 > > ()
00:01:10 verbose #4201 > >
00:01:10 verbose #4202 > >
00:01:10 verbose #4203 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 verbose #4204 > > #if FABLE_COMPILER
00:01:10 verbose #4205 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:01:10 verbose #4206 > > #endif
00:01:10 verbose #4207 > > type std_thread_JoinHandle<'T> = class end
00:01:10 verbose #4208 > > #if FABLE_COMPILER
00:01:10 verbose #4209 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:01:10 verbose #4210 > > #endif
00:01:10 verbose #4211 > > type std_sync_Arc<'T> = class end
00:01:10 verbose #4212 > > #if FABLE_COMPILER
00:01:10 verbose #4213 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:01:10 verbose #4214 > > #endif
00:01:10 verbose #4215 > > type std_sync_Mutex<'T> = class end
00:01:10 verbose #4216 > > #if FABLE_COMPILER
00:01:10 verbose #4217 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:01:10 verbose #4218 > > #endif
00:01:10 verbose #4219 > > type std_sync_MutexGuard<'T> = class end
00:01:10 verbose #4220 > > #if FABLE_COMPILER
00:01:10 verbose #4221 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:01:10 verbose #4222 > > #endif
00:01:10 verbose #4223 > > type std_sync_PoisonError<'T> = class end
00:01:10 verbose #4224 > > #if FABLE_COMPILER
00:01:10 verbose #4225 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:01:10 verbose #4226 > > #endif
00:01:10 verbose #4227 > > type std_sync_mpsc_Receiver<'T> = class end
00:01:10 verbose #4228 > > #if FABLE_COMPILER
00:01:10 verbose #4229 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:01:10 verbose #4230 > > #endif
00:01:10 verbose #4231 > > type std_sync_mpsc_SendError<'T> = class end
00:01:10 verbose #4232 > > #if FABLE_COMPILER
00:01:10 verbose #4233 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:01:10 verbose #4234 > > #endif
00:01:10 verbose #4235 > > type std_sync_mpsc_Sender<'T> = class end
00:01:10 verbose #4236 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:01:10 verbose #4237 > > _.Dispose () = f ()
00:01:10 verbose #4238 > > type [[<Struct>]] US0 =
00:01:10 verbose #4239 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:01:10 verbose #4240 > > | US0_1
00:01:10 verbose #4241 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:01:10 verbose #4242 > > let v1 : bool = true
00:01:10 verbose #4243 > > let mutable _v1 : unit option = None
00:01:10 verbose #4244 > >
00:01:10 verbose #4245 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:10 verbose #4246 > >
00:01:10 verbose #4247 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:01:10 verbose #4248 > > "$0()" )
00:01:10 verbose #4249 > > v28
00:01:10 verbose #4250 > > #endif
00:01:10 verbose #4251 > > #if FABLE_COMPILER_RUST && WASM
00:01:10 verbose #4252 > > let v29 : (unit -> unit) = method0(v25)
00:01:10 verbose #4253 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:01:10 verbose #4254 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:01:10 verbose #4255 > > v30
00:01:10 verbose #4256 > > #endif
00:01:10 verbose #4257 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:10 verbose #4258 > > let v31 : (unit -> unit) = method0(v25)
00:01:10 verbose #4259 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:01:10 verbose #4260 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:01:10 verbose #4261 > > v32
00:01:10 verbose #4262 > > #endif
00:01:10 verbose #4263 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:10 verbose #4264 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:10 verbose #4265 > > v33
00:01:10 verbose #4266 > > #endif
00:01:10 verbose #4267 > > #if FABLE_COMPILER_PYTHON
00:01:10 verbose #4268 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:10 verbose #4269 > > v34
00:01:10 verbose #4270 > > #endif
00:01:10 verbose #4271 > > #else
00:01:10 verbose #4272 > > let v35 : (unit -> unit) = method1(v25)
00:01:10 verbose #4273 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:01:10 verbose #4274 > > _.Dispose () = v35 () }
00:01:10 verbose #4275 > > v36
00:01:10 verbose #4276 > > #endif
00:01:10 verbose #4277 > > |> fun x -> _v26 <- Some x
00:01:10 verbose #4278 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:01:10 verbose #4279 > > failwith "base.run_target / _v26=None"
00:01:10 verbose #4280 > > let v38 : System.Threading.CancellationToken = v25.Token
00:01:10 verbose #4281 > > struct (v38, v37)
00:01:10 verbose #4282 > > #endif
00:01:10 verbose #4283 > > |> fun x -> _v1 <- Some x
00:01:10 verbose #4284 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:01:10 verbose #4285 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:01:10 verbose #4286 > > "base.run_target / _v1=None"
00:01:10 verbose #4287 > > struct (v39, v40)
00:01:10 verbose #4288 > > let v0 : (System.Threading.CancellationToken option -> struct
00:01:10 verbose #4289 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:01:10 verbose #4290 > > let new_disposable_token x = v0 x
00:01:10 verbose #4291 > > ()
00:01:10 verbose #4292 > >
00:01:10 verbose #4293 > >
00:01:10 verbose #4294 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 verbose #4295 > > #if FABLE_COMPILER
00:01:10 verbose #4296 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:01:10 verbose #4297 > > #endif
00:01:10 verbose #4298 > > type reqwest_Error = class end
00:01:10 verbose #4299 > > #if FABLE_COMPILER
00:01:10 verbose #4300 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:01:10 verbose #4301 > > #endif
00:01:10 verbose #4302 > > type reqwest_RequestBuilder = class end
00:01:10 verbose #4303 > > #if FABLE_COMPILER
00:01:10 verbose #4304 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:01:10 verbose #4305 > > #endif
00:01:10 verbose #4306 > > type reqwest_Response = class end
00:01:10 verbose #4307 > > #if FABLE_COMPILER
00:01:10 verbose #4308 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:10 verbose #4309 > > #endif
00:01:10 verbose #4310 > > type std_env_VarError = class end
00:01:10 verbose #4311 > > #if FABLE_COMPILER
00:01:10 verbose #4312 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:10 verbose #4313 > > #endif
00:01:10 verbose #4314 > > type core_any_Any = class end
00:01:10 verbose #4315 > > #if FABLE_COMPILER
00:01:10 verbose #4316 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:10 verbose #4317 > > #endif
00:01:10 verbose #4318 > > type core_ops_Try<'T> = class end
00:01:10 verbose #4319 > > #if FABLE_COMPILER
00:01:10 verbose #4320 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:10 verbose #4321 > > #endif
00:01:10 verbose #4322 > > type Func0<'T> = class end
00:01:10 verbose #4323 > > #if FABLE_COMPILER
00:01:10 verbose #4324 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:10 verbose #4325 > > #endif
00:01:10 verbose #4326 > > type Func0<'T, 'U> = class end
00:01:10 verbose #4327 > > #if FABLE_COMPILER
00:01:10 verbose #4328 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:10 verbose #4329 > > #endif
00:01:10 verbose #4330 > > type Box<'T> = class end
00:01:10 verbose #4331 > > #if FABLE_COMPILER
00:01:10 verbose #4332 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:10 verbose #4333 > > #endif
00:01:10 verbose #4334 > > type Dyn<'T> = class end
00:01:10 verbose #4335 > > #if FABLE_COMPILER
00:01:10 verbose #4336 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:10 verbose #4337 > > #endif
00:01:10 verbose #4338 > > type Send<'T> = class end
00:01:10 verbose #4339 > > #if FABLE_COMPILER
00:01:10 verbose #4340 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:10 verbose #4341 > > #endif
00:01:10 verbose #4342 > > type Fn<'T> = class end
00:01:10 verbose #4343 > > #if FABLE_COMPILER
00:01:10 verbose #4344 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:10 verbose #4345 > > #endif
00:01:10 verbose #4346 > > type FnUnit = class end
00:01:10 verbose #4347 > > #if FABLE_COMPILER
00:01:10 verbose #4348 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:10 verbose #4349 > > ... v212 = v212
00:01:10 verbose #4350 > > let v213 : bool = v212
00:01:10 verbose #4351 > > let v214 : bool = v213 = false
00:01:10 verbose #4352 > > if v214 then
00:01:10 verbose #4353 > > return v2
00:01:10 verbose #4354 > > (*
00:01:10 verbose #4355 > > ()
00:01:10 verbose #4356 > > else
00:01:10 verbose #4357 > > *) else
00:01:10 verbose #4358 > > let v215 : int32 = v2 + 1
00:01:10 verbose #4359 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:01:10 verbose #4360 > > return! v216
00:01:10 verbose #4361 > > (*
00:01:10 verbose #4362 > > ()
00:01:10 verbose #4363 > > *)
00:01:10 verbose #4364 > > }
00:01:10 verbose #4365 > > |> fun x -> _v9 <- Some x
00:01:10 verbose #4366 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:01:10 verbose #4367 > > "async.new_async_unit / _v9=None"
00:01:10 verbose #4368 > > v217
00:01:10 verbose #4369 > > #endif
00:01:10 verbose #4370 > > |> fun x -> _v3 <- Some x
00:01:10 verbose #4371 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:01:10 verbose #4372 > > "base.run_target / _v3=None"
00:01:10 verbose #4373 > > v218
00:01:10 verbose #4374 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:01:10 verbose #4375 > > method10(v0, v1, v2)
00:01:10 verbose #4376 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:01:10 verbose #4377 > > closure23(v0, v1)
00:01:10 verbose #4378 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:01:10 verbose #4379 > > closure22(v0)
00:01:10 verbose #4380 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:10 verbose #4381 > > let v1 : US0 = US0_0
00:01:10 verbose #4382 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:10 verbose #4383 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:01:10 verbose #4384 > > let test_port_open x = v2 x
00:01:10 verbose #4385 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:01:10 verbose #4386 > > let test_port_open_timeout x = v3 x
00:01:10 verbose #4387 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:01:10 verbose #4388 > > closure15()
00:01:10 verbose #4389 > > let wait_for_port_access x = v4 x
00:01:10 verbose #4390 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:01:10 verbose #4391 > > let get_available_port x = v5 x
00:01:10 verbose #4392 > > ()
00:01:10 verbose #4393 > >
00:01:12 verbose #4394 > >
00:01:12 verbose #4395 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 verbose #4396 > > type [[<Struct>]] US0 =
00:01:12 verbose #4397 > > | US0_0
00:01:12 verbose #4398 > > | US0_1
00:01:12 verbose #4399 > > | US0_2
00:01:12 verbose #4400 > > and [[<Struct>]] US1 =
00:01:12 verbose #4401 > > | US1_0 of f0_0 : US0
00:01:12 verbose #4402 > > | US1_1 of f1_0 : US0
00:01:12 verbose #4403 > > | US1_2 of f2_0 : US0
00:01:12 verbose #4404 > > | US1_3 of f3_0 : US0
00:01:12 verbose #4405 > > | US1_4 of f4_0 : US0
00:01:12 verbose #4406 > > let rec closure0 () () : bool =
00:01:12 verbose #4407 > > let v0 : bool = true
00:01:12 verbose #4408 > > let mutable _v0 : bool option = None
00:01:12 verbose #4409 > >
00:01:12 verbose #4410 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:12 verbose #4411 > >
00:01:12 verbose #4412 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:12 verbose #4413 > > let v1 : string = "cfg!(windows)"
00:01:12 verbose #4414 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:12 verbose #4415 > > v2
00:01:12 verbose #4416 > > #endif
00:01:12 verbose #4417 > > #if FABLE_COMPILER_RUST && WASM
00:01:12 verbose #4418 > > let v3 : string = "cfg!(windows)"
00:01:12 verbose #4419 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:12 verbose #4420 > > v4
00:01:12 verbose #4421 > > #endif
00:01:12 verbose #4422 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:12 verbose #4423 > > let v5 : string = "cfg!(windows)"
00:01:12 verbose #4424 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:12 verbose #4425 > > v6
00:01:12 verbose #4426 > > #endif
00:01:12 verbose #4427 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:12 verbose #4428 > > let v7 : US0 = US0_0
00:01:12 verbose #4429 > > let v8 : US1 = US1_3(v7)
00:01:12 verbose #4430 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:12 verbose #4431 > > let v10 : bool = failwith<bool> v9
00:01:12 verbose #4432 > > v10
00:01:12 verbose #4433 > > #endif
00:01:12 verbose #4434 > > #if FABLE_COMPILER_PYTHON
00:01:12 verbose #4435 > > let v11 : US0 = US0_0
00:01:12 verbose #4436 > > let v12 : US1 = US1_4(v11)
00:01:12 verbose #4437 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:12 verbose #4438 > > let v14 : bool = failwith<bool> v13
00:01:12 verbose #4439 > > v14
00:01:12 verbose #4440 > > #endif
00:01:12 verbose #4441 > > #else
00:01:12 verbose #4442 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:12 verbose #4443 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:12 verbose #4444 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:12 verbose #4445 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:12 verbose #4446 > > let v17 : b...: string = "cfg!(windows)"
00:01:12 verbose #4447 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:12 verbose #4448 > > v2
00:01:12 verbose #4449 > > #endif
00:01:12 verbose #4450 > > #if FABLE_COMPILER_RUST && WASM
00:01:12 verbose #4451 > > let v3 : string = "cfg!(windows)"
00:01:12 verbose #4452 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:12 verbose #4453 > > v4
00:01:12 verbose #4454 > > #endif
00:01:12 verbose #4455 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:12 verbose #4456 > > let v5 : string = "cfg!(windows)"
00:01:12 verbose #4457 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:12 verbose #4458 > > v6
00:01:12 verbose #4459 > > #endif
00:01:12 verbose #4460 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:12 verbose #4461 > > let v7 : US0 = US0_0
00:01:12 verbose #4462 > > let v8 : US1 = US1_3(v7)
00:01:12 verbose #4463 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:12 verbose #4464 > > let v10 : bool = failwith<bool> v9
00:01:12 verbose #4465 > > v10
00:01:12 verbose #4466 > > #endif
00:01:12 verbose #4467 > > #if FABLE_COMPILER_PYTHON
00:01:12 verbose #4468 > > let v11 : US0 = US0_0
00:01:12 verbose #4469 > > let v12 : US1 = US1_4(v11)
00:01:12 verbose #4470 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:12 verbose #4471 > > let v14 : bool = failwith<bool> v13
00:01:12 verbose #4472 > > v14
00:01:12 verbose #4473 > > #endif
00:01:12 verbose #4474 > > #else
00:01:12 verbose #4475 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:12 verbose #4476 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:12 verbose #4477 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:12 verbose #4478 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:12 verbose #4479 > > let v17 : bool = v16 v15
00:01:12 verbose #4480 > > v17
00:01:12 verbose #4481 > > #endif
00:01:12 verbose #4482 > > |> fun x -> _v0 <- Some x
00:01:12 verbose #4483 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:01:12 verbose #4484 > > "base.run_target / _v0=None"
00:01:12 verbose #4485 > > if v18 then
00:01:12 verbose #4486 > > let v19 : string = ".exe"
00:01:12 verbose #4487 > > v19
00:01:12 verbose #4488 > > else
00:01:12 verbose #4489 > > let v20 : string = ""
00:01:12 verbose #4490 > > v20
00:01:12 verbose #4491 > > let v0 : (unit -> bool) = closure0()
00:01:12 verbose #4492 > > let is_windows () = v0 ()
00:01:12 verbose #4493 > > let v1 : (unit -> string) = closure1()
00:01:12 verbose #4494 > > let get_executable_suffix () = v1 ()
00:01:12 verbose #4495 > > ()
00:01:12 verbose #4496 > >
00:01:12 verbose #4497 > >
00:01:12 verbose #4498 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 verbose #4499 > > #if FABLE_COMPILER
00:01:12 verbose #4500 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:01:12 verbose #4501 > > #endif
00:01:12 verbose #4502 > > type clap_Arg = class end
00:01:12 verbose #4503 > > #if FABLE_COMPILER
00:01:12 verbose #4504 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:01:12 verbose #4505 > > #endif
00:01:12 verbose #4506 > > type clap_ArgAction = class end
00:01:12 verbose #4507 > > #if FABLE_COMPILER
00:01:12 verbose #4508 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:01:12 verbose #4509 > > #endif
00:01:12 verbose #4510 > > type clap_Command = class end
00:01:12 verbose #4511 > > #if FABLE_COMPILER
00:01:12 verbose #4512 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:01:12 verbose #4513 > > #endif
00:01:12 verbose #4514 > > type clap_ArgMatches = class end
00:01:12 verbose #4515 > > #if FABLE_COMPILER
00:01:12 verbose #4516 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:01:12 verbose #4517 > > #endif
00:01:12 verbose #4518 > > type clap_builder_ValueRange = class end
00:01:12 verbose #4519 > > #if FABLE_COMPILER
00:01:12 verbose #4520 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:01:12 verbose #4521 > > #endif
00:01:12 verbose #4522 > > type clap_builder_ValueParser = class end
00:01:12 verbose #4523 > > #if FABLE_COMPILER
00:01:12 verbose #4524 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:01:12 verbose #4525 > > #endif
00:01:12 verbose #4526 > > type clap_builder_PossibleValue = class end
00:01:12 verbose #4527 > > #if FABLE_COMPILER
00:01:12 verbose #4528 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:01:12 verbose #4529 > > #endif
00:01:12 verbose #4530 > > type std_process_Child = class end
00:01:12 verbose #4531 > > #if FABLE_COMPILER
00:01:12 verbose #4532 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:01:12 verbose #4533 > > #endif
00:01:12 verbose #4534 > > type std_process_ChildStderr = class end
00:01:12 verbose #4535 > > #if FABLE_COMPILER
00:01:12 verbose #4536 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:01:12 verbose #4537 > > #endif
00:01:12 verbose #4538 > > type std_process_ChildStdout = class end
00:01:12 verbose #4539 > > #if FABLE_COMPILER
00:01:12 verbose #4540 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:01:12 verbose #4541 > > #endif
00:01:12 verbose #4542 > > type std_process_ChildStdin = class end
00:01:12 verbose #4543 > > #if FABLE_COMPILER
00:01:12 verbose #4544 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:01:12 verbose #4545 > > #endif
00:01:12 verbose #4546 > > type std_process_Command = class... with
00:01:12 verbose #4547 > > | US14_1(v28) -> (* Error *)
00:01:12 verbose #4548 > > US8_1(v28)
00:01:12 verbose #4549 > > | US14_0(v26) -> (* Ok *)
00:01:12 verbose #4550 > > US8_0(v26)
00:01:12 verbose #4551 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:01:12 verbose #4552 > > let v1 : US8 = method16(v0)
00:01:12 verbose #4553 > > match v1 with
00:01:12 verbose #4554 > > | US8_1(v4) -> (* Error *)
00:01:12 verbose #4555 > > let v5 : Result<(string [[]]), string> = Error v4
00:01:12 verbose #4556 > > v5
00:01:12 verbose #4557 > > | US8_0(v2) -> (* Ok *)
00:01:12 verbose #4558 > > let v3 : Result<(string [[]]), string> = Ok v2
00:01:12 verbose #4559 > > v3
00:01:12 verbose #4560 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:12 verbose #4561 > > let v1 : US0 = US0_0
00:01:12 verbose #4562 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:12 verbose #4563 > > let v2 : (unit -> unit) = closure2()
00:01:12 verbose #4564 > > let current_process_kill () = v2 ()
00:01:12 verbose #4565 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:01:12 verbose #4566 > > let execute_async x = v3 x
00:01:12 verbose #4567 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:01:12 verbose #4568 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:01:12 verbose #4569 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:01:12 verbose #4570 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:01:12 verbose #4571 > > let execute_with_options_async x = v4 x
00:01:12 verbose #4572 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:01:12 verbose #4573 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:01:12 verbose #4574 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:01:12 verbose #4575 > > unit) option * bool * string option)) = closure18()
00:01:12 verbose #4576 > > let execution_options x = v5 x
00:01:12 verbose #4577 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:01:12 verbose #4578 > > let split_args x = v6 x
00:01:12 verbose #4579 > > ()
00:01:12 verbose #4580 > >
00:01:15 verbose #4581 > >
00:01:15 verbose #4582 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:15 verbose #4583 > > #if FABLE_COMPILER
00:01:15 verbose #4584 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:01:15 verbose #4585 > > #endif
00:01:15 verbose #4586 > > type std_fs_File = class end
00:01:15 verbose #4587 > > #if FABLE_COMPILER
00:01:15 verbose #4588 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:01:15 verbose #4589 > > #endif
00:01:15 verbose #4590 > > type std_fs_FileType = class end
00:01:15 verbose #4591 > > #if FABLE_COMPILER
00:01:15 verbose #4592 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:01:15 verbose #4593 > > #endif
00:01:15 verbose #4594 > > type std_path_Display = class end
00:01:15 verbose #4595 > > #if FABLE_COMPILER
00:01:15 verbose #4596 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:01:15 verbose #4597 > > #endif
00:01:15 verbose #4598 > > type std_path_Path = class end
00:01:15 verbose #4599 > > #if FABLE_COMPILER
00:01:15 verbose #4600 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:01:15 verbose #4601 > > #endif
00:01:15 verbose #4602 > > type std_path_PathBuf = class end
00:01:15 verbose #4603 > > #if FABLE_COMPILER
00:01:15 verbose #4604 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:01:15 verbose #4605 > > #endif
00:01:15 verbose #4606 > > type async_walkdir_DirEntry = class end
00:01:15 verbose #4607 > > #if FABLE_COMPILER
00:01:15 verbose #4608 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:01:15 verbose #4609 > > #endif
00:01:15 verbose #4610 > > type async_walkdir_Filtering = class end
00:01:15 verbose #4611 > > #if FABLE_COMPILER
00:01:15 verbose #4612 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:01:15 verbose #4613 > > #endif
00:01:15 verbose #4614 > > type async_walkdir_WalkDir = class end
00:01:15 verbose #4615 > > #if FABLE_COMPILER
00:01:15 verbose #4616 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:15 verbose #4617 > > #endif
00:01:15 verbose #4618 > > type core_any_Any = class end
00:01:15 verbose #4619 > > #if FABLE_COMPILER
00:01:15 verbose #4620 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:15 verbose #4621 > > #endif
00:01:15 verbose #4622 > > type core_ops_Try<'T> = class end
00:01:15 verbose #4623 > > #if FABLE_COMPILER
00:01:15 verbose #4624 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:15 verbose #4625 > > #endif
00:01:15 verbose #4626 > > type Func0<'T> = class end
00:01:15 verbose #4627 > > #if FABLE_COMPILER
00:01:15 verbose #4628 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:15 verbose #4629 > > #endif
00:01:15 verbose #4630 > > type Func0<'T, 'U> = class end
00:01:15 verbose #4631 > > #if FABLE_COMPILER
00:01:15 verbose #4632 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:15 verbose #4633 > > #endif
00:01:15 verbose #4634 > > type Box<'T> = cla...4>) = closure12()
00:01:15 verbose #4635 > > let wait_for_file_access_read x = v4 x
00:01:15 verbose #4636 > > let v5 : (string -> Async<string>) = closure13()
00:01:15 verbose #4637 > > let read_all_text_async x = v5 x
00:01:15 verbose #4638 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:01:15 verbose #4639 > > let file_exists_content x = v6 x
00:01:15 verbose #4640 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:01:15 verbose #4641 > > let write_all_text_async x = v7 x
00:01:15 verbose #4642 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:01:15 verbose #4643 > > let write_all_text_exists x = v8 x
00:01:15 verbose #4644 > > let v9 : (string -> Async<int64>) = closure20()
00:01:15 verbose #4645 > > let delete_file_async x = v9 x
00:01:15 verbose #4646 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:01:15 verbose #4647 > > let move_file_async x = v10 x
00:01:15 verbose #4648 > > let v11 : (string -> Async<string option>) = closure27()
00:01:15 verbose #4649 > > let read_all_text_retry_async x = v11 x
00:01:15 verbose #4650 > > let v12 : (unit -> string) = closure35()
00:01:15 verbose #4651 > > let create_temp_path () = v12 ()
00:01:15 verbose #4652 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:01:15 verbose #4653 > > let create_temp_dir () = v13 ()
00:01:15 verbose #4654 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:01:15 verbose #4655 > > let create_temp_dir' x = v14 x
00:01:15 verbose #4656 > > let v15 : (unit -> string) = closure49()
00:01:15 verbose #4657 > > let get_source_directory () = v15 ()
00:01:15 verbose #4658 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:01:15 verbose #4659 > > let find_parent x = v16 x
00:01:15 verbose #4660 > > let v17 : (string -> string) = closure56()
00:01:15 verbose #4661 > > let normalize_path x = v17 x
00:01:15 verbose #4662 > > let v18 : (string -> string) = closure57()
00:01:15 verbose #4663 > > let new_file_uri x = v18 x
00:01:15 verbose #4664 > > let v19 : (unit -> string) = closure58()
00:01:15 verbose #4665 > > let get_workspace_root () = v19 ()
00:01:15 verbose #4666 > > let v20 : (bool -> unit) = closure59()
00:01:15 verbose #4667 > > let init_trace_file x = v20 x
00:01:15 verbose #4668 > > let v21 : (string -> (string -> string)) = closure61()
00:01:15 verbose #4669 > > let (</>) x = v21 x
00:01:15 verbose #4670 > > ()
00:01:15 verbose #4671 > >
00:01:18 verbose #4672 > >
00:01:18 verbose #4673 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:18 verbose #4674 > > #if FABLE_COMPILER
00:01:18 verbose #4675 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:18 verbose #4676 > > #endif
00:01:18 verbose #4677 > > type core_any_Any = class end
00:01:18 verbose #4678 > > #if FABLE_COMPILER
00:01:18 verbose #4679 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:18 verbose #4680 > > #endif
00:01:18 verbose #4681 > > type core_ops_Try<'T> = class end
00:01:18 verbose #4682 > > #if FABLE_COMPILER
00:01:18 verbose #4683 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:18 verbose #4684 > > #endif
00:01:18 verbose #4685 > > type Func0<'T> = class end
00:01:18 verbose #4686 > > #if FABLE_COMPILER
00:01:18 verbose #4687 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:18 verbose #4688 > > #endif
00:01:18 verbose #4689 > > type Func0<'T, 'U> = class end
00:01:18 verbose #4690 > > #if FABLE_COMPILER
00:01:18 verbose #4691 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:18 verbose #4692 > > #endif
00:01:18 verbose #4693 > > type Box<'T> = class end
00:01:18 verbose #4694 > > #if FABLE_COMPILER
00:01:18 verbose #4695 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:18 verbose #4696 > > #endif
00:01:18 verbose #4697 > > type Dyn<'T> = class end
00:01:18 verbose #4698 > > #if FABLE_COMPILER
00:01:18 verbose #4699 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:18 verbose #4700 > > #endif
00:01:18 verbose #4701 > > type Send<'T> = class end
00:01:18 verbose #4702 > > #if FABLE_COMPILER
00:01:18 verbose #4703 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:18 verbose #4704 > > #endif
00:01:18 verbose #4705 > > type Fn<'T> = class end
00:01:18 verbose #4706 > > #if FABLE_COMPILER
00:01:18 verbose #4707 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:18 verbose #4708 > > #endif
00:01:18 verbose #4709 > > type FnUnit = class end
00:01:18 verbose #4710 > > #if FABLE_COMPILER
00:01:18 verbose #4711 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:18 verbose #4712 > > #endif
00:01:18 verbose #4713 > > type FnOnce<'T> = class end
00:01:18 verbose #4714 > > #if FABLE_COMPILER
00:01:18 verbose #4715 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:18 verbose #4716 > > #endif
00:01:18 verbose #4717 > > type ActionFn<'T> = class end
00:01:18 verbose #4718 > > #if FABLE_COMPILER
00:01:18 verbose #4719 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:18 verbose #4720 > > #endif
00:01:18 verbose #4721 > > type ActionFn2<'T, 'U> = class end
00:01:18 verbose #4722 > > #if FABLE_COMPILER
00:01:18 verbose #4723 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:18 verbose #4724 > > #endif
00:01:18 verbose #4725 > > type Impl<'T> = class end
00:01:18 verbose #4726 > > #if FABLE_COMPILER
00:01:18 verbose #4727 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:18 verbose #4728 > > #endif
00:01:18 verbose #4729 > > type Mut<'T> = class end
00:01:18 verbose #4730 > > #if FABLE_COMPILER
00:01:18 verbose #4731 > > [[<Fable.Core.Erase; Fable.C... #endif
00:01:18 verbose #4732 > > #if FABLE_COMPILER_RUST && WASM
00:01:18 verbose #4733 > > let v27 : string = @"println!(""{}"", $0)"
00:01:18 verbose #4734 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:01:18 verbose #4735 > > ()
00:01:18 verbose #4736 > > #endif
00:01:18 verbose #4737 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:18 verbose #4738 > > let v28 : string = @"println!(""{}"", $0)"
00:01:18 verbose #4739 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:18 verbose #4740 > > ()
00:01:18 verbose #4741 > > #endif
00:01:18 verbose #4742 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:18 verbose #4743 > > System.Console.WriteLine v24
00:01:18 verbose #4744 > > ()
00:01:18 verbose #4745 > > #endif
00:01:18 verbose #4746 > > #if FABLE_COMPILER_PYTHON
00:01:18 verbose #4747 > > System.Console.WriteLine v24
00:01:18 verbose #4748 > > ()
00:01:18 verbose #4749 > > #endif
00:01:18 verbose #4750 > > #else
00:01:18 verbose #4751 > > System.Console.WriteLine v24
00:01:18 verbose #4752 > > ()
00:01:18 verbose #4753 > > #endif
00:01:18 verbose #4754 > > |> fun x -> _v25 <- Some x
00:01:18 verbose #4755 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:18 verbose #4756 > > _v25=None"
00:01:18 verbose #4757 > > let v29 : (string -> unit) = v8.l0
00:01:18 verbose #4758 > > v29 v24
00:01:18 verbose #4759 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:18 verbose #4760 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:18 verbose #4761 > > method8(v0, v3)
00:01:18 verbose #4762 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:01:18 verbose #4763 > > method4(v0, v1, v2)
00:01:18 verbose #4764 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:01:18 verbose #4765 > > closure4(v0, v1)
00:01:18 verbose #4766 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:01:18 verbose #4767 > > closure3(v0)
00:01:18 verbose #4768 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:18 verbose #4769 > > let v1 : US0 = US0_0
00:01:18 verbose #4770 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:18 verbose #4771 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:01:18 verbose #4772 > > let trace x = v2 x
00:01:18 verbose #4773 > > ()
00:01:18 verbose #4774 > >
00:01:18 verbose #4775 > >
00:01:18 verbose #4776 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:18 verbose #4777 > > module SpiralTrace =
00:01:18 verbose #4778 > > let trace x =
00:01:18 verbose #4779 > > #if !INTERACTIVE
00:01:18 verbose #4780 > > Trace.trace x
00:01:18 verbose #4781 > > #else
00:01:18 verbose #4782 > > trace x
00:01:18 verbose #4783 > > #endif
00:01:18 verbose #4784 > >
00:01:18 verbose #4785 > > type TraceLevel =
00:01:18 verbose #4786 > > #if !INTERACTIVE
00:01:18 verbose #4787 > > Trace.US0
00:01:18 verbose #4788 > > #else
00:01:18 verbose #4789 > > US0
00:01:18 verbose #4790 > > #endif
00:01:18 verbose #4791 > >
00:01:18 verbose #4792 > > module SpiralCrypto =
00:01:18 verbose #4793 > > let hash_text x =
00:01:18 verbose #4794 > > #if !INTERACTIVE
00:01:18 verbose #4795 > > Crypto.hash_text x
00:01:18 verbose #4796 > > #else
00:01:18 verbose #4797 > > hash_text x
00:01:18 verbose #4798 > > #endif
00:01:18 verbose #4799 > >
00:01:18 verbose #4800 > > let hash_to_port x =
00:01:18 verbose #4801 > > #if !INTERACTIVE
00:01:18 verbose #4802 > > Crypto.hash_to_port x
00:01:18 verbose #4803 > > #else
00:01:18 verbose #4804 > > hash_to_port x
00:01:18 verbose #4805 > > #endif
00:01:18 verbose #4806 > >
00:01:18 verbose #4807 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:18 verbose #4808 > >
00:01:18 verbose #4809 > > module SpiralAsync =
00:01:18 verbose #4810 > > let merge_cancellation_token_with_default_async x =
00:01:18 verbose #4811 > > #if !INTERACTIVE
00:01:18 verbose #4812 > > Async_.merge_cancellation_token_with_default_async x
00:01:18 verbose #4813 > > #else
00:01:18 verbose #4814 > > merge_cancellation_token_with_default_async x
00:01:18 verbose #4815 > > #endif
00:01:18 verbose #4816 > >
00:01:18 verbose #4817 > > module SpiralThreading =
00:01:18 verbose #4818 > > let new_disposable_token x =
00:01:18 verbose #4819 > > #if !INTERACTIVE
00:01:18 verbose #4820 > > Threading.new_disposable_token x
00:01:18 verbose #4821 > > #else
00:01:18 verbose #4822 > > new_disposable_token x
00:01:18 verbose #4823 > > #endif
00:01:18 verbose #4824 > >
00:01:18 verbose #4825 > > module SpiralNetworking =
00:01:18 verbose #4826 > > let test_port_open x =
00:01:18 verbose #4827 > > #if !INTERACTIVE
00:01:18 verbose #4828 > > Networking.test_port_open x
00:01:18 verbose #4829 > > #else
00:01:18 verbose #4830 > > test_port_open x
00:01:18 verbose #4831 > > #endif
00:01:18 verbose #4832 > >
00:01:18 verbose #4833 > > let test_port_open_timeout x =
00:01:18 verbose #4834 > > #if !INTERACTIVE
00:01:18 verbose #4835 > > Networking.test_port_open_timeout x
00:01:18 verbose #4836 > > #else
00:01:18 verbose #4837 > > test_port_open_timeout x
00:01:18 verbose #4838 > > #endif
00:01:18 verbose #4839 > >
00:01:18 verbose #4840 > > let wait_for_port_access x =
00:01:18 verbose #4841 > > #if !INTERACTIVE
00:01:18 verbose #4842 > > Networking.wait_for_port_access x
00:01:18 verbose #4843 > > #else
00:01:18 verbose #4844 > > wait_for_port_access x
00:01:18 verbose #4845 > > #endif
00:01:18 verbose #4846 > >
00:01:18 verbose #4847 > > let get_available_port x =
00:01:18 verbose #4848 > > #if !INTERACTIVE
00:01:18 verbose #4849 > > Networking.get_available_port x
00:01:18 verbose #4850 > > #else
00:01:18 verbose #4851 > > get_available_port x
00:01:18 verbose #4852 > > #endif
00:01:18 verbose #4853 > >
00:01:18 verbose #4854 > > module SpiralPlatform =
00:01:18 verbose #4855 > > let get_executable_suffix () =
00:01:18 verbose #4856 > > #if !INTERACTIVE
00:01:18 verbose #4857 > > Platform.g...e.trace_state
00:01:18 verbose #4858 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:18 verbose #4859 > > level.l0 <-
00:01:18 verbose #4860 > > match new_level with
00:01:18 verbose #4861 > > | Trace.US0_0 -> File_system.US0_0
00:01:18 verbose #4862 > > | Trace.US0_1 -> File_system.US0_1
00:01:18 verbose #4863 > > | Trace.US0_2 -> File_system.US0_2
00:01:18 verbose #4864 > > | Trace.US0_3 -> File_system.US0_3
00:01:18 verbose #4865 > > | Trace.US0_4 -> File_system.US0_4
00:01:18 verbose #4866 > > )
00:01:18 verbose #4867 > >
00:01:18 verbose #4868 > > Runtime.State.trace_state
00:01:18 verbose #4869 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:18 verbose #4870 > > level.l0 <-
00:01:18 verbose #4871 > > match new_level with
00:01:18 verbose #4872 > > | Trace.US0_0 -> Runtime.US0_0
00:01:18 verbose #4873 > > | Trace.US0_1 -> Runtime.US0_1
00:01:18 verbose #4874 > > | Trace.US0_2 -> Runtime.US0_2
00:01:18 verbose #4875 > > | Trace.US0_3 -> Runtime.US0_3
00:01:18 verbose #4876 > > | Trace.US0_4 -> Runtime.US0_4
00:01:18 verbose #4877 > > )
00:01:18 verbose #4878 > >
00:01:18 verbose #4879 > > Common.State.trace_state
00:01:18 verbose #4880 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:18 verbose #4881 > > level.l0 <-
00:01:18 verbose #4882 > > match new_level with
00:01:18 verbose #4883 > > | Trace.US0_0 -> Common.US0_0
00:01:18 verbose #4884 > > | Trace.US0_1 -> Common.US0_1
00:01:18 verbose #4885 > > | Trace.US0_2 -> Common.US0_2
00:01:18 verbose #4886 > > | Trace.US0_3 -> Common.US0_3
00:01:18 verbose #4887 > > | Trace.US0_4 -> Common.US0_4
00:01:18 verbose #4888 > > )
00:01:18 verbose #4889 > >
00:01:18 verbose #4890 > > Trace.State.trace_state
00:01:18 verbose #4891 > > #else
00:01:18 verbose #4892 > > State.trace_state
00:01:18 verbose #4893 > > #endif
00:01:18 verbose #4894 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:01:18 verbose #4895 > > level.l0 <- new_level
00:01:18 verbose #4896 > > )
00:01:18 verbose #4897 > >
00:01:18 verbose #4898 > > let get_trace_level () =
00:01:18 verbose #4899 > > #if !INTERACTIVE
00:01:18 verbose #4900 > > Trace.State.trace_state
00:01:18 verbose #4901 > > #else
00:01:18 verbose #4902 > > State.trace_state
00:01:18 verbose #4903 > > #endif
00:01:18 verbose #4904 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:01:18 verbose #4905 > > level.l0
00:01:18 verbose #4906 > > )
00:01:18 verbose #4907 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:01:18 verbose #4908 > > trace_state=None")
00:01:18 verbose #4909 > >
00:01:19 verbose #4910 > >
00:01:19 verbose #4911 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #4912 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:19 verbose #4913 > >
00:01:19 verbose #4914 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #4915 > > //// test
00:01:19 verbose #4916 > >
00:01:19 verbose #4917 > > type AssertExceptionFormatter (ex) =
00:01:19 verbose #4918 > > member _.Text =
00:01:19 verbose #4919 > > ex.ToString()
00:01:19 verbose #4920 > > .Replace("32m", "<span style=\"color: green;\">")
00:01:19 verbose #4921 > > .Replace("36m", "</span>")
00:01:19 verbose #4922 > > .Replace("31m", "<span style=\"color: red;\">")
00:01:19 verbose #4923 > > .Replace("\n", "<br/>\n")
00:01:19 verbose #4924 > >
00:01:19 verbose #4925 > >
00:01:19 verbose #4926 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:19 verbose #4927 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:19 verbose #4928 > >
00:01:19 verbose #4929 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #4930 > > //// test
00:01:19 verbose #4931 > >
00:01:19 verbose #4932 > > let inline __expect fn log expected actual =
00:01:19 verbose #4933 > > if log then printfn $"{actual.ToDisplayString ()}"
00:01:19 verbose #4934 > > try
00:01:19 verbose #4935 > > "Testing.__expect" |> fn actual expected
00:01:19 verbose #4936 > > with :? Expecto.AssertException as ex ->
00:01:19 verbose #4937 > > AssertExceptionFormatter(ex).Display () |> ignore
00:01:19 verbose #4938 > > failwith (ex.GetType().FullName)
00:01:19 verbose #4939 > >
00:01:19 verbose #4940 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:19 verbose #4941 > > expected actual
00:01:19 verbose #4942 > > let inline _contains expected actual = __contains true expected actual
00:01:19 verbose #4943 > >
00:01:19 verbose #4944 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:19 verbose #4945 > > expected actual
00:01:19 verbose #4946 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:19 verbose #4947 > >
00:01:19 verbose #4948 > > let inline __isGreaterThan log expected actual = __expect
00:01:19 verbose #4949 > > Expecto.Expect.isGreaterThan log expected actual
00:01:19 verbose #4950 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:01:19 verbose #4951 > >
00:01:19 verbose #4952 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:01:19 verbose #4953 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:01:19 verbose #4954 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:01:19 verbose #4955 > > expected actual
00:01:19 verbose #4956 > >
00:01:19 verbose #4957 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:01:19 verbose #4958 > > log expected actual
00:01:19 verbose #4959 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:01:19 verbose #4960 > >
00:01:19 verbose #4961 > > let inline __isLessThanOrEqual log expected actual = __expect
00:01:19 verbose #4962 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:01:19 verbose #4963 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:01:19 verbose #4964 > > expected actual
00:01:19 verbose #4965 > >
00:01:19 verbose #4966 > > let inline __sequenceEqual log expected actual = __expect
00:01:19 verbose #4967 > > Expecto.Expect.sequenceEqual log expected actual
00:01:19 verbose #4968 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:01:19 verbose #4969 > >
00:01:19 verbose #4970 > > let inline __stringContains log expected actual = __expect
00:01:19 verbose #4971 > > Expecto.Expect.stringContains log expected actual
00:01:19 verbose #4972 > > let inline _stringContains expected actual = __stringContains true expected
00:01:19 verbose #4973 > > actual
00:01:19 verbose #4974 > >
00:01:19 verbose #4975 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:01:19 verbose #4976 > > log expected actual
00:01:19 verbose #4977 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:01:19 verbose #4978 > >
00:01:19 verbose #4979 > > let inline __stringStarts log expected actual = __expect
00:01:19 verbose #4980 > > Expecto.Expect.stringStarts log expected actual
00:01:19 verbose #4981 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:01:19 verbose #4982 > >
00:01:19 verbose #4983 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:01:19 verbose #4984 > > expected actual
00:01:19 verbose #4985 > > let inline _throwsC expected actual = __throwsC true expected actual
00:01:19 verbose #4986 > >
00:01:19 verbose #4987 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:19 verbose #4988 > > //// test
00:01:19 verbose #4989 > >
00:01:19 verbose #4990 > > let inline __isBetween log a b actual =
00:01:19 verbose #4991 > > let inline isBetween actual (a, b) _ =
00:01:19 verbose #4992 > > __isGreaterThanOrEqual log a actual
00:01:19 verbose #4993 > > __isLessThanOrEqual log b actual
00:01:19 verbose #4994 > > __expect isBetween log (a, b) actual
00:01:19 verbose #4995 > > let inline _isBetween a b actual = __isBetween true a b actual
00:01:19 verbose #4996 > >
00:01:19 verbose #4997 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #4998 > > #if !INTERACTIVE
00:01:19 verbose #4999 > > open Lib
00:01:19 verbose #5000 > > #endif
00:01:19 verbose #5001 > >
00:01:19 verbose #5002 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #5003 > > let nl = System.Environment.NewLine
00:01:19 verbose #5004 > > let q = @""""
00:01:19 verbose #5005 > >
00:01:19 verbose #5006 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #5007 > > let inline cons head tail = head :: tail
00:01:19 verbose #5008 > >
00:01:19 verbose #5009 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 verbose #5010 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 verbose #5011 > > │ ## memoize │
00:01:19 verbose #5012 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #5013 > >
00:01:19 verbose #5014 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #5015 > > let inline memoize fn =
00:01:19 verbose #5016 > > let result = lazy fn ()
00:01:19 verbose #5017 > > fun () -> result.Value
00:01:19 verbose #5018 > >
00:01:19 verbose #5019 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 verbose #5020 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 verbose #5021 > > │ ## TraceLevel │
00:01:19 verbose #5022 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #5023 > >
00:01:19 verbose #5024 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #5025 > > type TraceLevel =
00:01:19 verbose #5026 > > | Verbose
00:01:19 verbose #5027 > > | Debug
00:01:19 verbose #5028 > > | Info
00:01:19 verbose #5029 > > | Warning
00:01:19 verbose #5030 > > | Critical
00:01:19 verbose #5031 > >
00:01:19 verbose #5032 > > let inline _locals () = ""
00:01:19 verbose #5033 > >
00:01:19 verbose #5034 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:19 verbose #5035 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:19 verbose #5036 > > │ ## trace │
00:01:19 verbose #5037 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:19 verbose #5038 > >
00:01:19 verbose #5039 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #5040 > > let to_trace_level = function
00:01:19 verbose #5041 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:19 verbose #5042 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:19 verbose #5043 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:19 verbose #5044 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:19 verbose #5045 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:01:19 verbose #5046 > >
00:01:19 verbose #5047 > > let trace level fn locals =
00:01:19 verbose #5048 > > let level = level |> to_trace_level
00:01:19 verbose #5049 > > SpiralTrace.trace level fn locals
00:01:19 verbose #5050 > >
00:01:19 verbose #5051 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:19 verbose #5052 > > //// test
00:01:19 verbose #5053 > >
00:01:19 verbose #5054 > > trace Debug (fun () -> "test") _locals
00:01:19 verbose #5055 > >
00:01:19 verbose #5056 > > ╭─[ 34.11ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:19 verbose #5057 > > │ 00:00:01 debug #1 test │
00:01:19 verbose #5058 > > │ │
00:01:19 verbose #5059 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:20 verbose #5060 > 00:00:22 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 45434
00:01:20 verbose #5061 > 00:00:22 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:23 verbose #5062 > 00:00:25 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/Common.dib.ipynb to html
00:01:23 verbose #5063 > 00:00:25 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:23 verbose #5064 > 00:00:25 verbose #7 ! validate(nb)
00:01:25 verbose #5065 > 00:00:27 verbose #8 ! [NbConvertApp] Writing 280692 bytes to c:\home\git\polyglot\lib\fsharp\Common.dib.html
00:01:25 verbose #5066 > 00:00:27 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:01:25 verbose #5067 > 00:00:27 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:01:25 verbose #5068 > 00:00:27 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Common.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Common.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:26 verbose #5069 > 00:00:28 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:26 verbose #5070 > 00:00:28 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:27 verbose #5071 > 00:00:29 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 46136
00:01:27 debug #5072 runtime.execute_with_options_async / exit_code: 0 / output.Length: 51191
00:01:27 debug #5 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Common.dib --retries 3
00:01:27 debug #5073 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path CommonFSharp.dib --retries 3",
[||], None, None, true, None)
00:01:27 verbose #5074 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "CommonFSharp.dib", "--retries", "3"])
00:01:27 verbose #5075 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib" --output-path "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:29 verbose #5076 > >
00:01:29 verbose #5077 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:29 verbose #5078 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:29 verbose #5079 > > │ # CommonFSharp (Polyglot) │
00:01:29 verbose #5080 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 verbose #5081 > >
00:01:29 verbose #5082 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:29 verbose #5083 > > #!import ../../lib/fsharp/Notebooks.dib
00:01:29 verbose #5084 > > #!import ../../lib/fsharp/Testing.dib
00:01:29 verbose #5085 > >
00:01:29 verbose #5086 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 verbose #5087 > > #r
00:01:29 verbose #5088 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:29 verbose #5089 > > spNetCore.Html.Abstractions.dll"
00:01:29 verbose #5090 > > #r
00:01:29 verbose #5091 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:29 verbose #5092 > > otNet.Interactive.dll"
00:01:29 verbose #5093 > > #r
00:01:29 verbose #5094 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:29 verbose #5095 > > otNet.Interactive.FSharp.dll"
00:01:29 verbose #5096 > > #r
00:01:29 verbose #5097 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:29 verbose #5098 > > otNet.Interactive.Formatting.dll"
00:01:29 verbose #5099 > > open System
00:01:29 verbose #5100 > > open System.IO
00:01:29 verbose #5101 > > open System.Text
00:01:29 verbose #5102 > > open Microsoft.DotNet.Interactive.Formatting
00:01:33 verbose #5103 > >
00:01:33 verbose #5104 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:33 verbose #5105 > > #r
00:01:33 verbose #5106 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:33 verbose #5107 > > otNet.Interactive.FSharp.dll"
00:01:33 verbose #5108 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:33 verbose #5109 > > #r
00:01:33 verbose #5110 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:33 verbose #5111 > > otNet.Interactive.dll"
00:01:33 verbose #5112 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:34 verbose #5113 > >
00:01:34 verbose #5114 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:34 verbose #5115 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:01:35 verbose #5116 > >
00:01:35 verbose #5117 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:35 verbose #5118 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:01:35 verbose #5119 > > TextWriter)->fprintfn writer "%120A" x)
00:01:35 verbose #5120 > >
00:01:35 verbose #5121 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:35 verbose #5122 > > //// test
00:01:35 verbose #5123 > >
00:01:35 verbose #5124 > > Formatter.ListExpansionLimit <- 100
00:01:35 verbose #5125 > >
00:01:35 verbose #5126 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:35 verbose #5127 > > #if FABLE_COMPILER
00:01:35 verbose #5128 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:35 verbose #5129 > > #endif
00:01:35 verbose #5130 > > type std_env_VarError = class end
00:01:35 verbose #5131 > > #if FABLE_COMPILER
00:01:35 verbose #5132 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:35 verbose #5133 > > #endif
00:01:35 verbose #5134 > > type core_any_Any = class end
00:01:35 verbose #5135 > > #if FABLE_COMPILER
00:01:35 verbose #5136 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:35 verbose #5137 > > #endif
00:01:35 verbose #5138 > > type core_ops_Try<'T> = class end
00:01:35 verbose #5139 > > #if FABLE_COMPILER
00:01:35 verbose #5140 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:35 verbose #5141 > > #endif
00:01:35 verbose #5142 > > type Func0<'T> = class end
00:01:35 verbose #5143 > > #if FABLE_COMPILER
00:01:35 verbose #5144 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:35 verbose #5145 > > #endif
00:01:35 verbose #5146 > > type Func0<'T, 'U> = class end
00:01:35 verbose #5147 > > #if FABLE_COMPILER
00:01:35 verbose #5148 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:35 verbose #5149 > > #endif
00:01:35 verbose #5150 > > type Box<'T> = class end
00:01:35 verbose #5151 > > #if FABLE_COMPILER
00:01:35 verbose #5152 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:35 verbose #5153 > > #endif
00:01:35 verbose #5154 > > type Dyn<'T> = class end
00:01:35 verbose #5155 > > #if FABLE_COMPILER
00:01:35 verbose #5156 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:35 verbose #5157 > > #endif
00:01:35 verbose #5158 > > type Send<'T> = class end
00:01:35 verbose #5159 > > #if FABLE_COMPILER
00:01:35 verbose #5160 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:35 verbose #5161 > > #endif
00:01:35 verbose #5162 > > type Fn<'T> = class end
00:01:35 verbose #5163 > > #if FABLE_COMPILER
00:01:35 verbose #5164 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:35 verbose #5165 > > #endif
00:01:35 verbose #5166 > > type FnUnit = class end
00:01:35 verbose #5167 > > #if FABLE_COMPILER
00:01:35 verbose #5168 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:35 verbose #5169 > > #endif
00:01:35 verbose #5170 > > type FnOnce<'T> = class end
00:01:35 verbose #5171 > > #if FABLE_COMPILER
00:01:35 verbose #5172 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:35 verbose #5173 > > #endif
00:01:35 verbose #5174 > > type ActionFn<'T> = class end
00:01:35 verbose #5175 > > #if FABLE_COMPILER
00:01:35 verbose #5176 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:35 verbose #5177 > > #endif
00:01:35 verbose #5178 > > type ActionFn2<'T, 'U> = class end
00:01:35 verbose #5179 > > #if FABLE_COMPILER
00:01:35 verbose #5180 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:35 verbose #5181 > > #endif
00:01:35 verbose #5182 > > type Impl<'T> = class end
00:01:35 verbose #5183 > > #if FABLE_COMPILER
00:01:35 verbose #5184 > > [[<Fabl... _v5=None"
00:01:35 verbose #5185 > > US5_1
00:01:35 verbose #5186 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:01:35 verbose #5187 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:01:35 verbose #5188 > > let v4 : (US4 -> US5) = closure6()
00:01:35 verbose #5189 > > let v5 : (exn -> US5) = closure7(v2)
00:01:35 verbose #5190 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:01:35 verbose #5191 > > match v6 with
00:01:35 verbose #5192 > > | US5_1 -> (* None *)
00:01:35 verbose #5193 > > let v8 : int32 = v2 + 1
00:01:35 verbose #5194 > > method6(v0, v1, v8)
00:01:35 verbose #5195 > > | US5_0(v7) -> (* Some *)
00:01:35 verbose #5196 > > v7
00:01:35 verbose #5197 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:01:35 verbose #5198 > > let v2 : int32 = 0
00:01:35 verbose #5199 > > let v3 : US4 = method6(v0, v1, v2)
00:01:35 verbose #5200 > > match v3 with
00:01:35 verbose #5201 > > | US4_1 -> (* None *)
00:01:35 verbose #5202 > > let v5 : unit option = None
00:01:35 verbose #5203 > > v5
00:01:35 verbose #5204 > > | US4_0 -> (* Some *)
00:01:35 verbose #5205 > > let v4 : unit option = Some ()
00:01:35 verbose #5206 > > v4
00:01:35 verbose #5207 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:01:35 verbose #5208 > > closure4(v0)
00:01:35 verbose #5209 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:01:35 verbose #5210 > > v0
00:01:35 verbose #5211 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:01:35 verbose #5212 > > v0.Value
00:01:35 verbose #5213 > > ()
00:01:35 verbose #5214 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:01:35 verbose #5215 > > let v1 : (unit -> unit) = method12(v0)
00:01:35 verbose #5216 > > let v2 : Lazy<unit> = lazy v1 ()
00:01:35 verbose #5217 > > closure13(v2)
00:01:35 verbose #5218 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:35 verbose #5219 > > let v1 : US0 = US0_0
00:01:35 verbose #5220 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:35 verbose #5221 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:01:35 verbose #5222 > > let new_disposable x = v2 x
00:01:35 verbose #5223 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:01:35 verbose #5224 > > let retry_fn x = v3 x
00:01:35 verbose #5225 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:01:35 verbose #5226 > > let memoize x = v4 x
00:01:35 verbose #5227 > > ()
00:01:35 verbose #5228 > >
00:01:37 verbose #5229 > >
00:01:37 verbose #5230 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #5231 > > #if FABLE_COMPILER
00:01:37 verbose #5232 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:37 verbose #5233 > > #endif
00:01:37 verbose #5234 > > type core_any_Any = class end
00:01:37 verbose #5235 > > #if FABLE_COMPILER
00:01:37 verbose #5236 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:37 verbose #5237 > > #endif
00:01:37 verbose #5238 > > type core_ops_Try<'T> = class end
00:01:37 verbose #5239 > > #if FABLE_COMPILER
00:01:37 verbose #5240 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:37 verbose #5241 > > #endif
00:01:37 verbose #5242 > > type Func0<'T> = class end
00:01:37 verbose #5243 > > #if FABLE_COMPILER
00:01:37 verbose #5244 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:37 verbose #5245 > > #endif
00:01:37 verbose #5246 > > type Func0<'T, 'U> = class end
00:01:37 verbose #5247 > > #if FABLE_COMPILER
00:01:37 verbose #5248 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:37 verbose #5249 > > #endif
00:01:37 verbose #5250 > > type Box<'T> = class end
00:01:37 verbose #5251 > > #if FABLE_COMPILER
00:01:37 verbose #5252 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:37 verbose #5253 > > #endif
00:01:37 verbose #5254 > > type Dyn<'T> = class end
00:01:37 verbose #5255 > > #if FABLE_COMPILER
00:01:37 verbose #5256 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:37 verbose #5257 > > #endif
00:01:37 verbose #5258 > > type Send<'T> = class end
00:01:37 verbose #5259 > > #if FABLE_COMPILER
00:01:37 verbose #5260 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:37 verbose #5261 > > #endif
00:01:37 verbose #5262 > > type Fn<'T> = class end
00:01:37 verbose #5263 > > #if FABLE_COMPILER
00:01:37 verbose #5264 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:37 verbose #5265 > > #endif
00:01:37 verbose #5266 > > type FnUnit = class end
00:01:37 verbose #5267 > > #if FABLE_COMPILER
00:01:37 verbose #5268 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:37 verbose #5269 > > #endif
00:01:37 verbose #5270 > > type FnOnce<'T> = class end
00:01:37 verbose #5271 > > #if FABLE_COMPILER
00:01:37 verbose #5272 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:37 verbose #5273 > > #endif
00:01:37 verbose #5274 > > type ActionFn<'T> = class end
00:01:37 verbose #5275 > > #if FABLE_COMPILER
00:01:37 verbose #5276 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:37 verbose #5277 > > #endif
00:01:37 verbose #5278 > > type ActionFn2<'T, 'U> = class end
00:01:37 verbose #5279 > > #if FABLE_COMPILER
00:01:37 verbose #5280 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:37 verbose #5281 > > #endif
00:01:37 verbose #5282 > > type Impl<'T> = class end
00:01:37 verbose #5283 > > #if FABLE_COMPILER
00:01:37 verbose #5284 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:37 verbose #5285 > > #endif
00:01:37 verbose #5286 > > type Mut<'T> = class end
00:01:37 verbose #5287 > > #if FABLE_COMPILER
00:01:37 verbose #5288 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:01:37 verbose #5289 > > let replace x = v4 x
00:01:37 verbose #5290 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:01:37 verbose #5291 > > let replace_regex x = v5 x
00:01:37 verbose #5292 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:01:37 verbose #5293 > > let slice x = v6 x
00:01:37 verbose #5294 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:01:37 verbose #5295 > > let split x = v7 x
00:01:37 verbose #5296 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:01:37 verbose #5297 > > let split_string x = v8 x
00:01:37 verbose #5298 > > let v9 : (string -> (string -> bool)) = closure23()
00:01:37 verbose #5299 > > let starts_with x = v9 x
00:01:37 verbose #5300 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:01:37 verbose #5301 > > let substring x = v10 x
00:01:37 verbose #5302 > > let v11 : (string -> string) = closure28()
00:01:37 verbose #5303 > > let to_lower x = v11 x
00:01:37 verbose #5304 > > let v12 : (string -> string) = closure29()
00:01:37 verbose #5305 > > let to_upper x = v12 x
00:01:37 verbose #5306 > > let v13 : (string -> string) = closure30()
00:01:37 verbose #5307 > > let trim x = v13 x
00:01:37 verbose #5308 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:01:37 verbose #5309 > > let trim_end x = v14 x
00:01:37 verbose #5310 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:01:37 verbose #5311 > > let trim_start x = v15 x
00:01:37 verbose #5312 > > let v16 : (int32 -> (string -> string)) = closure35()
00:01:37 verbose #5313 > > let ellipsis x = v16 x
00:01:37 verbose #5314 > > let v17 : (int64 -> (string -> string)) = closure37()
00:01:37 verbose #5315 > > let ellipsis_end x = v17 x
00:01:37 verbose #5316 > > let v18 : (exn -> string) = closure39()
00:01:37 verbose #5317 > > let format_exception x = v18 x
00:01:37 verbose #5318 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:01:37 verbose #5319 > > let concat_array_trailing x = v19 x
00:01:37 verbose #5320 > > let v20 : (string -> (string seq -> string)) = closure42()
00:01:37 verbose #5321 > > let concat x = v20 x
00:01:37 verbose #5322 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:01:37 verbose #5323 > > let join' x = v21 x
00:01:37 verbose #5324 > > let v22 : (string -> (char [[]])) = closure46()
00:01:37 verbose #5325 > > let to_char_array x = v22 x
00:01:37 verbose #5326 > > ()
00:01:37 verbose #5327 > >
00:01:37 verbose #5328 > >
00:01:37 verbose #5329 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:37 verbose #5330 > > #if FABLE_COMPILER
00:01:37 verbose #5331 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:37 verbose #5332 > > #endif
00:01:37 verbose #5333 > > type core_any_Any = class end
00:01:37 verbose #5334 > > #if FABLE_COMPILER
00:01:37 verbose #5335 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:37 verbose #5336 > > #endif
00:01:37 verbose #5337 > > type core_ops_Try<'T> = class end
00:01:37 verbose #5338 > > #if FABLE_COMPILER
00:01:37 verbose #5339 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:37 verbose #5340 > > #endif
00:01:37 verbose #5341 > > type Func0<'T> = class end
00:01:37 verbose #5342 > > #if FABLE_COMPILER
00:01:37 verbose #5343 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:37 verbose #5344 > > #endif
00:01:37 verbose #5345 > > type Func0<'T, 'U> = class end
00:01:37 verbose #5346 > > #if FABLE_COMPILER
00:01:37 verbose #5347 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:37 verbose #5348 > > #endif
00:01:37 verbose #5349 > > type Box<'T> = class end
00:01:37 verbose #5350 > > #if FABLE_COMPILER
00:01:37 verbose #5351 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:37 verbose #5352 > > #endif
00:01:37 verbose #5353 > > type Dyn<'T> = class end
00:01:37 verbose #5354 > > #if FABLE_COMPILER
00:01:37 verbose #5355 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:37 verbose #5356 > > #endif
00:01:37 verbose #5357 > > type Send<'T> = class end
00:01:37 verbose #5358 > > #if FABLE_COMPILER
00:01:37 verbose #5359 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:37 verbose #5360 > > #endif
00:01:37 verbose #5361 > > type Fn<'T> = class end
00:01:37 verbose #5362 > > #if FABLE_COMPILER
00:01:37 verbose #5363 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:37 verbose #5364 > > #endif
00:01:37 verbose #5365 > > type FnUnit = class end
00:01:37 verbose #5366 > > #if FABLE_COMPILER
00:01:37 verbose #5367 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:37 verbose #5368 > > #endif
00:01:37 verbose #5369 > > type FnOnce<'T> = class end
00:01:37 verbose #5370 > > #if FABLE_COMPILER
00:01:37 verbose #5371 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:37 verbose #5372 > > #endif
00:01:37 verbose #5373 > > type ActionFn<'T> = class end
00:01:37 verbose #5374 > > #if FABLE_COMPILER
00:01:37 verbose #5375 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:37 verbose #5376 > > #endif
00:01:37 verbose #5377 > > type ActionFn2<'T, 'U> = class end
00:01:37 verbose #5378 > > #if FABLE_COMPILER
00:01:37 verbose #5379 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:37 verbose #5380 > > #endif
00:01:37 verbose #5381 > > type Impl<'T> = class end
00:01:37 verbose #5382 > > #if FABLE_COMPILER
00:01:37 verbose #5383 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:37 verbose #5384 > > #endif
00:01:37 verbose #5385 > > type Mut<'T> = class end
00:01:37 verbose #5386 > > #if FABLE_COMPILER
00:01:37 verbose #5387 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:01:37 verbose #5388 > > ()
00:01:37 verbose #5389 > > #endif
00:01:37 verbose #5390 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:37 verbose #5391 > > let v28 : string = @"println!(""{}"", $0)"
00:01:37 verbose #5392 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:37 verbose #5393 > > ()
00:01:37 verbose #5394 > > #endif
00:01:37 verbose #5395 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:37 verbose #5396 > > System.Console.WriteLine v24
00:01:37 verbose #5397 > > ()
00:01:37 verbose #5398 > > #endif
00:01:37 verbose #5399 > > #if FABLE_COMPILER_PYTHON
00:01:37 verbose #5400 > > System.Console.WriteLine v24
00:01:37 verbose #5401 > > ()
00:01:37 verbose #5402 > > #endif
00:01:37 verbose #5403 > > #else
00:01:37 verbose #5404 > > System.Console.WriteLine v24
00:01:37 verbose #5405 > > ()
00:01:37 verbose #5406 > > #endif
00:01:37 verbose #5407 > > |> fun x -> _v25 <- Some x
00:01:37 verbose #5408 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:37 verbose #5409 > > _v25=None"
00:01:37 verbose #5410 > > let v29 : (string -> unit) = v8.l0
00:01:37 verbose #5411 > > v29 v24
00:01:37 verbose #5412 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:37 verbose #5413 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:37 verbose #5414 > > method11(v0, v3)
00:01:37 verbose #5415 > > and closure1 () (v0 : string) : uint16 =
00:01:37 verbose #5416 > > let v1 : char = v0.[[int 0]]
00:01:37 verbose #5417 > > let v2 : (char -> int32) = int32
00:01:37 verbose #5418 > > let v3 : int32 = v2 v1
00:01:37 verbose #5419 > > let v4 : string = v0.[[int 0..int 7]]
00:01:37 verbose #5420 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:01:37 verbose #5421 > > let v6 : int32 = v5 + v3
00:01:37 verbose #5422 > > let v7 : (int32 -> uint16) = uint16
00:01:37 verbose #5423 > > let v8 : uint16 = v7 v6
00:01:37 verbose #5424 > > let v9 : US0 = US0_0
00:01:37 verbose #5425 > > let v10 : (unit -> string) = closure2()
00:01:37 verbose #5426 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:01:37 verbose #5427 > > method3(v9, v10, v11)
00:01:37 verbose #5428 > > let v12 : uint16 = v8 % 48128us
00:01:37 verbose #5429 > > let v13 : uint16 = v12 + 1024us
00:01:37 verbose #5430 > > v13
00:01:37 verbose #5431 > > let v0 : (string -> string) = closure0()
00:01:37 verbose #5432 > > let hash_text x = v0 x
00:01:37 verbose #5433 > > let v1 : (string -> uint16) = closure1()
00:01:37 verbose #5434 > > let hash_to_port x = v1 x
00:01:37 verbose #5435 > > ()
00:01:37 verbose #5436 > >
00:01:38 verbose #5437 > >
00:01:38 verbose #5438 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:38 verbose #5439 > > #if FABLE_COMPILER
00:01:38 verbose #5440 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:38 verbose #5441 > > #endif
00:01:38 verbose #5442 > > type core_any_Any = class end
00:01:38 verbose #5443 > > #if FABLE_COMPILER
00:01:38 verbose #5444 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:38 verbose #5445 > > #endif
00:01:38 verbose #5446 > > type core_ops_Try<'T> = class end
00:01:38 verbose #5447 > > #if FABLE_COMPILER
00:01:38 verbose #5448 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:38 verbose #5449 > > #endif
00:01:38 verbose #5450 > > type Func0<'T> = class end
00:01:38 verbose #5451 > > #if FABLE_COMPILER
00:01:38 verbose #5452 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:38 verbose #5453 > > #endif
00:01:38 verbose #5454 > > type Func0<'T, 'U> = class end
00:01:38 verbose #5455 > > #if FABLE_COMPILER
00:01:38 verbose #5456 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:38 verbose #5457 > > #endif
00:01:38 verbose #5458 > > type Box<'T> = class end
00:01:38 verbose #5459 > > #if FABLE_COMPILER
00:01:38 verbose #5460 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:38 verbose #5461 > > #endif
00:01:38 verbose #5462 > > type Dyn<'T> = class end
00:01:38 verbose #5463 > > #if FABLE_COMPILER
00:01:38 verbose #5464 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:38 verbose #5465 > > #endif
00:01:38 verbose #5466 > > type Send<'T> = class end
00:01:38 verbose #5467 > > #if FABLE_COMPILER
00:01:38 verbose #5468 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:38 verbose #5469 > > #endif
00:01:38 verbose #5470 > > type Fn<'T> = class end
00:01:38 verbose #5471 > > #if FABLE_COMPILER
00:01:38 verbose #5472 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:38 verbose #5473 > > #endif
00:01:38 verbose #5474 > > type FnUnit = class end
00:01:38 verbose #5475 > > #if FABLE_COMPILER
00:01:38 verbose #5476 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:38 verbose #5477 > > #endif
00:01:38 verbose #5478 > > type FnOnce<'T> = class end
00:01:38 verbose #5479 > > #if FABLE_COMPILER
00:01:38 verbose #5480 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:38 verbose #5481 > > #endif
00:01:38 verbose #5482 > > type ActionFn<'T> = class end
00:01:38 verbose #5483 > > #if FABLE_COMPILER
00:01:38 verbose #5484 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:38 verbose #5485 > > #endif
00:01:38 verbose #5486 > > type ActionFn2<'T, 'U> = class end
00:01:38 verbose #5487 > > #if FABLE_COMPILER
00:01:38 verbose #5488 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:38 verbose #5489 > > #endif
00:01:38 verbose #5490 > > type Impl<'T> = class end
00:01:38 verbose #5491 > > #if FABLE_COMPILER
00:01:38 verbose #5492 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:38 verbose #5493 > > #endif
00:01:38 verbose #5494 > > type Mut<'T> = class end
00:01:38 verbose #5495 > > #if FABLE_COMPILER
00:01:38 verbose #5496 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:01:38 verbose #5497 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:01:38 verbose #5498 > > let v2 : System.Guid = v1 ()
00:01:38 verbose #5499 > > let v3 : (System.Guid -> string) = _.ToString()
00:01:38 verbose #5500 > > let v4 : string = v3 v2
00:01:38 verbose #5501 > > let v5 : (int64 -> string) = _.ToString()
00:01:38 verbose #5502 > > let v6 : string = v5 v0
00:01:38 verbose #5503 > > let v7 : string = v6.PadLeft (18, '0')
00:01:38 verbose #5504 > > let v8 : System.Guid = System.Guid
00:01:38 verbose #5505 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:01:38 verbose #5506 > > v8
00:01:38 verbose #5507 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:01:38 verbose #5508 > > let v2 : (string -> string) = v1.ToString
00:01:38 verbose #5509 > > v2 v0
00:01:38 verbose #5510 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:01:38 verbose #5511 > > closure12(v0)
00:01:38 verbose #5512 > > and closure13 () (v0 : System.DateTime) : string =
00:01:38 verbose #5513 > > let v1 : (string -> string) = v0.ToString
00:01:38 verbose #5514 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:01:38 verbose #5515 > > v1 v2
00:01:38 verbose #5516 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:01:38 verbose #5517 > > let date_time_guid_from_date_time x = v0 x
00:01:38 verbose #5518 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:01:38 verbose #5519 > > let date_time_from_guid x = v1 x
00:01:38 verbose #5520 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:01:38 verbose #5521 > > let timestamp_guid_from_timestamp x = v2 x
00:01:38 verbose #5522 > > let v3 : (System.Guid -> int64) = closure8()
00:01:38 verbose #5523 > > let timestamp_from_guid x = v3 x
00:01:38 verbose #5524 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:01:38 verbose #5525 > > let new_guid_from_date_time x = v4 x
00:01:38 verbose #5526 > > let v5 : (int64 -> System.Guid) = closure10()
00:01:38 verbose #5527 > > let new_guid_from_timestamp x = v5 x
00:01:38 verbose #5528 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:01:38 verbose #5529 > > let format x = v6 x
00:01:38 verbose #5530 > > let v7 : (System.DateTime -> string) = closure13()
00:01:38 verbose #5531 > > let format_iso8601 x = v7 x
00:01:38 verbose #5532 > > ()
00:01:38 verbose #5533 > >
00:01:38 verbose #5534 > >
00:01:38 verbose #5535 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:38 verbose #5536 > > #if FABLE_COMPILER
00:01:38 verbose #5537 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:01:38 verbose #5538 > > #endif
00:01:38 verbose #5539 > > type futures_future_JoinAll<'T> = class end
00:01:38 verbose #5540 > > #if FABLE_COMPILER
00:01:38 verbose #5541 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:01:38 verbose #5542 > > #endif
00:01:38 verbose #5543 > > type futures_future_TryJoinAll<'T> = class end
00:01:38 verbose #5544 > > #if FABLE_COMPILER
00:01:38 verbose #5545 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:01:38 verbose #5546 > > #endif
00:01:38 verbose #5547 > > type rayon_iter_Map<'T> = class end
00:01:38 verbose #5548 > > #if FABLE_COMPILER
00:01:38 verbose #5549 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:01:38 verbose #5550 > > #endif
00:01:38 verbose #5551 > > type rayon_vec_IntoIter<'T> = class end
00:01:38 verbose #5552 > > #if FABLE_COMPILER
00:01:38 verbose #5553 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:01:38 verbose #5554 > > #endif
00:01:38 verbose #5555 > > type std_future_Future<'T> = class end
00:01:38 verbose #5556 > > #if FABLE_COMPILER
00:01:38 verbose #5557 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:01:38 verbose #5558 > > #endif
00:01:38 verbose #5559 > > type futures_future_Fuse<'T> = class end
00:01:38 verbose #5560 > > #if FABLE_COMPILER
00:01:38 verbose #5561 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:01:38 verbose #5562 > > #endif
00:01:38 verbose #5563 > > type tokio_task_JoinHandle<'T> = class end
00:01:38 verbose #5564 > > #if FABLE_COMPILER
00:01:38 verbose #5565 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:01:38 verbose #5566 > > #endif
00:01:38 verbose #5567 > > type tokio_stream_StreamExt = class end
00:01:38 verbose #5568 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:38 verbose #5569 > > Async<System.Threading.CancellationToken> =
00:01:38 verbose #5570 > > let v1 : bool = true
00:01:38 verbose #5571 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:01:38 verbose #5572 > >
00:01:38 verbose #5573 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:38 verbose #5574 > >
00:01:38 verbose #5575 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:38 verbose #5576 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:38 verbose #5577 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:01:38 verbose #5578 > > v12
00:01:38 verbose #5579 > > #endif
00:01:38 verbose #5580 > > #else
00:01:38 verbose #5581 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:01:38 verbose #5582 > > let mutable _v13 = v13
00:01:38 verbose #5583 > > async {
00:01:38 verbose #5584 > > let v14 : Async<System.Threading.CancellationToken> =
00:01:38 verbose #5585 > > Async.CancellationToken
00:01:38 verbose #5586 > > let! v14 = v14
00:01:38 verbose #5587 > > let v15 : System.Threading.CancellationToken = v14
00:01:38 verbose #5588 > > let v16 : System.Threading.CancellationToken =
00:01:38 verbose #5589 > > Async.DefaultCancellationToken
00:01:38 verbose #5590 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:01:38 verbose #5591 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:01:38 verbose #5592 > > System.Threading.CancellationTokenSource) =
00:01:38 verbose #5593 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:01:38 verbose #5594 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:01:38 verbose #5595 > > let v20 : System.Threading.CancellationToken = v19.Token
00:01:38 verbose #5596 > > return v20
00:01:38 verbose #5597 > > }
00:01:38 verbose #5598 > > |> fun x -> _v13 <- Some x
00:01:38 verbose #5599 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:01:38 verbose #5600 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:01:38 verbose #5601 > > v21
00:01:38 verbose #5602 > > #endif
00:01:38 verbose #5603 > > |> fun x -> _v7 <- Some x
00:01:38 verbose #5604 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:01:38 verbose #5605 > > -> x | None -> failwith "base.run_target / _v7=None"
00:01:38 verbose #5606 > > v22
00:01:38 verbose #5607 > > #endif
00:01:38 verbose #5608 > > |> fun x -> _v1 <- Some x
00:01:38 verbose #5609 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:01:38 verbose #5610 > > -> x | None -> failwith "base.run_target / _v1=None"
00:01:38 verbose #5611 > > v23
00:01:38 verbose #5612 > > let v0 : (System.Threading.CancellationToken ->
00:01:38 verbose #5613 > > Async<System.Threading.CancellationToken>) = closure0()
00:01:38 verbose #5614 > > let merge_cancellation_token_with_default_async x = v0 x
00:01:38 verbose #5615 > > ()
00:01:38 verbose #5616 > >
00:01:39 verbose #5617 > >
00:01:39 verbose #5618 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:39 verbose #5619 > > #if FABLE_COMPILER
00:01:39 verbose #5620 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:01:39 verbose #5621 > > #endif
00:01:39 verbose #5622 > > type std_thread_JoinHandle<'T> = class end
00:01:39 verbose #5623 > > #if FABLE_COMPILER
00:01:39 verbose #5624 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:01:39 verbose #5625 > > #endif
00:01:39 verbose #5626 > > type std_sync_Arc<'T> = class end
00:01:39 verbose #5627 > > #if FABLE_COMPILER
00:01:39 verbose #5628 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:01:39 verbose #5629 > > #endif
00:01:39 verbose #5630 > > type std_sync_Mutex<'T> = class end
00:01:39 verbose #5631 > > #if FABLE_COMPILER
00:01:39 verbose #5632 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:01:39 verbose #5633 > > #endif
00:01:39 verbose #5634 > > type std_sync_MutexGuard<'T> = class end
00:01:39 verbose #5635 > > #if FABLE_COMPILER
00:01:39 verbose #5636 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:01:39 verbose #5637 > > #endif
00:01:39 verbose #5638 > > type std_sync_PoisonError<'T> = class end
00:01:39 verbose #5639 > > #if FABLE_COMPILER
00:01:39 verbose #5640 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:01:39 verbose #5641 > > #endif
00:01:39 verbose #5642 > > type std_sync_mpsc_Receiver<'T> = class end
00:01:39 verbose #5643 > > #if FABLE_COMPILER
00:01:39 verbose #5644 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:01:39 verbose #5645 > > #endif
00:01:39 verbose #5646 > > type std_sync_mpsc_SendError<'T> = class end
00:01:39 verbose #5647 > > #if FABLE_COMPILER
00:01:39 verbose #5648 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:01:39 verbose #5649 > > #endif
00:01:39 verbose #5650 > > type std_sync_mpsc_Sender<'T> = class end
00:01:39 verbose #5651 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:01:39 verbose #5652 > > _.Dispose () = f ()
00:01:39 verbose #5653 > > type [[<Struct>]] US0 =
00:01:39 verbose #5654 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:01:39 verbose #5655 > > | US0_1
00:01:39 verbose #5656 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:01:39 verbose #5657 > > let v1 : bool = true
00:01:39 verbose #5658 > > let mutable _v1 : unit option = None
00:01:39 verbose #5659 > >
00:01:39 verbose #5660 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:39 verbose #5661 > >
00:01:39 verbose #5662 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:01:39 verbose #5663 > > "$0()" )
00:01:39 verbose #5664 > > v28
00:01:39 verbose #5665 > > #endif
00:01:39 verbose #5666 > > #if FABLE_COMPILER_RUST && WASM
00:01:39 verbose #5667 > > let v29 : (unit -> unit) = method0(v25)
00:01:39 verbose #5668 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:01:39 verbose #5669 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:01:39 verbose #5670 > > v30
00:01:39 verbose #5671 > > #endif
00:01:39 verbose #5672 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:39 verbose #5673 > > let v31 : (unit -> unit) = method0(v25)
00:01:39 verbose #5674 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:01:39 verbose #5675 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:01:39 verbose #5676 > > v32
00:01:39 verbose #5677 > > #endif
00:01:39 verbose #5678 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:39 verbose #5679 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:39 verbose #5680 > > v33
00:01:39 verbose #5681 > > #endif
00:01:39 verbose #5682 > > #if FABLE_COMPILER_PYTHON
00:01:39 verbose #5683 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:39 verbose #5684 > > v34
00:01:39 verbose #5685 > > #endif
00:01:39 verbose #5686 > > #else
00:01:39 verbose #5687 > > let v35 : (unit -> unit) = method1(v25)
00:01:39 verbose #5688 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:01:39 verbose #5689 > > _.Dispose () = v35 () }
00:01:39 verbose #5690 > > v36
00:01:39 verbose #5691 > > #endif
00:01:39 verbose #5692 > > |> fun x -> _v26 <- Some x
00:01:39 verbose #5693 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:01:39 verbose #5694 > > failwith "base.run_target / _v26=None"
00:01:39 verbose #5695 > > let v38 : System.Threading.CancellationToken = v25.Token
00:01:39 verbose #5696 > > struct (v38, v37)
00:01:39 verbose #5697 > > #endif
00:01:39 verbose #5698 > > |> fun x -> _v1 <- Some x
00:01:39 verbose #5699 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:01:39 verbose #5700 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:01:39 verbose #5701 > > "base.run_target / _v1=None"
00:01:39 verbose #5702 > > struct (v39, v40)
00:01:39 verbose #5703 > > let v0 : (System.Threading.CancellationToken option -> struct
00:01:39 verbose #5704 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:01:39 verbose #5705 > > let new_disposable_token x = v0 x
00:01:39 verbose #5706 > > ()
00:01:39 verbose #5707 > >
00:01:39 verbose #5708 > >
00:01:39 verbose #5709 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:39 verbose #5710 > > #if FABLE_COMPILER
00:01:39 verbose #5711 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:01:39 verbose #5712 > > #endif
00:01:39 verbose #5713 > > type reqwest_Error = class end
00:01:39 verbose #5714 > > #if FABLE_COMPILER
00:01:39 verbose #5715 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:01:39 verbose #5716 > > #endif
00:01:39 verbose #5717 > > type reqwest_RequestBuilder = class end
00:01:39 verbose #5718 > > #if FABLE_COMPILER
00:01:39 verbose #5719 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:01:39 verbose #5720 > > #endif
00:01:39 verbose #5721 > > type reqwest_Response = class end
00:01:39 verbose #5722 > > #if FABLE_COMPILER
00:01:39 verbose #5723 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:01:39 verbose #5724 > > #endif
00:01:39 verbose #5725 > > type std_env_VarError = class end
00:01:39 verbose #5726 > > #if FABLE_COMPILER
00:01:39 verbose #5727 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:39 verbose #5728 > > #endif
00:01:39 verbose #5729 > > type core_any_Any = class end
00:01:39 verbose #5730 > > #if FABLE_COMPILER
00:01:39 verbose #5731 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:39 verbose #5732 > > #endif
00:01:39 verbose #5733 > > type core_ops_Try<'T> = class end
00:01:39 verbose #5734 > > #if FABLE_COMPILER
00:01:39 verbose #5735 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:39 verbose #5736 > > #endif
00:01:39 verbose #5737 > > type Func0<'T> = class end
00:01:39 verbose #5738 > > #if FABLE_COMPILER
00:01:39 verbose #5739 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:39 verbose #5740 > > #endif
00:01:39 verbose #5741 > > type Func0<'T, 'U> = class end
00:01:39 verbose #5742 > > #if FABLE_COMPILER
00:01:39 verbose #5743 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:39 verbose #5744 > > #endif
00:01:39 verbose #5745 > > type Box<'T> = class end
00:01:39 verbose #5746 > > #if FABLE_COMPILER
00:01:39 verbose #5747 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:39 verbose #5748 > > #endif
00:01:39 verbose #5749 > > type Dyn<'T> = class end
00:01:39 verbose #5750 > > #if FABLE_COMPILER
00:01:39 verbose #5751 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:39 verbose #5752 > > #endif
00:01:39 verbose #5753 > > type Send<'T> = class end
00:01:39 verbose #5754 > > #if FABLE_COMPILER
00:01:39 verbose #5755 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:39 verbose #5756 > > #endif
00:01:39 verbose #5757 > > type Fn<'T> = class end
00:01:39 verbose #5758 > > #if FABLE_COMPILER
00:01:39 verbose #5759 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:39 verbose #5760 > > #endif
00:01:39 verbose #5761 > > type FnUnit = class end
00:01:39 verbose #5762 > > #if FABLE_COMPILER
00:01:39 verbose #5763 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:39 verbose #5764 > > ... v212 = v212
00:01:39 verbose #5765 > > let v213 : bool = v212
00:01:39 verbose #5766 > > let v214 : bool = v213 = false
00:01:39 verbose #5767 > > if v214 then
00:01:39 verbose #5768 > > return v2
00:01:39 verbose #5769 > > (*
00:01:39 verbose #5770 > > ()
00:01:39 verbose #5771 > > else
00:01:39 verbose #5772 > > *) else
00:01:39 verbose #5773 > > let v215 : int32 = v2 + 1
00:01:39 verbose #5774 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:01:39 verbose #5775 > > return! v216
00:01:39 verbose #5776 > > (*
00:01:39 verbose #5777 > > ()
00:01:39 verbose #5778 > > *)
00:01:39 verbose #5779 > > }
00:01:39 verbose #5780 > > |> fun x -> _v9 <- Some x
00:01:39 verbose #5781 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:01:39 verbose #5782 > > "async.new_async_unit / _v9=None"
00:01:39 verbose #5783 > > v217
00:01:39 verbose #5784 > > #endif
00:01:39 verbose #5785 > > |> fun x -> _v3 <- Some x
00:01:39 verbose #5786 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:01:39 verbose #5787 > > "base.run_target / _v3=None"
00:01:39 verbose #5788 > > v218
00:01:39 verbose #5789 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:01:39 verbose #5790 > > method10(v0, v1, v2)
00:01:39 verbose #5791 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:01:39 verbose #5792 > > closure23(v0, v1)
00:01:39 verbose #5793 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:01:39 verbose #5794 > > closure22(v0)
00:01:39 verbose #5795 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:39 verbose #5796 > > let v1 : US0 = US0_0
00:01:39 verbose #5797 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:39 verbose #5798 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:01:39 verbose #5799 > > let test_port_open x = v2 x
00:01:39 verbose #5800 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:01:39 verbose #5801 > > let test_port_open_timeout x = v3 x
00:01:39 verbose #5802 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:01:39 verbose #5803 > > closure15()
00:01:39 verbose #5804 > > let wait_for_port_access x = v4 x
00:01:39 verbose #5805 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:01:39 verbose #5806 > > let get_available_port x = v5 x
00:01:39 verbose #5807 > > ()
00:01:39 verbose #5808 > >
00:01:41 verbose #5809 > >
00:01:41 verbose #5810 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:41 verbose #5811 > > type [[<Struct>]] US0 =
00:01:41 verbose #5812 > > | US0_0
00:01:41 verbose #5813 > > | US0_1
00:01:41 verbose #5814 > > | US0_2
00:01:41 verbose #5815 > > and [[<Struct>]] US1 =
00:01:41 verbose #5816 > > | US1_0 of f0_0 : US0
00:01:41 verbose #5817 > > | US1_1 of f1_0 : US0
00:01:41 verbose #5818 > > | US1_2 of f2_0 : US0
00:01:41 verbose #5819 > > | US1_3 of f3_0 : US0
00:01:41 verbose #5820 > > | US1_4 of f4_0 : US0
00:01:41 verbose #5821 > > let rec closure0 () () : bool =
00:01:41 verbose #5822 > > let v0 : bool = true
00:01:41 verbose #5823 > > let mutable _v0 : bool option = None
00:01:41 verbose #5824 > >
00:01:41 verbose #5825 > > #if FABLE_COMPILER || WASM || CONTRACT
00:01:41 verbose #5826 > >
00:01:41 verbose #5827 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:41 verbose #5828 > > let v1 : string = "cfg!(windows)"
00:01:41 verbose #5829 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:41 verbose #5830 > > v2
00:01:41 verbose #5831 > > #endif
00:01:41 verbose #5832 > > #if FABLE_COMPILER_RUST && WASM
00:01:41 verbose #5833 > > let v3 : string = "cfg!(windows)"
00:01:41 verbose #5834 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:41 verbose #5835 > > v4
00:01:41 verbose #5836 > > #endif
00:01:41 verbose #5837 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:41 verbose #5838 > > let v5 : string = "cfg!(windows)"
00:01:41 verbose #5839 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:41 verbose #5840 > > v6
00:01:41 verbose #5841 > > #endif
00:01:41 verbose #5842 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:41 verbose #5843 > > let v7 : US0 = US0_0
00:01:41 verbose #5844 > > let v8 : US1 = US1_3(v7)
00:01:41 verbose #5845 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:41 verbose #5846 > > let v10 : bool = failwith<bool> v9
00:01:41 verbose #5847 > > v10
00:01:41 verbose #5848 > > #endif
00:01:41 verbose #5849 > > #if FABLE_COMPILER_PYTHON
00:01:41 verbose #5850 > > let v11 : US0 = US0_0
00:01:41 verbose #5851 > > let v12 : US1 = US1_4(v11)
00:01:41 verbose #5852 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:41 verbose #5853 > > let v14 : bool = failwith<bool> v13
00:01:41 verbose #5854 > > v14
00:01:41 verbose #5855 > > #endif
00:01:41 verbose #5856 > > #else
00:01:41 verbose #5857 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:41 verbose #5858 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:41 verbose #5859 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:41 verbose #5860 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:41 verbose #5861 > > let v17 : b...: string = "cfg!(windows)"
00:01:41 verbose #5862 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:01:41 verbose #5863 > > v2
00:01:41 verbose #5864 > > #endif
00:01:41 verbose #5865 > > #if FABLE_COMPILER_RUST && WASM
00:01:41 verbose #5866 > > let v3 : string = "cfg!(windows)"
00:01:41 verbose #5867 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:01:41 verbose #5868 > > v4
00:01:41 verbose #5869 > > #endif
00:01:41 verbose #5870 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:41 verbose #5871 > > let v5 : string = "cfg!(windows)"
00:01:41 verbose #5872 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:01:41 verbose #5873 > > v6
00:01:41 verbose #5874 > > #endif
00:01:41 verbose #5875 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:41 verbose #5876 > > let v7 : US0 = US0_0
00:01:41 verbose #5877 > > let v8 : US1 = US1_3(v7)
00:01:41 verbose #5878 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:01:41 verbose #5879 > > let v10 : bool = failwith<bool> v9
00:01:41 verbose #5880 > > v10
00:01:41 verbose #5881 > > #endif
00:01:41 verbose #5882 > > #if FABLE_COMPILER_PYTHON
00:01:41 verbose #5883 > > let v11 : US0 = US0_0
00:01:41 verbose #5884 > > let v12 : US1 = US1_4(v11)
00:01:41 verbose #5885 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:01:41 verbose #5886 > > let v14 : bool = failwith<bool> v13
00:01:41 verbose #5887 > > v14
00:01:41 verbose #5888 > > #endif
00:01:41 verbose #5889 > > #else
00:01:41 verbose #5890 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:01:41 verbose #5891 > > System.Runtime.InteropServices.OSPlatform.Windows
00:01:41 verbose #5892 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:41 verbose #5893 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:41 verbose #5894 > > let v17 : bool = v16 v15
00:01:41 verbose #5895 > > v17
00:01:41 verbose #5896 > > #endif
00:01:41 verbose #5897 > > |> fun x -> _v0 <- Some x
00:01:41 verbose #5898 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:01:41 verbose #5899 > > "base.run_target / _v0=None"
00:01:41 verbose #5900 > > if v18 then
00:01:41 verbose #5901 > > let v19 : string = ".exe"
00:01:41 verbose #5902 > > v19
00:01:41 verbose #5903 > > else
00:01:41 verbose #5904 > > let v20 : string = ""
00:01:41 verbose #5905 > > v20
00:01:41 verbose #5906 > > let v0 : (unit -> bool) = closure0()
00:01:41 verbose #5907 > > let is_windows () = v0 ()
00:01:41 verbose #5908 > > let v1 : (unit -> string) = closure1()
00:01:41 verbose #5909 > > let get_executable_suffix () = v1 ()
00:01:41 verbose #5910 > > ()
00:01:41 verbose #5911 > >
00:01:41 verbose #5912 > >
00:01:41 verbose #5913 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:41 verbose #5914 > > #if FABLE_COMPILER
00:01:41 verbose #5915 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:01:41 verbose #5916 > > #endif
00:01:41 verbose #5917 > > type clap_Arg = class end
00:01:41 verbose #5918 > > #if FABLE_COMPILER
00:01:41 verbose #5919 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:01:41 verbose #5920 > > #endif
00:01:41 verbose #5921 > > type clap_ArgAction = class end
00:01:41 verbose #5922 > > #if FABLE_COMPILER
00:01:41 verbose #5923 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:01:41 verbose #5924 > > #endif
00:01:41 verbose #5925 > > type clap_Command = class end
00:01:41 verbose #5926 > > #if FABLE_COMPILER
00:01:41 verbose #5927 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:01:41 verbose #5928 > > #endif
00:01:41 verbose #5929 > > type clap_ArgMatches = class end
00:01:41 verbose #5930 > > #if FABLE_COMPILER
00:01:41 verbose #5931 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:01:41 verbose #5932 > > #endif
00:01:41 verbose #5933 > > type clap_builder_ValueRange = class end
00:01:41 verbose #5934 > > #if FABLE_COMPILER
00:01:41 verbose #5935 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:01:41 verbose #5936 > > #endif
00:01:41 verbose #5937 > > type clap_builder_ValueParser = class end
00:01:41 verbose #5938 > > #if FABLE_COMPILER
00:01:41 verbose #5939 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:01:41 verbose #5940 > > #endif
00:01:41 verbose #5941 > > type clap_builder_PossibleValue = class end
00:01:41 verbose #5942 > > #if FABLE_COMPILER
00:01:41 verbose #5943 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:01:41 verbose #5944 > > #endif
00:01:41 verbose #5945 > > type std_process_Child = class end
00:01:41 verbose #5946 > > #if FABLE_COMPILER
00:01:41 verbose #5947 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:01:41 verbose #5948 > > #endif
00:01:41 verbose #5949 > > type std_process_ChildStderr = class end
00:01:41 verbose #5950 > > #if FABLE_COMPILER
00:01:41 verbose #5951 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:01:41 verbose #5952 > > #endif
00:01:41 verbose #5953 > > type std_process_ChildStdout = class end
00:01:41 verbose #5954 > > #if FABLE_COMPILER
00:01:41 verbose #5955 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:01:41 verbose #5956 > > #endif
00:01:41 verbose #5957 > > type std_process_ChildStdin = class end
00:01:41 verbose #5958 > > #if FABLE_COMPILER
00:01:41 verbose #5959 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:01:41 verbose #5960 > > #endif
00:01:41 verbose #5961 > > type std_process_Command = class... with
00:01:41 verbose #5962 > > | US14_1(v28) -> (* Error *)
00:01:41 verbose #5963 > > US8_1(v28)
00:01:41 verbose #5964 > > | US14_0(v26) -> (* Ok *)
00:01:41 verbose #5965 > > US8_0(v26)
00:01:41 verbose #5966 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:01:41 verbose #5967 > > let v1 : US8 = method16(v0)
00:01:41 verbose #5968 > > match v1 with
00:01:41 verbose #5969 > > | US8_1(v4) -> (* Error *)
00:01:41 verbose #5970 > > let v5 : Result<(string [[]]), string> = Error v4
00:01:41 verbose #5971 > > v5
00:01:41 verbose #5972 > > | US8_0(v2) -> (* Ok *)
00:01:41 verbose #5973 > > let v3 : Result<(string [[]]), string> = Ok v2
00:01:41 verbose #5974 > > v3
00:01:41 verbose #5975 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:41 verbose #5976 > > let v1 : US0 = US0_0
00:01:41 verbose #5977 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:41 verbose #5978 > > let v2 : (unit -> unit) = closure2()
00:01:41 verbose #5979 > > let current_process_kill () = v2 ()
00:01:41 verbose #5980 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:01:41 verbose #5981 > > let execute_async x = v3 x
00:01:41 verbose #5982 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:01:41 verbose #5983 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:01:41 verbose #5984 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:01:41 verbose #5985 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:01:41 verbose #5986 > > let execute_with_options_async x = v4 x
00:01:41 verbose #5987 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:01:41 verbose #5988 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:01:41 verbose #5989 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:01:41 verbose #5990 > > unit) option * bool * string option)) = closure18()
00:01:41 verbose #5991 > > let execution_options x = v5 x
00:01:41 verbose #5992 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:01:41 verbose #5993 > > let split_args x = v6 x
00:01:41 verbose #5994 > > ()
00:01:41 verbose #5995 > >
00:01:43 verbose #5996 > >
00:01:43 verbose #5997 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:43 verbose #5998 > > #if FABLE_COMPILER
00:01:43 verbose #5999 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:01:43 verbose #6000 > > #endif
00:01:43 verbose #6001 > > type std_fs_File = class end
00:01:43 verbose #6002 > > #if FABLE_COMPILER
00:01:43 verbose #6003 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:01:43 verbose #6004 > > #endif
00:01:43 verbose #6005 > > type std_fs_FileType = class end
00:01:43 verbose #6006 > > #if FABLE_COMPILER
00:01:43 verbose #6007 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:01:43 verbose #6008 > > #endif
00:01:43 verbose #6009 > > type std_path_Display = class end
00:01:43 verbose #6010 > > #if FABLE_COMPILER
00:01:43 verbose #6011 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:01:43 verbose #6012 > > #endif
00:01:43 verbose #6013 > > type std_path_Path = class end
00:01:43 verbose #6014 > > #if FABLE_COMPILER
00:01:43 verbose #6015 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:01:43 verbose #6016 > > #endif
00:01:43 verbose #6017 > > type std_path_PathBuf = class end
00:01:43 verbose #6018 > > #if FABLE_COMPILER
00:01:43 verbose #6019 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:01:43 verbose #6020 > > #endif
00:01:43 verbose #6021 > > type async_walkdir_DirEntry = class end
00:01:43 verbose #6022 > > #if FABLE_COMPILER
00:01:43 verbose #6023 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:01:43 verbose #6024 > > #endif
00:01:43 verbose #6025 > > type async_walkdir_Filtering = class end
00:01:43 verbose #6026 > > #if FABLE_COMPILER
00:01:43 verbose #6027 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:01:43 verbose #6028 > > #endif
00:01:43 verbose #6029 > > type async_walkdir_WalkDir = class end
00:01:43 verbose #6030 > > #if FABLE_COMPILER
00:01:43 verbose #6031 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:43 verbose #6032 > > #endif
00:01:43 verbose #6033 > > type core_any_Any = class end
00:01:43 verbose #6034 > > #if FABLE_COMPILER
00:01:43 verbose #6035 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:43 verbose #6036 > > #endif
00:01:43 verbose #6037 > > type core_ops_Try<'T> = class end
00:01:43 verbose #6038 > > #if FABLE_COMPILER
00:01:43 verbose #6039 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:43 verbose #6040 > > #endif
00:01:43 verbose #6041 > > type Func0<'T> = class end
00:01:43 verbose #6042 > > #if FABLE_COMPILER
00:01:43 verbose #6043 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:43 verbose #6044 > > #endif
00:01:43 verbose #6045 > > type Func0<'T, 'U> = class end
00:01:43 verbose #6046 > > #if FABLE_COMPILER
00:01:43 verbose #6047 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:43 verbose #6048 > > #endif
00:01:43 verbose #6049 > > type Box<'T> = cla...4>) = closure12()
00:01:43 verbose #6050 > > let wait_for_file_access_read x = v4 x
00:01:43 verbose #6051 > > let v5 : (string -> Async<string>) = closure13()
00:01:43 verbose #6052 > > let read_all_text_async x = v5 x
00:01:43 verbose #6053 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:01:43 verbose #6054 > > let file_exists_content x = v6 x
00:01:43 verbose #6055 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:01:43 verbose #6056 > > let write_all_text_async x = v7 x
00:01:43 verbose #6057 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:01:43 verbose #6058 > > let write_all_text_exists x = v8 x
00:01:43 verbose #6059 > > let v9 : (string -> Async<int64>) = closure20()
00:01:43 verbose #6060 > > let delete_file_async x = v9 x
00:01:43 verbose #6061 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:01:43 verbose #6062 > > let move_file_async x = v10 x
00:01:43 verbose #6063 > > let v11 : (string -> Async<string option>) = closure27()
00:01:43 verbose #6064 > > let read_all_text_retry_async x = v11 x
00:01:43 verbose #6065 > > let v12 : (unit -> string) = closure35()
00:01:43 verbose #6066 > > let create_temp_path () = v12 ()
00:01:43 verbose #6067 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:01:43 verbose #6068 > > let create_temp_dir () = v13 ()
00:01:43 verbose #6069 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:01:43 verbose #6070 > > let create_temp_dir' x = v14 x
00:01:43 verbose #6071 > > let v15 : (unit -> string) = closure49()
00:01:43 verbose #6072 > > let get_source_directory () = v15 ()
00:01:43 verbose #6073 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:01:43 verbose #6074 > > let find_parent x = v16 x
00:01:43 verbose #6075 > > let v17 : (string -> string) = closure56()
00:01:43 verbose #6076 > > let normalize_path x = v17 x
00:01:43 verbose #6077 > > let v18 : (string -> string) = closure57()
00:01:43 verbose #6078 > > let new_file_uri x = v18 x
00:01:43 verbose #6079 > > let v19 : (unit -> string) = closure58()
00:01:43 verbose #6080 > > let get_workspace_root () = v19 ()
00:01:43 verbose #6081 > > let v20 : (bool -> unit) = closure59()
00:01:43 verbose #6082 > > let init_trace_file x = v20 x
00:01:43 verbose #6083 > > let v21 : (string -> (string -> string)) = closure61()
00:01:43 verbose #6084 > > let (</>) x = v21 x
00:01:43 verbose #6085 > > ()
00:01:43 verbose #6086 > >
00:01:45 verbose #6087 > >
00:01:45 verbose #6088 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:45 verbose #6089 > > #if FABLE_COMPILER
00:01:45 verbose #6090 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:01:45 verbose #6091 > > #endif
00:01:45 verbose #6092 > > type core_any_Any = class end
00:01:45 verbose #6093 > > #if FABLE_COMPILER
00:01:45 verbose #6094 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:01:45 verbose #6095 > > #endif
00:01:45 verbose #6096 > > type core_ops_Try<'T> = class end
00:01:45 verbose #6097 > > #if FABLE_COMPILER
00:01:45 verbose #6098 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:01:45 verbose #6099 > > #endif
00:01:45 verbose #6100 > > type Func0<'T> = class end
00:01:45 verbose #6101 > > #if FABLE_COMPILER
00:01:45 verbose #6102 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:01:45 verbose #6103 > > #endif
00:01:45 verbose #6104 > > type Func0<'T, 'U> = class end
00:01:45 verbose #6105 > > #if FABLE_COMPILER
00:01:45 verbose #6106 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:01:45 verbose #6107 > > #endif
00:01:45 verbose #6108 > > type Box<'T> = class end
00:01:45 verbose #6109 > > #if FABLE_COMPILER
00:01:45 verbose #6110 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:01:45 verbose #6111 > > #endif
00:01:45 verbose #6112 > > type Dyn<'T> = class end
00:01:45 verbose #6113 > > #if FABLE_COMPILER
00:01:45 verbose #6114 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:01:45 verbose #6115 > > #endif
00:01:45 verbose #6116 > > type Send<'T> = class end
00:01:45 verbose #6117 > > #if FABLE_COMPILER
00:01:45 verbose #6118 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:01:45 verbose #6119 > > #endif
00:01:45 verbose #6120 > > type Fn<'T> = class end
00:01:45 verbose #6121 > > #if FABLE_COMPILER
00:01:45 verbose #6122 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:01:45 verbose #6123 > > #endif
00:01:45 verbose #6124 > > type FnUnit = class end
00:01:45 verbose #6125 > > #if FABLE_COMPILER
00:01:45 verbose #6126 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:01:45 verbose #6127 > > #endif
00:01:45 verbose #6128 > > type FnOnce<'T> = class end
00:01:45 verbose #6129 > > #if FABLE_COMPILER
00:01:45 verbose #6130 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:01:45 verbose #6131 > > #endif
00:01:45 verbose #6132 > > type ActionFn<'T> = class end
00:01:45 verbose #6133 > > #if FABLE_COMPILER
00:01:45 verbose #6134 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:01:45 verbose #6135 > > #endif
00:01:45 verbose #6136 > > type ActionFn2<'T, 'U> = class end
00:01:45 verbose #6137 > > #if FABLE_COMPILER
00:01:45 verbose #6138 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:01:45 verbose #6139 > > #endif
00:01:45 verbose #6140 > > type Impl<'T> = class end
00:01:45 verbose #6141 > > #if FABLE_COMPILER
00:01:45 verbose #6142 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:01:45 verbose #6143 > > #endif
00:01:45 verbose #6144 > > type Mut<'T> = class end
00:01:45 verbose #6145 > > #if FABLE_COMPILER
00:01:45 verbose #6146 > > [[<Fable.Core.Erase; Fable.C... #endif
00:01:45 verbose #6147 > > #if FABLE_COMPILER_RUST && WASM
00:01:45 verbose #6148 > > let v27 : string = @"println!(""{}"", $0)"
00:01:45 verbose #6149 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:01:45 verbose #6150 > > ()
00:01:45 verbose #6151 > > #endif
00:01:45 verbose #6152 > > #if FABLE_COMPILER_RUST && CONTRACT
00:01:45 verbose #6153 > > let v28 : string = @"println!(""{}"", $0)"
00:01:45 verbose #6154 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:01:45 verbose #6155 > > ()
00:01:45 verbose #6156 > > #endif
00:01:45 verbose #6157 > > #if FABLE_COMPILER_TYPESCRIPT
00:01:45 verbose #6158 > > System.Console.WriteLine v24
00:01:45 verbose #6159 > > ()
00:01:45 verbose #6160 > > #endif
00:01:45 verbose #6161 > > #if FABLE_COMPILER_PYTHON
00:01:45 verbose #6162 > > System.Console.WriteLine v24
00:01:45 verbose #6163 > > ()
00:01:45 verbose #6164 > > #endif
00:01:45 verbose #6165 > > #else
00:01:45 verbose #6166 > > System.Console.WriteLine v24
00:01:45 verbose #6167 > > ()
00:01:45 verbose #6168 > > #endif
00:01:45 verbose #6169 > > |> fun x -> _v25 <- Some x
00:01:45 verbose #6170 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:01:45 verbose #6171 > > _v25=None"
00:01:45 verbose #6172 > > let v29 : (string -> unit) = v8.l0
00:01:45 verbose #6173 > > v29 v24
00:01:45 verbose #6174 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:01:45 verbose #6175 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:01:45 verbose #6176 > > method8(v0, v3)
00:01:45 verbose #6177 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:01:45 verbose #6178 > > method4(v0, v1, v2)
00:01:45 verbose #6179 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:01:45 verbose #6180 > > closure4(v0, v1)
00:01:45 verbose #6181 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:01:45 verbose #6182 > > closure3(v0)
00:01:45 verbose #6183 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:01:45 verbose #6184 > > let v1 : US0 = US0_0
00:01:45 verbose #6185 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:01:45 verbose #6186 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:01:45 verbose #6187 > > let trace x = v2 x
00:01:45 verbose #6188 > > ()
00:01:45 verbose #6189 > >
00:01:46 verbose #6190 > >
00:01:46 verbose #6191 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6192 > > module SpiralTrace =
00:01:46 verbose #6193 > > let trace x =
00:01:46 verbose #6194 > > #if !INTERACTIVE
00:01:46 verbose #6195 > > Trace.trace x
00:01:46 verbose #6196 > > #else
00:01:46 verbose #6197 > > trace x
00:01:46 verbose #6198 > > #endif
00:01:46 verbose #6199 > >
00:01:46 verbose #6200 > > type TraceLevel =
00:01:46 verbose #6201 > > #if !INTERACTIVE
00:01:46 verbose #6202 > > Trace.US0
00:01:46 verbose #6203 > > #else
00:01:46 verbose #6204 > > US0
00:01:46 verbose #6205 > > #endif
00:01:46 verbose #6206 > >
00:01:46 verbose #6207 > > module SpiralCrypto =
00:01:46 verbose #6208 > > let hash_text x =
00:01:46 verbose #6209 > > #if !INTERACTIVE
00:01:46 verbose #6210 > > Crypto.hash_text x
00:01:46 verbose #6211 > > #else
00:01:46 verbose #6212 > > hash_text x
00:01:46 verbose #6213 > > #endif
00:01:46 verbose #6214 > >
00:01:46 verbose #6215 > > let hash_to_port x =
00:01:46 verbose #6216 > > #if !INTERACTIVE
00:01:46 verbose #6217 > > Crypto.hash_to_port x
00:01:46 verbose #6218 > > #else
00:01:46 verbose #6219 > > hash_to_port x
00:01:46 verbose #6220 > > #endif
00:01:46 verbose #6221 > >
00:01:46 verbose #6222 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:46 verbose #6223 > >
00:01:46 verbose #6224 > > module SpiralAsync =
00:01:46 verbose #6225 > > let merge_cancellation_token_with_default_async x =
00:01:46 verbose #6226 > > #if !INTERACTIVE
00:01:46 verbose #6227 > > Async_.merge_cancellation_token_with_default_async x
00:01:46 verbose #6228 > > #else
00:01:46 verbose #6229 > > merge_cancellation_token_with_default_async x
00:01:46 verbose #6230 > > #endif
00:01:46 verbose #6231 > >
00:01:46 verbose #6232 > > module SpiralThreading =
00:01:46 verbose #6233 > > let new_disposable_token x =
00:01:46 verbose #6234 > > #if !INTERACTIVE
00:01:46 verbose #6235 > > Threading.new_disposable_token x
00:01:46 verbose #6236 > > #else
00:01:46 verbose #6237 > > new_disposable_token x
00:01:46 verbose #6238 > > #endif
00:01:46 verbose #6239 > >
00:01:46 verbose #6240 > > module SpiralNetworking =
00:01:46 verbose #6241 > > let test_port_open x =
00:01:46 verbose #6242 > > #if !INTERACTIVE
00:01:46 verbose #6243 > > Networking.test_port_open x
00:01:46 verbose #6244 > > #else
00:01:46 verbose #6245 > > test_port_open x
00:01:46 verbose #6246 > > #endif
00:01:46 verbose #6247 > >
00:01:46 verbose #6248 > > let test_port_open_timeout x =
00:01:46 verbose #6249 > > #if !INTERACTIVE
00:01:46 verbose #6250 > > Networking.test_port_open_timeout x
00:01:46 verbose #6251 > > #else
00:01:46 verbose #6252 > > test_port_open_timeout x
00:01:46 verbose #6253 > > #endif
00:01:46 verbose #6254 > >
00:01:46 verbose #6255 > > let wait_for_port_access x =
00:01:46 verbose #6256 > > #if !INTERACTIVE
00:01:46 verbose #6257 > > Networking.wait_for_port_access x
00:01:46 verbose #6258 > > #else
00:01:46 verbose #6259 > > wait_for_port_access x
00:01:46 verbose #6260 > > #endif
00:01:46 verbose #6261 > >
00:01:46 verbose #6262 > > let get_available_port x =
00:01:46 verbose #6263 > > #if !INTERACTIVE
00:01:46 verbose #6264 > > Networking.get_available_port x
00:01:46 verbose #6265 > > #else
00:01:46 verbose #6266 > > get_available_port x
00:01:46 verbose #6267 > > #endif
00:01:46 verbose #6268 > >
00:01:46 verbose #6269 > > module SpiralPlatform =
00:01:46 verbose #6270 > > let get_executable_suffix () =
00:01:46 verbose #6271 > > #if !INTERACTIVE
00:01:46 verbose #6272 > > Platform.g...e.trace_state
00:01:46 verbose #6273 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6274 > > level.l0 <-
00:01:46 verbose #6275 > > match new_level with
00:01:46 verbose #6276 > > | Trace.US0_0 -> File_system.US0_0
00:01:46 verbose #6277 > > | Trace.US0_1 -> File_system.US0_1
00:01:46 verbose #6278 > > | Trace.US0_2 -> File_system.US0_2
00:01:46 verbose #6279 > > | Trace.US0_3 -> File_system.US0_3
00:01:46 verbose #6280 > > | Trace.US0_4 -> File_system.US0_4
00:01:46 verbose #6281 > > )
00:01:46 verbose #6282 > >
00:01:46 verbose #6283 > > Runtime.State.trace_state
00:01:46 verbose #6284 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6285 > > level.l0 <-
00:01:46 verbose #6286 > > match new_level with
00:01:46 verbose #6287 > > | Trace.US0_0 -> Runtime.US0_0
00:01:46 verbose #6288 > > | Trace.US0_1 -> Runtime.US0_1
00:01:46 verbose #6289 > > | Trace.US0_2 -> Runtime.US0_2
00:01:46 verbose #6290 > > | Trace.US0_3 -> Runtime.US0_3
00:01:46 verbose #6291 > > | Trace.US0_4 -> Runtime.US0_4
00:01:46 verbose #6292 > > )
00:01:46 verbose #6293 > >
00:01:46 verbose #6294 > > Common.State.trace_state
00:01:46 verbose #6295 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6296 > > level.l0 <-
00:01:46 verbose #6297 > > match new_level with
00:01:46 verbose #6298 > > | Trace.US0_0 -> Common.US0_0
00:01:46 verbose #6299 > > | Trace.US0_1 -> Common.US0_1
00:01:46 verbose #6300 > > | Trace.US0_2 -> Common.US0_2
00:01:46 verbose #6301 > > | Trace.US0_3 -> Common.US0_3
00:01:46 verbose #6302 > > | Trace.US0_4 -> Common.US0_4
00:01:46 verbose #6303 > > )
00:01:46 verbose #6304 > >
00:01:46 verbose #6305 > > Trace.State.trace_state
00:01:46 verbose #6306 > > #else
00:01:46 verbose #6307 > > State.trace_state
00:01:46 verbose #6308 > > #endif
00:01:46 verbose #6309 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:01:46 verbose #6310 > > level.l0 <- new_level
00:01:46 verbose #6311 > > )
00:01:46 verbose #6312 > >
00:01:46 verbose #6313 > > let get_trace_level () =
00:01:46 verbose #6314 > > #if !INTERACTIVE
00:01:46 verbose #6315 > > Trace.State.trace_state
00:01:46 verbose #6316 > > #else
00:01:46 verbose #6317 > > State.trace_state
00:01:46 verbose #6318 > > #endif
00:01:46 verbose #6319 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:01:46 verbose #6320 > > level.l0
00:01:46 verbose #6321 > > )
00:01:46 verbose #6322 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:01:46 verbose #6323 > > trace_state=None")
00:01:46 verbose #6324 > >
00:01:46 verbose #6325 > >
00:01:46 verbose #6326 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6327 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:46 verbose #6328 > >
00:01:46 verbose #6329 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6330 > > //// test
00:01:46 verbose #6331 > >
00:01:46 verbose #6332 > > type AssertExceptionFormatter (ex) =
00:01:46 verbose #6333 > > member _.Text =
00:01:46 verbose #6334 > > ex.ToString()
00:01:46 verbose #6335 > > .Replace("32m", "<span style=\"color: green;\">")
00:01:46 verbose #6336 > > .Replace("36m", "</span>")
00:01:46 verbose #6337 > > .Replace("31m", "<span style=\"color: red;\">")
00:01:46 verbose #6338 > > .Replace("\n", "<br/>\n")
00:01:46 verbose #6339 > >
00:01:46 verbose #6340 > >
00:01:46 verbose #6341 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:46 verbose #6342 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:46 verbose #6343 > >
00:01:46 verbose #6344 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6345 > > //// test
00:01:46 verbose #6346 > >
00:01:46 verbose #6347 > > let inline __expect fn log expected actual =
00:01:46 verbose #6348 > > if log then printfn $"{actual.ToDisplayString ()}"
00:01:46 verbose #6349 > > try
00:01:46 verbose #6350 > > "Testing.__expect" |> fn actual expected
00:01:46 verbose #6351 > > with :? Expecto.AssertException as ex ->
00:01:46 verbose #6352 > > AssertExceptionFormatter(ex).Display () |> ignore
00:01:46 verbose #6353 > > failwith (ex.GetType().FullName)
00:01:46 verbose #6354 > >
00:01:46 verbose #6355 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:46 verbose #6356 > > expected actual
00:01:46 verbose #6357 > > let inline _contains expected actual = __contains true expected actual
00:01:46 verbose #6358 > >
00:01:46 verbose #6359 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:46 verbose #6360 > > expected actual
00:01:46 verbose #6361 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:46 verbose #6362 > >
00:01:46 verbose #6363 > > let inline __isGreaterThan log expected actual = __expect
00:01:46 verbose #6364 > > Expecto.Expect.isGreaterThan log expected actual
00:01:46 verbose #6365 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:01:46 verbose #6366 > >
00:01:46 verbose #6367 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:01:46 verbose #6368 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:01:46 verbose #6369 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:01:46 verbose #6370 > > expected actual
00:01:46 verbose #6371 > >
00:01:46 verbose #6372 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:01:46 verbose #6373 > > log expected actual
00:01:46 verbose #6374 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:01:46 verbose #6375 > >
00:01:46 verbose #6376 > > let inline __isLessThanOrEqual log expected actual = __expect
00:01:46 verbose #6377 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:01:46 verbose #6378 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:01:46 verbose #6379 > > expected actual
00:01:46 verbose #6380 > >
00:01:46 verbose #6381 > > let inline __sequenceEqual log expected actual = __expect
00:01:46 verbose #6382 > > Expecto.Expect.sequenceEqual log expected actual
00:01:46 verbose #6383 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:01:46 verbose #6384 > >
00:01:46 verbose #6385 > > let inline __stringContains log expected actual = __expect
00:01:46 verbose #6386 > > Expecto.Expect.stringContains log expected actual
00:01:46 verbose #6387 > > let inline _stringContains expected actual = __stringContains true expected
00:01:46 verbose #6388 > > actual
00:01:46 verbose #6389 > >
00:01:46 verbose #6390 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:01:46 verbose #6391 > > log expected actual
00:01:46 verbose #6392 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:01:46 verbose #6393 > >
00:01:46 verbose #6394 > > let inline __stringStarts log expected actual = __expect
00:01:46 verbose #6395 > > Expecto.Expect.stringStarts log expected actual
00:01:46 verbose #6396 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:01:46 verbose #6397 > >
00:01:46 verbose #6398 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:01:46 verbose #6399 > > expected actual
00:01:46 verbose #6400 > > let inline _throwsC expected actual = __throwsC true expected actual
00:01:46 verbose #6401 > >
00:01:46 verbose #6402 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6403 > > //// test
00:01:46 verbose #6404 > >
00:01:46 verbose #6405 > > let inline __isBetween log a b actual =
00:01:46 verbose #6406 > > let inline isBetween actual (a, b) _ =
00:01:46 verbose #6407 > > __isGreaterThanOrEqual log a actual
00:01:46 verbose #6408 > > __isLessThanOrEqual log b actual
00:01:46 verbose #6409 > > __expect isBetween log (a, b) actual
00:01:46 verbose #6410 > > let inline _isBetween a b actual = __isBetween true a b actual
00:01:46 verbose #6411 > >
00:01:46 verbose #6412 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #6413 > > #!import ../../lib/fsharp/Common.fs
00:01:46 verbose #6414 > >
00:01:46 verbose #6415 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:46 verbose #6416 > > #if !INTERACTIVE
00:01:46 verbose #6417 > > namespace Polyglot
00:01:46 verbose #6418 > > #endif
00:01:46 verbose #6419 > >
00:01:46 verbose #6420 > > module Common =
00:01:46 verbose #6421 > >
00:01:46 verbose #6422 > > #if !INTERACTIVE
00:01:46 verbose #6423 > > open Lib
00:01:46 verbose #6424 > > #endif
00:01:46 verbose #6425 > >
00:01:46 verbose #6426 > > let nl = System.Environment.NewLine
00:01:46 verbose #6427 > > let q = @""""
00:01:46 verbose #6428 > >
00:01:46 verbose #6429 > > let inline cons head tail = head :: tail
00:01:46 verbose #6430 > >
00:01:46 verbose #6431 > > /// ## memoize
00:01:46 verbose #6432 > > let inline memoize fn =
00:01:46 verbose #6433 > > let result = lazy fn ()
00:01:46 verbose #6434 > > fun () -> result.Value
00:01:46 verbose #6435 > >
00:01:46 verbose #6436 > > /// ## TraceLevel
00:01:46 verbose #6437 > > type TraceLevel =
00:01:46 verbose #6438 > > | Verbose
00:01:46 verbose #6439 > > | Debug
00:01:46 verbose #6440 > > | Info
00:01:46 verbose #6441 > > | Warning
00:01:46 verbose #6442 > > | Critical
00:01:46 verbose #6443 > >
00:01:46 verbose #6444 > > let inline _locals () = ""
00:01:46 verbose #6445 > >
00:01:46 verbose #6446 > > /// ## trace
00:01:46 verbose #6447 > > let to_trace_level = function
00:01:46 verbose #6448 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:01:46 verbose #6449 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:01:46 verbose #6450 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:01:46 verbose #6451 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:01:46 verbose #6452 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:01:46 verbose #6453 > >
00:01:46 verbose #6454 > > let trace level fn locals =
00:01:46 verbose #6455 > > let level = level |> to_trace_level
00:01:46 verbose #6456 > > SpiralTrace.trace level fn locals
00:01:46 verbose #6457 > >
00:01:46 verbose #6458 > >
00:01:46 verbose #6459 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #6460 > > open Common
00:01:46 verbose #6461 > >
00:01:46 verbose #6462 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 verbose #6463 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 verbose #6464 > > │ ## getUnionCaseName │
00:01:46 verbose #6465 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #6466 > >
00:01:46 verbose #6467 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #6468 > > let inline getUnionCaseName<'T> (x: 'T) =
00:01:46 verbose #6469 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:46 verbose #6470 > > | case, _ -> case.Name
00:01:47 verbose #6471 > >
00:01:47 verbose #6472 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #6473 > > //// test
00:01:47 verbose #6474 > >
00:01:47 verbose #6475 > > TraceLevel.Critical
00:01:47 verbose #6476 > > |> getUnionCaseName
00:01:47 verbose #6477 > > |> _assertEqual (nameof TraceLevel.Critical)
00:01:47 verbose #6478 > >
00:01:47 verbose #6479 > > ╭─[ 123.23ms - stdout ]────────────────────────────────────────────────────────╮
00:01:47 verbose #6480 > > │ "Critical" │
00:01:47 verbose #6481 > > │ │
00:01:47 verbose #6482 > > │ │
00:01:47 verbose #6483 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #6484 > 00:00:20 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 45149
00:01:47 verbose #6485 > 00:00:20 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:50 verbose #6486 > 00:00:23 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.ipynb to html
00:01:50 verbose #6487 > 00:00:23 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:50 verbose #6488 > 00:00:23 verbose #7 ! validate(nb)
00:01:52 verbose #6489 > 00:00:25 verbose #8 ! [NbConvertApp] Writing 275592 bytes to c:\home\git\polyglot\lib\fsharp\CommonFSharp.dib.html
00:01:52 verbose #6490 > 00:00:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 655
00:01:52 verbose #6491 > 00:00:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 655
00:01:52 verbose #6492 > 00:00:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/CommonFSharp.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:53 verbose #6493 > 00:00:26 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:53 verbose #6494 > 00:00:26 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:54 verbose #6495 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 45863
00:01:54 debug #6496 runtime.execute_with_options_async / exit_code: 0 / output.Length: 50990
00:01:54 debug #6 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path CommonFSharp.dib --retries 3
00:01:54 debug #6497 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path FileSystem.dib --retries 3",
[||], None, None, true, None)
00:01:54 verbose #6498 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "FileSystem.dib", "--retries", "3"])
00:01:54 verbose #6499 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/FileSystem.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/FileSystem.dib" --output-path "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:57 verbose #6500 > >
00:01:57 verbose #6501 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:57 verbose #6502 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:57 verbose #6503 > > │ # FileSystem (Polyglot) │
00:01:57 verbose #6504 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 verbose #6505 > >
00:01:57 verbose #6506 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:57 verbose #6507 > > #r
00:01:57 verbose #6508 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:01:57 verbose #6509 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:01:57 verbose #6510 > > #r
00:01:57 verbose #6511 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:01:57 verbose #6512 > > 0/System.Reactive.dll"
00:01:57 verbose #6513 > > #r
00:01:57 verbose #6514 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:01:57 verbose #6515 > > netstandard2.0/System.Reactive.Linq.dll"
00:01:57 verbose #6516 > > #r
00:01:57 verbose #6517 > > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:01:57 verbose #6518 > >
00:01:57 verbose #6519 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:57 verbose #6520 > > #r
00:01:57 verbose #6521 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:57 verbose #6522 > > spNetCore.Html.Abstractions.dll"
00:01:57 verbose #6523 > > #r
00:01:57 verbose #6524 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:57 verbose #6525 > > otNet.Interactive.dll"
00:01:57 verbose #6526 > > #r
00:01:57 verbose #6527 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:57 verbose #6528 > > otNet.Interactive.FSharp.dll"
00:01:57 verbose #6529 > > #r
00:01:57 verbose #6530 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:57 verbose #6531 > > otNet.Interactive.Formatting.dll"
00:01:57 verbose #6532 > > open System
00:01:57 verbose #6533 > > open System.IO
00:01:57 verbose #6534 > > open System.Text
00:01:57 verbose #6535 > > open Microsoft.DotNet.Interactive.Formatting
00:02:01 verbose #6536 > >
00:02:01 verbose #6537 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:01 verbose #6538 > > #r
00:02:01 verbose #6539 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:01 verbose #6540 > > otNet.Interactive.FSharp.dll"
00:02:01 verbose #6541 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:01 verbose #6542 > > #r
00:02:01 verbose #6543 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:01 verbose #6544 > > otNet.Interactive.dll"
00:02:01 verbose #6545 > > open type Microsoft.DotNet.Interactive.Kernel
00:02:01 verbose #6546 > >
00:02:01 verbose #6547 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:01 verbose #6548 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:02:02 verbose #6549 > >
00:02:02 verbose #6550 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:02 verbose #6551 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:02:02 verbose #6552 > > TextWriter)->fprintfn writer "%120A" x)
00:02:02 verbose #6553 > >
00:02:02 verbose #6554 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:02 verbose #6555 > > #!import ../../lib/fsharp/Notebooks.dib
00:02:02 verbose #6556 > > #!import ../../lib/fsharp/Testing.dib
00:02:02 verbose #6557 > >
00:02:02 verbose #6558 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:02 verbose #6559 > > //// test
00:02:02 verbose #6560 > >
00:02:02 verbose #6561 > > Formatter.ListExpansionLimit <- 100
00:02:02 verbose #6562 > >
00:02:02 verbose #6563 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:02 verbose #6564 > > #if FABLE_COMPILER
00:02:02 verbose #6565 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:02:02 verbose #6566 > > #endif
00:02:02 verbose #6567 > > type std_env_VarError = class end
00:02:02 verbose #6568 > > #if FABLE_COMPILER
00:02:02 verbose #6569 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:02 verbose #6570 > > #endif
00:02:02 verbose #6571 > > type core_any_Any = class end
00:02:02 verbose #6572 > > #if FABLE_COMPILER
00:02:02 verbose #6573 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:02 verbose #6574 > > #endif
00:02:02 verbose #6575 > > type core_ops_Try<'T> = class end
00:02:02 verbose #6576 > > #if FABLE_COMPILER
00:02:02 verbose #6577 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:02 verbose #6578 > > #endif
00:02:02 verbose #6579 > > type Func0<'T> = class end
00:02:02 verbose #6580 > > #if FABLE_COMPILER
00:02:02 verbose #6581 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:02 verbose #6582 > > #endif
00:02:02 verbose #6583 > > type Func0<'T, 'U> = class end
00:02:02 verbose #6584 > > #if FABLE_COMPILER
00:02:02 verbose #6585 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:02 verbose #6586 > > #endif
00:02:02 verbose #6587 > > type Box<'T> = class end
00:02:02 verbose #6588 > > #if FABLE_COMPILER
00:02:02 verbose #6589 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:02 verbose #6590 > > #endif
00:02:02 verbose #6591 > > type Dyn<'T> = class end
00:02:02 verbose #6592 > > #if FABLE_COMPILER
00:02:02 verbose #6593 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:02 verbose #6594 > > #endif
00:02:02 verbose #6595 > > type Send<'T> = class end
00:02:02 verbose #6596 > > #if FABLE_COMPILER
00:02:02 verbose #6597 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:02 verbose #6598 > > #endif
00:02:02 verbose #6599 > > type Fn<'T> = class end
00:02:02 verbose #6600 > > #if FABLE_COMPILER
00:02:02 verbose #6601 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:02 verbose #6602 > > #endif
00:02:02 verbose #6603 > > type FnUnit = class end
00:02:02 verbose #6604 > > #if FABLE_COMPILER
00:02:02 verbose #6605 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:02 verbose #6606 > > #endif
00:02:02 verbose #6607 > > type FnOnce<'T> = class end
00:02:02 verbose #6608 > > #if FABLE_COMPILER
00:02:02 verbose #6609 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:02 verbose #6610 > > #endif
00:02:02 verbose #6611 > > type ActionFn<'T> = class end
00:02:02 verbose #6612 > > #if FABLE_COMPILER
00:02:02 verbose #6613 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:02 verbose #6614 > > #endif
00:02:02 verbose #6615 > > type ActionFn2<'T, 'U> = class end
00:02:02 verbose #6616 > > #if FABLE_COMPILER
00:02:02 verbose #6617 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:02 verbose #6618 > > #endif
00:02:02 verbose #6619 > > type Impl<'T> = class end
00:02:02 verbose #6620 > > #if FABLE_COMPILER
00:02:02 verbose #6621 > > [[<Fabl... _v5=None"
00:02:02 verbose #6622 > > US5_1
00:02:02 verbose #6623 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:02:02 verbose #6624 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:02:02 verbose #6625 > > let v4 : (US4 -> US5) = closure6()
00:02:02 verbose #6626 > > let v5 : (exn -> US5) = closure7(v2)
00:02:02 verbose #6627 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:02:02 verbose #6628 > > match v6 with
00:02:02 verbose #6629 > > | US5_1 -> (* None *)
00:02:02 verbose #6630 > > let v8 : int32 = v2 + 1
00:02:02 verbose #6631 > > method6(v0, v1, v8)
00:02:02 verbose #6632 > > | US5_0(v7) -> (* Some *)
00:02:02 verbose #6633 > > v7
00:02:02 verbose #6634 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:02:02 verbose #6635 > > let v2 : int32 = 0
00:02:02 verbose #6636 > > let v3 : US4 = method6(v0, v1, v2)
00:02:02 verbose #6637 > > match v3 with
00:02:02 verbose #6638 > > | US4_1 -> (* None *)
00:02:02 verbose #6639 > > let v5 : unit option = None
00:02:02 verbose #6640 > > v5
00:02:02 verbose #6641 > > | US4_0 -> (* Some *)
00:02:02 verbose #6642 > > let v4 : unit option = Some ()
00:02:02 verbose #6643 > > v4
00:02:02 verbose #6644 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:02:02 verbose #6645 > > closure4(v0)
00:02:02 verbose #6646 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:02:02 verbose #6647 > > v0
00:02:02 verbose #6648 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:02:02 verbose #6649 > > v0.Value
00:02:02 verbose #6650 > > ()
00:02:02 verbose #6651 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:02:02 verbose #6652 > > let v1 : (unit -> unit) = method12(v0)
00:02:02 verbose #6653 > > let v2 : Lazy<unit> = lazy v1 ()
00:02:02 verbose #6654 > > closure13(v2)
00:02:02 verbose #6655 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:02 verbose #6656 > > let v1 : US0 = US0_0
00:02:02 verbose #6657 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:02 verbose #6658 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:02:02 verbose #6659 > > let new_disposable x = v2 x
00:02:02 verbose #6660 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:02:02 verbose #6661 > > let retry_fn x = v3 x
00:02:02 verbose #6662 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:02:02 verbose #6663 > > let memoize x = v4 x
00:02:02 verbose #6664 > > ()
00:02:02 verbose #6665 > >
00:02:04 verbose #6666 > >
00:02:04 verbose #6667 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 verbose #6668 > > #if FABLE_COMPILER
00:02:04 verbose #6669 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:04 verbose #6670 > > #endif
00:02:04 verbose #6671 > > type core_any_Any = class end
00:02:04 verbose #6672 > > #if FABLE_COMPILER
00:02:04 verbose #6673 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:04 verbose #6674 > > #endif
00:02:04 verbose #6675 > > type core_ops_Try<'T> = class end
00:02:04 verbose #6676 > > #if FABLE_COMPILER
00:02:04 verbose #6677 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:04 verbose #6678 > > #endif
00:02:04 verbose #6679 > > type Func0<'T> = class end
00:02:04 verbose #6680 > > #if FABLE_COMPILER
00:02:04 verbose #6681 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:04 verbose #6682 > > #endif
00:02:04 verbose #6683 > > type Func0<'T, 'U> = class end
00:02:04 verbose #6684 > > #if FABLE_COMPILER
00:02:04 verbose #6685 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:04 verbose #6686 > > #endif
00:02:04 verbose #6687 > > type Box<'T> = class end
00:02:04 verbose #6688 > > #if FABLE_COMPILER
00:02:04 verbose #6689 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:04 verbose #6690 > > #endif
00:02:04 verbose #6691 > > type Dyn<'T> = class end
00:02:04 verbose #6692 > > #if FABLE_COMPILER
00:02:04 verbose #6693 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:04 verbose #6694 > > #endif
00:02:04 verbose #6695 > > type Send<'T> = class end
00:02:04 verbose #6696 > > #if FABLE_COMPILER
00:02:04 verbose #6697 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:04 verbose #6698 > > #endif
00:02:04 verbose #6699 > > type Fn<'T> = class end
00:02:04 verbose #6700 > > #if FABLE_COMPILER
00:02:04 verbose #6701 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:04 verbose #6702 > > #endif
00:02:04 verbose #6703 > > type FnUnit = class end
00:02:04 verbose #6704 > > #if FABLE_COMPILER
00:02:04 verbose #6705 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:04 verbose #6706 > > #endif
00:02:04 verbose #6707 > > type FnOnce<'T> = class end
00:02:04 verbose #6708 > > #if FABLE_COMPILER
00:02:04 verbose #6709 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:04 verbose #6710 > > #endif
00:02:04 verbose #6711 > > type ActionFn<'T> = class end
00:02:04 verbose #6712 > > #if FABLE_COMPILER
00:02:04 verbose #6713 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:04 verbose #6714 > > #endif
00:02:04 verbose #6715 > > type ActionFn2<'T, 'U> = class end
00:02:04 verbose #6716 > > #if FABLE_COMPILER
00:02:04 verbose #6717 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:04 verbose #6718 > > #endif
00:02:04 verbose #6719 > > type Impl<'T> = class end
00:02:04 verbose #6720 > > #if FABLE_COMPILER
00:02:04 verbose #6721 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:04 verbose #6722 > > #endif
00:02:04 verbose #6723 > > type Mut<'T> = class end
00:02:04 verbose #6724 > > #if FABLE_COMPILER
00:02:04 verbose #6725 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:02:04 verbose #6726 > > let replace x = v4 x
00:02:04 verbose #6727 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:02:04 verbose #6728 > > let replace_regex x = v5 x
00:02:04 verbose #6729 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:02:04 verbose #6730 > > let slice x = v6 x
00:02:04 verbose #6731 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:02:04 verbose #6732 > > let split x = v7 x
00:02:04 verbose #6733 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:02:04 verbose #6734 > > let split_string x = v8 x
00:02:04 verbose #6735 > > let v9 : (string -> (string -> bool)) = closure23()
00:02:04 verbose #6736 > > let starts_with x = v9 x
00:02:04 verbose #6737 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:02:04 verbose #6738 > > let substring x = v10 x
00:02:04 verbose #6739 > > let v11 : (string -> string) = closure28()
00:02:04 verbose #6740 > > let to_lower x = v11 x
00:02:04 verbose #6741 > > let v12 : (string -> string) = closure29()
00:02:04 verbose #6742 > > let to_upper x = v12 x
00:02:04 verbose #6743 > > let v13 : (string -> string) = closure30()
00:02:04 verbose #6744 > > let trim x = v13 x
00:02:04 verbose #6745 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:02:04 verbose #6746 > > let trim_end x = v14 x
00:02:04 verbose #6747 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:02:04 verbose #6748 > > let trim_start x = v15 x
00:02:04 verbose #6749 > > let v16 : (int32 -> (string -> string)) = closure35()
00:02:04 verbose #6750 > > let ellipsis x = v16 x
00:02:04 verbose #6751 > > let v17 : (int64 -> (string -> string)) = closure37()
00:02:04 verbose #6752 > > let ellipsis_end x = v17 x
00:02:04 verbose #6753 > > let v18 : (exn -> string) = closure39()
00:02:04 verbose #6754 > > let format_exception x = v18 x
00:02:04 verbose #6755 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:02:04 verbose #6756 > > let concat_array_trailing x = v19 x
00:02:04 verbose #6757 > > let v20 : (string -> (string seq -> string)) = closure42()
00:02:04 verbose #6758 > > let concat x = v20 x
00:02:04 verbose #6759 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:02:04 verbose #6760 > > let join' x = v21 x
00:02:04 verbose #6761 > > let v22 : (string -> (char [[]])) = closure46()
00:02:04 verbose #6762 > > let to_char_array x = v22 x
00:02:04 verbose #6763 > > ()
00:02:04 verbose #6764 > >
00:02:04 verbose #6765 > >
00:02:04 verbose #6766 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:04 verbose #6767 > > #if FABLE_COMPILER
00:02:04 verbose #6768 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:04 verbose #6769 > > #endif
00:02:04 verbose #6770 > > type core_any_Any = class end
00:02:04 verbose #6771 > > #if FABLE_COMPILER
00:02:04 verbose #6772 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:04 verbose #6773 > > #endif
00:02:04 verbose #6774 > > type core_ops_Try<'T> = class end
00:02:04 verbose #6775 > > #if FABLE_COMPILER
00:02:04 verbose #6776 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:04 verbose #6777 > > #endif
00:02:04 verbose #6778 > > type Func0<'T> = class end
00:02:04 verbose #6779 > > #if FABLE_COMPILER
00:02:04 verbose #6780 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:04 verbose #6781 > > #endif
00:02:04 verbose #6782 > > type Func0<'T, 'U> = class end
00:02:04 verbose #6783 > > #if FABLE_COMPILER
00:02:04 verbose #6784 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:04 verbose #6785 > > #endif
00:02:04 verbose #6786 > > type Box<'T> = class end
00:02:04 verbose #6787 > > #if FABLE_COMPILER
00:02:04 verbose #6788 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:04 verbose #6789 > > #endif
00:02:04 verbose #6790 > > type Dyn<'T> = class end
00:02:04 verbose #6791 > > #if FABLE_COMPILER
00:02:04 verbose #6792 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:04 verbose #6793 > > #endif
00:02:04 verbose #6794 > > type Send<'T> = class end
00:02:04 verbose #6795 > > #if FABLE_COMPILER
00:02:04 verbose #6796 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:04 verbose #6797 > > #endif
00:02:04 verbose #6798 > > type Fn<'T> = class end
00:02:04 verbose #6799 > > #if FABLE_COMPILER
00:02:04 verbose #6800 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:04 verbose #6801 > > #endif
00:02:04 verbose #6802 > > type FnUnit = class end
00:02:04 verbose #6803 > > #if FABLE_COMPILER
00:02:04 verbose #6804 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:04 verbose #6805 > > #endif
00:02:04 verbose #6806 > > type FnOnce<'T> = class end
00:02:04 verbose #6807 > > #if FABLE_COMPILER
00:02:04 verbose #6808 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:04 verbose #6809 > > #endif
00:02:04 verbose #6810 > > type ActionFn<'T> = class end
00:02:04 verbose #6811 > > #if FABLE_COMPILER
00:02:04 verbose #6812 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:04 verbose #6813 > > #endif
00:02:04 verbose #6814 > > type ActionFn2<'T, 'U> = class end
00:02:04 verbose #6815 > > #if FABLE_COMPILER
00:02:04 verbose #6816 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:04 verbose #6817 > > #endif
00:02:04 verbose #6818 > > type Impl<'T> = class end
00:02:04 verbose #6819 > > #if FABLE_COMPILER
00:02:04 verbose #6820 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:04 verbose #6821 > > #endif
00:02:04 verbose #6822 > > type Mut<'T> = class end
00:02:04 verbose #6823 > > #if FABLE_COMPILER
00:02:04 verbose #6824 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:02:04 verbose #6825 > > ()
00:02:04 verbose #6826 > > #endif
00:02:04 verbose #6827 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:04 verbose #6828 > > let v28 : string = @"println!(""{}"", $0)"
00:02:04 verbose #6829 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:02:04 verbose #6830 > > ()
00:02:04 verbose #6831 > > #endif
00:02:04 verbose #6832 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:04 verbose #6833 > > System.Console.WriteLine v24
00:02:04 verbose #6834 > > ()
00:02:04 verbose #6835 > > #endif
00:02:04 verbose #6836 > > #if FABLE_COMPILER_PYTHON
00:02:04 verbose #6837 > > System.Console.WriteLine v24
00:02:04 verbose #6838 > > ()
00:02:04 verbose #6839 > > #endif
00:02:04 verbose #6840 > > #else
00:02:04 verbose #6841 > > System.Console.WriteLine v24
00:02:04 verbose #6842 > > ()
00:02:04 verbose #6843 > > #endif
00:02:04 verbose #6844 > > |> fun x -> _v25 <- Some x
00:02:04 verbose #6845 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:02:04 verbose #6846 > > _v25=None"
00:02:04 verbose #6847 > > let v29 : (string -> unit) = v8.l0
00:02:04 verbose #6848 > > v29 v24
00:02:04 verbose #6849 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:02:04 verbose #6850 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:02:04 verbose #6851 > > method11(v0, v3)
00:02:04 verbose #6852 > > and closure1 () (v0 : string) : uint16 =
00:02:04 verbose #6853 > > let v1 : char = v0.[[int 0]]
00:02:04 verbose #6854 > > let v2 : (char -> int32) = int32
00:02:04 verbose #6855 > > let v3 : int32 = v2 v1
00:02:04 verbose #6856 > > let v4 : string = v0.[[int 0..int 7]]
00:02:04 verbose #6857 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:02:04 verbose #6858 > > let v6 : int32 = v5 + v3
00:02:04 verbose #6859 > > let v7 : (int32 -> uint16) = uint16
00:02:04 verbose #6860 > > let v8 : uint16 = v7 v6
00:02:04 verbose #6861 > > let v9 : US0 = US0_0
00:02:04 verbose #6862 > > let v10 : (unit -> string) = closure2()
00:02:04 verbose #6863 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:02:04 verbose #6864 > > method3(v9, v10, v11)
00:02:04 verbose #6865 > > let v12 : uint16 = v8 % 48128us
00:02:04 verbose #6866 > > let v13 : uint16 = v12 + 1024us
00:02:04 verbose #6867 > > v13
00:02:04 verbose #6868 > > let v0 : (string -> string) = closure0()
00:02:04 verbose #6869 > > let hash_text x = v0 x
00:02:04 verbose #6870 > > let v1 : (string -> uint16) = closure1()
00:02:04 verbose #6871 > > let hash_to_port x = v1 x
00:02:04 verbose #6872 > > ()
00:02:04 verbose #6873 > >
00:02:05 verbose #6874 > >
00:02:05 verbose #6875 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 verbose #6876 > > #if FABLE_COMPILER
00:02:05 verbose #6877 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:05 verbose #6878 > > #endif
00:02:05 verbose #6879 > > type core_any_Any = class end
00:02:05 verbose #6880 > > #if FABLE_COMPILER
00:02:05 verbose #6881 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:05 verbose #6882 > > #endif
00:02:05 verbose #6883 > > type core_ops_Try<'T> = class end
00:02:05 verbose #6884 > > #if FABLE_COMPILER
00:02:05 verbose #6885 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:05 verbose #6886 > > #endif
00:02:05 verbose #6887 > > type Func0<'T> = class end
00:02:05 verbose #6888 > > #if FABLE_COMPILER
00:02:05 verbose #6889 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:05 verbose #6890 > > #endif
00:02:05 verbose #6891 > > type Func0<'T, 'U> = class end
00:02:05 verbose #6892 > > #if FABLE_COMPILER
00:02:05 verbose #6893 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:05 verbose #6894 > > #endif
00:02:05 verbose #6895 > > type Box<'T> = class end
00:02:05 verbose #6896 > > #if FABLE_COMPILER
00:02:05 verbose #6897 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:05 verbose #6898 > > #endif
00:02:05 verbose #6899 > > type Dyn<'T> = class end
00:02:05 verbose #6900 > > #if FABLE_COMPILER
00:02:05 verbose #6901 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:05 verbose #6902 > > #endif
00:02:05 verbose #6903 > > type Send<'T> = class end
00:02:05 verbose #6904 > > #if FABLE_COMPILER
00:02:05 verbose #6905 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:05 verbose #6906 > > #endif
00:02:05 verbose #6907 > > type Fn<'T> = class end
00:02:05 verbose #6908 > > #if FABLE_COMPILER
00:02:05 verbose #6909 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:05 verbose #6910 > > #endif
00:02:05 verbose #6911 > > type FnUnit = class end
00:02:05 verbose #6912 > > #if FABLE_COMPILER
00:02:05 verbose #6913 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:05 verbose #6914 > > #endif
00:02:05 verbose #6915 > > type FnOnce<'T> = class end
00:02:05 verbose #6916 > > #if FABLE_COMPILER
00:02:05 verbose #6917 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:05 verbose #6918 > > #endif
00:02:05 verbose #6919 > > type ActionFn<'T> = class end
00:02:05 verbose #6920 > > #if FABLE_COMPILER
00:02:05 verbose #6921 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:05 verbose #6922 > > #endif
00:02:05 verbose #6923 > > type ActionFn2<'T, 'U> = class end
00:02:05 verbose #6924 > > #if FABLE_COMPILER
00:02:05 verbose #6925 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:05 verbose #6926 > > #endif
00:02:05 verbose #6927 > > type Impl<'T> = class end
00:02:05 verbose #6928 > > #if FABLE_COMPILER
00:02:05 verbose #6929 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:05 verbose #6930 > > #endif
00:02:05 verbose #6931 > > type Mut<'T> = class end
00:02:05 verbose #6932 > > #if FABLE_COMPILER
00:02:05 verbose #6933 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:02:05 verbose #6934 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:02:05 verbose #6935 > > let v2 : System.Guid = v1 ()
00:02:05 verbose #6936 > > let v3 : (System.Guid -> string) = _.ToString()
00:02:05 verbose #6937 > > let v4 : string = v3 v2
00:02:05 verbose #6938 > > let v5 : (int64 -> string) = _.ToString()
00:02:05 verbose #6939 > > let v6 : string = v5 v0
00:02:05 verbose #6940 > > let v7 : string = v6.PadLeft (18, '0')
00:02:05 verbose #6941 > > let v8 : System.Guid = System.Guid
00:02:05 verbose #6942 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:02:05 verbose #6943 > > v8
00:02:05 verbose #6944 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:02:05 verbose #6945 > > let v2 : (string -> string) = v1.ToString
00:02:05 verbose #6946 > > v2 v0
00:02:05 verbose #6947 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:02:05 verbose #6948 > > closure12(v0)
00:02:05 verbose #6949 > > and closure13 () (v0 : System.DateTime) : string =
00:02:05 verbose #6950 > > let v1 : (string -> string) = v0.ToString
00:02:05 verbose #6951 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:02:05 verbose #6952 > > v1 v2
00:02:05 verbose #6953 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:02:05 verbose #6954 > > let date_time_guid_from_date_time x = v0 x
00:02:05 verbose #6955 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:02:05 verbose #6956 > > let date_time_from_guid x = v1 x
00:02:05 verbose #6957 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:02:05 verbose #6958 > > let timestamp_guid_from_timestamp x = v2 x
00:02:05 verbose #6959 > > let v3 : (System.Guid -> int64) = closure8()
00:02:05 verbose #6960 > > let timestamp_from_guid x = v3 x
00:02:05 verbose #6961 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:02:05 verbose #6962 > > let new_guid_from_date_time x = v4 x
00:02:05 verbose #6963 > > let v5 : (int64 -> System.Guid) = closure10()
00:02:05 verbose #6964 > > let new_guid_from_timestamp x = v5 x
00:02:05 verbose #6965 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:02:05 verbose #6966 > > let format x = v6 x
00:02:05 verbose #6967 > > let v7 : (System.DateTime -> string) = closure13()
00:02:05 verbose #6968 > > let format_iso8601 x = v7 x
00:02:05 verbose #6969 > > ()
00:02:05 verbose #6970 > >
00:02:06 verbose #6971 > >
00:02:06 verbose #6972 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 verbose #6973 > > #if FABLE_COMPILER
00:02:06 verbose #6974 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:02:06 verbose #6975 > > #endif
00:02:06 verbose #6976 > > type futures_future_JoinAll<'T> = class end
00:02:06 verbose #6977 > > #if FABLE_COMPILER
00:02:06 verbose #6978 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:02:06 verbose #6979 > > #endif
00:02:06 verbose #6980 > > type futures_future_TryJoinAll<'T> = class end
00:02:06 verbose #6981 > > #if FABLE_COMPILER
00:02:06 verbose #6982 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:02:06 verbose #6983 > > #endif
00:02:06 verbose #6984 > > type rayon_iter_Map<'T> = class end
00:02:06 verbose #6985 > > #if FABLE_COMPILER
00:02:06 verbose #6986 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:02:06 verbose #6987 > > #endif
00:02:06 verbose #6988 > > type rayon_vec_IntoIter<'T> = class end
00:02:06 verbose #6989 > > #if FABLE_COMPILER
00:02:06 verbose #6990 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:02:06 verbose #6991 > > #endif
00:02:06 verbose #6992 > > type std_future_Future<'T> = class end
00:02:06 verbose #6993 > > #if FABLE_COMPILER
00:02:06 verbose #6994 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:02:06 verbose #6995 > > #endif
00:02:06 verbose #6996 > > type futures_future_Fuse<'T> = class end
00:02:06 verbose #6997 > > #if FABLE_COMPILER
00:02:06 verbose #6998 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:02:06 verbose #6999 > > #endif
00:02:06 verbose #7000 > > type tokio_task_JoinHandle<'T> = class end
00:02:06 verbose #7001 > > #if FABLE_COMPILER
00:02:06 verbose #7002 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:02:06 verbose #7003 > > #endif
00:02:06 verbose #7004 > > type tokio_stream_StreamExt = class end
00:02:06 verbose #7005 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:06 verbose #7006 > > Async<System.Threading.CancellationToken> =
00:02:06 verbose #7007 > > let v1 : bool = true
00:02:06 verbose #7008 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:02:06 verbose #7009 > >
00:02:06 verbose #7010 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:06 verbose #7011 > >
00:02:06 verbose #7012 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:06 verbose #7013 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:06 verbose #7014 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:02:06 verbose #7015 > > v12
00:02:06 verbose #7016 > > #endif
00:02:06 verbose #7017 > > #else
00:02:06 verbose #7018 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:02:06 verbose #7019 > > let mutable _v13 = v13
00:02:06 verbose #7020 > > async {
00:02:06 verbose #7021 > > let v14 : Async<System.Threading.CancellationToken> =
00:02:06 verbose #7022 > > Async.CancellationToken
00:02:06 verbose #7023 > > let! v14 = v14
00:02:06 verbose #7024 > > let v15 : System.Threading.CancellationToken = v14
00:02:06 verbose #7025 > > let v16 : System.Threading.CancellationToken =
00:02:06 verbose #7026 > > Async.DefaultCancellationToken
00:02:06 verbose #7027 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:02:06 verbose #7028 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:02:06 verbose #7029 > > System.Threading.CancellationTokenSource) =
00:02:06 verbose #7030 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:02:06 verbose #7031 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:02:06 verbose #7032 > > let v20 : System.Threading.CancellationToken = v19.Token
00:02:06 verbose #7033 > > return v20
00:02:06 verbose #7034 > > }
00:02:06 verbose #7035 > > |> fun x -> _v13 <- Some x
00:02:06 verbose #7036 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:02:06 verbose #7037 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:02:06 verbose #7038 > > v21
00:02:06 verbose #7039 > > #endif
00:02:06 verbose #7040 > > |> fun x -> _v7 <- Some x
00:02:06 verbose #7041 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:02:06 verbose #7042 > > -> x | None -> failwith "base.run_target / _v7=None"
00:02:06 verbose #7043 > > v22
00:02:06 verbose #7044 > > #endif
00:02:06 verbose #7045 > > |> fun x -> _v1 <- Some x
00:02:06 verbose #7046 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:02:06 verbose #7047 > > -> x | None -> failwith "base.run_target / _v1=None"
00:02:06 verbose #7048 > > v23
00:02:06 verbose #7049 > > let v0 : (System.Threading.CancellationToken ->
00:02:06 verbose #7050 > > Async<System.Threading.CancellationToken>) = closure0()
00:02:06 verbose #7051 > > let merge_cancellation_token_with_default_async x = v0 x
00:02:06 verbose #7052 > > ()
00:02:06 verbose #7053 > >
00:02:06 verbose #7054 > >
00:02:06 verbose #7055 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 verbose #7056 > > #if FABLE_COMPILER
00:02:06 verbose #7057 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:02:06 verbose #7058 > > #endif
00:02:06 verbose #7059 > > type std_thread_JoinHandle<'T> = class end
00:02:06 verbose #7060 > > #if FABLE_COMPILER
00:02:06 verbose #7061 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:02:06 verbose #7062 > > #endif
00:02:06 verbose #7063 > > type std_sync_Arc<'T> = class end
00:02:06 verbose #7064 > > #if FABLE_COMPILER
00:02:06 verbose #7065 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:02:06 verbose #7066 > > #endif
00:02:06 verbose #7067 > > type std_sync_Mutex<'T> = class end
00:02:06 verbose #7068 > > #if FABLE_COMPILER
00:02:06 verbose #7069 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:02:06 verbose #7070 > > #endif
00:02:06 verbose #7071 > > type std_sync_MutexGuard<'T> = class end
00:02:06 verbose #7072 > > #if FABLE_COMPILER
00:02:06 verbose #7073 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:02:06 verbose #7074 > > #endif
00:02:06 verbose #7075 > > type std_sync_PoisonError<'T> = class end
00:02:06 verbose #7076 > > #if FABLE_COMPILER
00:02:06 verbose #7077 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:02:06 verbose #7078 > > #endif
00:02:06 verbose #7079 > > type std_sync_mpsc_Receiver<'T> = class end
00:02:06 verbose #7080 > > #if FABLE_COMPILER
00:02:06 verbose #7081 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:02:06 verbose #7082 > > #endif
00:02:06 verbose #7083 > > type std_sync_mpsc_SendError<'T> = class end
00:02:06 verbose #7084 > > #if FABLE_COMPILER
00:02:06 verbose #7085 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:02:06 verbose #7086 > > #endif
00:02:06 verbose #7087 > > type std_sync_mpsc_Sender<'T> = class end
00:02:06 verbose #7088 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:02:06 verbose #7089 > > _.Dispose () = f ()
00:02:06 verbose #7090 > > type [[<Struct>]] US0 =
00:02:06 verbose #7091 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:02:06 verbose #7092 > > | US0_1
00:02:06 verbose #7093 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:02:06 verbose #7094 > > let v1 : bool = true
00:02:06 verbose #7095 > > let mutable _v1 : unit option = None
00:02:06 verbose #7096 > >
00:02:06 verbose #7097 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:06 verbose #7098 > >
00:02:06 verbose #7099 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:02:06 verbose #7100 > > "$0()" )
00:02:06 verbose #7101 > > v28
00:02:06 verbose #7102 > > #endif
00:02:06 verbose #7103 > > #if FABLE_COMPILER_RUST && WASM
00:02:06 verbose #7104 > > let v29 : (unit -> unit) = method0(v25)
00:02:06 verbose #7105 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:02:06 verbose #7106 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:02:06 verbose #7107 > > v30
00:02:06 verbose #7108 > > #endif
00:02:06 verbose #7109 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:06 verbose #7110 > > let v31 : (unit -> unit) = method0(v25)
00:02:06 verbose #7111 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:02:06 verbose #7112 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:02:06 verbose #7113 > > v32
00:02:06 verbose #7114 > > #endif
00:02:06 verbose #7115 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:06 verbose #7116 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:06 verbose #7117 > > v33
00:02:06 verbose #7118 > > #endif
00:02:06 verbose #7119 > > #if FABLE_COMPILER_PYTHON
00:02:06 verbose #7120 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:06 verbose #7121 > > v34
00:02:06 verbose #7122 > > #endif
00:02:06 verbose #7123 > > #else
00:02:06 verbose #7124 > > let v35 : (unit -> unit) = method1(v25)
00:02:06 verbose #7125 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:02:06 verbose #7126 > > _.Dispose () = v35 () }
00:02:06 verbose #7127 > > v36
00:02:06 verbose #7128 > > #endif
00:02:06 verbose #7129 > > |> fun x -> _v26 <- Some x
00:02:06 verbose #7130 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:02:06 verbose #7131 > > failwith "base.run_target / _v26=None"
00:02:06 verbose #7132 > > let v38 : System.Threading.CancellationToken = v25.Token
00:02:06 verbose #7133 > > struct (v38, v37)
00:02:06 verbose #7134 > > #endif
00:02:06 verbose #7135 > > |> fun x -> _v1 <- Some x
00:02:06 verbose #7136 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:02:06 verbose #7137 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:02:06 verbose #7138 > > "base.run_target / _v1=None"
00:02:06 verbose #7139 > > struct (v39, v40)
00:02:06 verbose #7140 > > let v0 : (System.Threading.CancellationToken option -> struct
00:02:06 verbose #7141 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:02:06 verbose #7142 > > let new_disposable_token x = v0 x
00:02:06 verbose #7143 > > ()
00:02:06 verbose #7144 > >
00:02:06 verbose #7145 > >
00:02:06 verbose #7146 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 verbose #7147 > > #if FABLE_COMPILER
00:02:06 verbose #7148 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:02:06 verbose #7149 > > #endif
00:02:06 verbose #7150 > > type reqwest_Error = class end
00:02:06 verbose #7151 > > #if FABLE_COMPILER
00:02:06 verbose #7152 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:02:06 verbose #7153 > > #endif
00:02:06 verbose #7154 > > type reqwest_RequestBuilder = class end
00:02:06 verbose #7155 > > #if FABLE_COMPILER
00:02:06 verbose #7156 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:02:06 verbose #7157 > > #endif
00:02:06 verbose #7158 > > type reqwest_Response = class end
00:02:06 verbose #7159 > > #if FABLE_COMPILER
00:02:06 verbose #7160 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:02:06 verbose #7161 > > #endif
00:02:06 verbose #7162 > > type std_env_VarError = class end
00:02:06 verbose #7163 > > #if FABLE_COMPILER
00:02:06 verbose #7164 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:06 verbose #7165 > > #endif
00:02:06 verbose #7166 > > type core_any_Any = class end
00:02:06 verbose #7167 > > #if FABLE_COMPILER
00:02:06 verbose #7168 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:06 verbose #7169 > > #endif
00:02:06 verbose #7170 > > type core_ops_Try<'T> = class end
00:02:06 verbose #7171 > > #if FABLE_COMPILER
00:02:06 verbose #7172 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:06 verbose #7173 > > #endif
00:02:06 verbose #7174 > > type Func0<'T> = class end
00:02:06 verbose #7175 > > #if FABLE_COMPILER
00:02:06 verbose #7176 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:06 verbose #7177 > > #endif
00:02:06 verbose #7178 > > type Func0<'T, 'U> = class end
00:02:06 verbose #7179 > > #if FABLE_COMPILER
00:02:06 verbose #7180 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:06 verbose #7181 > > #endif
00:02:06 verbose #7182 > > type Box<'T> = class end
00:02:06 verbose #7183 > > #if FABLE_COMPILER
00:02:06 verbose #7184 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:06 verbose #7185 > > #endif
00:02:06 verbose #7186 > > type Dyn<'T> = class end
00:02:06 verbose #7187 > > #if FABLE_COMPILER
00:02:06 verbose #7188 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:06 verbose #7189 > > #endif
00:02:06 verbose #7190 > > type Send<'T> = class end
00:02:06 verbose #7191 > > #if FABLE_COMPILER
00:02:06 verbose #7192 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:06 verbose #7193 > > #endif
00:02:06 verbose #7194 > > type Fn<'T> = class end
00:02:06 verbose #7195 > > #if FABLE_COMPILER
00:02:06 verbose #7196 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:06 verbose #7197 > > #endif
00:02:06 verbose #7198 > > type FnUnit = class end
00:02:06 verbose #7199 > > #if FABLE_COMPILER
00:02:06 verbose #7200 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:06 verbose #7201 > > ... v212 = v212
00:02:06 verbose #7202 > > let v213 : bool = v212
00:02:06 verbose #7203 > > let v214 : bool = v213 = false
00:02:06 verbose #7204 > > if v214 then
00:02:06 verbose #7205 > > return v2
00:02:06 verbose #7206 > > (*
00:02:06 verbose #7207 > > ()
00:02:06 verbose #7208 > > else
00:02:06 verbose #7209 > > *) else
00:02:06 verbose #7210 > > let v215 : int32 = v2 + 1
00:02:06 verbose #7211 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:02:06 verbose #7212 > > return! v216
00:02:06 verbose #7213 > > (*
00:02:06 verbose #7214 > > ()
00:02:06 verbose #7215 > > *)
00:02:06 verbose #7216 > > }
00:02:06 verbose #7217 > > |> fun x -> _v9 <- Some x
00:02:06 verbose #7218 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:02:06 verbose #7219 > > "async.new_async_unit / _v9=None"
00:02:06 verbose #7220 > > v217
00:02:06 verbose #7221 > > #endif
00:02:06 verbose #7222 > > |> fun x -> _v3 <- Some x
00:02:06 verbose #7223 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:02:06 verbose #7224 > > "base.run_target / _v3=None"
00:02:06 verbose #7225 > > v218
00:02:06 verbose #7226 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:02:06 verbose #7227 > > method10(v0, v1, v2)
00:02:06 verbose #7228 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:02:06 verbose #7229 > > closure23(v0, v1)
00:02:06 verbose #7230 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:02:06 verbose #7231 > > closure22(v0)
00:02:06 verbose #7232 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:06 verbose #7233 > > let v1 : US0 = US0_0
00:02:06 verbose #7234 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:06 verbose #7235 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:02:06 verbose #7236 > > let test_port_open x = v2 x
00:02:06 verbose #7237 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:02:06 verbose #7238 > > let test_port_open_timeout x = v3 x
00:02:06 verbose #7239 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:02:06 verbose #7240 > > closure15()
00:02:06 verbose #7241 > > let wait_for_port_access x = v4 x
00:02:06 verbose #7242 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:02:06 verbose #7243 > > let get_available_port x = v5 x
00:02:06 verbose #7244 > > ()
00:02:06 verbose #7245 > >
00:02:08 verbose #7246 > >
00:02:08 verbose #7247 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:08 verbose #7248 > > type [[<Struct>]] US0 =
00:02:08 verbose #7249 > > | US0_0
00:02:08 verbose #7250 > > | US0_1
00:02:08 verbose #7251 > > | US0_2
00:02:08 verbose #7252 > > and [[<Struct>]] US1 =
00:02:08 verbose #7253 > > | US1_0 of f0_0 : US0
00:02:08 verbose #7254 > > | US1_1 of f1_0 : US0
00:02:08 verbose #7255 > > | US1_2 of f2_0 : US0
00:02:08 verbose #7256 > > | US1_3 of f3_0 : US0
00:02:08 verbose #7257 > > | US1_4 of f4_0 : US0
00:02:08 verbose #7258 > > let rec closure0 () () : bool =
00:02:08 verbose #7259 > > let v0 : bool = true
00:02:08 verbose #7260 > > let mutable _v0 : bool option = None
00:02:08 verbose #7261 > >
00:02:08 verbose #7262 > > #if FABLE_COMPILER || WASM || CONTRACT
00:02:08 verbose #7263 > >
00:02:08 verbose #7264 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:08 verbose #7265 > > let v1 : string = "cfg!(windows)"
00:02:08 verbose #7266 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:02:08 verbose #7267 > > v2
00:02:08 verbose #7268 > > #endif
00:02:08 verbose #7269 > > #if FABLE_COMPILER_RUST && WASM
00:02:08 verbose #7270 > > let v3 : string = "cfg!(windows)"
00:02:08 verbose #7271 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:02:08 verbose #7272 > > v4
00:02:08 verbose #7273 > > #endif
00:02:08 verbose #7274 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:08 verbose #7275 > > let v5 : string = "cfg!(windows)"
00:02:08 verbose #7276 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:02:08 verbose #7277 > > v6
00:02:08 verbose #7278 > > #endif
00:02:08 verbose #7279 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:08 verbose #7280 > > let v7 : US0 = US0_0
00:02:08 verbose #7281 > > let v8 : US1 = US1_3(v7)
00:02:08 verbose #7282 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:02:08 verbose #7283 > > let v10 : bool = failwith<bool> v9
00:02:08 verbose #7284 > > v10
00:02:08 verbose #7285 > > #endif
00:02:08 verbose #7286 > > #if FABLE_COMPILER_PYTHON
00:02:08 verbose #7287 > > let v11 : US0 = US0_0
00:02:08 verbose #7288 > > let v12 : US1 = US1_4(v11)
00:02:08 verbose #7289 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:02:08 verbose #7290 > > let v14 : bool = failwith<bool> v13
00:02:08 verbose #7291 > > v14
00:02:08 verbose #7292 > > #endif
00:02:08 verbose #7293 > > #else
00:02:08 verbose #7294 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:02:08 verbose #7295 > > System.Runtime.InteropServices.OSPlatform.Windows
00:02:08 verbose #7296 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:08 verbose #7297 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:08 verbose #7298 > > let v17 : b...: string = "cfg!(windows)"
00:02:08 verbose #7299 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:02:08 verbose #7300 > > v2
00:02:08 verbose #7301 > > #endif
00:02:08 verbose #7302 > > #if FABLE_COMPILER_RUST && WASM
00:02:08 verbose #7303 > > let v3 : string = "cfg!(windows)"
00:02:08 verbose #7304 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:02:08 verbose #7305 > > v4
00:02:08 verbose #7306 > > #endif
00:02:08 verbose #7307 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:08 verbose #7308 > > let v5 : string = "cfg!(windows)"
00:02:08 verbose #7309 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:02:08 verbose #7310 > > v6
00:02:08 verbose #7311 > > #endif
00:02:08 verbose #7312 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:08 verbose #7313 > > let v7 : US0 = US0_0
00:02:08 verbose #7314 > > let v8 : US1 = US1_3(v7)
00:02:08 verbose #7315 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:02:08 verbose #7316 > > let v10 : bool = failwith<bool> v9
00:02:08 verbose #7317 > > v10
00:02:08 verbose #7318 > > #endif
00:02:08 verbose #7319 > > #if FABLE_COMPILER_PYTHON
00:02:08 verbose #7320 > > let v11 : US0 = US0_0
00:02:08 verbose #7321 > > let v12 : US1 = US1_4(v11)
00:02:08 verbose #7322 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:02:08 verbose #7323 > > let v14 : bool = failwith<bool> v13
00:02:08 verbose #7324 > > v14
00:02:08 verbose #7325 > > #endif
00:02:08 verbose #7326 > > #else
00:02:08 verbose #7327 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:02:08 verbose #7328 > > System.Runtime.InteropServices.OSPlatform.Windows
00:02:08 verbose #7329 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:08 verbose #7330 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:08 verbose #7331 > > let v17 : bool = v16 v15
00:02:08 verbose #7332 > > v17
00:02:08 verbose #7333 > > #endif
00:02:08 verbose #7334 > > |> fun x -> _v0 <- Some x
00:02:08 verbose #7335 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:02:08 verbose #7336 > > "base.run_target / _v0=None"
00:02:08 verbose #7337 > > if v18 then
00:02:08 verbose #7338 > > let v19 : string = ".exe"
00:02:08 verbose #7339 > > v19
00:02:08 verbose #7340 > > else
00:02:08 verbose #7341 > > let v20 : string = ""
00:02:08 verbose #7342 > > v20
00:02:08 verbose #7343 > > let v0 : (unit -> bool) = closure0()
00:02:08 verbose #7344 > > let is_windows () = v0 ()
00:02:08 verbose #7345 > > let v1 : (unit -> string) = closure1()
00:02:08 verbose #7346 > > let get_executable_suffix () = v1 ()
00:02:08 verbose #7347 > > ()
00:02:08 verbose #7348 > >
00:02:08 verbose #7349 > >
00:02:08 verbose #7350 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:08 verbose #7351 > > #if FABLE_COMPILER
00:02:08 verbose #7352 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:02:08 verbose #7353 > > #endif
00:02:08 verbose #7354 > > type clap_Arg = class end
00:02:08 verbose #7355 > > #if FABLE_COMPILER
00:02:08 verbose #7356 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:02:08 verbose #7357 > > #endif
00:02:08 verbose #7358 > > type clap_ArgAction = class end
00:02:08 verbose #7359 > > #if FABLE_COMPILER
00:02:08 verbose #7360 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:02:08 verbose #7361 > > #endif
00:02:08 verbose #7362 > > type clap_Command = class end
00:02:08 verbose #7363 > > #if FABLE_COMPILER
00:02:08 verbose #7364 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:02:08 verbose #7365 > > #endif
00:02:08 verbose #7366 > > type clap_ArgMatches = class end
00:02:08 verbose #7367 > > #if FABLE_COMPILER
00:02:08 verbose #7368 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:02:08 verbose #7369 > > #endif
00:02:08 verbose #7370 > > type clap_builder_ValueRange = class end
00:02:08 verbose #7371 > > #if FABLE_COMPILER
00:02:08 verbose #7372 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:02:08 verbose #7373 > > #endif
00:02:08 verbose #7374 > > type clap_builder_ValueParser = class end
00:02:08 verbose #7375 > > #if FABLE_COMPILER
00:02:08 verbose #7376 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:02:08 verbose #7377 > > #endif
00:02:08 verbose #7378 > > type clap_builder_PossibleValue = class end
00:02:08 verbose #7379 > > #if FABLE_COMPILER
00:02:08 verbose #7380 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:02:08 verbose #7381 > > #endif
00:02:08 verbose #7382 > > type std_process_Child = class end
00:02:08 verbose #7383 > > #if FABLE_COMPILER
00:02:08 verbose #7384 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:02:08 verbose #7385 > > #endif
00:02:08 verbose #7386 > > type std_process_ChildStderr = class end
00:02:08 verbose #7387 > > #if FABLE_COMPILER
00:02:08 verbose #7388 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:02:08 verbose #7389 > > #endif
00:02:08 verbose #7390 > > type std_process_ChildStdout = class end
00:02:08 verbose #7391 > > #if FABLE_COMPILER
00:02:08 verbose #7392 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:02:08 verbose #7393 > > #endif
00:02:08 verbose #7394 > > type std_process_ChildStdin = class end
00:02:08 verbose #7395 > > #if FABLE_COMPILER
00:02:08 verbose #7396 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:02:08 verbose #7397 > > #endif
00:02:08 verbose #7398 > > type std_process_Command = class... with
00:02:08 verbose #7399 > > | US14_1(v28) -> (* Error *)
00:02:08 verbose #7400 > > US8_1(v28)
00:02:08 verbose #7401 > > | US14_0(v26) -> (* Ok *)
00:02:08 verbose #7402 > > US8_0(v26)
00:02:08 verbose #7403 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:02:08 verbose #7404 > > let v1 : US8 = method16(v0)
00:02:08 verbose #7405 > > match v1 with
00:02:08 verbose #7406 > > | US8_1(v4) -> (* Error *)
00:02:08 verbose #7407 > > let v5 : Result<(string [[]]), string> = Error v4
00:02:08 verbose #7408 > > v5
00:02:08 verbose #7409 > > | US8_0(v2) -> (* Ok *)
00:02:08 verbose #7410 > > let v3 : Result<(string [[]]), string> = Ok v2
00:02:08 verbose #7411 > > v3
00:02:08 verbose #7412 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:08 verbose #7413 > > let v1 : US0 = US0_0
00:02:08 verbose #7414 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:08 verbose #7415 > > let v2 : (unit -> unit) = closure2()
00:02:08 verbose #7416 > > let current_process_kill () = v2 ()
00:02:08 verbose #7417 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:02:08 verbose #7418 > > let execute_async x = v3 x
00:02:08 verbose #7419 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:02:08 verbose #7420 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:02:08 verbose #7421 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:02:08 verbose #7422 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:02:08 verbose #7423 > > let execute_with_options_async x = v4 x
00:02:08 verbose #7424 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:02:08 verbose #7425 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:02:08 verbose #7426 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:02:08 verbose #7427 > > unit) option * bool * string option)) = closure18()
00:02:08 verbose #7428 > > let execution_options x = v5 x
00:02:08 verbose #7429 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:02:08 verbose #7430 > > let split_args x = v6 x
00:02:08 verbose #7431 > > ()
00:02:08 verbose #7432 > >
00:02:12 verbose #7433 > >
00:02:12 verbose #7434 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:12 verbose #7435 > > #if FABLE_COMPILER
00:02:12 verbose #7436 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:02:12 verbose #7437 > > #endif
00:02:12 verbose #7438 > > type std_fs_File = class end
00:02:12 verbose #7439 > > #if FABLE_COMPILER
00:02:12 verbose #7440 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:02:12 verbose #7441 > > #endif
00:02:12 verbose #7442 > > type std_fs_FileType = class end
00:02:12 verbose #7443 > > #if FABLE_COMPILER
00:02:12 verbose #7444 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:02:12 verbose #7445 > > #endif
00:02:12 verbose #7446 > > type std_path_Display = class end
00:02:12 verbose #7447 > > #if FABLE_COMPILER
00:02:12 verbose #7448 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:02:12 verbose #7449 > > #endif
00:02:12 verbose #7450 > > type std_path_Path = class end
00:02:12 verbose #7451 > > #if FABLE_COMPILER
00:02:12 verbose #7452 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:02:12 verbose #7453 > > #endif
00:02:12 verbose #7454 > > type std_path_PathBuf = class end
00:02:12 verbose #7455 > > #if FABLE_COMPILER
00:02:12 verbose #7456 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:02:12 verbose #7457 > > #endif
00:02:12 verbose #7458 > > type async_walkdir_DirEntry = class end
00:02:12 verbose #7459 > > #if FABLE_COMPILER
00:02:12 verbose #7460 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:02:12 verbose #7461 > > #endif
00:02:12 verbose #7462 > > type async_walkdir_Filtering = class end
00:02:12 verbose #7463 > > #if FABLE_COMPILER
00:02:12 verbose #7464 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:02:12 verbose #7465 > > #endif
00:02:12 verbose #7466 > > type async_walkdir_WalkDir = class end
00:02:12 verbose #7467 > > #if FABLE_COMPILER
00:02:12 verbose #7468 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:12 verbose #7469 > > #endif
00:02:12 verbose #7470 > > type core_any_Any = class end
00:02:12 verbose #7471 > > #if FABLE_COMPILER
00:02:12 verbose #7472 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:12 verbose #7473 > > #endif
00:02:12 verbose #7474 > > type core_ops_Try<'T> = class end
00:02:12 verbose #7475 > > #if FABLE_COMPILER
00:02:12 verbose #7476 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:12 verbose #7477 > > #endif
00:02:12 verbose #7478 > > type Func0<'T> = class end
00:02:12 verbose #7479 > > #if FABLE_COMPILER
00:02:12 verbose #7480 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:12 verbose #7481 > > #endif
00:02:12 verbose #7482 > > type Func0<'T, 'U> = class end
00:02:12 verbose #7483 > > #if FABLE_COMPILER
00:02:12 verbose #7484 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:12 verbose #7485 > > #endif
00:02:12 verbose #7486 > > type Box<'T> = cla...4>) = closure12()
00:02:12 verbose #7487 > > let wait_for_file_access_read x = v4 x
00:02:12 verbose #7488 > > let v5 : (string -> Async<string>) = closure13()
00:02:12 verbose #7489 > > let read_all_text_async x = v5 x
00:02:12 verbose #7490 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:02:12 verbose #7491 > > let file_exists_content x = v6 x
00:02:12 verbose #7492 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:02:12 verbose #7493 > > let write_all_text_async x = v7 x
00:02:12 verbose #7494 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:02:12 verbose #7495 > > let write_all_text_exists x = v8 x
00:02:12 verbose #7496 > > let v9 : (string -> Async<int64>) = closure20()
00:02:12 verbose #7497 > > let delete_file_async x = v9 x
00:02:12 verbose #7498 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:02:12 verbose #7499 > > let move_file_async x = v10 x
00:02:12 verbose #7500 > > let v11 : (string -> Async<string option>) = closure27()
00:02:12 verbose #7501 > > let read_all_text_retry_async x = v11 x
00:02:12 verbose #7502 > > let v12 : (unit -> string) = closure35()
00:02:12 verbose #7503 > > let create_temp_path () = v12 ()
00:02:12 verbose #7504 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:02:12 verbose #7505 > > let create_temp_dir () = v13 ()
00:02:12 verbose #7506 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:02:12 verbose #7507 > > let create_temp_dir' x = v14 x
00:02:12 verbose #7508 > > let v15 : (unit -> string) = closure49()
00:02:12 verbose #7509 > > let get_source_directory () = v15 ()
00:02:12 verbose #7510 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:02:12 verbose #7511 > > let find_parent x = v16 x
00:02:12 verbose #7512 > > let v17 : (string -> string) = closure56()
00:02:12 verbose #7513 > > let normalize_path x = v17 x
00:02:12 verbose #7514 > > let v18 : (string -> string) = closure57()
00:02:12 verbose #7515 > > let new_file_uri x = v18 x
00:02:12 verbose #7516 > > let v19 : (unit -> string) = closure58()
00:02:12 verbose #7517 > > let get_workspace_root () = v19 ()
00:02:12 verbose #7518 > > let v20 : (bool -> unit) = closure59()
00:02:12 verbose #7519 > > let init_trace_file x = v20 x
00:02:12 verbose #7520 > > let v21 : (string -> (string -> string)) = closure61()
00:02:12 verbose #7521 > > let (</>) x = v21 x
00:02:12 verbose #7522 > > ()
00:02:12 verbose #7523 > >
00:02:16 verbose #7524 > >
00:02:16 verbose #7525 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:16 verbose #7526 > > #if FABLE_COMPILER
00:02:16 verbose #7527 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:16 verbose #7528 > > #endif
00:02:16 verbose #7529 > > type core_any_Any = class end
00:02:16 verbose #7530 > > #if FABLE_COMPILER
00:02:16 verbose #7531 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:16 verbose #7532 > > #endif
00:02:16 verbose #7533 > > type core_ops_Try<'T> = class end
00:02:16 verbose #7534 > > #if FABLE_COMPILER
00:02:16 verbose #7535 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:16 verbose #7536 > > #endif
00:02:16 verbose #7537 > > type Func0<'T> = class end
00:02:16 verbose #7538 > > #if FABLE_COMPILER
00:02:16 verbose #7539 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:16 verbose #7540 > > #endif
00:02:16 verbose #7541 > > type Func0<'T, 'U> = class end
00:02:16 verbose #7542 > > #if FABLE_COMPILER
00:02:16 verbose #7543 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:16 verbose #7544 > > #endif
00:02:16 verbose #7545 > > type Box<'T> = class end
00:02:16 verbose #7546 > > #if FABLE_COMPILER
00:02:16 verbose #7547 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:16 verbose #7548 > > #endif
00:02:16 verbose #7549 > > type Dyn<'T> = class end
00:02:16 verbose #7550 > > #if FABLE_COMPILER
00:02:16 verbose #7551 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:16 verbose #7552 > > #endif
00:02:16 verbose #7553 > > type Send<'T> = class end
00:02:16 verbose #7554 > > #if FABLE_COMPILER
00:02:16 verbose #7555 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:16 verbose #7556 > > #endif
00:02:16 verbose #7557 > > type Fn<'T> = class end
00:02:16 verbose #7558 > > #if FABLE_COMPILER
00:02:16 verbose #7559 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:16 verbose #7560 > > #endif
00:02:16 verbose #7561 > > type FnUnit = class end
00:02:16 verbose #7562 > > #if FABLE_COMPILER
00:02:16 verbose #7563 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:16 verbose #7564 > > #endif
00:02:16 verbose #7565 > > type FnOnce<'T> = class end
00:02:16 verbose #7566 > > #if FABLE_COMPILER
00:02:16 verbose #7567 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:16 verbose #7568 > > #endif
00:02:16 verbose #7569 > > type ActionFn<'T> = class end
00:02:16 verbose #7570 > > #if FABLE_COMPILER
00:02:16 verbose #7571 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:16 verbose #7572 > > #endif
00:02:16 verbose #7573 > > type ActionFn2<'T, 'U> = class end
00:02:16 verbose #7574 > > #if FABLE_COMPILER
00:02:16 verbose #7575 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:16 verbose #7576 > > #endif
00:02:16 verbose #7577 > > type Impl<'T> = class end
00:02:16 verbose #7578 > > #if FABLE_COMPILER
00:02:16 verbose #7579 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:02:16 verbose #7580 > > #endif
00:02:16 verbose #7581 > > type Mut<'T> = class end
00:02:16 verbose #7582 > > #if FABLE_COMPILER
00:02:16 verbose #7583 > > [[<Fable.Core.Erase; Fable.C... #endif
00:02:16 verbose #7584 > > #if FABLE_COMPILER_RUST && WASM
00:02:16 verbose #7585 > > let v27 : string = @"println!(""{}"", $0)"
00:02:16 verbose #7586 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:02:16 verbose #7587 > > ()
00:02:16 verbose #7588 > > #endif
00:02:16 verbose #7589 > > #if FABLE_COMPILER_RUST && CONTRACT
00:02:16 verbose #7590 > > let v28 : string = @"println!(""{}"", $0)"
00:02:16 verbose #7591 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:02:16 verbose #7592 > > ()
00:02:16 verbose #7593 > > #endif
00:02:16 verbose #7594 > > #if FABLE_COMPILER_TYPESCRIPT
00:02:16 verbose #7595 > > System.Console.WriteLine v24
00:02:16 verbose #7596 > > ()
00:02:16 verbose #7597 > > #endif
00:02:16 verbose #7598 > > #if FABLE_COMPILER_PYTHON
00:02:16 verbose #7599 > > System.Console.WriteLine v24
00:02:16 verbose #7600 > > ()
00:02:16 verbose #7601 > > #endif
00:02:16 verbose #7602 > > #else
00:02:16 verbose #7603 > > System.Console.WriteLine v24
00:02:16 verbose #7604 > > ()
00:02:16 verbose #7605 > > #endif
00:02:16 verbose #7606 > > |> fun x -> _v25 <- Some x
00:02:16 verbose #7607 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:02:16 verbose #7608 > > _v25=None"
00:02:16 verbose #7609 > > let v29 : (string -> unit) = v8.l0
00:02:16 verbose #7610 > > v29 v24
00:02:16 verbose #7611 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:02:16 verbose #7612 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:02:16 verbose #7613 > > method8(v0, v3)
00:02:16 verbose #7614 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:02:16 verbose #7615 > > method4(v0, v1, v2)
00:02:16 verbose #7616 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:02:16 verbose #7617 > > closure4(v0, v1)
00:02:16 verbose #7618 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:02:16 verbose #7619 > > closure3(v0)
00:02:16 verbose #7620 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:16 verbose #7621 > > let v1 : US0 = US0_0
00:02:16 verbose #7622 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:16 verbose #7623 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:02:16 verbose #7624 > > let trace x = v2 x
00:02:16 verbose #7625 > > ()
00:02:16 verbose #7626 > >
00:02:16 verbose #7627 > >
00:02:16 verbose #7628 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:16 verbose #7629 > > module SpiralTrace =
00:02:16 verbose #7630 > > let trace x =
00:02:16 verbose #7631 > > #if !INTERACTIVE
00:02:16 verbose #7632 > > Trace.trace x
00:02:16 verbose #7633 > > #else
00:02:16 verbose #7634 > > trace x
00:02:16 verbose #7635 > > #endif
00:02:16 verbose #7636 > >
00:02:16 verbose #7637 > > type TraceLevel =
00:02:16 verbose #7638 > > #if !INTERACTIVE
00:02:16 verbose #7639 > > Trace.US0
00:02:16 verbose #7640 > > #else
00:02:16 verbose #7641 > > US0
00:02:16 verbose #7642 > > #endif
00:02:16 verbose #7643 > >
00:02:16 verbose #7644 > > module SpiralCrypto =
00:02:16 verbose #7645 > > let hash_text x =
00:02:16 verbose #7646 > > #if !INTERACTIVE
00:02:16 verbose #7647 > > Crypto.hash_text x
00:02:16 verbose #7648 > > #else
00:02:16 verbose #7649 > > hash_text x
00:02:16 verbose #7650 > > #endif
00:02:16 verbose #7651 > >
00:02:16 verbose #7652 > > let hash_to_port x =
00:02:16 verbose #7653 > > #if !INTERACTIVE
00:02:16 verbose #7654 > > Crypto.hash_to_port x
00:02:16 verbose #7655 > > #else
00:02:16 verbose #7656 > > hash_to_port x
00:02:16 verbose #7657 > > #endif
00:02:16 verbose #7658 > >
00:02:16 verbose #7659 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:16 verbose #7660 > >
00:02:16 verbose #7661 > > module SpiralAsync =
00:02:16 verbose #7662 > > let merge_cancellation_token_with_default_async x =
00:02:16 verbose #7663 > > #if !INTERACTIVE
00:02:16 verbose #7664 > > Async_.merge_cancellation_token_with_default_async x
00:02:16 verbose #7665 > > #else
00:02:16 verbose #7666 > > merge_cancellation_token_with_default_async x
00:02:16 verbose #7667 > > #endif
00:02:16 verbose #7668 > >
00:02:16 verbose #7669 > > module SpiralThreading =
00:02:16 verbose #7670 > > let new_disposable_token x =
00:02:16 verbose #7671 > > #if !INTERACTIVE
00:02:16 verbose #7672 > > Threading.new_disposable_token x
00:02:16 verbose #7673 > > #else
00:02:16 verbose #7674 > > new_disposable_token x
00:02:16 verbose #7675 > > #endif
00:02:16 verbose #7676 > >
00:02:16 verbose #7677 > > module SpiralNetworking =
00:02:16 verbose #7678 > > let test_port_open x =
00:02:16 verbose #7679 > > #if !INTERACTIVE
00:02:16 verbose #7680 > > Networking.test_port_open x
00:02:16 verbose #7681 > > #else
00:02:16 verbose #7682 > > test_port_open x
00:02:16 verbose #7683 > > #endif
00:02:16 verbose #7684 > >
00:02:16 verbose #7685 > > let test_port_open_timeout x =
00:02:16 verbose #7686 > > #if !INTERACTIVE
00:02:16 verbose #7687 > > Networking.test_port_open_timeout x
00:02:16 verbose #7688 > > #else
00:02:16 verbose #7689 > > test_port_open_timeout x
00:02:16 verbose #7690 > > #endif
00:02:16 verbose #7691 > >
00:02:16 verbose #7692 > > let wait_for_port_access x =
00:02:16 verbose #7693 > > #if !INTERACTIVE
00:02:16 verbose #7694 > > Networking.wait_for_port_access x
00:02:16 verbose #7695 > > #else
00:02:16 verbose #7696 > > wait_for_port_access x
00:02:16 verbose #7697 > > #endif
00:02:16 verbose #7698 > >
00:02:16 verbose #7699 > > let get_available_port x =
00:02:16 verbose #7700 > > #if !INTERACTIVE
00:02:16 verbose #7701 > > Networking.get_available_port x
00:02:16 verbose #7702 > > #else
00:02:16 verbose #7703 > > get_available_port x
00:02:16 verbose #7704 > > #endif
00:02:16 verbose #7705 > >
00:02:16 verbose #7706 > > module SpiralPlatform =
00:02:16 verbose #7707 > > let get_executable_suffix () =
00:02:16 verbose #7708 > > #if !INTERACTIVE
00:02:16 verbose #7709 > > Platform.g...e.trace_state
00:02:16 verbose #7710 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:02:16 verbose #7711 > > level.l0 <-
00:02:16 verbose #7712 > > match new_level with
00:02:16 verbose #7713 > > | Trace.US0_0 -> File_system.US0_0
00:02:16 verbose #7714 > > | Trace.US0_1 -> File_system.US0_1
00:02:16 verbose #7715 > > | Trace.US0_2 -> File_system.US0_2
00:02:16 verbose #7716 > > | Trace.US0_3 -> File_system.US0_3
00:02:16 verbose #7717 > > | Trace.US0_4 -> File_system.US0_4
00:02:16 verbose #7718 > > )
00:02:16 verbose #7719 > >
00:02:16 verbose #7720 > > Runtime.State.trace_state
00:02:16 verbose #7721 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:02:16 verbose #7722 > > level.l0 <-
00:02:16 verbose #7723 > > match new_level with
00:02:16 verbose #7724 > > | Trace.US0_0 -> Runtime.US0_0
00:02:16 verbose #7725 > > | Trace.US0_1 -> Runtime.US0_1
00:02:16 verbose #7726 > > | Trace.US0_2 -> Runtime.US0_2
00:02:16 verbose #7727 > > | Trace.US0_3 -> Runtime.US0_3
00:02:16 verbose #7728 > > | Trace.US0_4 -> Runtime.US0_4
00:02:16 verbose #7729 > > )
00:02:16 verbose #7730 > >
00:02:16 verbose #7731 > > Common.State.trace_state
00:02:16 verbose #7732 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:02:16 verbose #7733 > > level.l0 <-
00:02:16 verbose #7734 > > match new_level with
00:02:16 verbose #7735 > > | Trace.US0_0 -> Common.US0_0
00:02:16 verbose #7736 > > | Trace.US0_1 -> Common.US0_1
00:02:16 verbose #7737 > > | Trace.US0_2 -> Common.US0_2
00:02:16 verbose #7738 > > | Trace.US0_3 -> Common.US0_3
00:02:16 verbose #7739 > > | Trace.US0_4 -> Common.US0_4
00:02:16 verbose #7740 > > )
00:02:16 verbose #7741 > >
00:02:16 verbose #7742 > > Trace.State.trace_state
00:02:16 verbose #7743 > > #else
00:02:16 verbose #7744 > > State.trace_state
00:02:16 verbose #7745 > > #endif
00:02:16 verbose #7746 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:02:16 verbose #7747 > > level.l0 <- new_level
00:02:16 verbose #7748 > > )
00:02:16 verbose #7749 > >
00:02:16 verbose #7750 > > let get_trace_level () =
00:02:16 verbose #7751 > > #if !INTERACTIVE
00:02:16 verbose #7752 > > Trace.State.trace_state
00:02:16 verbose #7753 > > #else
00:02:16 verbose #7754 > > State.trace_state
00:02:16 verbose #7755 > > #endif
00:02:16 verbose #7756 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:02:16 verbose #7757 > > level.l0
00:02:16 verbose #7758 > > )
00:02:16 verbose #7759 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:02:16 verbose #7760 > > trace_state=None")
00:02:16 verbose #7761 > >
00:02:17 verbose #7762 > >
00:02:17 verbose #7763 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7764 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:17 verbose #7765 > >
00:02:17 verbose #7766 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7767 > > //// test
00:02:17 verbose #7768 > >
00:02:17 verbose #7769 > > type AssertExceptionFormatter (ex) =
00:02:17 verbose #7770 > > member _.Text =
00:02:17 verbose #7771 > > ex.ToString()
00:02:17 verbose #7772 > > .Replace("32m", "<span style=\"color: green;\">")
00:02:17 verbose #7773 > > .Replace("36m", "</span>")
00:02:17 verbose #7774 > > .Replace("31m", "<span style=\"color: red;\">")
00:02:17 verbose #7775 > > .Replace("\n", "<br/>\n")
00:02:17 verbose #7776 > >
00:02:17 verbose #7777 > >
00:02:17 verbose #7778 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:17 verbose #7779 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:17 verbose #7780 > >
00:02:17 verbose #7781 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7782 > > //// test
00:02:17 verbose #7783 > >
00:02:17 verbose #7784 > > let inline __expect fn log expected actual =
00:02:17 verbose #7785 > > if log then printfn $"{actual.ToDisplayString ()}"
00:02:17 verbose #7786 > > try
00:02:17 verbose #7787 > > "Testing.__expect" |> fn actual expected
00:02:17 verbose #7788 > > with :? Expecto.AssertException as ex ->
00:02:17 verbose #7789 > > AssertExceptionFormatter(ex).Display () |> ignore
00:02:17 verbose #7790 > > failwith (ex.GetType().FullName)
00:02:17 verbose #7791 > >
00:02:17 verbose #7792 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:17 verbose #7793 > > expected actual
00:02:17 verbose #7794 > > let inline _contains expected actual = __contains true expected actual
00:02:17 verbose #7795 > >
00:02:17 verbose #7796 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:17 verbose #7797 > > expected actual
00:02:17 verbose #7798 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:17 verbose #7799 > >
00:02:17 verbose #7800 > > let inline __isGreaterThan log expected actual = __expect
00:02:17 verbose #7801 > > Expecto.Expect.isGreaterThan log expected actual
00:02:17 verbose #7802 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:02:17 verbose #7803 > >
00:02:17 verbose #7804 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:02:17 verbose #7805 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:02:17 verbose #7806 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:02:17 verbose #7807 > > expected actual
00:02:17 verbose #7808 > >
00:02:17 verbose #7809 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:02:17 verbose #7810 > > log expected actual
00:02:17 verbose #7811 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:02:17 verbose #7812 > >
00:02:17 verbose #7813 > > let inline __isLessThanOrEqual log expected actual = __expect
00:02:17 verbose #7814 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:02:17 verbose #7815 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:02:17 verbose #7816 > > expected actual
00:02:17 verbose #7817 > >
00:02:17 verbose #7818 > > let inline __sequenceEqual log expected actual = __expect
00:02:17 verbose #7819 > > Expecto.Expect.sequenceEqual log expected actual
00:02:17 verbose #7820 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:02:17 verbose #7821 > >
00:02:17 verbose #7822 > > let inline __stringContains log expected actual = __expect
00:02:17 verbose #7823 > > Expecto.Expect.stringContains log expected actual
00:02:17 verbose #7824 > > let inline _stringContains expected actual = __stringContains true expected
00:02:17 verbose #7825 > > actual
00:02:17 verbose #7826 > >
00:02:17 verbose #7827 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:02:17 verbose #7828 > > log expected actual
00:02:17 verbose #7829 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:02:17 verbose #7830 > >
00:02:17 verbose #7831 > > let inline __stringStarts log expected actual = __expect
00:02:17 verbose #7832 > > Expecto.Expect.stringStarts log expected actual
00:02:17 verbose #7833 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:02:17 verbose #7834 > >
00:02:17 verbose #7835 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:02:17 verbose #7836 > > expected actual
00:02:17 verbose #7837 > > let inline _throwsC expected actual = __throwsC true expected actual
00:02:17 verbose #7838 > >
00:02:17 verbose #7839 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7840 > > //// test
00:02:17 verbose #7841 > >
00:02:17 verbose #7842 > > let inline __isBetween log a b actual =
00:02:17 verbose #7843 > > let inline isBetween actual (a, b) _ =
00:02:17 verbose #7844 > > __isGreaterThanOrEqual log a actual
00:02:17 verbose #7845 > > __isLessThanOrEqual log b actual
00:02:17 verbose #7846 > > __expect isBetween log (a, b) actual
00:02:17 verbose #7847 > > let inline _isBetween a b actual = __isBetween true a b actual
00:02:17 verbose #7848 > >
00:02:17 verbose #7849 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:17 verbose #7850 > > #!import ../../lib/fsharp/Common.fs
00:02:17 verbose #7851 > > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:17 verbose #7852 > > #!import ../../lib/fsharp/Async.fs
00:02:17 verbose #7853 > > #!import ../../lib/fsharp/AsyncSeq.fs
00:02:17 verbose #7854 > > #!import ../../lib/fsharp/Runtime.fs
00:02:17 verbose #7855 > >
00:02:17 verbose #7856 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7857 > > #if !INTERACTIVE
00:02:17 verbose #7858 > > namespace Polyglot
00:02:17 verbose #7859 > > #endif
00:02:17 verbose #7860 > >
00:02:17 verbose #7861 > > module Common =
00:02:17 verbose #7862 > >
00:02:17 verbose #7863 > > #if !INTERACTIVE
00:02:17 verbose #7864 > > open Lib
00:02:17 verbose #7865 > > #endif
00:02:17 verbose #7866 > >
00:02:17 verbose #7867 > > let nl = System.Environment.NewLine
00:02:17 verbose #7868 > > let q = @""""
00:02:17 verbose #7869 > >
00:02:17 verbose #7870 > > let inline cons head tail = head :: tail
00:02:17 verbose #7871 > >
00:02:17 verbose #7872 > > /// ## memoize
00:02:17 verbose #7873 > > let inline memoize fn =
00:02:17 verbose #7874 > > let result = lazy fn ()
00:02:17 verbose #7875 > > fun () -> result.Value
00:02:17 verbose #7876 > >
00:02:17 verbose #7877 > > /// ## TraceLevel
00:02:17 verbose #7878 > > type TraceLevel =
00:02:17 verbose #7879 > > | Verbose
00:02:17 verbose #7880 > > | Debug
00:02:17 verbose #7881 > > | Info
00:02:17 verbose #7882 > > | Warning
00:02:17 verbose #7883 > > | Critical
00:02:17 verbose #7884 > >
00:02:17 verbose #7885 > > let inline _locals () = ""
00:02:17 verbose #7886 > >
00:02:17 verbose #7887 > > /// ## trace
00:02:17 verbose #7888 > > let to_trace_level = function
00:02:17 verbose #7889 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:02:17 verbose #7890 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:02:17 verbose #7891 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:02:17 verbose #7892 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:02:17 verbose #7893 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:02:17 verbose #7894 > >
00:02:17 verbose #7895 > > let trace level fn locals =
00:02:17 verbose #7896 > > let level = level |> to_trace_level
00:02:17 verbose #7897 > > SpiralTrace.trace level fn locals
00:02:17 verbose #7898 > >
00:02:17 verbose #7899 > >
00:02:17 verbose #7900 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7901 > > #if !INTERACTIVE
00:02:17 verbose #7902 > > namespace Polyglot
00:02:17 verbose #7903 > > #endif
00:02:17 verbose #7904 > >
00:02:17 verbose #7905 > > module CommonFSharp =
00:02:17 verbose #7906 > >
00:02:17 verbose #7907 > > open Common
00:02:17 verbose #7908 > >
00:02:17 verbose #7909 > > /// ## getUnionCaseName
00:02:17 verbose #7910 > > let inline getUnionCaseName<'T> (x: 'T) =
00:02:17 verbose #7911 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:17 verbose #7912 > > | case, _ -> case.Name
00:02:17 verbose #7913 > >
00:02:17 verbose #7914 > >
00:02:17 verbose #7915 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:17 verbose #7916 > > #if !INTERACTIVE
00:02:17 verbose #7917 > > namespace Polyglot
00:02:17 verbose #7918 > > #endif
00:02:17 verbose #7919 > >
00:02:17 verbose #7920 > > module Async =
00:02:17 verbose #7921 > >
00:02:17 verbose #7922 > > #if !INTERACTIVE
00:02:17 verbose #7923 > > open Lib
00:02:17 verbose #7924 > > #endif
00:02:17 verbose #7925 > >
00:02:17 verbose #7926 > > open Common
00:02:17 verbose #7927 > >
00:02:17 verbose #7928 > > /// ## choice
00:02:17 verbose #7929 > > let inline choice asyncs = async {
00:02:17 verbose #7930 > > let e = Event<_> ()
00:02:17 verbose #7931 > > use cts = new System.Threading.CancellationTokenSource ()
00:02:17 verbose #7932 > > let fn =
00:02:17 verbose #7933 > > asyncs
00:02:17 verbose #7934 > > |> Seq.map (fun a -> async {
00:02:17 verbose #7935 > > let! x = a
00:02:17 verbose #7936 > > e.Trigger x
00:02:17 verbose #7937 > > })
00:02:17 verbose #7938 > > |> Async.Parallel
00:02:17 verbose #7939 > > |> Async.Ignore
00:02:17 verbose #7940 > > Async.Start (fn, cts.Token)
00:02:17 verbose #7941 > > let! result = Async.AwaitEvent e.Publish
00:02:17 verbose #7942 > > cts.Cancel ()
00:02:17 verbose #7943 > > return result
00:02:17 verbose #7944 > > }
00:02:17 verbose #7945 > >
00:02:17 verbose #7946 > > /// ## map
00:02:17 verbose #7947 > > let inline map fn a = async {
00:02:17 verbose #7948 > > let! x = a
00:02:17 verbose #7949 > > return fn x
00:02:17 verbose #7950 > > }
00:02:17 verbose #7951 > >
00:02:17 verbose #7952 > > /// ## catch
00:02:17 verbose #7953 > > let inline catch a =
00:02:17 verbose #7954 > > a
00:02:17 verbose #7955 > > |> Async.Catch
00:02:17 verbose #7956 > > |> map (function
00:02:17 verbose #7957 > > | Choice1Of2 result -> Ok result
00:02:17 verbose #7958 > > | Choice2Of2 ex -> Error ex
00:02:17 verbose #7959 > > )
00:02:17 verbose #7960 > >
00:02:17 verbose #7961 > > /// ## runWithTimeoutChoiceAsync
00:02:17 verbose #7962 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:02:17 verbose #7963 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:02:17 verbose #7964 > >
00:02:17 verbose #7965 > > let timeoutTask = async {
00:02:17 verbose #7966 > > do! Async.Sleep timeout
00:02:17 verbose #7967 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:02:17 verbose #7968 > > return None
00:02:17 verbose #7969 > > }
00:02:17 verbose #7970 > >
00:02:17 verbose #7971 > > let task = async {
00:02:17 verbose #7972 > > try
00:02:17 verbose #7973 > > let! result = fn
00:02:17 verbose #7974 > > return Some result
00:02:17 verbose #7975 > > with
00:02:17 verbose #7976 > > | :? System.AggregateException as ex when
00:02:17 verbose #7977 > > ex.InnerExceptions
00:02:17 verbose #7978 > > |> Seq.exists (function :? Sy... None
00:02:17 verbose #7979 > >
00:02:17 verbose #7980 > > /// ## awaitValueTask
00:02:17 verbose #7981 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:02:17 verbose #7982 > > task.AsTask () |> Async.AwaitTask
00:02:17 verbose #7983 > >
00:02:17 verbose #7984 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:02:17 verbose #7985 > > task.AsTask () |> Async.AwaitTask
00:02:17 verbose #7986 > >
00:02:17 verbose #7987 > > /// ## init
00:02:17 verbose #7988 > > let inline init x = async {
00:02:17 verbose #7989 > > return x
00:02:17 verbose #7990 > > }
00:02:17 verbose #7991 > >
00:02:17 verbose #7992 > > /// ## withCancellationToken
00:02:17 verbose #7993 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:02:17 verbose #7994 > > fn =
00:02:17 verbose #7995 > > Async.StartImmediateAsTask (fn, ct)
00:02:17 verbose #7996 > > |> Async.AwaitTask
00:02:17 verbose #7997 > >
00:02:17 verbose #7998 > > /// ## retryAsync
00:02:17 verbose #7999 > > let inline retryAsync retries fn =
00:02:17 verbose #8000 > > let rec loop retry lastError = async {
00:02:17 verbose #8001 > > try
00:02:17 verbose #8002 > > return!
00:02:17 verbose #8003 > > if retry <= retries
00:02:17 verbose #8004 > > then fn |> map Ok
00:02:17 verbose #8005 > > else lastError |> Error |> init
00:02:17 verbose #8006 > > with ex ->
00:02:17 verbose #8007 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:02:17 verbose #8008 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:02:17 verbose #8009 > > do! Async.Sleep 1
00:02:17 verbose #8010 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:02:17 verbose #8011 > > }
00:02:17 verbose #8012 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:02:17 verbose #8013 > >
00:02:17 verbose #8014 > > /// ## fold
00:02:17 verbose #8015 > > let fold folder state array =
00:02:17 verbose #8016 > > let rec loop acc i =
00:02:17 verbose #8017 > > async {
00:02:17 verbose #8018 > > if i < Array.length array then
00:02:17 verbose #8019 > > let! newAcc = folder acc array.[[i]]
00:02:17 verbose #8020 > > return! loop newAcc (i + 1)
00:02:17 verbose #8021 > > else
00:02:17 verbose #8022 > > return acc
00:02:17 verbose #8023 > > }
00:02:17 verbose #8024 > > loop state 0
00:02:17 verbose #8025 > >
00:02:19 verbose #8026 > >
00:02:19 verbose #8027 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:19 verbose #8028 > > #if !INTERACTIVE
00:02:19 verbose #8029 > > namespace Polyglot
00:02:19 verbose #8030 > > #endif
00:02:19 verbose #8031 > >
00:02:19 verbose #8032 > > module AsyncSeq =
00:02:19 verbose #8033 > >
00:02:19 verbose #8034 > > #if !INTERACTIVE
00:02:19 verbose #8035 > > open Lib
00:02:19 verbose #8036 > > #endif
00:02:19 verbose #8037 > >
00:02:19 verbose #8038 > > open Common
00:02:19 verbose #8039 > >
00:02:19 verbose #8040 > > /// ## subscribeEvent
00:02:19 verbose #8041 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:02:19 verbose #8042 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:02:19 verbose #8043 > > 'A>(event.AddHandler, event.RemoveHandler)
00:02:19 verbose #8044 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:02:19 verbose #8045 > > event.EventArgs)
00:02:19 verbose #8046 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:02:19 verbose #8047 > >
00:02:19 verbose #8048 > > /// ## subscribeToken
00:02:19 verbose #8049 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:02:19 verbose #8050 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:02:19 verbose #8051 > > System.Action tcs.SetResult |> token.Register |> ignore
00:02:19 verbose #8052 > > let start = System.DateTime.Now.Ticks
00:02:19 verbose #8053 > > FSharp.Control.AsyncSeq.unfoldAsync
00:02:19 verbose #8054 > > (fun () -> async {
00:02:19 verbose #8055 > > do! tcs.Task |> Async.AwaitTask
00:02:19 verbose #8056 > > return Some (System.DateTime.Now.Ticks - start, ())
00:02:19 verbose #8057 > > })
00:02:19 verbose #8058 > > ()
00:02:19 verbose #8059 > >
00:02:19 verbose #8060 > >
00:02:19 verbose #8061 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:19 verbose #8062 > > #if !INTERACTIVE
00:02:19 verbose #8063 > > namespace Polyglot
00:02:19 verbose #8064 > > #endif
00:02:19 verbose #8065 > >
00:02:19 verbose #8066 > > module Runtime =
00:02:19 verbose #8067 > >
00:02:19 verbose #8068 > > #if !INTERACTIVE
00:02:19 verbose #8069 > > open Lib
00:02:19 verbose #8070 > > #endif
00:02:19 verbose #8071 > >
00:02:19 verbose #8072 > > open Common
00:02:19 verbose #8073 > >
00:02:19 verbose #8074 > > /// ## parseArgs
00:02:19 verbose #8075 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:19 verbose #8076 > > let assemblyName =
00:02:19 verbose #8077 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:19 verbose #8078 > > let errorHandler : Argu.IExiter =
00:02:19 verbose #8079 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:19 verbose #8080 > > List.contains assemblyName
00:02:19 verbose #8081 > > then Argu.ExceptionExiter ()
00:02:19 verbose #8082 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:02:19 verbose #8083 > > _ -> Some System.ConsoleColor.Red)
00:02:19 verbose #8084 > >
00:02:19 verbose #8085 > > let parser =
00:02:19 verbose #8086 > > Argu.ArgumentParser.Create<'T> (
00:02:19 verbose #8087 > > programName =
00:02:19 verbose #8088 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:02:19 verbose #8089 > > errorHandler = errorHandler
00:02:19 verbose #8090 > > )
00:02:19 verbose #8091 > >
00:02:19 verbose #8092 > > parser.ParseCommandLine args
00:02:19 verbose #8093 > >
00:02:19 verbose #8094 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:19 verbose #8095 > > args
00:02:19 verbose #8096 > > |> parseArgs<'T>
00:02:19 verbose #8097 > > |> fun results -> results.GetAllResults ()
00:02:19 verbose #8098 > >
00:02:19 verbose #8099 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:19 verbose #8100 > > args
00:02:19 verbose #8101 > > |> parseAllArgs<'T>
00:02:19 verbose #8102 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:02:19 verbose #8103 > > |> Map.ofList
00:02:19 verbose #8104 > >
00:02:19 verbose #8105 > >
00:02:19 verbose #8106 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:19 verbose #8107 > > #if !INTERACTIVE
00:02:19 verbose #8108 > > open Lib
00:02:19 verbose #8109 > > #endif
00:02:19 verbose #8110 > >
00:02:19 verbose #8111 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:19 verbose #8112 > > open Common
00:02:19 verbose #8113 > > open SpiralFileSystem.Operators
00:02:19 verbose #8114 > >
00:02:19 verbose #8115 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:19 verbose #8116 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:19 verbose #8117 > > │ ## watchDirectory │
00:02:19 verbose #8118 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:19 verbose #8119 > >
00:02:19 verbose #8120 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:19 verbose #8121 > > [[<RequireQualifiedAccess>]]
00:02:19 verbose #8122 > > type FileSystemChangeType =
00:02:19 verbose #8123 > > | Failure
00:02:19 verbose #8124 > > | Changed
00:02:19 verbose #8125 > > | Created
00:02:19 verbose #8126 > > | Deleted
00:02:19 verbose #8127 > > | Renamed
00:02:19 verbose #8128 > >
00:02:19 verbose #8129 > > [[<RequireQualifiedAccess>]]
00:02:19 verbose #8130 > > type FileSystemChange =
00:02:19 verbose #8131 > > | Failure of exn: exn
00:02:19 verbose #8132 > > | Changed of path: string * content: string option
00:02:19 verbose #8133 > > | Created of path: string * content: string option
00:02:19 verbose #8134 > > | Deleted of path: string
00:02:19 verbose #8135 > > | Renamed of oldPath: string * (string * string option)
00:02:19 verbose #8136 > >
00:02:19 verbose #8137 > >
00:02:19 verbose #8138 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:02:19 verbose #8139 > > let fullPath = path |> System.IO.Path.GetFullPath
00:02:19 verbose #8140 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:02:19 verbose #8141 > >
00:02:19 verbose #8142 > > let watcher =
00:02:19 verbose #8143 > > new System.IO.FileSystemWatcher (
00:02:19 verbose #8144 > > Path = fullPath,
00:02:19 verbose #8145 > > NotifyFilter = filter,
00:02:19 verbose #8146 > > EnableRaisingEvents = true,
00:02:19 verbose #8147 > > IncludeSubdirectories = true
00:02:19 verbose #8148 > > )
00:02:19 verbose #8149 > >
00:02:19 verbose #8150 > > let inline getEventPath (path : string) =
00:02:19 verbose #8151 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:02:19 verbose #8152 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:02:19 verbose #8153 > >
00:02:19 verbose #8154 > > let inline ticks () =
00:02:19 verbose #8155 > > System.DateTime.UtcNow.Ticks
00:02:19 verbose #8156 > >
00:02:19 verbose #8157 > > let changedStream =
00:02:19 verbose #8158 > > AsyncSeq.subscribeEvent
00:02:19 verbose #8159 > > watcher.Changed
00:02:19 verbose #8160 > > (fun event ->
00:02:19 verbose #8161 > > ticks (),
00:02:19 verbose #8162 > > [[ FileSystemChange.Changed (getEventPath event.FullPath, None)
00:02:19 verbose #8163 > > ]]
00:02:19 verbose #8164 > > )
00:02:19 verbose #8165 > >
00:02:19 verbose #8166 > > let deletedStream =
00:02:19 verbose #8167 > > AsyncSeq.subscribeEvent
00:02:19 verbose #8168 > > watcher.Deleted
00:02:19 verbose #8169 > > (fun event ->
00:02:19 verbose #8170 > > ticks (),
00:02:19 verbose #8171 > > [[ FileSystemChange.Deleted (getEventPath event.FullPath) ]]
00:02:19 verbose #8172 > > )
00:02:19 verbose #8173 > >
00:02:19 verbose #8174 > > let createdStream =
00:02:19 verbose #8175 > > AsyncSeq.subscribeEvent
00:02:19 verbose #8176 > > watcher.Created
00:02:19 verbose #8177 > > (fun event ->
00:02:19 verbose #8178 > > let path = getEventPath event.FullPath
00:02:19 verbose #8179 > > ticks (), [[
00:02:19 verbose #8180 > > FileSystemChange.Created (path, None)
00:02:19 verbose #8181 > > if SpiralPlatform.is_windows () then
00:02:19 verbose #8182 > > FileSystemChange.Changed (path, None)
00:02:19 verbose #8183 > > ]])
00:02:19 verbose #8184 > >
00:02:19 verbose #8185 > > let renamedStream =
00:02:19 verbose #8186 > > AsyncSeq.subscribeEvent
00:02:19 verbose #8187 > > watcher.Renamed
00:02:19 verbose #8188 > > (fun event ->
00:02:19 verbose #8189 > > ticks (), [[
00:02:19 verbose #8190 > > FileSystemChange.Renamed (
00:02:19 verbose #8191 > > getEventPath event.OldFullPath,
00:02:19 verbose #8192 > > (getEventPath event.FullPath, None)
00:02:19 verbose #8193 > > )
00:02:19 verbose #8194 > > ]]
00:02:19 verbose #8195 > > )
00:02:19 verbose #8196 > >
00:02:19 verbose #8197 > > let failureStream =
00:02:19 verbose #8198 > > AsyncSeq.subscribeEvent
00:02:19 verbose #8199 > > watcher.Error
00:02:19 verbose #8200 > > (fun event -> ticks (), [[ FileSystemChange.Failure
00:02:19 verbose #8201 > > (event.GetException ()) ]])
00:02:19 verbose #8202 > >
00:02:19 verbose #8203 > > let stream =
00:02:19 verbose #8204 > > [[
00:02:19 verbose #8205 > > changedStream
00:02:19 verbose #8206 > > deletedStream
00:02:19 verbose #8207 > > createdStream
00:02:19 verbose #8208 > > renamedStream
00:02:19 verbose #8209 > > failureStream
00:02:19 verbose #8210 > > ]]
00:02:19 verbose #8211 > > |> FSharp.Control.AsyncSeq.mergeAll
00:02:19 verbose #8212 > > |> FSharp.Control.AsyncSeq.map (fun (t, events) ->
00:02:19 verbose #8213 > > events
00:02:19 verbose #8214 > > |> List.fold
00:02:19 verbose #8215 > > (fun (i, events) event ->
00:02:19 verbose #8216 > > i + 1L,
00:02:19 verbose #8217 > > (t + i, event) :: events)
00:02:19 verbose #8218 > > (0L, [[]])
00:02:19 verbose #8219 > > |> snd
00:02:19 verbose #8220 > > |> List.rev
00:02:19 verbose #8221 > > )
00:02:19 verbose #8222 > > |> FSharp.Control.AsyncSeq.concatSeq
00:02:19 verbose #8223 > > |> FSharp.Control.AsyncSeq.mapAsyncParallel (fun (t, event) -> async {
00:02:19 verbose #8224 > > match shouldReadContent event, event with
00:02:19 verbose #8225 > > | true, FileSystemChange.Changed (path, _) ->
00:02:19 verbose #8226 > > do! Async.Sleep 5
00:02:19 verbose #8227 > > let! content = fullPath </> path |>
00:02:19 verbose #8228 > > SpiralFileSystem.read_all_text_retry_async
00:02:19 verbose #8229 > > return t, FileSystemChange.Changed (path, content)
00:02:19 verbose #8230 > > | true, FileSystemChange.Created (path, _) ->
00:02:19 verbose #8231 > > do! Async.Sleep 5
00:02:19 verbose #8232 > > let! content = fullPath </> path |>
00:02:19 verbose #8233 > > SpiralFileSystem.read_all_text_retry_async
00:02:19 verbose #8234 > > return t, FileSystemChange.Created (path, content)
00:02:19 verbose #8235 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:02:19 verbose #8236 > > let! content = fullPath </> newPath |>
00:02:19 verbose #8237 > > SpiralFileSystem.read_all_text_retry_async
00:02:19 verbose #8238 > > return t, FileSystemChange.Renamed (oldPath, (newPath, content))
00:02:19 verbose #8239 > > | _ -> return t, event
00:02:19 verbose #8240 > > })
00:02:19 verbose #8241 > >
00:02:19 verbose #8242 > > let disposable =
00:02:19 verbose #8243 > > new_disposable (fun () ->
00:02:19 verbose #8244 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing watch
00:02:19 verbose #8245 > > stream") _locals
00:02:19 verbose #8246 > > watcher.EnableRaisingEvents <- false
00:02:19 verbose #8247 > > watcher.Dispose ()
00:02:19 verbose #8248 > > )
00:02:19 verbose #8249 > >
00:02:19 verbose #8250 > > stream, disposable
00:02:19 verbose #8251 > >
00:02:19 verbose #8252 > > let inline watchDirectory path =
00:02:19 verbose #8253 > > watchDirectoryWithFilter
00:02:19 verbose #8254 > > (System.IO.NotifyFilters.FileName
00:02:19 verbose #8255 > > // ||| System.IO.NotifyFilters.DirectoryName
00:02:19 verbose #8256 > > // ||| System.IO.NotifyFilters.Attributes
00:02:19 verbose #8257 > > //// ||| System.IO.NotifyFilters.Size
00:02:19 verbose #8258 > > ||| System.IO.NotifyFilters.LastWrite
00:02:19 verbose #8259 > > //// ||| System.IO.NotifyFilters.LastAccess
00:02:19 verbose #8260 > > // ||| System.IO.NotifyFilters.CreationTime
00:02:19 verbose #8261 > > // ||| System.IO.NotifyFilters.Security
00:02:19 verbose #8262 > > )
00:02:19 verbose #8263 > > path
00:02:20 verbose #8264 > >
00:02:20 verbose #8265 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:20 verbose #8266 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:20 verbose #8267 > > │ ### testEventsRaw (test) │
00:02:20 verbose #8268 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #8269 > >
00:02:20 verbose #8270 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #8271 > > //// test
00:02:20 verbose #8272 > >
00:02:20 verbose #8273 > > let inline testEventsRaw
00:02:20 verbose #8274 > > (watchFn : (_ -> bool) -> string -> FSharp.Control.AsyncSeq<int64 *
00:02:20 verbose #8275 > > FileSystemChange> * IDisposable)
00:02:20 verbose #8276 > > write
00:02:20 verbose #8277 > > =
00:02:20 verbose #8278 > > let struct (tempDir, tempDisposable) =
00:02:20 verbose #8279 > > "FileSystem.testEventsRaw"
00:02:20 verbose #8280 > > |> SpiralCrypto.hash_text
00:02:20 verbose #8281 > > |> SpiralFileSystem.create_temp_dir'
00:02:20 verbose #8282 > > let stream, disposable = watchFn (fun _ -> true) tempDir
00:02:20 verbose #8283 > >
00:02:20 verbose #8284 > > let events = System.Collections.Concurrent.ConcurrentBag ()
00:02:20 verbose #8285 > >
00:02:20 verbose #8286 > > let inline iter () =
00:02:20 verbose #8287 > > stream
00:02:20 verbose #8288 > > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:02:20 verbose #8289 > > events.Add event })
00:02:20 verbose #8290 > >
00:02:20 verbose #8291 > > let run = async {
00:02:20 verbose #8292 > > let! _ = iter () |> Async.StartChild
00:02:20 verbose #8293 > > do! Async.Sleep 250
00:02:20 verbose #8294 > > return! write tempDir
00:02:20 verbose #8295 > > }
00:02:20 verbose #8296 > >
00:02:20 verbose #8297 > > try
00:02:20 verbose #8298 > > run
00:02:20 verbose #8299 > > |> Async.runWithTimeout 60000
00:02:20 verbose #8300 > > |> _assertEqual (Some ())
00:02:20 verbose #8301 > > finally
00:02:20 verbose #8302 > > disposable.Dispose ()
00:02:20 verbose #8303 > > tempDisposable.Dispose ()
00:02:20 verbose #8304 > >
00:02:20 verbose #8305 > > let eventsLog =
00:02:20 verbose #8306 > > events
00:02:20 verbose #8307 > > |> Seq.toList
00:02:20 verbose #8308 > > |> List.sortBy fst
00:02:20 verbose #8309 > > |> List.fold
00:02:20 verbose #8310 > > (fun (prev, acc) (ticks, event) ->
00:02:20 verbose #8311 > > ticks, (ticks, (if prev = 0L then 0L else ticks - prev), event)
00:02:20 verbose #8312 > > :: acc
00:02:20 verbose #8313 > > )
00:02:20 verbose #8314 > > (0L, [[]])
00:02:20 verbose #8315 > > |> snd
00:02:20 verbose #8316 > > |> List.rev
00:02:20 verbose #8317 > > |> List.map (fun (diff, n, event) -> $"{n} / {diff} / {event}" |>
00:02:20 verbose #8318 > > SpiralSm.ellipsis_end 100L)
00:02:20 verbose #8319 > > |> SpiralSm.concat "\n"
00:02:20 verbose #8320 > > let _locals () = $"eventsLog: \n{eventsLog} / {_locals ()}"
00:02:20 verbose #8321 > > trace Debug (fun () -> "FileSystem.testEventsRaw") _locals
00:02:20 verbose #8322 > >
00:02:20 verbose #8323 > > events
00:02:20 verbose #8324 > > |> Seq.toList
00:02:20 verbose #8325 > > |> List.sortBy fst
00:02:20 verbose #8326 > > |> List.map snd
00:02:20 verbose #8327 > > |> List.fold
00:02:20 verbose #8328 > > (fun acc event ->
00:02:20 verbose #8329 > > match acc, event with
00:02:20 verbose #8330 > > | FileSystemChange.Changed (lastPath, Some lastContent) as lastEvent
00:02:20 verbose #8331 > > :: acc,
00:02:20 verbose #8332 > > FileSystemChange.Changed (path, Some content)
00:02:20 verbose #8333 > > when lastPath = path && content |> SpiralSm.starts_with
00:02:20 verbose #8334 > > lastContent
00:02:20 verbose #8335 > > ->
00:02:20 verbose #8336 > > event :: acc
00:02:20 verbose #8337 > > | _ -> event :: acc
00:02:20 verbose #8338 > > )
00:02:20 verbose #8339 > > [[]]
00:02:20 verbose #8340 > > |> List.rev
00:02:20 verbose #8341 > >
00:02:20 verbose #8342 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:20 verbose #8343 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:20 verbose #8344 > > │ #### fast (test) │
00:02:20 verbose #8345 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 verbose #8346 > >
00:02:20 verbose #8347 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:20 verbose #8348 > > //// test
00:02:20 verbose #8349 > >
00:02:20 verbose #8350 > > let inline write path = async {
00:02:20 verbose #8351 > > let n = 2
00:02:20 verbose #8352 > >
00:02:20 verbose #8353 > > for i = 1 to n do
00:02:20 verbose #8354 > > do! $"a{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:20 verbose #8355 > > $"file{i}.txt")
00:02:20 verbose #8356 > >
00:02:20 verbose #8357 > > do! Async.Sleep 250
00:02:20 verbose #8358 > >
00:02:20 verbose #8359 > > for i = 1 to n do
00:02:20 verbose #8360 > > do! $"b{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:20 verbose #8361 > > $"file{i}.txt")
00:02:20 verbose #8362 > >
00:02:20 verbose #8363 > > do! Async.Sleep 250
00:02:20 verbose #8364 > >
00:02:20 verbose #8365 > > for i = 1 to n do
00:02:20 verbose #8366 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:20 verbose #8367 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:20 verbose #8368 > >
00:02:20 verbose #8369 > > do! Async.Sleep 250
00:02:20 verbose #8370 > >
00:02:20 verbose #8371 > > for i = 1 to n do
00:02:20 verbose #8372 > > do! $"c{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:20 verbose #8373 > > $"file_{i}.txt")
00:02:20 verbose #8374 > >
00:02:20 verbose #8375 > > do! Async.Sleep 250
00:02:20 verbose #8376 > >
00:02:20 verbose #8377 > > for i = 1 to n do
00:02:20 verbose #8378 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:20 verbose #8379 > > Async.Ignore
00:02:20 verbose #8380 > >
00:02:20 verbose #8381 > > do! Async.Sleep 250
00:02:20 verbose #8382 > > }
00:02:20 verbose #8383 > >
00:02:20 verbose #8384 > > let inline run () =
00:02:20 verbose #8385 > > let events = testEventsRaw watchDirectory write
00:02:20 verbose #8386 > >
00:02:20 verbose #8387 > > events
00:02:20 verbose #8388 > > |> _sequenceEqual [[
00:02:20 verbose #8389 > > FileSystemChange.Created ("file1.txt", Some "a1")
00:02:20 verbose #8390 > > FileSystemChange.Changed ("file1.txt", Some "a1")
00:02:20 verbose #8391 > > FileSystemChange.Created ("file2.txt", Some "a2")
00:02:20 verbose #8392 > > FileSystemChange.Changed ("file2.txt", Some "a2")
00:02:20 verbose #8393 > >
00:02:20 verbose #8394 > > FileSystemChange.Changed ("file1.txt", Some "b1")
00:02:20 verbose #8395 > > FileSystemChange.Changed ("file2.txt", Some "b2")
00:02:20 verbose #8396 > >
00:02:20 verbose #8397 > > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "b1"))
00:02:20 verbose #8398 > > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "b2"))
00:02:20 verbose #8399 > >
00:02:20 verbose #8400 > > FileSystemChange.Changed ("file_1.txt", Some "c1")
00:02:20 verbose #8401 > > FileSystemChange.Changed ("file_2.txt", Some "c2")
00:02:20 verbose #8402 > >
00:02:20 verbose #8403 > > FileSystemChange.Deleted "file_1.txt"
00:02:20 verbose #8404 > > FileSystemChange.Deleted "file_2.txt"
00:02:20 verbose #8405 > > ]]
00:02:20 verbose #8406 > >
00:02:20 verbose #8407 > > run
00:02:20 verbose #8408 > > |> retry_fn 3
00:02:20 verbose #8409 > > |> _assertEqual (Some ())
00:02:23 verbose #8410 > >
00:02:23 verbose #8411 > > ╭─[ 3.55s - stdout ]───────────────────────────────────────────────────────────╮
00:02:23 verbose #8412 > > │ Some () │
00:02:23 verbose #8413 > > │ │
00:02:23 verbose #8414 > > │ 00:00:06 debug #1 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:23 verbose #8415 > > │ filter: FileName, LastWrite │
00:02:23 verbose #8416 > > │ 00:00:06 debug #2 FileSystem.testEventsRaw / eventsLog: │
00:02:23 verbose #8417 > > │ 0 / 638532390374755368 / Created ("file1.txt", Some "a1") │
00:02:23 verbose #8418 > > │ 1 / 638532390374755369 / Changed ("file1.txt", Some "a1") │
00:02:23 verbose #8419 > > │ 19150 / 638532390374774519 / Changed ("file1.txt", Some "a1") │
00:02:23 verbose #8420 > > │ 748 / 638532390374775267 / Created ("file2.txt", Some "a2") │
00:02:23 verbose #8421 > > │ 1 / 638532390374775268 / Changed ("file2.txt", Some "a2") │
00:02:23 verbose #8422 > > │ 117 / 638532390374775385 / Changed ("file2.txt", Some "a2") │
00:02:23 verbose #8423 > > │ 2456046 / 638532390377231431 / Changed ("file1.txt", Some "b1") │
00:02:23 verbose #8424 > > │ 1947 / 638532390377233378 / Changed ("file1.txt", Some "b1") │
00:02:23 verbose #8425 > > │ 7673 / 638532390377241051 / Changed ("file2.txt", Some "b2") │
00:02:23 verbose #8426 > > │ 1866 / 638532390377242917 / Changed ("file2.txt", Some "b2") │
00:02:23 verbose #8427 > > │ 2547784 / 638532390379790701 / Renamed ("file1.txt", ("file_1.txt", Some │
00:02:23 verbose #8428 > > │ "b1")) │
00:02:23 verbose #8429 > > │ 25907 / 638532390379816608 / Renamed ("file2.txt", ("file_2.txt", Some │
00:02:23 verbose #8430 > > │ "b2")) │
00:02:23 verbose #8431 > > │ 2433829 / 638532390382250437 / Changed ("file_1.txt", Some "c1") │
00:02:23 verbose #8432 > > │ 2218 / 638532390382252655 / Changed ("file_1.txt", Some "c1") │
00:02:23 verbose #8433 > > │ 8145 / 638532390382260800 / Changed ("file_2.txt", Some "c2") │
00:02:23 verbose #8434 > > │ 1931 / 638532390382262731 / Changed ("file_2.txt", Some "c2") │
00:02:23 verbose #8435 > > │ 2515349 / 638532390384778080 / Deleted "file_1.txt" │
00:02:23 verbose #8436 > > │ 5823 / 638532390384783903 / Deleted "file_2.txt" │
00:02:23 verbose #8437 > > │ [Created ("file1.txt", Some "a1"); Changed ("file1.txt", Some "a1"); Created │
00:02:23 verbose #8438 > > │ ("file2.txt", Some "a2"); │
00:02:23 verbose #8439 > > │ Changed ("file2.txt", Some "a2"); Changed ("file1.txt", Some "b1"); Changed │
00:02:23 verbose #8440 > > │ ("file2.txt", Some "b2"); │
00:02:23 verbose #8441 > > │ Renamed ("file1.txt", ("file_1.txt", Some "b1")); Renamed ("file2.txt", │
00:02:23 verbose #8442 > > │ ("file_2.txt", Some "b2")); │
00:02:23 verbose #8443 > > │ Changed ("file_1.txt", Some "c1"); Changed ("file_2.txt", Some "c2"); │
00:02:23 verbose #8444 > > │ Deleted "file_1.txt"; Deleted "file_2.txt"] │
00:02:23 verbose #8445 > > │ │
00:02:23 verbose #8446 > > │ Some () │
00:02:23 verbose #8447 > > │ │
00:02:23 verbose #8448 > > │ │
00:02:23 verbose #8449 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 verbose #8450 > >
00:02:23 verbose #8451 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:23 verbose #8452 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:23 verbose #8453 > > │ #### slow (test) │
00:02:23 verbose #8454 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:23 verbose #8455 > >
00:02:23 verbose #8456 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:23 verbose #8457 > > //// test
00:02:23 verbose #8458 > >
00:02:23 verbose #8459 > > let inline write path = async {
00:02:23 verbose #8460 > > let n = 2
00:02:23 verbose #8461 > >
00:02:23 verbose #8462 > > let contents =
00:02:23 verbose #8463 > > [[ 1 .. n ]]
00:02:23 verbose #8464 > > |> List.map (string >> String.replicate 1_000_000)
00:02:23 verbose #8465 > >
00:02:23 verbose #8466 > > for i = 1 to n do
00:02:23 verbose #8467 > > do! $"{contents.[[i - 1]]}a" |> SpiralFileSystem.write_all_text_async
00:02:23 verbose #8468 > > (path </> $"file{i}.txt")
00:02:23 verbose #8469 > >
00:02:23 verbose #8470 > > do! Async.Sleep 1500
00:02:23 verbose #8471 > >
00:02:23 verbose #8472 > > for i = 1 to n do
00:02:23 verbose #8473 > > do! $"{contents.[[i - 1]]}b" |> SpiralFileSystem.write_all_text_async
00:02:23 verbose #8474 > > (path </> $"file{i}.txt")
00:02:23 verbose #8475 > >
00:02:23 verbose #8476 > > do! Async.Sleep 1500
00:02:23 verbose #8477 > >
00:02:23 verbose #8478 > > for i = 1 to n do
00:02:23 verbose #8479 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:23 verbose #8480 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:23 verbose #8481 > >
00:02:23 verbose #8482 > > do! Async.Sleep 1500
00:02:23 verbose #8483 > >
00:02:23 verbose #8484 > > for i = 1 to n do
00:02:23 verbose #8485 > > do! $"{contents.[[i - 1]]}c" |> SpiralFileSystem.write_all_text_async
00:02:23 verbose #8486 > > (path </> $"file_{i}.txt")
00:02:23 verbose #8487 > >
00:02:23 verbose #8488 > > do! Async.Sleep 1500
00:02:23 verbose #8489 > >
00:02:23 verbose #8490 > > for i = 1 to n do
00:02:23 verbose #8491 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:23 verbose #8492 > > Async.Ignore
00:02:23 verbose #8493 > >
00:02:23 verbose #8494 > > do! Async.Sleep 1500
00:02:23 verbose #8495 > > }
00:02:23 verbose #8496 > >
00:02:23 verbose #8497 > > let inline run () =
00:02:23 verbose #8498 > > let events =
00:02:23 verbose #8499 > > testEventsRaw watchDirectory write
00:02:23 verbose #8500 > > |> List.map (function
00:02:23 verbose #8501 > > | FileSystemChange.Changed (path, Some content) ->
00:02:23 verbose #8502 > > FileSystemChange.Changed (path, content |> Seq.distinct |>
00:02:23 verbose #8503 > > Seq.map string |> SpiralSm.concat "" |> Some)
00:02:23 verbose #8504 > > | FileSystemChange.Created (path, Some content) ->
00:02:23 verbose #8505 > > FileSystemChange.Created (path, content |> Seq.distinct |>
00:02:23 verbose #8506 > > Seq.map string |> SpiralSm.concat "" |> Some)
00:02:23 verbose #8507 > > | FileSystemChange.Renamed (oldPath, (newPath, Some content)) ->
00:02:23 verbose #8508 > > FileSystemChange.Renamed (
00:02:23 verbose #8509 > > oldPath,
00:02:23 verbose #8510 > > (newPath, content |> Seq.distinct |> Seq.map string |>
00:02:23 verbose #8511 > > SpiralSm.concat "" |> Some)
00:02:23 verbose #8512 > > )
00:02:23 verbose #8513 > > | event -> event
00:02:23 verbose #8514 > > )
00:02:23 verbose #8515 > >
00:02:23 verbose #8516 > > events
00:02:23 verbose #8517 > > |> _sequenceEqual [[
00:02:23 verbose #8518 > > FileSystemChange.Created ("file1.txt", Some "1a")
00:02:23 verbose #8519 > > FileSystemChange.Changed ("file1.txt", Some "1a")
00:02:23 verbose #8520 > > FileSystemChange.Created ("file2.txt", Some "2a")
00:02:23 verbose #8521 > > FileSystemChange.Changed ("file2.txt", Some "2a")
00:02:23 verbose #8522 > >
00:02:23 verbose #8523 > > FileSystemChange.Changed ("file1.txt", Some "1b")
00:02:23 verbose #8524 > > FileSystemChange.Changed ("file2.txt", Some "2b")
00:02:23 verbose #8525 > >
00:02:23 verbose #8526 > > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "1b"))
00:02:23 verbose #8527 > > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "2b"))
00:02:23 verbose #8528 > >
00:02:23 verbose #8529 > > FileSystemChange.Changed ("file_1.txt", Some "1c")
00:02:23 verbose #8530 > > FileSystemChange.Changed ("file_2.txt", Some "2c")
00:02:23 verbose #8531 > >
00:02:23 verbose #8532 > > FileSystemChange.Deleted "file_1.txt"
00:02:23 verbose #8533 > > FileSystemChange.Deleted "file_2.txt"
00:02:23 verbose #8534 > > ]]
00:02:23 verbose #8535 > >
00:02:23 verbose #8536 > > run
00:02:23 verbose #8537 > > |> retry_fn 5
00:02:23 verbose #8538 > > |> _assertEqual (Some ())
00:02:34 verbose #8539 > >
00:02:34 verbose #8540 > > ╭─[ 10.73s - stdout ]──────────────────────────────────────────────────────────╮
00:02:34 verbose #8541 > > │ Some () │
00:02:34 verbose #8542 > > │ │
00:02:34 verbose #8543 > > │ 00:00:17 debug #3 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:34 verbose #8544 > > │ filter: FileName, LastWrite │
00:02:34 verbose #8545 > > │ 00:00:17 debug #4 FileSystem.testEventsRaw / eventsLog: │
00:02:34 verbose #8546 > > │ 0 / 638532390414769660 / Created │
00:02:34 verbose #8547 > > │ ("file1.txt", │
00:02:34 verbose #8548 > > │ ...11111111111111111111111111111111111111111111111a") │
00:02:34 verbose #8549 > > │ 1 / 638532390414769661 / Changed │
00:02:34 verbose #8550 > > │ ("file1.txt", │
00:02:34 verbose #8551 > > │ ...11111111111111111111111111111111111111111111111a") │
00:02:34 verbose #8552 > > │ 84407 / 638532390414854068 / Changed │
00:02:34 verbose #8553 > > │ ("file1.txt...11111111111111111111111111111111111111111111111a") │
00:02:34 verbose #8554 > > │ 19587 / 638532390414873655 / Created │
00:02:34 verbose #8555 > > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:02:34 verbose #8556 > > │ 1 / 638532390414873656 / Changed │
00:02:34 verbose #8557 > > │ ("file2.txt", │
00:02:34 verbose #8558 > > │ ...22222222222222222222222222222222222222222222222a") │
00:02:34 verbose #8559 > > │ 82751 / 638532390414956407 / Changed │
00:02:34 verbose #8560 > > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:02:34 verbose #8561 > > │ 15007338 / 638532390429963745 / Changed │
00:02:34 verbose #8562 > > │ ("file1....11111111111111111111111111111111111111111111111b") │
00:02:34 verbose #8563 > > │ 81583 / 638532390430045328 / Changed │
00:02:34 verbose #8564 > > │ ("file1.txt...11111111111111111111111111111111111111111111111b") │
00:02:34 verbose #8565 > > │ 29237 / 638532390430074565 / Changed │
00:02:34 verbose #8566 > > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:02:34 verbose #8567 > > │ 92318 / 638532390430166883 / Changed │
00:02:34 verbose #8568 > > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:02:34 verbose #8569 > > │ 15006445 / 638532390445173328 / Renamed │
00:02:34 verbose #8570 > > │ ("file1....1111111111111111111111111111111111111111111111b")) │
00:02:34 verbose #8571 > > │ 3356 / 638532390445176684 / Renamed │
00:02:34 verbose #8572 > > │ ("file2.txt"...2222222222222222222222222222222222222222222222b")) │
00:02:34 verbose #8573 > > │ 15077332 / 638532390460254016 / Changed │
00:02:34 verbose #8574 > > │ ("file_1...11111111111111111111111111111111111111111111111c") │
00:02:34 verbose #8575 > > │ 90335 / 638532390460344351 / Changed │
00:02:34 verbose #8576 > > │ ("file_1.tx...11111111111111111111111111111111111111111111111c") │
00:02:34 verbose #8577 > > │ 45019 / 638532390460389370 / Changed │
00:02:34 verbose #8578 > > │ ("file_2.tx...22222222222222222222222222222222222222222222222c") │
00:02:34 verbose #8579 > > │ 77916 / 638532390460467286 / Changed │
00:02:34 verbose #8580 > > │ ("file_2.tx...22222222222222222222222222222222222222222222222c") │
00:02:34 verbose #8581 > > │ 15061354 / 638532390475528640 / Deleted "file_1.txt" │
00:02:34 verbose #8582 > > │ 9219 / 638532390475537859 / Deleted "file_2.txt" │
00:02:34 verbose #8583 > > │ [Created ("file1.txt", Some "1a"); Changed ("file1.txt", Some "1a"); Created │
00:02:34 verbose #8584 > > │ ("file2.txt", Some "2a"); │
00:02:34 verbose #8585 > > │ Changed ("file2.txt", Some "2a"); Changed ("file1.txt", Some "1b"); Changed │
00:02:34 verbose #8586 > > │ ("file2.txt", Some "2b"); │
00:02:34 verbose #8587 > > │ Renamed ("file1.txt", ("file_1.txt", Some "1b")); Renamed ("file2.txt", │
00:02:34 verbose #8588 > > │ ("file_2.txt", Some "2b")); │
00:02:34 verbose #8589 > > │ Changed ("file_1.txt", Some "1c"); Changed ("file_2.txt", Some "2c"); │
00:02:34 verbose #8590 > > │ Deleted "file_1.txt"; Deleted "file_2.txt"] │
00:02:34 verbose #8591 > > │ │
00:02:34 verbose #8592 > > │ Some () │
00:02:34 verbose #8593 > > │ │
00:02:34 verbose #8594 > > │ │
00:02:34 verbose #8595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #8596 > >
00:02:34 verbose #8597 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 verbose #8598 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 verbose #8599 > > │ ### testEventsSorted (test) │
00:02:34 verbose #8600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #8601 > >
00:02:34 verbose #8602 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #8603 > > //// test
00:02:34 verbose #8604 > >
00:02:34 verbose #8605 > > let inline sortEvent event =
00:02:34 verbose #8606 > > match event with
00:02:34 verbose #8607 > > | FileSystemChange.Failure _ -> 0
00:02:34 verbose #8608 > > | FileSystemChange.Created _ -> 1
00:02:34 verbose #8609 > > | FileSystemChange.Changed _ -> 2
00:02:34 verbose #8610 > > | FileSystemChange.Renamed (_oldPath, _) -> 3
00:02:34 verbose #8611 > > | FileSystemChange.Deleted _ -> 4
00:02:34 verbose #8612 > >
00:02:34 verbose #8613 > > let inline formatEvents events =
00:02:34 verbose #8614 > > events
00:02:34 verbose #8615 > > |> Seq.toList
00:02:34 verbose #8616 > > |> List.sortBy (snd >> sortEvent)
00:02:34 verbose #8617 > > |> List.choose (fun (ticks, event) ->
00:02:34 verbose #8618 > > match event with
00:02:34 verbose #8619 > > | FileSystemChange.Failure _ ->
00:02:34 verbose #8620 > > None
00:02:34 verbose #8621 > > | FileSystemChange.Changed (path, _) ->
00:02:34 verbose #8622 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:34 verbose #8623 > > FileSystemChangeType.Changed)
00:02:34 verbose #8624 > > | FileSystemChange.Created (path, _) ->
00:02:34 verbose #8625 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:34 verbose #8626 > > FileSystemChangeType.Created)
00:02:34 verbose #8627 > > | FileSystemChange.Deleted path ->
00:02:34 verbose #8628 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:34 verbose #8629 > > FileSystemChangeType.Deleted)
00:02:34 verbose #8630 > > | FileSystemChange.Renamed (_oldPath, (path, _)) ->
00:02:34 verbose #8631 > > Some (ticks, System.IO.Path.GetFileName path, nameof
00:02:34 verbose #8632 > > FileSystemChangeType.Renamed)
00:02:34 verbose #8633 > > )
00:02:34 verbose #8634 > > |> List.sortBy (fun (_, path, _) -> path)
00:02:34 verbose #8635 > > |> List.distinctBy (fun (_, path, event) -> path, event)
00:02:34 verbose #8636 > >
00:02:34 verbose #8637 > > let inline testEventsSorted
00:02:34 verbose #8638 > > (watchFn : string -> FSharp.Control.AsyncSeq<int64 * FileSystemChange> *
00:02:34 verbose #8639 > > IDisposable)
00:02:34 verbose #8640 > > write
00:02:34 verbose #8641 > > =
00:02:34 verbose #8642 > > let struct (tempDir, tempDisposable) =
00:02:34 verbose #8643 > > "FileSystem.testEventsSorted"
00:02:34 verbose #8644 > > |> SpiralCrypto.hash_text
00:02:34 verbose #8645 > > |> SpiralFileSystem.create_temp_dir'
00:02:34 verbose #8646 > > let stream, disposable = watchFn tempDir
00:02:34 verbose #8647 > >
00:02:34 verbose #8648 > > let events = System.Collections.Concurrent.ConcurrentBag ()
00:02:34 verbose #8649 > >
00:02:34 verbose #8650 > > let inline iter () =
00:02:34 verbose #8651 > > stream
00:02:34 verbose #8652 > > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:02:34 verbose #8653 > > events.Add event })
00:02:34 verbose #8654 > >
00:02:34 verbose #8655 > > let run = async {
00:02:34 verbose #8656 > > let! _ = iter () |> Async.StartChild
00:02:34 verbose #8657 > > do! Async.Sleep 250
00:02:34 verbose #8658 > > return! write tempDir
00:02:34 verbose #8659 > > }
00:02:34 verbose #8660 > >
00:02:34 verbose #8661 > > try
00:02:34 verbose #8662 > > run
00:02:34 verbose #8663 > > |> Async.runWithTimeout 5000
00:02:34 verbose #8664 > > |> _assertEqual (Some ())
00:02:34 verbose #8665 > > finally
00:02:34 verbose #8666 > > disposable.Dispose ()
00:02:34 verbose #8667 > > tempDisposable.Dispose ()
00:02:34 verbose #8668 > >
00:02:34 verbose #8669 > > let events = formatEvents events
00:02:34 verbose #8670 > >
00:02:34 verbose #8671 > > let eventMap =
00:02:34 verbose #8672 > > events
00:02:34 verbose #8673 > > |> List.map (fun (ticks, path, event) -> path, (event, ticks))
00:02:34 verbose #8674 > > |> List.groupBy fst
00:02:34 verbose #8675 > > |> List.map (fun (path, events) ->
00:02:34 verbose #8676 > > let event, _ticks =
00:02:34 verbose #8677 > > events
00:02:34 verbose #8678 > > |> List.map snd
00:02:34 verbose #8679 > > |> List.sortByDescending snd
00:02:34 verbose #8680 > > |> List.head
00:02:34 verbose #8681 > >
00:02:34 verbose #8682 > > path, event
00:02:34 verbose #8683 > > )
00:02:34 verbose #8684 > > |> Map.ofList
00:02:34 verbose #8685 > >
00:02:34 verbose #8686 > > let eventList =
00:02:34 verbose #8687 > > events
00:02:34 verbose #8688 > > |> List.map (fun (_ticks, path, event) -> path, event)
00:02:34 verbose #8689 > >
00:02:34 verbose #8690 > > eventMap, eventList
00:02:34 verbose #8691 > >
00:02:34 verbose #8692 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 verbose #8693 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 verbose #8694 > > │ #### create and delete (test) │
00:02:34 verbose #8695 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #8696 > >
00:02:34 verbose #8697 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #8698 > > //// test
00:02:34 verbose #8699 > >
00:02:34 verbose #8700 > > let inline write path = async {
00:02:34 verbose #8701 > > let n = 3
00:02:34 verbose #8702 > >
00:02:34 verbose #8703 > > for i = 1 to n do
00:02:34 verbose #8704 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:34 verbose #8705 > > $"file{i}.txt")
00:02:34 verbose #8706 > >
00:02:34 verbose #8707 > > for i = 1 to n do
00:02:34 verbose #8708 > > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:02:34 verbose #8709 > > Async.Ignore
00:02:34 verbose #8710 > >
00:02:34 verbose #8711 > > do! Async.Sleep 150
00:02:34 verbose #8712 > > }
00:02:34 verbose #8713 > >
00:02:34 verbose #8714 > > let inline run () =
00:02:34 verbose #8715 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:34 verbose #8716 > > write
00:02:34 verbose #8717 > >
00:02:34 verbose #8718 > > [[
00:02:34 verbose #8719 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:34 verbose #8720 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:34 verbose #8721 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:34 verbose #8722 > >
00:02:34 verbose #8723 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:34 verbose #8724 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:34 verbose #8725 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:34 verbose #8726 > >
00:02:34 verbose #8727 > > "file3.txt", nameof FileSystemChangeType.Created
00:02:34 verbose #8728 > > "file3.txt", nameof FileSystemChangeType.Changed
00:02:34 verbose #8729 > > "file3.txt", nameof FileSystemChangeType.Deleted
00:02:34 verbose #8730 > > ]]
00:02:34 verbose #8731 > > |> _sequenceEqual eventList
00:02:34 verbose #8732 > >
00:02:34 verbose #8733 > > [[
00:02:34 verbose #8734 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:34 verbose #8735 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:34 verbose #8736 > > "file3.txt", nameof FileSystemChangeType.Deleted
00:02:34 verbose #8737 > > ]]
00:02:34 verbose #8738 > > |> Map.ofList
00:02:34 verbose #8739 > > |> _sequenceEqual eventMap
00:02:34 verbose #8740 > >
00:02:34 verbose #8741 > > run
00:02:34 verbose #8742 > > |> retry_fn 3
00:02:34 verbose #8743 > > |> _assertEqual (Some ())
00:02:37 verbose #8744 > >
00:02:37 verbose #8745 > > ╭─[ 2.89s - stdout ]───────────────────────────────────────────────────────────╮
00:02:37 verbose #8746 > > │ Some () │
00:02:37 verbose #8747 > > │ │
00:02:37 verbose #8748 > > │ 00:00:20 debug #5 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:37 verbose #8749 > > │ filter: FileName, LastWrite │
00:02:37 verbose #8750 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file1.txt", │
00:02:37 verbose #8751 > > │ "Deleted"); ("file2.txt", "Created"); │
00:02:37 verbose #8752 > > │ ("file2.txt", "Changed"); ("file2.txt", "Deleted"); ("file3.txt", │
00:02:37 verbose #8753 > > │ "Created"); ("file3.txt", "Changed"); │
00:02:37 verbose #8754 > > │ ("file3.txt", "Deleted")] │
00:02:37 verbose #8755 > > │ │
00:02:37 verbose #8756 > > │ map [("file1.txt", "Deleted"); ("file2.txt", "Deleted"); ("file3.txt", │
00:02:37 verbose #8757 > > │ "Deleted")] │
00:02:37 verbose #8758 > > │ │
00:02:37 verbose #8759 > > │ Some () │
00:02:37 verbose #8760 > > │ │
00:02:37 verbose #8761 > > │ │
00:02:37 verbose #8762 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 verbose #8763 > >
00:02:37 verbose #8764 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:37 verbose #8765 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:37 verbose #8766 > > │ #### change (test) │
00:02:37 verbose #8767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 verbose #8768 > >
00:02:37 verbose #8769 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:37 verbose #8770 > > //// test
00:02:37 verbose #8771 > >
00:02:37 verbose #8772 > > let inline write path = async {
00:02:37 verbose #8773 > > let n = 2
00:02:37 verbose #8774 > >
00:02:37 verbose #8775 > > for i = 1 to n do
00:02:37 verbose #8776 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:37 verbose #8777 > > $"file{i}.txt")
00:02:37 verbose #8778 > >
00:02:37 verbose #8779 > > for i = 1 to n do
00:02:37 verbose #8780 > > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:02:37 verbose #8781 > > $"file{i}.txt")
00:02:37 verbose #8782 > >
00:02:37 verbose #8783 > > for i = 1 to n do
00:02:37 verbose #8784 > > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:02:37 verbose #8785 > > Async.Ignore
00:02:37 verbose #8786 > >
00:02:37 verbose #8787 > > do! Async.Sleep 150
00:02:37 verbose #8788 > > }
00:02:37 verbose #8789 > >
00:02:37 verbose #8790 > > let inline run () =
00:02:37 verbose #8791 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:37 verbose #8792 > > write
00:02:37 verbose #8793 > >
00:02:37 verbose #8794 > > [[
00:02:37 verbose #8795 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:37 verbose #8796 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:37 verbose #8797 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:37 verbose #8798 > >
00:02:37 verbose #8799 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:37 verbose #8800 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:37 verbose #8801 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:37 verbose #8802 > > ]]
00:02:37 verbose #8803 > > |> _sequenceEqual eventList
00:02:37 verbose #8804 > >
00:02:37 verbose #8805 > > [[
00:02:37 verbose #8806 > > "file1.txt", nameof FileSystemChangeType.Deleted
00:02:37 verbose #8807 > > "file2.txt", nameof FileSystemChangeType.Deleted
00:02:37 verbose #8808 > > ]]
00:02:37 verbose #8809 > > |> Map.ofList
00:02:37 verbose #8810 > > |> _sequenceEqual eventMap
00:02:37 verbose #8811 > >
00:02:37 verbose #8812 > > run
00:02:37 verbose #8813 > > |> retry_fn 3
00:02:37 verbose #8814 > > |> _assertEqual (Some ())
00:02:41 verbose #8815 > >
00:02:41 verbose #8816 > > ╭─[ 3.70s - stdout ]───────────────────────────────────────────────────────────╮
00:02:41 verbose #8817 > > │ Some () │
00:02:41 verbose #8818 > > │ │
00:02:41 verbose #8819 > > │ 00:00:24 debug #6 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:41 verbose #8820 > > │ filter: FileName, LastWrite │
00:02:41 verbose #8821 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file1.txt", │
00:02:41 verbose #8822 > > │ "Deleted"); ("file2.txt", "Created"); │
00:02:41 verbose #8823 > > │ ("file2.txt", "Changed"); ("file2.txt", "Deleted")] │
00:02:41 verbose #8824 > > │ │
00:02:41 verbose #8825 > > │ map [("file1.txt", "Deleted"); ("file2.txt", "Deleted")] │
00:02:41 verbose #8826 > > │ │
00:02:41 verbose #8827 > > │ Some () │
00:02:41 verbose #8828 > > │ │
00:02:41 verbose #8829 > > │ │
00:02:41 verbose #8830 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 verbose #8831 > >
00:02:41 verbose #8832 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:41 verbose #8833 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:41 verbose #8834 > > │ #### rename (test) │
00:02:41 verbose #8835 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 verbose #8836 > >
00:02:41 verbose #8837 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:41 verbose #8838 > > //// test
00:02:41 verbose #8839 > >
00:02:41 verbose #8840 > > let inline write path = async {
00:02:41 verbose #8841 > > let n = 2
00:02:41 verbose #8842 > >
00:02:41 verbose #8843 > > for i = 1 to n do
00:02:41 verbose #8844 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:41 verbose #8845 > > $"file{i}.txt")
00:02:41 verbose #8846 > >
00:02:41 verbose #8847 > > for i = 1 to n do
00:02:41 verbose #8848 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:41 verbose #8849 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:41 verbose #8850 > >
00:02:41 verbose #8851 > > for i = 1 to n do
00:02:41 verbose #8852 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:41 verbose #8853 > > Async.Ignore
00:02:41 verbose #8854 > >
00:02:41 verbose #8855 > > do! Async.Sleep 150
00:02:41 verbose #8856 > > }
00:02:41 verbose #8857 > >
00:02:41 verbose #8858 > > let inline run () =
00:02:41 verbose #8859 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:41 verbose #8860 > > write
00:02:41 verbose #8861 > >
00:02:41 verbose #8862 > > [[
00:02:41 verbose #8863 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:41 verbose #8864 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:41 verbose #8865 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:41 verbose #8866 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:41 verbose #8867 > >
00:02:41 verbose #8868 > > "file_1.txt", nameof FileSystemChangeType.Renamed
00:02:41 verbose #8869 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:41 verbose #8870 > >
00:02:41 verbose #8871 > > "file_2.txt", nameof FileSystemChangeType.Renamed
00:02:41 verbose #8872 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:41 verbose #8873 > > ]]
00:02:41 verbose #8874 > > |> _sequenceEqual eventList
00:02:41 verbose #8875 > >
00:02:41 verbose #8876 > > [[
00:02:41 verbose #8877 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:41 verbose #8878 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:41 verbose #8879 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:41 verbose #8880 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:41 verbose #8881 > > ]]
00:02:41 verbose #8882 > > |> Map.ofList
00:02:41 verbose #8883 > > |> _sequenceEqual eventMap
00:02:41 verbose #8884 > >
00:02:41 verbose #8885 > > run
00:02:41 verbose #8886 > > |> retry_fn 3
00:02:41 verbose #8887 > > |> _assertEqual (Some ())
00:02:43 verbose #8888 > >
00:02:43 verbose #8889 > > ╭─[ 2.13s - stdout ]───────────────────────────────────────────────────────────╮
00:02:43 verbose #8890 > > │ Some () │
00:02:43 verbose #8891 > > │ │
00:02:43 verbose #8892 > > │ 00:00:26 debug #7 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:43 verbose #8893 > > │ filter: FileName, LastWrite │
00:02:43 verbose #8894 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file2.txt", │
00:02:43 verbose #8895 > > │ "Created"); ("file2.txt", "Changed"); │
00:02:43 verbose #8896 > > │ ("file_1.txt", "Renamed"); ("file_1.txt", "Deleted"); ("file_2.txt", │
00:02:43 verbose #8897 > > │ "Renamed"); ("file_2.txt", "Deleted")] │
00:02:43 verbose #8898 > > │ │
00:02:43 verbose #8899 > > │ map [("file1.txt", "Changed"); ("file2.txt", "Changed"); ("file_1.txt", │
00:02:43 verbose #8900 > > │ "Deleted"); ("file_2.txt", "Deleted")] │
00:02:43 verbose #8901 > > │ │
00:02:43 verbose #8902 > > │ Some () │
00:02:43 verbose #8903 > > │ │
00:02:43 verbose #8904 > > │ │
00:02:43 verbose #8905 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 verbose #8906 > >
00:02:43 verbose #8907 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:43 verbose #8908 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:43 verbose #8909 > > │ #### full (test) │
00:02:43 verbose #8910 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 verbose #8911 > >
00:02:43 verbose #8912 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 verbose #8913 > > //// test
00:02:43 verbose #8914 > >
00:02:43 verbose #8915 > > let inline write path = async {
00:02:43 verbose #8916 > > let n = 2
00:02:43 verbose #8917 > >
00:02:43 verbose #8918 > > for i = 1 to n do
00:02:43 verbose #8919 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:43 verbose #8920 > > $"file{i}.txt")
00:02:43 verbose #8921 > >
00:02:43 verbose #8922 > > for i = 1 to n do
00:02:43 verbose #8923 > > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:02:43 verbose #8924 > > $"file{i}.txt")
00:02:43 verbose #8925 > >
00:02:43 verbose #8926 > > for i = 1 to n do
00:02:43 verbose #8927 > > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:02:43 verbose #8928 > > </> $"file_{i}.txt") |> Async.Ignore
00:02:43 verbose #8929 > >
00:02:43 verbose #8930 > > for i = 1 to n do
00:02:43 verbose #8931 > > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:02:43 verbose #8932 > > $"file_{i}.txt")
00:02:43 verbose #8933 > >
00:02:43 verbose #8934 > > for i = 1 to n do
00:02:43 verbose #8935 > > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:02:43 verbose #8936 > > Async.Ignore
00:02:43 verbose #8937 > >
00:02:43 verbose #8938 > > do! Async.Sleep 150
00:02:43 verbose #8939 > > }
00:02:43 verbose #8940 > >
00:02:43 verbose #8941 > > let inline run () =
00:02:43 verbose #8942 > > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:02:43 verbose #8943 > > write
00:02:43 verbose #8944 > >
00:02:43 verbose #8945 > > [[
00:02:43 verbose #8946 > > "file1.txt", nameof FileSystemChangeType.Created
00:02:43 verbose #8947 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:43 verbose #8948 > > "file2.txt", nameof FileSystemChangeType.Created
00:02:43 verbose #8949 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:43 verbose #8950 > >
00:02:43 verbose #8951 > > "file_1.txt", nameof FileSystemChangeType.Changed
00:02:43 verbose #8952 > > "file_1.txt", nameof FileSystemChangeType.Renamed
00:02:43 verbose #8953 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:43 verbose #8954 > >
00:02:43 verbose #8955 > > "file_2.txt", nameof FileSystemChangeType.Changed
00:02:43 verbose #8956 > > "file_2.txt", nameof FileSystemChangeType.Renamed
00:02:43 verbose #8957 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:43 verbose #8958 > > ]]
00:02:43 verbose #8959 > > |> _sequenceEqual eventList
00:02:43 verbose #8960 > >
00:02:43 verbose #8961 > > [[
00:02:43 verbose #8962 > > "file1.txt", nameof FileSystemChangeType.Changed
00:02:43 verbose #8963 > > "file2.txt", nameof FileSystemChangeType.Changed
00:02:43 verbose #8964 > > "file_1.txt", nameof FileSystemChangeType.Deleted
00:02:43 verbose #8965 > > "file_2.txt", nameof FileSystemChangeType.Deleted
00:02:43 verbose #8966 > > ]]
00:02:43 verbose #8967 > > |> Map.ofList
00:02:43 verbose #8968 > > |> _sequenceEqual eventMap
00:02:43 verbose #8969 > >
00:02:43 verbose #8970 > > run
00:02:43 verbose #8971 > > |> retry_fn 3
00:02:43 verbose #8972 > > |> _assertEqual (Some ())
00:02:46 verbose #8973 > >
00:02:46 verbose #8974 > > ╭─[ 2.36s - stdout ]───────────────────────────────────────────────────────────╮
00:02:46 verbose #8975 > > │ Some () │
00:02:46 verbose #8976 > > │ │
00:02:46 verbose #8977 > > │ 00:00:29 debug #8 FileSystem.watchWithFilter / Disposing watch stream / │
00:02:46 verbose #8978 > > │ filter: FileName, LastWrite │
00:02:46 verbose #8979 > > │ [("file1.txt", "Created"); ("file1.txt", "Changed"); ("file2.txt", │
00:02:46 verbose #8980 > > │ "Created"); ("file2.txt", "Changed"); │
00:02:46 verbose #8981 > > │ ("file_1.txt", "Changed"); ("file_1.txt", "Renamed"); ("file_1.txt", │
00:02:46 verbose #8982 > > │ "Deleted"); ("file_2.txt", "Changed"); │
00:02:46 verbose #8983 > > │ ("file_2.txt", "Renamed"); ("file_2.txt", "Deleted")] │
00:02:46 verbose #8984 > > │ │
00:02:46 verbose #8985 > > │ map [("file1.txt", "Changed"); ("file2.txt", "Changed"); ("file_1.txt", │
00:02:46 verbose #8986 > > │ "Deleted"); ("file_2.txt", "Deleted")] │
00:02:46 verbose #8987 > > │ │
00:02:46 verbose #8988 > > │ Some () │
00:02:46 verbose #8989 > > │ │
00:02:46 verbose #8990 > > │ │
00:02:46 verbose #8991 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 verbose #8992 > 00:00:51 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 86381
00:02:46 verbose #8993 > 00:00:51 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:48 verbose #8994 > 00:00:53 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/FileSystem.dib.ipynb to html
00:02:48 verbose #8995 > 00:00:53 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:48 verbose #8996 > 00:00:53 verbose #7 ! validate(nb)
00:02:50 verbose #8997 > 00:00:55 verbose #8 ! [NbConvertApp] Writing 380188 bytes to c:\home\git\polyglot\lib\fsharp\FileSystem.dib.html
00:02:50 verbose #8998 > 00:00:55 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:02:50 verbose #8999 > 00:00:55 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:02:50 verbose #9000 > 00:00:55 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/FileSystem.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/FileSystem.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:51 verbose #9001 > 00:00:56 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:51 verbose #9002 > 00:00:56 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:51 verbose #9003 > 00:00:57 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 87091
00:02:51 debug #9004 runtime.execute_with_options_async / exit_code: 0 / output.Length: 94368
00:02:51 debug #7 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path FileSystem.dib --retries 3
00:02:51 debug #9005 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Runtime.dib --retries 3",
[||], None, None, true, None)
00:02:51 verbose #9006 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Runtime.dib", "--retries", "3"])
00:02:51 verbose #9007 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/fsharp/Runtime.dib", "--output-path", "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/fsharp/Runtime.dib" --output-path "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:02:53 verbose #9008 > >
00:02:53 verbose #9009 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #9010 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #9011 > > │ # Runtime (Polyglot) │
00:02:53 verbose #9012 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #9013 > >
00:02:53 verbose #9014 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #9015 > > #r
00:02:53 verbose #9016 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:02:53 verbose #9017 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:02:53 verbose #9018 > > #r
00:02:53 verbose #9019 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:02:53 verbose #9020 > > 0/System.Reactive.dll"
00:02:53 verbose #9021 > > #r
00:02:53 verbose #9022 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:02:53 verbose #9023 > > netstandard2.0/System.Reactive.Linq.dll"
00:02:53 verbose #9024 > > #r
00:02:53 verbose #9025 > > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:02:53 verbose #9026 > >
00:02:53 verbose #9027 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:53 verbose #9028 > > #r
00:02:53 verbose #9029 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:53 verbose #9030 > > spNetCore.Html.Abstractions.dll"
00:02:53 verbose #9031 > > #r
00:02:53 verbose #9032 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:53 verbose #9033 > > otNet.Interactive.dll"
00:02:53 verbose #9034 > > #r
00:02:53 verbose #9035 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:53 verbose #9036 > > otNet.Interactive.FSharp.dll"
00:02:53 verbose #9037 > > #r
00:02:53 verbose #9038 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:53 verbose #9039 > > otNet.Interactive.Formatting.dll"
00:02:53 verbose #9040 > > open System
00:02:53 verbose #9041 > > open System.IO
00:02:53 verbose #9042 > > open System.Text
00:02:53 verbose #9043 > > open Microsoft.DotNet.Interactive.Formatting
00:02:57 verbose #9044 > >
00:02:57 verbose #9045 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:57 verbose #9046 > > #r
00:02:57 verbose #9047 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:57 verbose #9048 > > otNet.Interactive.FSharp.dll"
00:02:57 verbose #9049 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:57 verbose #9050 > > #r
00:02:57 verbose #9051 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:57 verbose #9052 > > otNet.Interactive.dll"
00:02:57 verbose #9053 > > open type Microsoft.DotNet.Interactive.Kernel
00:02:57 verbose #9054 > >
00:02:57 verbose #9055 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:57 verbose #9056 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:02:58 verbose #9057 > >
00:02:58 verbose #9058 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 verbose #9059 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:02:58 verbose #9060 > > TextWriter)->fprintfn writer "%120A" x)
00:02:58 verbose #9061 > >
00:02:58 verbose #9062 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:58 verbose #9063 > > #!import ../../lib/fsharp/Notebooks.dib
00:02:58 verbose #9064 > > #!import ../../lib/fsharp/Testing.dib
00:02:58 verbose #9065 > >
00:02:58 verbose #9066 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 verbose #9067 > > //// test
00:02:58 verbose #9068 > >
00:02:58 verbose #9069 > > Formatter.ListExpansionLimit <- 100
00:02:58 verbose #9070 > >
00:02:58 verbose #9071 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 verbose #9072 > > #if FABLE_COMPILER
00:02:58 verbose #9073 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:02:58 verbose #9074 > > #endif
00:02:58 verbose #9075 > > type std_env_VarError = class end
00:02:58 verbose #9076 > > #if FABLE_COMPILER
00:02:58 verbose #9077 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:02:58 verbose #9078 > > #endif
00:02:58 verbose #9079 > > type core_any_Any = class end
00:02:58 verbose #9080 > > #if FABLE_COMPILER
00:02:58 verbose #9081 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:02:58 verbose #9082 > > #endif
00:02:58 verbose #9083 > > type core_ops_Try<'T> = class end
00:02:58 verbose #9084 > > #if FABLE_COMPILER
00:02:58 verbose #9085 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:02:58 verbose #9086 > > #endif
00:02:58 verbose #9087 > > type Func0<'T> = class end
00:02:58 verbose #9088 > > #if FABLE_COMPILER
00:02:58 verbose #9089 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:02:58 verbose #9090 > > #endif
00:02:58 verbose #9091 > > type Func0<'T, 'U> = class end
00:02:58 verbose #9092 > > #if FABLE_COMPILER
00:02:58 verbose #9093 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:02:58 verbose #9094 > > #endif
00:02:58 verbose #9095 > > type Box<'T> = class end
00:02:58 verbose #9096 > > #if FABLE_COMPILER
00:02:58 verbose #9097 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:02:58 verbose #9098 > > #endif
00:02:58 verbose #9099 > > type Dyn<'T> = class end
00:02:58 verbose #9100 > > #if FABLE_COMPILER
00:02:58 verbose #9101 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:02:58 verbose #9102 > > #endif
00:02:58 verbose #9103 > > type Send<'T> = class end
00:02:58 verbose #9104 > > #if FABLE_COMPILER
00:02:58 verbose #9105 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:02:58 verbose #9106 > > #endif
00:02:58 verbose #9107 > > type Fn<'T> = class end
00:02:58 verbose #9108 > > #if FABLE_COMPILER
00:02:58 verbose #9109 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:02:58 verbose #9110 > > #endif
00:02:58 verbose #9111 > > type FnUnit = class end
00:02:58 verbose #9112 > > #if FABLE_COMPILER
00:02:58 verbose #9113 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:02:58 verbose #9114 > > #endif
00:02:58 verbose #9115 > > type FnOnce<'T> = class end
00:02:58 verbose #9116 > > #if FABLE_COMPILER
00:02:58 verbose #9117 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:02:58 verbose #9118 > > #endif
00:02:58 verbose #9119 > > type ActionFn<'T> = class end
00:02:58 verbose #9120 > > #if FABLE_COMPILER
00:02:58 verbose #9121 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:02:58 verbose #9122 > > #endif
00:02:58 verbose #9123 > > type ActionFn2<'T, 'U> = class end
00:02:58 verbose #9124 > > #if FABLE_COMPILER
00:02:58 verbose #9125 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:02:58 verbose #9126 > > #endif
00:02:58 verbose #9127 > > type Impl<'T> = class end
00:02:58 verbose #9128 > > #if FABLE_COMPILER
00:02:58 verbose #9129 > > [[<Fabl... _v5=None"
00:02:58 verbose #9130 > > US5_1
00:02:58 verbose #9131 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:02:58 verbose #9132 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:02:58 verbose #9133 > > let v4 : (US4 -> US5) = closure6()
00:02:58 verbose #9134 > > let v5 : (exn -> US5) = closure7(v2)
00:02:58 verbose #9135 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:02:58 verbose #9136 > > match v6 with
00:02:58 verbose #9137 > > | US5_1 -> (* None *)
00:02:58 verbose #9138 > > let v8 : int32 = v2 + 1
00:02:58 verbose #9139 > > method6(v0, v1, v8)
00:02:58 verbose #9140 > > | US5_0(v7) -> (* Some *)
00:02:58 verbose #9141 > > v7
00:02:58 verbose #9142 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:02:58 verbose #9143 > > let v2 : int32 = 0
00:02:58 verbose #9144 > > let v3 : US4 = method6(v0, v1, v2)
00:02:58 verbose #9145 > > match v3 with
00:02:58 verbose #9146 > > | US4_1 -> (* None *)
00:02:58 verbose #9147 > > let v5 : unit option = None
00:02:58 verbose #9148 > > v5
00:02:58 verbose #9149 > > | US4_0 -> (* Some *)
00:02:58 verbose #9150 > > let v4 : unit option = Some ()
00:02:58 verbose #9151 > > v4
00:02:58 verbose #9152 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:02:58 verbose #9153 > > closure4(v0)
00:02:58 verbose #9154 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:02:58 verbose #9155 > > v0
00:02:58 verbose #9156 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:02:58 verbose #9157 > > v0.Value
00:02:58 verbose #9158 > > ()
00:02:58 verbose #9159 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:02:58 verbose #9160 > > let v1 : (unit -> unit) = method12(v0)
00:02:58 verbose #9161 > > let v2 : Lazy<unit> = lazy v1 ()
00:02:58 verbose #9162 > > closure13(v2)
00:02:58 verbose #9163 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:02:58 verbose #9164 > > let v1 : US0 = US0_0
00:02:58 verbose #9165 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:02:58 verbose #9166 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:02:58 verbose #9167 > > let new_disposable x = v2 x
00:02:58 verbose #9168 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:02:58 verbose #9169 > > let retry_fn x = v3 x
00:02:58 verbose #9170 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:02:58 verbose #9171 > > let memoize x = v4 x
00:02:58 verbose #9172 > > ()
00:02:58 verbose #9173 > >
00:03:00 verbose #9174 > >
00:03:00 verbose #9175 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 verbose #9176 > > #if FABLE_COMPILER
00:03:00 verbose #9177 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:00 verbose #9178 > > #endif
00:03:00 verbose #9179 > > type core_any_Any = class end
00:03:00 verbose #9180 > > #if FABLE_COMPILER
00:03:00 verbose #9181 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:00 verbose #9182 > > #endif
00:03:00 verbose #9183 > > type core_ops_Try<'T> = class end
00:03:00 verbose #9184 > > #if FABLE_COMPILER
00:03:00 verbose #9185 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:00 verbose #9186 > > #endif
00:03:00 verbose #9187 > > type Func0<'T> = class end
00:03:00 verbose #9188 > > #if FABLE_COMPILER
00:03:00 verbose #9189 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:00 verbose #9190 > > #endif
00:03:00 verbose #9191 > > type Func0<'T, 'U> = class end
00:03:00 verbose #9192 > > #if FABLE_COMPILER
00:03:00 verbose #9193 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:00 verbose #9194 > > #endif
00:03:00 verbose #9195 > > type Box<'T> = class end
00:03:00 verbose #9196 > > #if FABLE_COMPILER
00:03:00 verbose #9197 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:03:00 verbose #9198 > > #endif
00:03:00 verbose #9199 > > type Dyn<'T> = class end
00:03:00 verbose #9200 > > #if FABLE_COMPILER
00:03:00 verbose #9201 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:03:00 verbose #9202 > > #endif
00:03:00 verbose #9203 > > type Send<'T> = class end
00:03:00 verbose #9204 > > #if FABLE_COMPILER
00:03:00 verbose #9205 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:03:00 verbose #9206 > > #endif
00:03:00 verbose #9207 > > type Fn<'T> = class end
00:03:00 verbose #9208 > > #if FABLE_COMPILER
00:03:00 verbose #9209 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:03:00 verbose #9210 > > #endif
00:03:00 verbose #9211 > > type FnUnit = class end
00:03:00 verbose #9212 > > #if FABLE_COMPILER
00:03:00 verbose #9213 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:03:00 verbose #9214 > > #endif
00:03:00 verbose #9215 > > type FnOnce<'T> = class end
00:03:00 verbose #9216 > > #if FABLE_COMPILER
00:03:00 verbose #9217 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:03:00 verbose #9218 > > #endif
00:03:00 verbose #9219 > > type ActionFn<'T> = class end
00:03:00 verbose #9220 > > #if FABLE_COMPILER
00:03:00 verbose #9221 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:03:00 verbose #9222 > > #endif
00:03:00 verbose #9223 > > type ActionFn2<'T, 'U> = class end
00:03:00 verbose #9224 > > #if FABLE_COMPILER
00:03:00 verbose #9225 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:03:00 verbose #9226 > > #endif
00:03:00 verbose #9227 > > type Impl<'T> = class end
00:03:00 verbose #9228 > > #if FABLE_COMPILER
00:03:00 verbose #9229 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:03:00 verbose #9230 > > #endif
00:03:00 verbose #9231 > > type Mut<'T> = class end
00:03:00 verbose #9232 > > #if FABLE_COMPILER
00:03:00 verbose #9233 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:03:00 verbose #9234 > > let replace x = v4 x
00:03:00 verbose #9235 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:03:00 verbose #9236 > > let replace_regex x = v5 x
00:03:00 verbose #9237 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:03:00 verbose #9238 > > let slice x = v6 x
00:03:00 verbose #9239 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:03:00 verbose #9240 > > let split x = v7 x
00:03:00 verbose #9241 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:03:00 verbose #9242 > > let split_string x = v8 x
00:03:00 verbose #9243 > > let v9 : (string -> (string -> bool)) = closure23()
00:03:00 verbose #9244 > > let starts_with x = v9 x
00:03:00 verbose #9245 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:03:00 verbose #9246 > > let substring x = v10 x
00:03:00 verbose #9247 > > let v11 : (string -> string) = closure28()
00:03:00 verbose #9248 > > let to_lower x = v11 x
00:03:00 verbose #9249 > > let v12 : (string -> string) = closure29()
00:03:00 verbose #9250 > > let to_upper x = v12 x
00:03:00 verbose #9251 > > let v13 : (string -> string) = closure30()
00:03:00 verbose #9252 > > let trim x = v13 x
00:03:00 verbose #9253 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:03:00 verbose #9254 > > let trim_end x = v14 x
00:03:00 verbose #9255 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:03:00 verbose #9256 > > let trim_start x = v15 x
00:03:00 verbose #9257 > > let v16 : (int32 -> (string -> string)) = closure35()
00:03:00 verbose #9258 > > let ellipsis x = v16 x
00:03:00 verbose #9259 > > let v17 : (int64 -> (string -> string)) = closure37()
00:03:00 verbose #9260 > > let ellipsis_end x = v17 x
00:03:00 verbose #9261 > > let v18 : (exn -> string) = closure39()
00:03:00 verbose #9262 > > let format_exception x = v18 x
00:03:00 verbose #9263 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:03:00 verbose #9264 > > let concat_array_trailing x = v19 x
00:03:00 verbose #9265 > > let v20 : (string -> (string seq -> string)) = closure42()
00:03:00 verbose #9266 > > let concat x = v20 x
00:03:00 verbose #9267 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:03:00 verbose #9268 > > let join' x = v21 x
00:03:00 verbose #9269 > > let v22 : (string -> (char [[]])) = closure46()
00:03:00 verbose #9270 > > let to_char_array x = v22 x
00:03:00 verbose #9271 > > ()
00:03:00 verbose #9272 > >
00:03:00 verbose #9273 > >
00:03:00 verbose #9274 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 verbose #9275 > > #if FABLE_COMPILER
00:03:00 verbose #9276 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:00 verbose #9277 > > #endif
00:03:00 verbose #9278 > > type core_any_Any = class end
00:03:00 verbose #9279 > > #if FABLE_COMPILER
00:03:00 verbose #9280 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:00 verbose #9281 > > #endif
00:03:00 verbose #9282 > > type core_ops_Try<'T> = class end
00:03:00 verbose #9283 > > #if FABLE_COMPILER
00:03:00 verbose #9284 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:00 verbose #9285 > > #endif
00:03:00 verbose #9286 > > type Func0<'T> = class end
00:03:00 verbose #9287 > > #if FABLE_COMPILER
00:03:00 verbose #9288 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:00 verbose #9289 > > #endif
00:03:00 verbose #9290 > > type Func0<'T, 'U> = class end
00:03:00 verbose #9291 > > #if FABLE_COMPILER
00:03:00 verbose #9292 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:00 verbose #9293 > > #endif
00:03:00 verbose #9294 > > type Box<'T> = class end
00:03:00 verbose #9295 > > #if FABLE_COMPILER
00:03:00 verbose #9296 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:03:00 verbose #9297 > > #endif
00:03:00 verbose #9298 > > type Dyn<'T> = class end
00:03:00 verbose #9299 > > #if FABLE_COMPILER
00:03:00 verbose #9300 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:03:00 verbose #9301 > > #endif
00:03:00 verbose #9302 > > type Send<'T> = class end
00:03:00 verbose #9303 > > #if FABLE_COMPILER
00:03:00 verbose #9304 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:03:00 verbose #9305 > > #endif
00:03:00 verbose #9306 > > type Fn<'T> = class end
00:03:00 verbose #9307 > > #if FABLE_COMPILER
00:03:00 verbose #9308 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:03:00 verbose #9309 > > #endif
00:03:00 verbose #9310 > > type FnUnit = class end
00:03:00 verbose #9311 > > #if FABLE_COMPILER
00:03:00 verbose #9312 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:03:00 verbose #9313 > > #endif
00:03:00 verbose #9314 > > type FnOnce<'T> = class end
00:03:00 verbose #9315 > > #if FABLE_COMPILER
00:03:00 verbose #9316 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:03:00 verbose #9317 > > #endif
00:03:00 verbose #9318 > > type ActionFn<'T> = class end
00:03:00 verbose #9319 > > #if FABLE_COMPILER
00:03:00 verbose #9320 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:03:00 verbose #9321 > > #endif
00:03:00 verbose #9322 > > type ActionFn2<'T, 'U> = class end
00:03:00 verbose #9323 > > #if FABLE_COMPILER
00:03:00 verbose #9324 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:03:00 verbose #9325 > > #endif
00:03:00 verbose #9326 > > type Impl<'T> = class end
00:03:00 verbose #9327 > > #if FABLE_COMPILER
00:03:00 verbose #9328 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:03:00 verbose #9329 > > #endif
00:03:00 verbose #9330 > > type Mut<'T> = class end
00:03:00 verbose #9331 > > #if FABLE_COMPILER
00:03:00 verbose #9332 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:03:00 verbose #9333 > > ()
00:03:00 verbose #9334 > > #endif
00:03:00 verbose #9335 > > #if FABLE_COMPILER_RUST && CONTRACT
00:03:00 verbose #9336 > > let v28 : string = @"println!(""{}"", $0)"
00:03:00 verbose #9337 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:03:00 verbose #9338 > > ()
00:03:00 verbose #9339 > > #endif
00:03:00 verbose #9340 > > #if FABLE_COMPILER_TYPESCRIPT
00:03:00 verbose #9341 > > System.Console.WriteLine v24
00:03:00 verbose #9342 > > ()
00:03:00 verbose #9343 > > #endif
00:03:00 verbose #9344 > > #if FABLE_COMPILER_PYTHON
00:03:00 verbose #9345 > > System.Console.WriteLine v24
00:03:00 verbose #9346 > > ()
00:03:00 verbose #9347 > > #endif
00:03:00 verbose #9348 > > #else
00:03:00 verbose #9349 > > System.Console.WriteLine v24
00:03:00 verbose #9350 > > ()
00:03:00 verbose #9351 > > #endif
00:03:00 verbose #9352 > > |> fun x -> _v25 <- Some x
00:03:00 verbose #9353 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:03:00 verbose #9354 > > _v25=None"
00:03:00 verbose #9355 > > let v29 : (string -> unit) = v8.l0
00:03:00 verbose #9356 > > v29 v24
00:03:00 verbose #9357 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:03:00 verbose #9358 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:03:00 verbose #9359 > > method11(v0, v3)
00:03:00 verbose #9360 > > and closure1 () (v0 : string) : uint16 =
00:03:00 verbose #9361 > > let v1 : char = v0.[[int 0]]
00:03:00 verbose #9362 > > let v2 : (char -> int32) = int32
00:03:00 verbose #9363 > > let v3 : int32 = v2 v1
00:03:00 verbose #9364 > > let v4 : string = v0.[[int 0..int 7]]
00:03:00 verbose #9365 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:03:00 verbose #9366 > > let v6 : int32 = v5 + v3
00:03:00 verbose #9367 > > let v7 : (int32 -> uint16) = uint16
00:03:00 verbose #9368 > > let v8 : uint16 = v7 v6
00:03:00 verbose #9369 > > let v9 : US0 = US0_0
00:03:00 verbose #9370 > > let v10 : (unit -> string) = closure2()
00:03:00 verbose #9371 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:03:00 verbose #9372 > > method3(v9, v10, v11)
00:03:00 verbose #9373 > > let v12 : uint16 = v8 % 48128us
00:03:00 verbose #9374 > > let v13 : uint16 = v12 + 1024us
00:03:00 verbose #9375 > > v13
00:03:00 verbose #9376 > > let v0 : (string -> string) = closure0()
00:03:00 verbose #9377 > > let hash_text x = v0 x
00:03:00 verbose #9378 > > let v1 : (string -> uint16) = closure1()
00:03:00 verbose #9379 > > let hash_to_port x = v1 x
00:03:00 verbose #9380 > > ()
00:03:00 verbose #9381 > >
00:03:01 verbose #9382 > >
00:03:01 verbose #9383 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:01 verbose #9384 > > #if FABLE_COMPILER
00:03:01 verbose #9385 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:01 verbose #9386 > > #endif
00:03:01 verbose #9387 > > type core_any_Any = class end
00:03:01 verbose #9388 > > #if FABLE_COMPILER
00:03:01 verbose #9389 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:01 verbose #9390 > > #endif
00:03:01 verbose #9391 > > type core_ops_Try<'T> = class end
00:03:01 verbose #9392 > > #if FABLE_COMPILER
00:03:01 verbose #9393 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:01 verbose #9394 > > #endif
00:03:01 verbose #9395 > > type Func0<'T> = class end
00:03:01 verbose #9396 > > #if FABLE_COMPILER
00:03:01 verbose #9397 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:01 verbose #9398 > > #endif
00:03:01 verbose #9399 > > type Func0<'T, 'U> = class end
00:03:01 verbose #9400 > > #if FABLE_COMPILER
00:03:01 verbose #9401 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:01 verbose #9402 > > #endif
00:03:01 verbose #9403 > > type Box<'T> = class end
00:03:01 verbose #9404 > > #if FABLE_COMPILER
00:03:01 verbose #9405 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:03:01 verbose #9406 > > #endif
00:03:01 verbose #9407 > > type Dyn<'T> = class end
00:03:01 verbose #9408 > > #if FABLE_COMPILER
00:03:01 verbose #9409 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:03:01 verbose #9410 > > #endif
00:03:01 verbose #9411 > > type Send<'T> = class end
00:03:01 verbose #9412 > > #if FABLE_COMPILER
00:03:01 verbose #9413 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:03:01 verbose #9414 > > #endif
00:03:01 verbose #9415 > > type Fn<'T> = class end
00:03:01 verbose #9416 > > #if FABLE_COMPILER
00:03:01 verbose #9417 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:03:01 verbose #9418 > > #endif
00:03:01 verbose #9419 > > type FnUnit = class end
00:03:01 verbose #9420 > > #if FABLE_COMPILER
00:03:01 verbose #9421 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:03:01 verbose #9422 > > #endif
00:03:01 verbose #9423 > > type FnOnce<'T> = class end
00:03:01 verbose #9424 > > #if FABLE_COMPILER
00:03:01 verbose #9425 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:03:01 verbose #9426 > > #endif
00:03:01 verbose #9427 > > type ActionFn<'T> = class end
00:03:01 verbose #9428 > > #if FABLE_COMPILER
00:03:01 verbose #9429 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:03:01 verbose #9430 > > #endif
00:03:01 verbose #9431 > > type ActionFn2<'T, 'U> = class end
00:03:01 verbose #9432 > > #if FABLE_COMPILER
00:03:01 verbose #9433 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:03:01 verbose #9434 > > #endif
00:03:01 verbose #9435 > > type Impl<'T> = class end
00:03:01 verbose #9436 > > #if FABLE_COMPILER
00:03:01 verbose #9437 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:03:01 verbose #9438 > > #endif
00:03:01 verbose #9439 > > type Mut<'T> = class end
00:03:01 verbose #9440 > > #if FABLE_COMPILER
00:03:01 verbose #9441 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:03:01 verbose #9442 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:03:01 verbose #9443 > > let v2 : System.Guid = v1 ()
00:03:01 verbose #9444 > > let v3 : (System.Guid -> string) = _.ToString()
00:03:01 verbose #9445 > > let v4 : string = v3 v2
00:03:01 verbose #9446 > > let v5 : (int64 -> string) = _.ToString()
00:03:01 verbose #9447 > > let v6 : string = v5 v0
00:03:01 verbose #9448 > > let v7 : string = v6.PadLeft (18, '0')
00:03:01 verbose #9449 > > let v8 : System.Guid = System.Guid
00:03:01 verbose #9450 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:03:01 verbose #9451 > > v8
00:03:01 verbose #9452 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:03:01 verbose #9453 > > let v2 : (string -> string) = v1.ToString
00:03:01 verbose #9454 > > v2 v0
00:03:01 verbose #9455 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:03:01 verbose #9456 > > closure12(v0)
00:03:01 verbose #9457 > > and closure13 () (v0 : System.DateTime) : string =
00:03:01 verbose #9458 > > let v1 : (string -> string) = v0.ToString
00:03:01 verbose #9459 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:03:01 verbose #9460 > > v1 v2
00:03:01 verbose #9461 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:03:01 verbose #9462 > > let date_time_guid_from_date_time x = v0 x
00:03:01 verbose #9463 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:03:01 verbose #9464 > > let date_time_from_guid x = v1 x
00:03:01 verbose #9465 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:03:01 verbose #9466 > > let timestamp_guid_from_timestamp x = v2 x
00:03:01 verbose #9467 > > let v3 : (System.Guid -> int64) = closure8()
00:03:01 verbose #9468 > > let timestamp_from_guid x = v3 x
00:03:01 verbose #9469 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:03:01 verbose #9470 > > let new_guid_from_date_time x = v4 x
00:03:01 verbose #9471 > > let v5 : (int64 -> System.Guid) = closure10()
00:03:01 verbose #9472 > > let new_guid_from_timestamp x = v5 x
00:03:01 verbose #9473 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:03:01 verbose #9474 > > let format x = v6 x
00:03:01 verbose #9475 > > let v7 : (System.DateTime -> string) = closure13()
00:03:01 verbose #9476 > > let format_iso8601 x = v7 x
00:03:01 verbose #9477 > > ()
00:03:01 verbose #9478 > >
00:03:01 verbose #9479 > >
00:03:01 verbose #9480 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:01 verbose #9481 > > #if FABLE_COMPILER
00:03:01 verbose #9482 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:03:01 verbose #9483 > > #endif
00:03:01 verbose #9484 > > type futures_future_JoinAll<'T> = class end
00:03:01 verbose #9485 > > #if FABLE_COMPILER
00:03:01 verbose #9486 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:03:01 verbose #9487 > > #endif
00:03:01 verbose #9488 > > type futures_future_TryJoinAll<'T> = class end
00:03:01 verbose #9489 > > #if FABLE_COMPILER
00:03:01 verbose #9490 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:03:01 verbose #9491 > > #endif
00:03:01 verbose #9492 > > type rayon_iter_Map<'T> = class end
00:03:01 verbose #9493 > > #if FABLE_COMPILER
00:03:01 verbose #9494 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:03:01 verbose #9495 > > #endif
00:03:01 verbose #9496 > > type rayon_vec_IntoIter<'T> = class end
00:03:01 verbose #9497 > > #if FABLE_COMPILER
00:03:01 verbose #9498 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:03:01 verbose #9499 > > #endif
00:03:01 verbose #9500 > > type std_future_Future<'T> = class end
00:03:01 verbose #9501 > > #if FABLE_COMPILER
00:03:01 verbose #9502 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:03:01 verbose #9503 > > #endif
00:03:01 verbose #9504 > > type futures_future_Fuse<'T> = class end
00:03:01 verbose #9505 > > #if FABLE_COMPILER
00:03:01 verbose #9506 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:03:01 verbose #9507 > > #endif
00:03:01 verbose #9508 > > type tokio_task_JoinHandle<'T> = class end
00:03:01 verbose #9509 > > #if FABLE_COMPILER
00:03:01 verbose #9510 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:03:01 verbose #9511 > > #endif
00:03:01 verbose #9512 > > type tokio_stream_StreamExt = class end
00:03:01 verbose #9513 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:03:01 verbose #9514 > > Async<System.Threading.CancellationToken> =
00:03:01 verbose #9515 > > let v1 : bool = true
00:03:01 verbose #9516 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:03:01 verbose #9517 > >
00:03:01 verbose #9518 > > #if FABLE_COMPILER || WASM || CONTRACT
00:03:01 verbose #9519 > >
00:03:01 verbose #9520 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:03:01 verbose #9521 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:03:01 verbose #9522 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:03:01 verbose #9523 > > v12
00:03:01 verbose #9524 > > #endif
00:03:01 verbose #9525 > > #else
00:03:01 verbose #9526 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:03:01 verbose #9527 > > let mutable _v13 = v13
00:03:01 verbose #9528 > > async {
00:03:01 verbose #9529 > > let v14 : Async<System.Threading.CancellationToken> =
00:03:01 verbose #9530 > > Async.CancellationToken
00:03:01 verbose #9531 > > let! v14 = v14
00:03:01 verbose #9532 > > let v15 : System.Threading.CancellationToken = v14
00:03:01 verbose #9533 > > let v16 : System.Threading.CancellationToken =
00:03:01 verbose #9534 > > Async.DefaultCancellationToken
00:03:01 verbose #9535 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:03:01 verbose #9536 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:03:01 verbose #9537 > > System.Threading.CancellationTokenSource) =
00:03:01 verbose #9538 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:03:01 verbose #9539 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:03:01 verbose #9540 > > let v20 : System.Threading.CancellationToken = v19.Token
00:03:01 verbose #9541 > > return v20
00:03:01 verbose #9542 > > }
00:03:01 verbose #9543 > > |> fun x -> _v13 <- Some x
00:03:01 verbose #9544 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:03:01 verbose #9545 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:03:01 verbose #9546 > > v21
00:03:01 verbose #9547 > > #endif
00:03:01 verbose #9548 > > |> fun x -> _v7 <- Some x
00:03:01 verbose #9549 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:03:01 verbose #9550 > > -> x | None -> failwith "base.run_target / _v7=None"
00:03:01 verbose #9551 > > v22
00:03:01 verbose #9552 > > #endif
00:03:01 verbose #9553 > > |> fun x -> _v1 <- Some x
00:03:01 verbose #9554 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:03:01 verbose #9555 > > -> x | None -> failwith "base.run_target / _v1=None"
00:03:01 verbose #9556 > > v23
00:03:01 verbose #9557 > > let v0 : (System.Threading.CancellationToken ->
00:03:01 verbose #9558 > > Async<System.Threading.CancellationToken>) = closure0()
00:03:01 verbose #9559 > > let merge_cancellation_token_with_default_async x = v0 x
00:03:01 verbose #9560 > > ()
00:03:01 verbose #9561 > >
00:03:01 verbose #9562 > >
00:03:01 verbose #9563 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:01 verbose #9564 > > #if FABLE_COMPILER
00:03:01 verbose #9565 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:03:01 verbose #9566 > > #endif
00:03:01 verbose #9567 > > type std_thread_JoinHandle<'T> = class end
00:03:01 verbose #9568 > > #if FABLE_COMPILER
00:03:01 verbose #9569 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:03:01 verbose #9570 > > #endif
00:03:01 verbose #9571 > > type std_sync_Arc<'T> = class end
00:03:01 verbose #9572 > > #if FABLE_COMPILER
00:03:01 verbose #9573 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:03:01 verbose #9574 > > #endif
00:03:01 verbose #9575 > > type std_sync_Mutex<'T> = class end
00:03:01 verbose #9576 > > #if FABLE_COMPILER
00:03:01 verbose #9577 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:03:01 verbose #9578 > > #endif
00:03:01 verbose #9579 > > type std_sync_MutexGuard<'T> = class end
00:03:01 verbose #9580 > > #if FABLE_COMPILER
00:03:01 verbose #9581 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:03:01 verbose #9582 > > #endif
00:03:01 verbose #9583 > > type std_sync_PoisonError<'T> = class end
00:03:01 verbose #9584 > > #if FABLE_COMPILER
00:03:01 verbose #9585 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:03:01 verbose #9586 > > #endif
00:03:01 verbose #9587 > > type std_sync_mpsc_Receiver<'T> = class end
00:03:01 verbose #9588 > > #if FABLE_COMPILER
00:03:01 verbose #9589 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:03:01 verbose #9590 > > #endif
00:03:01 verbose #9591 > > type std_sync_mpsc_SendError<'T> = class end
00:03:01 verbose #9592 > > #if FABLE_COMPILER
00:03:01 verbose #9593 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:03:01 verbose #9594 > > #endif
00:03:01 verbose #9595 > > type std_sync_mpsc_Sender<'T> = class end
00:03:01 verbose #9596 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:03:01 verbose #9597 > > _.Dispose () = f ()
00:03:01 verbose #9598 > > type [[<Struct>]] US0 =
00:03:01 verbose #9599 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:03:01 verbose #9600 > > | US0_1
00:03:01 verbose #9601 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:03:01 verbose #9602 > > let v1 : bool = true
00:03:01 verbose #9603 > > let mutable _v1 : unit option = None
00:03:01 verbose #9604 > >
00:03:01 verbose #9605 > > #if FABLE_COMPILER || WASM || CONTRACT
00:03:01 verbose #9606 > >
00:03:01 verbose #9607 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:03:01 verbose #9608 > > "$0()" )
00:03:01 verbose #9609 > > v28
00:03:01 verbose #9610 > > #endif
00:03:01 verbose #9611 > > #if FABLE_COMPILER_RUST && WASM
00:03:01 verbose #9612 > > let v29 : (unit -> unit) = method0(v25)
00:03:01 verbose #9613 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:03:01 verbose #9614 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:03:01 verbose #9615 > > v30
00:03:01 verbose #9616 > > #endif
00:03:01 verbose #9617 > > #if FABLE_COMPILER_RUST && CONTRACT
00:03:01 verbose #9618 > > let v31 : (unit -> unit) = method0(v25)
00:03:01 verbose #9619 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:03:01 verbose #9620 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:03:01 verbose #9621 > > v32
00:03:01 verbose #9622 > > #endif
00:03:01 verbose #9623 > > #if FABLE_COMPILER_TYPESCRIPT
00:03:01 verbose #9624 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:03:01 verbose #9625 > > v33
00:03:01 verbose #9626 > > #endif
00:03:01 verbose #9627 > > #if FABLE_COMPILER_PYTHON
00:03:01 verbose #9628 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:03:01 verbose #9629 > > v34
00:03:01 verbose #9630 > > #endif
00:03:01 verbose #9631 > > #else
00:03:01 verbose #9632 > > let v35 : (unit -> unit) = method1(v25)
00:03:01 verbose #9633 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:03:01 verbose #9634 > > _.Dispose () = v35 () }
00:03:01 verbose #9635 > > v36
00:03:01 verbose #9636 > > #endif
00:03:01 verbose #9637 > > |> fun x -> _v26 <- Some x
00:03:01 verbose #9638 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:03:01 verbose #9639 > > failwith "base.run_target / _v26=None"
00:03:01 verbose #9640 > > let v38 : System.Threading.CancellationToken = v25.Token
00:03:01 verbose #9641 > > struct (v38, v37)
00:03:01 verbose #9642 > > #endif
00:03:01 verbose #9643 > > |> fun x -> _v1 <- Some x
00:03:01 verbose #9644 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:03:01 verbose #9645 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:03:01 verbose #9646 > > "base.run_target / _v1=None"
00:03:01 verbose #9647 > > struct (v39, v40)
00:03:01 verbose #9648 > > let v0 : (System.Threading.CancellationToken option -> struct
00:03:01 verbose #9649 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:03:01 verbose #9650 > > let new_disposable_token x = v0 x
00:03:01 verbose #9651 > > ()
00:03:01 verbose #9652 > >
00:03:02 verbose #9653 > >
00:03:02 verbose #9654 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:02 verbose #9655 > > #if FABLE_COMPILER
00:03:02 verbose #9656 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:03:02 verbose #9657 > > #endif
00:03:02 verbose #9658 > > type reqwest_Error = class end
00:03:02 verbose #9659 > > #if FABLE_COMPILER
00:03:02 verbose #9660 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:03:02 verbose #9661 > > #endif
00:03:02 verbose #9662 > > type reqwest_RequestBuilder = class end
00:03:02 verbose #9663 > > #if FABLE_COMPILER
00:03:02 verbose #9664 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:03:02 verbose #9665 > > #endif
00:03:02 verbose #9666 > > type reqwest_Response = class end
00:03:02 verbose #9667 > > #if FABLE_COMPILER
00:03:02 verbose #9668 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:03:02 verbose #9669 > > #endif
00:03:02 verbose #9670 > > type std_env_VarError = class end
00:03:02 verbose #9671 > > #if FABLE_COMPILER
00:03:02 verbose #9672 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:02 verbose #9673 > > #endif
00:03:02 verbose #9674 > > type core_any_Any = class end
00:03:02 verbose #9675 > > #if FABLE_COMPILER
00:03:02 verbose #9676 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:02 verbose #9677 > > #endif
00:03:02 verbose #9678 > > type core_ops_Try<'T> = class end
00:03:02 verbose #9679 > > #if FABLE_COMPILER
00:03:02 verbose #9680 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:02 verbose #9681 > > #endif
00:03:02 verbose #9682 > > type Func0<'T> = class end
00:03:02 verbose #9683 > > #if FABLE_COMPILER
00:03:02 verbose #9684 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:02 verbose #9685 > > #endif
00:03:02 verbose #9686 > > type Func0<'T, 'U> = class end
00:03:02 verbose #9687 > > #if FABLE_COMPILER
00:03:02 verbose #9688 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:02 verbose #9689 > > #endif
00:03:02 verbose #9690 > > type Box<'T> = class end
00:03:02 verbose #9691 > > #if FABLE_COMPILER
00:03:02 verbose #9692 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:03:02 verbose #9693 > > #endif
00:03:02 verbose #9694 > > type Dyn<'T> = class end
00:03:02 verbose #9695 > > #if FABLE_COMPILER
00:03:02 verbose #9696 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:03:02 verbose #9697 > > #endif
00:03:02 verbose #9698 > > type Send<'T> = class end
00:03:02 verbose #9699 > > #if FABLE_COMPILER
00:03:02 verbose #9700 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:03:02 verbose #9701 > > #endif
00:03:02 verbose #9702 > > type Fn<'T> = class end
00:03:02 verbose #9703 > > #if FABLE_COMPILER
00:03:02 verbose #9704 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:03:02 verbose #9705 > > #endif
00:03:02 verbose #9706 > > type FnUnit = class end
00:03:02 verbose #9707 > > #if FABLE_COMPILER
00:03:02 verbose #9708 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:03:02 verbose #9709 > > ... v212 = v212
00:03:02 verbose #9710 > > let v213 : bool = v212
00:03:02 verbose #9711 > > let v214 : bool = v213 = false
00:03:02 verbose #9712 > > if v214 then
00:03:02 verbose #9713 > > return v2
00:03:02 verbose #9714 > > (*
00:03:02 verbose #9715 > > ()
00:03:02 verbose #9716 > > else
00:03:02 verbose #9717 > > *) else
00:03:02 verbose #9718 > > let v215 : int32 = v2 + 1
00:03:02 verbose #9719 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:03:02 verbose #9720 > > return! v216
00:03:02 verbose #9721 > > (*
00:03:02 verbose #9722 > > ()
00:03:02 verbose #9723 > > *)
00:03:02 verbose #9724 > > }
00:03:02 verbose #9725 > > |> fun x -> _v9 <- Some x
00:03:02 verbose #9726 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:03:02 verbose #9727 > > "async.new_async_unit / _v9=None"
00:03:02 verbose #9728 > > v217
00:03:02 verbose #9729 > > #endif
00:03:02 verbose #9730 > > |> fun x -> _v3 <- Some x
00:03:02 verbose #9731 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:03:02 verbose #9732 > > "base.run_target / _v3=None"
00:03:02 verbose #9733 > > v218
00:03:02 verbose #9734 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:03:02 verbose #9735 > > method10(v0, v1, v2)
00:03:02 verbose #9736 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:03:02 verbose #9737 > > closure23(v0, v1)
00:03:02 verbose #9738 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:03:02 verbose #9739 > > closure22(v0)
00:03:02 verbose #9740 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:03:02 verbose #9741 > > let v1 : US0 = US0_0
00:03:02 verbose #9742 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:03:02 verbose #9743 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:03:02 verbose #9744 > > let test_port_open x = v2 x
00:03:02 verbose #9745 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:03:02 verbose #9746 > > let test_port_open_timeout x = v3 x
00:03:02 verbose #9747 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:03:02 verbose #9748 > > closure15()
00:03:02 verbose #9749 > > let wait_for_port_access x = v4 x
00:03:02 verbose #9750 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:03:02 verbose #9751 > > let get_available_port x = v5 x
00:03:02 verbose #9752 > > ()
00:03:02 verbose #9753 > >
00:03:03 verbose #9754 > >
00:03:03 verbose #9755 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #9756 > > type [[<Struct>]] US0 =
00:03:03 verbose #9757 > > | US0_0
00:03:03 verbose #9758 > > | US0_1
00:03:03 verbose #9759 > > | US0_2
00:03:03 verbose #9760 > > and [[<Struct>]] US1 =
00:03:03 verbose #9761 > > | US1_0 of f0_0 : US0
00:03:03 verbose #9762 > > | US1_1 of f1_0 : US0
00:03:03 verbose #9763 > > | US1_2 of f2_0 : US0
00:03:03 verbose #9764 > > | US1_3 of f3_0 : US0
00:03:03 verbose #9765 > > | US1_4 of f4_0 : US0
00:03:03 verbose #9766 > > let rec closure0 () () : bool =
00:03:03 verbose #9767 > > let v0 : bool = true
00:03:03 verbose #9768 > > let mutable _v0 : bool option = None
00:03:03 verbose #9769 > >
00:03:03 verbose #9770 > > #if FABLE_COMPILER || WASM || CONTRACT
00:03:03 verbose #9771 > >
00:03:03 verbose #9772 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:03:03 verbose #9773 > > let v1 : string = "cfg!(windows)"
00:03:03 verbose #9774 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:03:03 verbose #9775 > > v2
00:03:03 verbose #9776 > > #endif
00:03:03 verbose #9777 > > #if FABLE_COMPILER_RUST && WASM
00:03:03 verbose #9778 > > let v3 : string = "cfg!(windows)"
00:03:03 verbose #9779 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:03:03 verbose #9780 > > v4
00:03:03 verbose #9781 > > #endif
00:03:03 verbose #9782 > > #if FABLE_COMPILER_RUST && CONTRACT
00:03:03 verbose #9783 > > let v5 : string = "cfg!(windows)"
00:03:03 verbose #9784 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:03:03 verbose #9785 > > v6
00:03:03 verbose #9786 > > #endif
00:03:03 verbose #9787 > > #if FABLE_COMPILER_TYPESCRIPT
00:03:03 verbose #9788 > > let v7 : US0 = US0_0
00:03:03 verbose #9789 > > let v8 : US1 = US1_3(v7)
00:03:03 verbose #9790 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:03:03 verbose #9791 > > let v10 : bool = failwith<bool> v9
00:03:03 verbose #9792 > > v10
00:03:03 verbose #9793 > > #endif
00:03:03 verbose #9794 > > #if FABLE_COMPILER_PYTHON
00:03:03 verbose #9795 > > let v11 : US0 = US0_0
00:03:03 verbose #9796 > > let v12 : US1 = US1_4(v11)
00:03:03 verbose #9797 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:03:03 verbose #9798 > > let v14 : bool = failwith<bool> v13
00:03:03 verbose #9799 > > v14
00:03:03 verbose #9800 > > #endif
00:03:03 verbose #9801 > > #else
00:03:03 verbose #9802 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:03:03 verbose #9803 > > System.Runtime.InteropServices.OSPlatform.Windows
00:03:03 verbose #9804 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:03:03 verbose #9805 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:03:03 verbose #9806 > > let v17 : b...: string = "cfg!(windows)"
00:03:03 verbose #9807 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:03:03 verbose #9808 > > v2
00:03:03 verbose #9809 > > #endif
00:03:03 verbose #9810 > > #if FABLE_COMPILER_RUST && WASM
00:03:03 verbose #9811 > > let v3 : string = "cfg!(windows)"
00:03:03 verbose #9812 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:03:03 verbose #9813 > > v4
00:03:03 verbose #9814 > > #endif
00:03:03 verbose #9815 > > #if FABLE_COMPILER_RUST && CONTRACT
00:03:03 verbose #9816 > > let v5 : string = "cfg!(windows)"
00:03:03 verbose #9817 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:03:03 verbose #9818 > > v6
00:03:03 verbose #9819 > > #endif
00:03:03 verbose #9820 > > #if FABLE_COMPILER_TYPESCRIPT
00:03:03 verbose #9821 > > let v7 : US0 = US0_0
00:03:03 verbose #9822 > > let v8 : US1 = US1_3(v7)
00:03:03 verbose #9823 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:03:03 verbose #9824 > > let v10 : bool = failwith<bool> v9
00:03:03 verbose #9825 > > v10
00:03:03 verbose #9826 > > #endif
00:03:03 verbose #9827 > > #if FABLE_COMPILER_PYTHON
00:03:03 verbose #9828 > > let v11 : US0 = US0_0
00:03:03 verbose #9829 > > let v12 : US1 = US1_4(v11)
00:03:03 verbose #9830 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:03:03 verbose #9831 > > let v14 : bool = failwith<bool> v13
00:03:03 verbose #9832 > > v14
00:03:03 verbose #9833 > > #endif
00:03:03 verbose #9834 > > #else
00:03:03 verbose #9835 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:03:03 verbose #9836 > > System.Runtime.InteropServices.OSPlatform.Windows
00:03:03 verbose #9837 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:03:03 verbose #9838 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:03:03 verbose #9839 > > let v17 : bool = v16 v15
00:03:03 verbose #9840 > > v17
00:03:03 verbose #9841 > > #endif
00:03:03 verbose #9842 > > |> fun x -> _v0 <- Some x
00:03:03 verbose #9843 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:03:03 verbose #9844 > > "base.run_target / _v0=None"
00:03:03 verbose #9845 > > if v18 then
00:03:03 verbose #9846 > > let v19 : string = ".exe"
00:03:03 verbose #9847 > > v19
00:03:03 verbose #9848 > > else
00:03:03 verbose #9849 > > let v20 : string = ""
00:03:03 verbose #9850 > > v20
00:03:03 verbose #9851 > > let v0 : (unit -> bool) = closure0()
00:03:03 verbose #9852 > > let is_windows () = v0 ()
00:03:03 verbose #9853 > > let v1 : (unit -> string) = closure1()
00:03:03 verbose #9854 > > let get_executable_suffix () = v1 ()
00:03:03 verbose #9855 > > ()
00:03:03 verbose #9856 > >
00:03:03 verbose #9857 > >
00:03:03 verbose #9858 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:03 verbose #9859 > > #if FABLE_COMPILER
00:03:03 verbose #9860 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:03:03 verbose #9861 > > #endif
00:03:03 verbose #9862 > > type clap_Arg = class end
00:03:03 verbose #9863 > > #if FABLE_COMPILER
00:03:03 verbose #9864 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:03:03 verbose #9865 > > #endif
00:03:03 verbose #9866 > > type clap_ArgAction = class end
00:03:03 verbose #9867 > > #if FABLE_COMPILER
00:03:03 verbose #9868 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:03:03 verbose #9869 > > #endif
00:03:03 verbose #9870 > > type clap_Command = class end
00:03:03 verbose #9871 > > #if FABLE_COMPILER
00:03:03 verbose #9872 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:03:03 verbose #9873 > > #endif
00:03:03 verbose #9874 > > type clap_ArgMatches = class end
00:03:03 verbose #9875 > > #if FABLE_COMPILER
00:03:03 verbose #9876 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:03:03 verbose #9877 > > #endif
00:03:03 verbose #9878 > > type clap_builder_ValueRange = class end
00:03:03 verbose #9879 > > #if FABLE_COMPILER
00:03:03 verbose #9880 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:03:03 verbose #9881 > > #endif
00:03:03 verbose #9882 > > type clap_builder_ValueParser = class end
00:03:03 verbose #9883 > > #if FABLE_COMPILER
00:03:03 verbose #9884 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:03:03 verbose #9885 > > #endif
00:03:03 verbose #9886 > > type clap_builder_PossibleValue = class end
00:03:03 verbose #9887 > > #if FABLE_COMPILER
00:03:03 verbose #9888 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:03:03 verbose #9889 > > #endif
00:03:03 verbose #9890 > > type std_process_Child = class end
00:03:03 verbose #9891 > > #if FABLE_COMPILER
00:03:03 verbose #9892 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:03:03 verbose #9893 > > #endif
00:03:03 verbose #9894 > > type std_process_ChildStderr = class end
00:03:03 verbose #9895 > > #if FABLE_COMPILER
00:03:03 verbose #9896 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:03:03 verbose #9897 > > #endif
00:03:03 verbose #9898 > > type std_process_ChildStdout = class end
00:03:03 verbose #9899 > > #if FABLE_COMPILER
00:03:03 verbose #9900 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:03:03 verbose #9901 > > #endif
00:03:03 verbose #9902 > > type std_process_ChildStdin = class end
00:03:03 verbose #9903 > > #if FABLE_COMPILER
00:03:03 verbose #9904 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:03:03 verbose #9905 > > #endif
00:03:03 verbose #9906 > > type std_process_Command = class... with
00:03:03 verbose #9907 > > | US14_1(v28) -> (* Error *)
00:03:03 verbose #9908 > > US8_1(v28)
00:03:03 verbose #9909 > > | US14_0(v26) -> (* Ok *)
00:03:03 verbose #9910 > > US8_0(v26)
00:03:03 verbose #9911 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:03:03 verbose #9912 > > let v1 : US8 = method16(v0)
00:03:03 verbose #9913 > > match v1 with
00:03:03 verbose #9914 > > | US8_1(v4) -> (* Error *)
00:03:03 verbose #9915 > > let v5 : Result<(string [[]]), string> = Error v4
00:03:03 verbose #9916 > > v5
00:03:03 verbose #9917 > > | US8_0(v2) -> (* Ok *)
00:03:03 verbose #9918 > > let v3 : Result<(string [[]]), string> = Ok v2
00:03:03 verbose #9919 > > v3
00:03:03 verbose #9920 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:03:03 verbose #9921 > > let v1 : US0 = US0_0
00:03:03 verbose #9922 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:03:03 verbose #9923 > > let v2 : (unit -> unit) = closure2()
00:03:03 verbose #9924 > > let current_process_kill () = v2 ()
00:03:03 verbose #9925 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:03:03 verbose #9926 > > let execute_async x = v3 x
00:03:03 verbose #9927 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:03:03 verbose #9928 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:03:03 verbose #9929 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:03:03 verbose #9930 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:03:03 verbose #9931 > > let execute_with_options_async x = v4 x
00:03:03 verbose #9932 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:03:03 verbose #9933 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:03:03 verbose #9934 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:03:03 verbose #9935 > > unit) option * bool * string option)) = closure18()
00:03:03 verbose #9936 > > let execution_options x = v5 x
00:03:03 verbose #9937 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:03:03 verbose #9938 > > let split_args x = v6 x
00:03:03 verbose #9939 > > ()
00:03:03 verbose #9940 > >
00:03:06 verbose #9941 > >
00:03:06 verbose #9942 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:06 verbose #9943 > > #if FABLE_COMPILER
00:03:06 verbose #9944 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:03:06 verbose #9945 > > #endif
00:03:06 verbose #9946 > > type std_fs_File = class end
00:03:06 verbose #9947 > > #if FABLE_COMPILER
00:03:06 verbose #9948 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:03:06 verbose #9949 > > #endif
00:03:06 verbose #9950 > > type std_fs_FileType = class end
00:03:06 verbose #9951 > > #if FABLE_COMPILER
00:03:06 verbose #9952 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:03:06 verbose #9953 > > #endif
00:03:06 verbose #9954 > > type std_path_Display = class end
00:03:06 verbose #9955 > > #if FABLE_COMPILER
00:03:06 verbose #9956 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:03:06 verbose #9957 > > #endif
00:03:06 verbose #9958 > > type std_path_Path = class end
00:03:06 verbose #9959 > > #if FABLE_COMPILER
00:03:06 verbose #9960 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:03:06 verbose #9961 > > #endif
00:03:06 verbose #9962 > > type std_path_PathBuf = class end
00:03:06 verbose #9963 > > #if FABLE_COMPILER
00:03:06 verbose #9964 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:03:06 verbose #9965 > > #endif
00:03:06 verbose #9966 > > type async_walkdir_DirEntry = class end
00:03:06 verbose #9967 > > #if FABLE_COMPILER
00:03:06 verbose #9968 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:03:06 verbose #9969 > > #endif
00:03:06 verbose #9970 > > type async_walkdir_Filtering = class end
00:03:06 verbose #9971 > > #if FABLE_COMPILER
00:03:06 verbose #9972 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:03:06 verbose #9973 > > #endif
00:03:06 verbose #9974 > > type async_walkdir_WalkDir = class end
00:03:06 verbose #9975 > > #if FABLE_COMPILER
00:03:06 verbose #9976 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:06 verbose #9977 > > #endif
00:03:06 verbose #9978 > > type core_any_Any = class end
00:03:06 verbose #9979 > > #if FABLE_COMPILER
00:03:06 verbose #9980 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:06 verbose #9981 > > #endif
00:03:06 verbose #9982 > > type core_ops_Try<'T> = class end
00:03:06 verbose #9983 > > #if FABLE_COMPILER
00:03:06 verbose #9984 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:06 verbose #9985 > > #endif
00:03:06 verbose #9986 > > type Func0<'T> = class end
00:03:06 verbose #9987 > > #if FABLE_COMPILER
00:03:06 verbose #9988 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:06 verbose #9989 > > #endif
00:03:06 verbose #9990 > > type Func0<'T, 'U> = class end
00:03:06 verbose #9991 > > #if FABLE_COMPILER
00:03:06 verbose #9992 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:06 verbose #9993 > > #endif
00:03:06 verbose #9994 > > type Box<'T> = cla...4>) = closure12()
00:03:06 verbose #9995 > > let wait_for_file_access_read x = v4 x
00:03:06 verbose #9996 > > let v5 : (string -> Async<string>) = closure13()
00:03:06 verbose #9997 > > let read_all_text_async x = v5 x
00:03:06 verbose #9998 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:03:06 verbose #9999 > > let file_exists_content x = v6 x
00:03:06 verbose #10000 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:03:06 verbose #10001 > > let write_all_text_async x = v7 x
00:03:06 verbose #10002 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:03:06 verbose #10003 > > let write_all_text_exists x = v8 x
00:03:06 verbose #10004 > > let v9 : (string -> Async<int64>) = closure20()
00:03:06 verbose #10005 > > let delete_file_async x = v9 x
00:03:06 verbose #10006 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:03:06 verbose #10007 > > let move_file_async x = v10 x
00:03:06 verbose #10008 > > let v11 : (string -> Async<string option>) = closure27()
00:03:06 verbose #10009 > > let read_all_text_retry_async x = v11 x
00:03:06 verbose #10010 > > let v12 : (unit -> string) = closure35()
00:03:06 verbose #10011 > > let create_temp_path () = v12 ()
00:03:06 verbose #10012 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:03:06 verbose #10013 > > let create_temp_dir () = v13 ()
00:03:06 verbose #10014 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:03:06 verbose #10015 > > let create_temp_dir' x = v14 x
00:03:06 verbose #10016 > > let v15 : (unit -> string) = closure49()
00:03:06 verbose #10017 > > let get_source_directory () = v15 ()
00:03:06 verbose #10018 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:03:06 verbose #10019 > > let find_parent x = v16 x
00:03:06 verbose #10020 > > let v17 : (string -> string) = closure56()
00:03:06 verbose #10021 > > let normalize_path x = v17 x
00:03:06 verbose #10022 > > let v18 : (string -> string) = closure57()
00:03:06 verbose #10023 > > let new_file_uri x = v18 x
00:03:06 verbose #10024 > > let v19 : (unit -> string) = closure58()
00:03:06 verbose #10025 > > let get_workspace_root () = v19 ()
00:03:06 verbose #10026 > > let v20 : (bool -> unit) = closure59()
00:03:06 verbose #10027 > > let init_trace_file x = v20 x
00:03:06 verbose #10028 > > let v21 : (string -> (string -> string)) = closure61()
00:03:06 verbose #10029 > > let (</>) x = v21 x
00:03:06 verbose #10030 > > ()
00:03:06 verbose #10031 > >
00:03:08 verbose #10032 > >
00:03:08 verbose #10033 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:08 verbose #10034 > > #if FABLE_COMPILER
00:03:08 verbose #10035 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:03:08 verbose #10036 > > #endif
00:03:08 verbose #10037 > > type core_any_Any = class end
00:03:08 verbose #10038 > > #if FABLE_COMPILER
00:03:08 verbose #10039 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:03:08 verbose #10040 > > #endif
00:03:08 verbose #10041 > > type core_ops_Try<'T> = class end
00:03:08 verbose #10042 > > #if FABLE_COMPILER
00:03:08 verbose #10043 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:03:08 verbose #10044 > > #endif
00:03:08 verbose #10045 > > type Func0<'T> = class end
00:03:08 verbose #10046 > > #if FABLE_COMPILER
00:03:08 verbose #10047 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:03:08 verbose #10048 > > #endif
00:03:08 verbose #10049 > > type Func0<'T, 'U> = class end
00:03:08 verbose #10050 > > #if FABLE_COMPILER
00:03:08 verbose #10051 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:03:08 verbose #10052 > > #endif
00:03:08 verbose #10053 > > type Box<'T> = class end
00:03:08 verbose #10054 > > #if FABLE_COMPILER
00:03:08 verbose #10055 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:03:08 verbose #10056 > > #endif
00:03:08 verbose #10057 > > type Dyn<'T> = class end
00:03:08 verbose #10058 > > #if FABLE_COMPILER
00:03:08 verbose #10059 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:03:08 verbose #10060 > > #endif
00:03:08 verbose #10061 > > type Send<'T> = class end
00:03:08 verbose #10062 > > #if FABLE_COMPILER
00:03:08 verbose #10063 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:03:08 verbose #10064 > > #endif
00:03:08 verbose #10065 > > type Fn<'T> = class end
00:03:08 verbose #10066 > > #if FABLE_COMPILER
00:03:08 verbose #10067 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:03:08 verbose #10068 > > #endif
00:03:08 verbose #10069 > > type FnUnit = class end
00:03:08 verbose #10070 > > #if FABLE_COMPILER
00:03:08 verbose #10071 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:03:08 verbose #10072 > > #endif
00:03:08 verbose #10073 > > type FnOnce<'T> = class end
00:03:08 verbose #10074 > > #if FABLE_COMPILER
00:03:08 verbose #10075 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:03:08 verbose #10076 > > #endif
00:03:08 verbose #10077 > > type ActionFn<'T> = class end
00:03:08 verbose #10078 > > #if FABLE_COMPILER
00:03:08 verbose #10079 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:03:08 verbose #10080 > > #endif
00:03:08 verbose #10081 > > type ActionFn2<'T, 'U> = class end
00:03:08 verbose #10082 > > #if FABLE_COMPILER
00:03:08 verbose #10083 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:03:08 verbose #10084 > > #endif
00:03:08 verbose #10085 > > type Impl<'T> = class end
00:03:08 verbose #10086 > > #if FABLE_COMPILER
00:03:08 verbose #10087 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:03:08 verbose #10088 > > #endif
00:03:08 verbose #10089 > > type Mut<'T> = class end
00:03:08 verbose #10090 > > #if FABLE_COMPILER
00:03:08 verbose #10091 > > [[<Fable.Core.Erase; Fable.C... #endif
00:03:08 verbose #10092 > > #if FABLE_COMPILER_RUST && WASM
00:03:08 verbose #10093 > > let v27 : string = @"println!(""{}"", $0)"
00:03:08 verbose #10094 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:03:08 verbose #10095 > > ()
00:03:08 verbose #10096 > > #endif
00:03:08 verbose #10097 > > #if FABLE_COMPILER_RUST && CONTRACT
00:03:08 verbose #10098 > > let v28 : string = @"println!(""{}"", $0)"
00:03:08 verbose #10099 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:03:08 verbose #10100 > > ()
00:03:08 verbose #10101 > > #endif
00:03:08 verbose #10102 > > #if FABLE_COMPILER_TYPESCRIPT
00:03:08 verbose #10103 > > System.Console.WriteLine v24
00:03:08 verbose #10104 > > ()
00:03:08 verbose #10105 > > #endif
00:03:08 verbose #10106 > > #if FABLE_COMPILER_PYTHON
00:03:08 verbose #10107 > > System.Console.WriteLine v24
00:03:08 verbose #10108 > > ()
00:03:08 verbose #10109 > > #endif
00:03:08 verbose #10110 > > #else
00:03:08 verbose #10111 > > System.Console.WriteLine v24
00:03:08 verbose #10112 > > ()
00:03:08 verbose #10113 > > #endif
00:03:08 verbose #10114 > > |> fun x -> _v25 <- Some x
00:03:08 verbose #10115 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:03:08 verbose #10116 > > _v25=None"
00:03:08 verbose #10117 > > let v29 : (string -> unit) = v8.l0
00:03:08 verbose #10118 > > v29 v24
00:03:08 verbose #10119 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:03:08 verbose #10120 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:03:08 verbose #10121 > > method8(v0, v3)
00:03:08 verbose #10122 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:03:08 verbose #10123 > > method4(v0, v1, v2)
00:03:08 verbose #10124 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:03:08 verbose #10125 > > closure4(v0, v1)
00:03:08 verbose #10126 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:03:08 verbose #10127 > > closure3(v0)
00:03:08 verbose #10128 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:03:08 verbose #10129 > > let v1 : US0 = US0_0
00:03:08 verbose #10130 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:03:08 verbose #10131 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:03:08 verbose #10132 > > let trace x = v2 x
00:03:08 verbose #10133 > > ()
00:03:08 verbose #10134 > >
00:03:09 verbose #10135 > >
00:03:09 verbose #10136 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10137 > > module SpiralTrace =
00:03:09 verbose #10138 > > let trace x =
00:03:09 verbose #10139 > > #if !INTERACTIVE
00:03:09 verbose #10140 > > Trace.trace x
00:03:09 verbose #10141 > > #else
00:03:09 verbose #10142 > > trace x
00:03:09 verbose #10143 > > #endif
00:03:09 verbose #10144 > >
00:03:09 verbose #10145 > > type TraceLevel =
00:03:09 verbose #10146 > > #if !INTERACTIVE
00:03:09 verbose #10147 > > Trace.US0
00:03:09 verbose #10148 > > #else
00:03:09 verbose #10149 > > US0
00:03:09 verbose #10150 > > #endif
00:03:09 verbose #10151 > >
00:03:09 verbose #10152 > > module SpiralCrypto =
00:03:09 verbose #10153 > > let hash_text x =
00:03:09 verbose #10154 > > #if !INTERACTIVE
00:03:09 verbose #10155 > > Crypto.hash_text x
00:03:09 verbose #10156 > > #else
00:03:09 verbose #10157 > > hash_text x
00:03:09 verbose #10158 > > #endif
00:03:09 verbose #10159 > >
00:03:09 verbose #10160 > > let hash_to_port x =
00:03:09 verbose #10161 > > #if !INTERACTIVE
00:03:09 verbose #10162 > > Crypto.hash_to_port x
00:03:09 verbose #10163 > > #else
00:03:09 verbose #10164 > > hash_to_port x
00:03:09 verbose #10165 > > #endif
00:03:09 verbose #10166 > >
00:03:09 verbose #10167 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:03:09 verbose #10168 > >
00:03:09 verbose #10169 > > module SpiralAsync =
00:03:09 verbose #10170 > > let merge_cancellation_token_with_default_async x =
00:03:09 verbose #10171 > > #if !INTERACTIVE
00:03:09 verbose #10172 > > Async_.merge_cancellation_token_with_default_async x
00:03:09 verbose #10173 > > #else
00:03:09 verbose #10174 > > merge_cancellation_token_with_default_async x
00:03:09 verbose #10175 > > #endif
00:03:09 verbose #10176 > >
00:03:09 verbose #10177 > > module SpiralThreading =
00:03:09 verbose #10178 > > let new_disposable_token x =
00:03:09 verbose #10179 > > #if !INTERACTIVE
00:03:09 verbose #10180 > > Threading.new_disposable_token x
00:03:09 verbose #10181 > > #else
00:03:09 verbose #10182 > > new_disposable_token x
00:03:09 verbose #10183 > > #endif
00:03:09 verbose #10184 > >
00:03:09 verbose #10185 > > module SpiralNetworking =
00:03:09 verbose #10186 > > let test_port_open x =
00:03:09 verbose #10187 > > #if !INTERACTIVE
00:03:09 verbose #10188 > > Networking.test_port_open x
00:03:09 verbose #10189 > > #else
00:03:09 verbose #10190 > > test_port_open x
00:03:09 verbose #10191 > > #endif
00:03:09 verbose #10192 > >
00:03:09 verbose #10193 > > let test_port_open_timeout x =
00:03:09 verbose #10194 > > #if !INTERACTIVE
00:03:09 verbose #10195 > > Networking.test_port_open_timeout x
00:03:09 verbose #10196 > > #else
00:03:09 verbose #10197 > > test_port_open_timeout x
00:03:09 verbose #10198 > > #endif
00:03:09 verbose #10199 > >
00:03:09 verbose #10200 > > let wait_for_port_access x =
00:03:09 verbose #10201 > > #if !INTERACTIVE
00:03:09 verbose #10202 > > Networking.wait_for_port_access x
00:03:09 verbose #10203 > > #else
00:03:09 verbose #10204 > > wait_for_port_access x
00:03:09 verbose #10205 > > #endif
00:03:09 verbose #10206 > >
00:03:09 verbose #10207 > > let get_available_port x =
00:03:09 verbose #10208 > > #if !INTERACTIVE
00:03:09 verbose #10209 > > Networking.get_available_port x
00:03:09 verbose #10210 > > #else
00:03:09 verbose #10211 > > get_available_port x
00:03:09 verbose #10212 > > #endif
00:03:09 verbose #10213 > >
00:03:09 verbose #10214 > > module SpiralPlatform =
00:03:09 verbose #10215 > > let get_executable_suffix () =
00:03:09 verbose #10216 > > #if !INTERACTIVE
00:03:09 verbose #10217 > > Platform.g...e.trace_state
00:03:09 verbose #10218 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:03:09 verbose #10219 > > level.l0 <-
00:03:09 verbose #10220 > > match new_level with
00:03:09 verbose #10221 > > | Trace.US0_0 -> File_system.US0_0
00:03:09 verbose #10222 > > | Trace.US0_1 -> File_system.US0_1
00:03:09 verbose #10223 > > | Trace.US0_2 -> File_system.US0_2
00:03:09 verbose #10224 > > | Trace.US0_3 -> File_system.US0_3
00:03:09 verbose #10225 > > | Trace.US0_4 -> File_system.US0_4
00:03:09 verbose #10226 > > )
00:03:09 verbose #10227 > >
00:03:09 verbose #10228 > > Runtime.State.trace_state
00:03:09 verbose #10229 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:03:09 verbose #10230 > > level.l0 <-
00:03:09 verbose #10231 > > match new_level with
00:03:09 verbose #10232 > > | Trace.US0_0 -> Runtime.US0_0
00:03:09 verbose #10233 > > | Trace.US0_1 -> Runtime.US0_1
00:03:09 verbose #10234 > > | Trace.US0_2 -> Runtime.US0_2
00:03:09 verbose #10235 > > | Trace.US0_3 -> Runtime.US0_3
00:03:09 verbose #10236 > > | Trace.US0_4 -> Runtime.US0_4
00:03:09 verbose #10237 > > )
00:03:09 verbose #10238 > >
00:03:09 verbose #10239 > > Common.State.trace_state
00:03:09 verbose #10240 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:03:09 verbose #10241 > > level.l0 <-
00:03:09 verbose #10242 > > match new_level with
00:03:09 verbose #10243 > > | Trace.US0_0 -> Common.US0_0
00:03:09 verbose #10244 > > | Trace.US0_1 -> Common.US0_1
00:03:09 verbose #10245 > > | Trace.US0_2 -> Common.US0_2
00:03:09 verbose #10246 > > | Trace.US0_3 -> Common.US0_3
00:03:09 verbose #10247 > > | Trace.US0_4 -> Common.US0_4
00:03:09 verbose #10248 > > )
00:03:09 verbose #10249 > >
00:03:09 verbose #10250 > > Trace.State.trace_state
00:03:09 verbose #10251 > > #else
00:03:09 verbose #10252 > > State.trace_state
00:03:09 verbose #10253 > > #endif
00:03:09 verbose #10254 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:03:09 verbose #10255 > > level.l0 <- new_level
00:03:09 verbose #10256 > > )
00:03:09 verbose #10257 > >
00:03:09 verbose #10258 > > let get_trace_level () =
00:03:09 verbose #10259 > > #if !INTERACTIVE
00:03:09 verbose #10260 > > Trace.State.trace_state
00:03:09 verbose #10261 > > #else
00:03:09 verbose #10262 > > State.trace_state
00:03:09 verbose #10263 > > #endif
00:03:09 verbose #10264 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:03:09 verbose #10265 > > level.l0
00:03:09 verbose #10266 > > )
00:03:09 verbose #10267 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:03:09 verbose #10268 > > trace_state=None")
00:03:09 verbose #10269 > >
00:03:09 verbose #10270 > >
00:03:09 verbose #10271 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10272 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:03:09 verbose #10273 > >
00:03:09 verbose #10274 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10275 > > //// test
00:03:09 verbose #10276 > >
00:03:09 verbose #10277 > > type AssertExceptionFormatter (ex) =
00:03:09 verbose #10278 > > member _.Text =
00:03:09 verbose #10279 > > ex.ToString()
00:03:09 verbose #10280 > > .Replace("32m", "<span style=\"color: green;\">")
00:03:09 verbose #10281 > > .Replace("36m", "</span>")
00:03:09 verbose #10282 > > .Replace("31m", "<span style=\"color: red;\">")
00:03:09 verbose #10283 > > .Replace("\n", "<br/>\n")
00:03:09 verbose #10284 > >
00:03:09 verbose #10285 > >
00:03:09 verbose #10286 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:03:09 verbose #10287 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:03:09 verbose #10288 > >
00:03:09 verbose #10289 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10290 > > //// test
00:03:09 verbose #10291 > >
00:03:09 verbose #10292 > > let inline __expect fn log expected actual =
00:03:09 verbose #10293 > > if log then printfn $"{actual.ToDisplayString ()}"
00:03:09 verbose #10294 > > try
00:03:09 verbose #10295 > > "Testing.__expect" |> fn actual expected
00:03:09 verbose #10296 > > with :? Expecto.AssertException as ex ->
00:03:09 verbose #10297 > > AssertExceptionFormatter(ex).Display () |> ignore
00:03:09 verbose #10298 > > failwith (ex.GetType().FullName)
00:03:09 verbose #10299 > >
00:03:09 verbose #10300 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:03:09 verbose #10301 > > expected actual
00:03:09 verbose #10302 > > let inline _contains expected actual = __contains true expected actual
00:03:09 verbose #10303 > >
00:03:09 verbose #10304 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:03:09 verbose #10305 > > expected actual
00:03:09 verbose #10306 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:03:09 verbose #10307 > >
00:03:09 verbose #10308 > > let inline __isGreaterThan log expected actual = __expect
00:03:09 verbose #10309 > > Expecto.Expect.isGreaterThan log expected actual
00:03:09 verbose #10310 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:03:09 verbose #10311 > >
00:03:09 verbose #10312 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:03:09 verbose #10313 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:03:09 verbose #10314 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:03:09 verbose #10315 > > expected actual
00:03:09 verbose #10316 > >
00:03:09 verbose #10317 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:03:09 verbose #10318 > > log expected actual
00:03:09 verbose #10319 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:03:09 verbose #10320 > >
00:03:09 verbose #10321 > > let inline __isLessThanOrEqual log expected actual = __expect
00:03:09 verbose #10322 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:03:09 verbose #10323 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:03:09 verbose #10324 > > expected actual
00:03:09 verbose #10325 > >
00:03:09 verbose #10326 > > let inline __sequenceEqual log expected actual = __expect
00:03:09 verbose #10327 > > Expecto.Expect.sequenceEqual log expected actual
00:03:09 verbose #10328 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:03:09 verbose #10329 > >
00:03:09 verbose #10330 > > let inline __stringContains log expected actual = __expect
00:03:09 verbose #10331 > > Expecto.Expect.stringContains log expected actual
00:03:09 verbose #10332 > > let inline _stringContains expected actual = __stringContains true expected
00:03:09 verbose #10333 > > actual
00:03:09 verbose #10334 > >
00:03:09 verbose #10335 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:03:09 verbose #10336 > > log expected actual
00:03:09 verbose #10337 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:03:09 verbose #10338 > >
00:03:09 verbose #10339 > > let inline __stringStarts log expected actual = __expect
00:03:09 verbose #10340 > > Expecto.Expect.stringStarts log expected actual
00:03:09 verbose #10341 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:03:09 verbose #10342 > >
00:03:09 verbose #10343 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:03:09 verbose #10344 > > expected actual
00:03:09 verbose #10345 > > let inline _throwsC expected actual = __throwsC true expected actual
00:03:09 verbose #10346 > >
00:03:09 verbose #10347 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10348 > > //// test
00:03:09 verbose #10349 > >
00:03:09 verbose #10350 > > let inline __isBetween log a b actual =
00:03:09 verbose #10351 > > let inline isBetween actual (a, b) _ =
00:03:09 verbose #10352 > > __isGreaterThanOrEqual log a actual
00:03:09 verbose #10353 > > __isLessThanOrEqual log b actual
00:03:09 verbose #10354 > > __expect isBetween log (a, b) actual
00:03:09 verbose #10355 > > let inline _isBetween a b actual = __isBetween true a b actual
00:03:09 verbose #10356 > >
00:03:09 verbose #10357 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:09 verbose #10358 > > #!import ../../lib/fsharp/Common.fs
00:03:09 verbose #10359 > > #!import ../../lib/fsharp/CommonFSharp.fs
00:03:09 verbose #10360 > > #!import ../../lib/fsharp/Async.fs
00:03:09 verbose #10361 > > #!import ../../lib/fsharp/AsyncSeq.fs
00:03:09 verbose #10362 > > #!import ../../lib/fsharp/Runtime.fs
00:03:09 verbose #10363 > > #!import ../../lib/fsharp/FileSystem.fs
00:03:09 verbose #10364 > >
00:03:09 verbose #10365 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10366 > > #if !INTERACTIVE
00:03:09 verbose #10367 > > namespace Polyglot
00:03:09 verbose #10368 > > #endif
00:03:09 verbose #10369 > >
00:03:09 verbose #10370 > > module Common =
00:03:09 verbose #10371 > >
00:03:09 verbose #10372 > > #if !INTERACTIVE
00:03:09 verbose #10373 > > open Lib
00:03:09 verbose #10374 > > #endif
00:03:09 verbose #10375 > >
00:03:09 verbose #10376 > > let nl = System.Environment.NewLine
00:03:09 verbose #10377 > > let q = @""""
00:03:09 verbose #10378 > >
00:03:09 verbose #10379 > > let inline cons head tail = head :: tail
00:03:09 verbose #10380 > >
00:03:09 verbose #10381 > > /// ## memoize
00:03:09 verbose #10382 > > let inline memoize fn =
00:03:09 verbose #10383 > > let result = lazy fn ()
00:03:09 verbose #10384 > > fun () -> result.Value
00:03:09 verbose #10385 > >
00:03:09 verbose #10386 > > /// ## TraceLevel
00:03:09 verbose #10387 > > type TraceLevel =
00:03:09 verbose #10388 > > | Verbose
00:03:09 verbose #10389 > > | Debug
00:03:09 verbose #10390 > > | Info
00:03:09 verbose #10391 > > | Warning
00:03:09 verbose #10392 > > | Critical
00:03:09 verbose #10393 > >
00:03:09 verbose #10394 > > let inline _locals () = ""
00:03:09 verbose #10395 > >
00:03:09 verbose #10396 > > /// ## trace
00:03:09 verbose #10397 > > let to_trace_level = function
00:03:09 verbose #10398 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:03:09 verbose #10399 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:03:09 verbose #10400 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:03:09 verbose #10401 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:03:09 verbose #10402 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:03:09 verbose #10403 > >
00:03:09 verbose #10404 > > let trace level fn locals =
00:03:09 verbose #10405 > > let level = level |> to_trace_level
00:03:09 verbose #10406 > > SpiralTrace.trace level fn locals
00:03:09 verbose #10407 > >
00:03:09 verbose #10408 > >
00:03:09 verbose #10409 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10410 > > #if !INTERACTIVE
00:03:09 verbose #10411 > > namespace Polyglot
00:03:09 verbose #10412 > > #endif
00:03:09 verbose #10413 > >
00:03:09 verbose #10414 > > module CommonFSharp =
00:03:09 verbose #10415 > >
00:03:09 verbose #10416 > > open Common
00:03:09 verbose #10417 > >
00:03:09 verbose #10418 > > /// ## getUnionCaseName
00:03:09 verbose #10419 > > let inline getUnionCaseName<'T> (x: 'T) =
00:03:09 verbose #10420 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:03:09 verbose #10421 > > | case, _ -> case.Name
00:03:09 verbose #10422 > >
00:03:09 verbose #10423 > >
00:03:09 verbose #10424 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:09 verbose #10425 > > #if !INTERACTIVE
00:03:09 verbose #10426 > > namespace Polyglot
00:03:09 verbose #10427 > > #endif
00:03:09 verbose #10428 > >
00:03:09 verbose #10429 > > module Async =
00:03:09 verbose #10430 > >
00:03:09 verbose #10431 > > #if !INTERACTIVE
00:03:09 verbose #10432 > > open Lib
00:03:09 verbose #10433 > > #endif
00:03:09 verbose #10434 > >
00:03:09 verbose #10435 > > open Common
00:03:09 verbose #10436 > >
00:03:09 verbose #10437 > > /// ## choice
00:03:09 verbose #10438 > > let inline choice asyncs = async {
00:03:09 verbose #10439 > > let e = Event<_> ()
00:03:09 verbose #10440 > > use cts = new System.Threading.CancellationTokenSource ()
00:03:09 verbose #10441 > > let fn =
00:03:09 verbose #10442 > > asyncs
00:03:09 verbose #10443 > > |> Seq.map (fun a -> async {
00:03:09 verbose #10444 > > let! x = a
00:03:09 verbose #10445 > > e.Trigger x
00:03:09 verbose #10446 > > })
00:03:09 verbose #10447 > > |> Async.Parallel
00:03:09 verbose #10448 > > |> Async.Ignore
00:03:09 verbose #10449 > > Async.Start (fn, cts.Token)
00:03:09 verbose #10450 > > let! result = Async.AwaitEvent e.Publish
00:03:09 verbose #10451 > > cts.Cancel ()
00:03:09 verbose #10452 > > return result
00:03:09 verbose #10453 > > }
00:03:09 verbose #10454 > >
00:03:09 verbose #10455 > > /// ## map
00:03:09 verbose #10456 > > let inline map fn a = async {
00:03:09 verbose #10457 > > let! x = a
00:03:09 verbose #10458 > > return fn x
00:03:09 verbose #10459 > > }
00:03:09 verbose #10460 > >
00:03:09 verbose #10461 > > /// ## catch
00:03:09 verbose #10462 > > let inline catch a =
00:03:09 verbose #10463 > > a
00:03:09 verbose #10464 > > |> Async.Catch
00:03:09 verbose #10465 > > |> map (function
00:03:09 verbose #10466 > > | Choice1Of2 result -> Ok result
00:03:09 verbose #10467 > > | Choice2Of2 ex -> Error ex
00:03:09 verbose #10468 > > )
00:03:09 verbose #10469 > >
00:03:09 verbose #10470 > > /// ## runWithTimeoutChoiceAsync
00:03:09 verbose #10471 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:03:09 verbose #10472 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:03:09 verbose #10473 > >
00:03:09 verbose #10474 > > let timeoutTask = async {
00:03:09 verbose #10475 > > do! Async.Sleep timeout
00:03:09 verbose #10476 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:03:09 verbose #10477 > > return None
00:03:09 verbose #10478 > > }
00:03:09 verbose #10479 > >
00:03:09 verbose #10480 > > let task = async {
00:03:09 verbose #10481 > > try
00:03:09 verbose #10482 > > let! result = fn
00:03:09 verbose #10483 > > return Some result
00:03:09 verbose #10484 > > with
00:03:09 verbose #10485 > > | :? System.AggregateException as ex when
00:03:09 verbose #10486 > > ex.InnerExceptions
00:03:09 verbose #10487 > > |> Seq.exists (function :? Sy... None
00:03:09 verbose #10488 > >
00:03:09 verbose #10489 > > /// ## awaitValueTask
00:03:09 verbose #10490 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:03:09 verbose #10491 > > task.AsTask () |> Async.AwaitTask
00:03:09 verbose #10492 > >
00:03:09 verbose #10493 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:03:09 verbose #10494 > > task.AsTask () |> Async.AwaitTask
00:03:09 verbose #10495 > >
00:03:09 verbose #10496 > > /// ## init
00:03:09 verbose #10497 > > let inline init x = async {
00:03:09 verbose #10498 > > return x
00:03:09 verbose #10499 > > }
00:03:09 verbose #10500 > >
00:03:09 verbose #10501 > > /// ## withCancellationToken
00:03:09 verbose #10502 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:03:09 verbose #10503 > > fn =
00:03:09 verbose #10504 > > Async.StartImmediateAsTask (fn, ct)
00:03:09 verbose #10505 > > |> Async.AwaitTask
00:03:09 verbose #10506 > >
00:03:09 verbose #10507 > > /// ## retryAsync
00:03:09 verbose #10508 > > let inline retryAsync retries fn =
00:03:09 verbose #10509 > > let rec loop retry lastError = async {
00:03:09 verbose #10510 > > try
00:03:09 verbose #10511 > > return!
00:03:09 verbose #10512 > > if retry <= retries
00:03:09 verbose #10513 > > then fn |> map Ok
00:03:09 verbose #10514 > > else lastError |> Error |> init
00:03:09 verbose #10515 > > with ex ->
00:03:09 verbose #10516 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:03:09 verbose #10517 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:03:09 verbose #10518 > > do! Async.Sleep 1
00:03:09 verbose #10519 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:03:09 verbose #10520 > > }
00:03:09 verbose #10521 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:03:09 verbose #10522 > >
00:03:09 verbose #10523 > > /// ## fold
00:03:09 verbose #10524 > > let fold folder state array =
00:03:09 verbose #10525 > > let rec loop acc i =
00:03:09 verbose #10526 > > async {
00:03:09 verbose #10527 > > if i < Array.length array then
00:03:09 verbose #10528 > > let! newAcc = folder acc array.[[i]]
00:03:09 verbose #10529 > > return! loop newAcc (i + 1)
00:03:09 verbose #10530 > > else
00:03:09 verbose #10531 > > return acc
00:03:09 verbose #10532 > > }
00:03:09 verbose #10533 > > loop state 0
00:03:09 verbose #10534 > >
00:03:10 verbose #10535 > >
00:03:10 verbose #10536 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:10 verbose #10537 > > #if !INTERACTIVE
00:03:10 verbose #10538 > > namespace Polyglot
00:03:10 verbose #10539 > > #endif
00:03:10 verbose #10540 > >
00:03:10 verbose #10541 > > module AsyncSeq =
00:03:10 verbose #10542 > >
00:03:10 verbose #10543 > > #if !INTERACTIVE
00:03:10 verbose #10544 > > open Lib
00:03:10 verbose #10545 > > #endif
00:03:10 verbose #10546 > >
00:03:10 verbose #10547 > > open Common
00:03:10 verbose #10548 > >
00:03:10 verbose #10549 > > /// ## subscribeEvent
00:03:10 verbose #10550 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:03:10 verbose #10551 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:03:10 verbose #10552 > > 'A>(event.AddHandler, event.RemoveHandler)
00:03:10 verbose #10553 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:03:10 verbose #10554 > > event.EventArgs)
00:03:10 verbose #10555 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:03:10 verbose #10556 > >
00:03:10 verbose #10557 > > /// ## subscribeToken
00:03:10 verbose #10558 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:03:10 verbose #10559 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:03:10 verbose #10560 > > System.Action tcs.SetResult |> token.Register |> ignore
00:03:10 verbose #10561 > > let start = System.DateTime.Now.Ticks
00:03:10 verbose #10562 > > FSharp.Control.AsyncSeq.unfoldAsync
00:03:10 verbose #10563 > > (fun () -> async {
00:03:10 verbose #10564 > > do! tcs.Task |> Async.AwaitTask
00:03:10 verbose #10565 > > return Some (System.DateTime.Now.Ticks - start, ())
00:03:10 verbose #10566 > > })
00:03:10 verbose #10567 > > ()
00:03:10 verbose #10568 > >
00:03:10 verbose #10569 > >
00:03:10 verbose #10570 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:10 verbose #10571 > > #if !INTERACTIVE
00:03:10 verbose #10572 > > namespace Polyglot
00:03:10 verbose #10573 > > #endif
00:03:10 verbose #10574 > >
00:03:10 verbose #10575 > > module Runtime =
00:03:10 verbose #10576 > >
00:03:10 verbose #10577 > > #if !INTERACTIVE
00:03:10 verbose #10578 > > open Lib
00:03:10 verbose #10579 > > #endif
00:03:10 verbose #10580 > >
00:03:10 verbose #10581 > > open Common
00:03:10 verbose #10582 > >
00:03:10 verbose #10583 > > /// ## parseArgs
00:03:10 verbose #10584 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:10 verbose #10585 > > let assemblyName =
00:03:10 verbose #10586 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:03:10 verbose #10587 > > let errorHandler : Argu.IExiter =
00:03:10 verbose #10588 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:03:10 verbose #10589 > > List.contains assemblyName
00:03:10 verbose #10590 > > then Argu.ExceptionExiter ()
00:03:10 verbose #10591 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:03:10 verbose #10592 > > _ -> Some System.ConsoleColor.Red)
00:03:10 verbose #10593 > >
00:03:10 verbose #10594 > > let parser =
00:03:10 verbose #10595 > > Argu.ArgumentParser.Create<'T> (
00:03:10 verbose #10596 > > programName =
00:03:10 verbose #10597 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:03:10 verbose #10598 > > errorHandler = errorHandler
00:03:10 verbose #10599 > > )
00:03:10 verbose #10600 > >
00:03:10 verbose #10601 > > parser.ParseCommandLine args
00:03:10 verbose #10602 > >
00:03:10 verbose #10603 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:10 verbose #10604 > > args
00:03:10 verbose #10605 > > |> parseArgs<'T>
00:03:10 verbose #10606 > > |> fun results -> results.GetAllResults ()
00:03:10 verbose #10607 > >
00:03:10 verbose #10608 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:10 verbose #10609 > > args
00:03:10 verbose #10610 > > |> parseAllArgs<'T>
00:03:10 verbose #10611 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:03:10 verbose #10612 > > |> Map.ofList
00:03:10 verbose #10613 > >
00:03:10 verbose #10614 > >
00:03:10 verbose #10615 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:10 verbose #10616 > > #if !INTERACTIVE
00:03:10 verbose #10617 > > namespace Polyglot
00:03:10 verbose #10618 > > #endif
00:03:10 verbose #10619 > >
00:03:10 verbose #10620 > > module FileSystem =
00:03:10 verbose #10621 > >
00:03:10 verbose #10622 > > #if !INTERACTIVE
00:03:10 verbose #10623 > > open Lib
00:03:10 verbose #10624 > > #endif
00:03:10 verbose #10625 > >
00:03:10 verbose #10626 > > open Common
00:03:10 verbose #10627 > > open SpiralFileSystem.Operators
00:03:10 verbose #10628 > >
00:03:10 verbose #10629 > > /// ## watchDirectory
00:03:10 verbose #10630 > > [[<RequireQualifiedAccess>]]
00:03:10 verbose #10631 > > type FileSystemChangeType =
00:03:10 verbose #10632 > > | Failure
00:03:10 verbose #10633 > > | Changed
00:03:10 verbose #10634 > > | Created
00:03:10 verbose #10635 > > | Deleted
00:03:10 verbose #10636 > > | Renamed
00:03:10 verbose #10637 > >
00:03:10 verbose #10638 > > [[<RequireQualifiedAccess>]]
00:03:10 verbose #10639 > > type FileSystemChange =
00:03:10 verbose #10640 > > | Failure of exn: exn
00:03:10 verbose #10641 > > | Changed of path: string * content: string option
00:03:10 verbose #10642 > > | Created of path: string * content: string option
00:03:10 verbose #10643 > > | Deleted of path: string
00:03:10 verbose #10644 > > | Renamed of oldPath: string * (string * string option)
00:03:10 verbose #10645 > >
00:03:10 verbose #10646 > >
00:03:10 verbose #10647 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:03:10 verbose #10648 > > let fullPath = path |> System.IO.Path.GetFullPath
00:03:10 verbose #10649 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:03:10 verbose #10650 > >
00:03:10 verbose #10651 > > let watcher =
00:03:10 verbose #10652 > > new System.IO.FileSystemWatcher (
00:03:10 verbose #10653 > > Path = fullPath,
00:03:10 verbose #10654 > > NotifyFilter = filter,
00:03:10 verbose #10655 > > EnableRaisingEvents = true,
00:03:10 verbose #10656 > > IncludeSubdirectories = true
00:03:10 verbose #10657 > > )
00:03:10 verbose #10658 > >
00:03:10 verbose #10659 > > let inline getEventPath (path : string) =
00:03:10 verbose #10660 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:03:10 verbose #10661 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:03:10 verbose #10662 > >
00:03:10 verbose #10663 > > let inline ticks () =
00:03:10 verbose #10664 > > System.DateTime.UtcNow.Ticks
00:03:10 verbose #10665 > >
00:03:10 verbose #10666 > > let changedStream =
00:03:10 verbose #10667 > > AsyncSeq.subscribeEvent
00:03:10 verbose #10668 > > watcher.Changed
00:03:10 verbose #10669 > > (fun event ->
00:03:10 verbose #10670 > > ticks (),
00:03:10 verbose #10671 > > [[ FileSystemChang...d_all_text_retry_async
00:03:10 verbose #10672 > > return t, FileSystemChange.Changed (path, content)
00:03:10 verbose #10673 > > | true, FileSystemChange.Created (path, _) ->
00:03:10 verbose #10674 > > do! Async.Sleep 5
00:03:10 verbose #10675 > > let! content = fullPath </> path |>
00:03:10 verbose #10676 > > SpiralFileSystem.read_all_text_retry_async
00:03:10 verbose #10677 > > return t, FileSystemChange.Created (path, content)
00:03:10 verbose #10678 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:03:10 verbose #10679 > > let! content = fullPath </> newPath |>
00:03:10 verbose #10680 > > SpiralFileSystem.read_all_text_retry_async
00:03:10 verbose #10681 > > return t, FileSystemChange.Renamed (oldPath, (newPath,
00:03:10 verbose #10682 > > content))
00:03:10 verbose #10683 > > | _ -> return t, event
00:03:10 verbose #10684 > > })
00:03:10 verbose #10685 > >
00:03:10 verbose #10686 > > let disposable =
00:03:10 verbose #10687 > > new_disposable (fun () ->
00:03:10 verbose #10688 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
00:03:10 verbose #10689 > > watch stream") _locals
00:03:10 verbose #10690 > > watcher.EnableRaisingEvents <- false
00:03:10 verbose #10691 > > watcher.Dispose ()
00:03:10 verbose #10692 > > )
00:03:10 verbose #10693 > >
00:03:10 verbose #10694 > > stream, disposable
00:03:10 verbose #10695 > >
00:03:10 verbose #10696 > > let inline watchDirectory path =
00:03:10 verbose #10697 > > watchDirectoryWithFilter
00:03:10 verbose #10698 > > (System.IO.NotifyFilters.FileName
00:03:10 verbose #10699 > > // ||| System.IO.NotifyFilters.DirectoryName
00:03:10 verbose #10700 > > // ||| System.IO.NotifyFilters.Attributes
00:03:10 verbose #10701 > > //// ||| System.IO.NotifyFilters.Size
00:03:10 verbose #10702 > > ||| System.IO.NotifyFilters.LastWrite
00:03:10 verbose #10703 > > //// ||| System.IO.NotifyFilters.LastAccess
00:03:10 verbose #10704 > > // ||| System.IO.NotifyFilters.CreationTime
00:03:10 verbose #10705 > > // ||| System.IO.NotifyFilters.Security
00:03:10 verbose #10706 > > )
00:03:10 verbose #10707 > > path
00:03:10 verbose #10708 > >
00:03:11 verbose #10709 > >
00:03:11 verbose #10710 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10711 > > #if !INTERACTIVE
00:03:11 verbose #10712 > > open Lib
00:03:11 verbose #10713 > > #endif
00:03:11 verbose #10714 > >
00:03:11 verbose #10715 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10716 > > open Common
00:03:11 verbose #10717 > >
00:03:11 verbose #10718 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10719 > > //// test
00:03:11 verbose #10720 > >
00:03:11 verbose #10721 > > open SpiralFileSystem.Operators
00:03:11 verbose #10722 > >
00:03:11 verbose #10723 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 verbose #10724 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 verbose #10725 > > │ ## parseArgs │
00:03:11 verbose #10726 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 verbose #10727 > >
00:03:11 verbose #10728 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10729 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:11 verbose #10730 > > let assemblyName =
00:03:11 verbose #10731 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:03:11 verbose #10732 > > let errorHandler : Argu.IExiter =
00:03:11 verbose #10733 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:03:11 verbose #10734 > > List.contains assemblyName
00:03:11 verbose #10735 > > then Argu.ExceptionExiter ()
00:03:11 verbose #10736 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | _ ->
00:03:11 verbose #10737 > > Some System.ConsoleColor.Red)
00:03:11 verbose #10738 > >
00:03:11 verbose #10739 > > let parser =
00:03:11 verbose #10740 > > Argu.ArgumentParser.Create<'T> (
00:03:11 verbose #10741 > > programName = $"{assemblyName}{SpiralPlatform.get_executable_suffix
00:03:11 verbose #10742 > > ()}",
00:03:11 verbose #10743 > > errorHandler = errorHandler
00:03:11 verbose #10744 > > )
00:03:11 verbose #10745 > >
00:03:11 verbose #10746 > > parser.ParseCommandLine args
00:03:11 verbose #10747 > >
00:03:11 verbose #10748 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10749 > > //// test
00:03:11 verbose #10750 > >
00:03:11 verbose #10751 > > [[<RequireQualifiedAccess>]]
00:03:11 verbose #10752 > > type Arguments =
00:03:11 verbose #10753 > > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:03:11 verbose #10754 > > Argu.ArguAttributes.Last>]]
00:03:11 verbose #10755 > > Paths of paths : string list
00:03:11 verbose #10756 > >
00:03:11 verbose #10757 > > interface Argu.IArgParserTemplate with
00:03:11 verbose #10758 > > member s.Usage =
00:03:11 verbose #10759 > > match s with
00:03:11 verbose #10760 > > | Paths _ -> nameof Paths
00:03:11 verbose #10761 > >
00:03:11 verbose #10762 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10763 > > //// test
00:03:11 verbose #10764 > >
00:03:11 verbose #10765 > > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:03:11 verbose #10766 > >
00:03:11 verbose #10767 > > ╭─[ 130.57ms - return value ]──────────────────────────────────────────────────╮
00:03:11 verbose #10768 > > │ "USAGE: dotnet-repl [--help] <paths>... │
00:03:11 verbose #10769 > > │ │
00:03:11 verbose #10770 > > │ PATHS: │
00:03:11 verbose #10771 > > │ │
00:03:11 verbose #10772 > > │ <paths>... Paths │
00:03:11 verbose #10773 > > │ │
00:03:11 verbose #10774 > > │ OPTIONS: │
00:03:11 verbose #10775 > > │ │
00:03:11 verbose #10776 > > │ --help display this list of options. │
00:03:11 verbose #10777 > > │ " │
00:03:11 verbose #10778 > > │ │
00:03:11 verbose #10779 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 verbose #10780 > >
00:03:11 verbose #10781 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10782 > > //// test
00:03:11 verbose #10783 > >
00:03:11 verbose #10784 > > fun () -> parseArgs<Arguments> [[||]] |> ignore
00:03:11 verbose #10785 > > |> _throwsC (fun ex _ ->
00:03:11 verbose #10786 > > SpiralSm.format_exception ex
00:03:11 verbose #10787 > > |> _stringContains "Argu.ArguParseException: ERROR: missing parameter
00:03:11 verbose #10788 > > '<paths>...'."
00:03:11 verbose #10789 > > )
00:03:11 verbose #10790 > >
00:03:11 verbose #10791 > > ╭─[ 69.92ms - stdout ]─────────────────────────────────────────────────────────╮
00:03:11 verbose #10792 > > │ <fun:it@3-3> │
00:03:11 verbose #10793 > > │ │
00:03:11 verbose #10794 > > │ "Argu.ArguParseException: ERROR: missing parameter '<paths>...'. │
00:03:11 verbose #10795 > > │ USAGE: dotnet-repl.exe [--help] <paths>... │
00:03:11 verbose #10796 > > │ │
00:03:11 verbose #10797 > > │ PATHS: │
00:03:11 verbose #10798 > > │ │
00:03:11 verbose #10799 > > │ <paths>... Paths │
00:03:11 verbose #10800 > > │ │
00:03:11 verbose #10801 > > │ OPTIONS: │
00:03:11 verbose #10802 > > │ │
00:03:11 verbose #10803 > > │ --help display this list of options. │
00:03:11 verbose #10804 > > │ " │
00:03:11 verbose #10805 > > │ │
00:03:11 verbose #10806 > > │ │
00:03:11 verbose #10807 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 verbose #10808 > >
00:03:11 verbose #10809 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10810 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:11 verbose #10811 > > args
00:03:11 verbose #10812 > > |> parseArgs<'T>
00:03:11 verbose #10813 > > |> fun results -> results.GetAllResults ()
00:03:11 verbose #10814 > >
00:03:11 verbose #10815 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10816 > > //// test
00:03:11 verbose #10817 > >
00:03:11 verbose #10818 > > [[<RequireQualifiedAccess>]]
00:03:11 verbose #10819 > > type Arguments =
00:03:11 verbose #10820 > > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:03:11 verbose #10821 > > Argu.ArguAttributes.Last>]]
00:03:11 verbose #10822 > > Paths of paths : string list
00:03:11 verbose #10823 > >
00:03:11 verbose #10824 > > interface Argu.IArgParserTemplate with
00:03:11 verbose #10825 > > member s.Usage =
00:03:11 verbose #10826 > > match s with
00:03:11 verbose #10827 > > | Paths _ -> nameof Paths
00:03:11 verbose #10828 > >
00:03:11 verbose #10829 > > parseAllArgs<Arguments> [[| "a b"; "c" |]]
00:03:11 verbose #10830 > > |> _assertEqual [[ Arguments.Paths [[ "a b"; "c" ]] ]]
00:03:11 verbose #10831 > >
00:03:11 verbose #10832 > > ╭─[ 106.90ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 verbose #10833 > > │ [Paths ["a b"; "c"]] │
00:03:11 verbose #10834 > > │ │
00:03:11 verbose #10835 > > │ │
00:03:11 verbose #10836 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 verbose #10837 > >
00:03:11 verbose #10838 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10839 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:03:11 verbose #10840 > > args
00:03:11 verbose #10841 > > |> parseAllArgs<'T>
00:03:11 verbose #10842 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:03:11 verbose #10843 > > |> Map.ofList
00:03:11 verbose #10844 > >
00:03:11 verbose #10845 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:11 verbose #10846 > > //// test
00:03:11 verbose #10847 > >
00:03:11 verbose #10848 > > parseArgsMap<Arguments> [[| "a b"; "c" |]]
00:03:11 verbose #10849 > > |> _assertEqual (
00:03:11 verbose #10850 > > [[ nameof Arguments.Paths, [[ Arguments.Paths [[ "a b"; "c" ]] ]] ]]
00:03:11 verbose #10851 > > |> Map.ofList
00:03:11 verbose #10852 > > )
00:03:11 verbose #10853 > >
00:03:11 verbose #10854 > > ╭─[ 76.97ms - stdout ]─────────────────────────────────────────────────────────╮
00:03:11 verbose #10855 > > │ map [("Paths", [Paths ["a b"; "c"]])] │
00:03:11 verbose #10856 > > │ │
00:03:11 verbose #10857 > > │ │
00:03:11 verbose #10858 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 verbose #10859 > 00:00:20 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 60268
00:03:12 verbose #10860 > 00:00:20 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:03:14 verbose #10861 > 00:00:22 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/fsharp/Runtime.dib.ipynb to html
00:03:14 verbose #10862 > 00:00:22 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:14 verbose #10863 > 00:00:22 verbose #7 ! validate(nb)
00:03:15 verbose #10864 > 00:00:23 verbose #8 ! [NbConvertApp] Writing 292946 bytes to c:\home\git\polyglot\lib\fsharp\Runtime.dib.html
00:03:15 verbose #10865 > 00:00:23 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:03:15 verbose #10866 > 00:00:23 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:03:15 verbose #10867 > 00:00:23 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/fsharp/Runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:03:16 verbose #10868 > 00:00:24 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:03:16 verbose #10869 > 00:00:24 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:03:16 verbose #10870 > 00:00:25 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 60972
00:03:16 debug #10871 runtime.execute_with_options_async / exit_code: 0 / output.Length: 66940
00:03:16 debug #8 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Runtime.dib --retries 3
00:03:16 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:03:17 debug #7 async.run_with_timeout_async / timeout: 100
00:00:00 debug #2 writeDibCode / output: Fs / path: CommonFSharp.dib
00:00:00 debug #2 writeDibCode / output: Fs / path: Async.dib
00:00:00 debug #2 writeDibCode / output: Fs / path: Runtime.dib
00:00:00 debug #2 writeDibCode / output: Fs / path: AsyncSeq.dib
00:00:00 debug #2 writeDibCode / output: Fs / path: FileSystem.dib
00:00:00 debug #2 writeDibCode / output: Fs / path: Common.dib
00:00:00 debug #4 parseDibCode / output: Fs / file: Runtime.dib
00:00:00 debug #4 parseDibCode / output: Fs / file: AsyncSeq.dib
00:00:00 debug #6 parseDibCode / output: Fs / file: FileSystem.dib
00:00:00 debug #7 parseDibCode / output: Fs / file: Common.dib
00:00:00 debug #8 parseDibCode / output: Fs / file: Async.dib
00:00:00 debug #5 parseDibCode / output: Fs / file: CommonFSharp.dib
In [ ]:
{ pwsh ../lib/math/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 1",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "math.dib", "--retries", "1"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/math/math.dib", "--output-path", "c:/home/git/polyglot/lib/math/math.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/math/math.dib" --output-path "c:/home/git/polyglot/lib/math/math.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #10 > >
00:00:04 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #13 > > │ # math │
00:00:04 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #15 > >
00:00:04 verbose #16 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #17 > > open testing
00:00:04 verbose #18 > > open rust_operators
00:00:04 verbose #19 > >
00:00:04 verbose #20 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #21 > > #r
00:00:04 verbose #22 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #23 > > otNet.Interactive.Spiral.dll"
00:00:04 verbose #24 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:04 verbose #25 > > #r
00:00:04 verbose #26 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #27 > > otNet.Interactive.dll"
00:00:04 verbose #28 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:08 verbose #29 > >
00:00:08 verbose #30 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:08 verbose #31 > > inl types () =
00:00:08 verbose #32 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:08 verbose #33 > > Fable.Core.Emit(\"num_complex::Complex<$0>\")>]]\n#endif\ntype
00:00:08 verbose #34 > > num_complex_Complex<'T> = class end"
00:00:08 verbose #35 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:08 verbose #36 > > Fable.Core.Emit(\"pyo3::types::PyModule\")>]]\n#endif\ntype pyo3_types_PyModule
00:00:08 verbose #37 > > = class end"
00:00:08 verbose #38 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:08 verbose #39 > > Fable.Core.Emit(\"pyo3::Bound<$0>\")>]]\n#endif\ntype pyo3_Bound<'T> = class
00:00:08 verbose #40 > > end"
00:00:08 verbose #41 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:08 verbose #42 > > Fable.Core.Emit(\"pyo3::Python\")>]]\n#endif\ntype pyo3_Python = class end"
00:00:08 verbose #43 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:08 verbose #44 > > Fable.Core.Emit(\"pyo3::PyAny\")>]]\n#endif\ntype pyo3_PyAny = class end"
00:00:08 verbose #45 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:08 verbose #46 > > Fable.Core.Emit(\"pyo3::PyErr\")>]]\n#endif\ntype pyo3_PyErr = class end"
00:00:08 verbose #47 > >
00:00:08 verbose #48 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:08 verbose #49 > > inl types () =
00:00:08 verbose #50 > > rust.types ()
00:00:08 verbose #51 > > sm'.types ()
00:00:08 verbose #52 > > types ()
00:00:08 verbose #53 > >
00:00:08 verbose #54 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:08 verbose #55 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:08 verbose #56 > > │ ## complex │
00:00:08 verbose #57 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:08 verbose #58 > >
00:00:08 verbose #59 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:08 verbose #60 > > nominal complex t = $'num_complex_Complex<`t>'
00:00:08 verbose #61 > > nominal bound t = $'pyo3_Bound<`t>'
00:00:08 verbose #62 > > nominal python = $'pyo3_Python'
00:00:08 verbose #63 > > nominal pymodule = $'pyo3_types_PyModule'
00:00:08 verbose #64 > > nominal pyany = $'pyo3_PyAny'
00:00:08 verbose #65 > > nominal pyerr = $'pyo3_PyErr'
00:00:08 verbose #66 > >
00:00:08 verbose #67 > > inl complex forall t. ((re : t), (im : t)) : complex t =
00:00:08 verbose #68 > > !\\((re, im), $'"num_complex::Complex::new($0, $1)"')
00:00:08 verbose #69 > >
00:00:08 verbose #70 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:08 verbose #71 > > //// test
00:00:08 verbose #72 > > ///! rust -d num-complex
00:00:08 verbose #73 > >
00:00:08 verbose #74 > > types ()
00:00:08 verbose #75 > >
00:00:08 verbose #76 > > complex (0f64, 0f64)
00:00:08 verbose #77 > > |> sm'.format'
00:00:08 verbose #78 > > |> sm'.from_std_string
00:00:08 verbose #79 > > |> _assert_eq "0+0i"
00:00:16 verbose #80 > >
00:00:16 verbose #81 > > ╭─[ 7.90s - return value ]─────────────────────────────────────────────────────╮
00:00:16 verbose #82 > > │ assert_eq / actual: "0+0i" / expected: "0+0i" │
00:00:16 verbose #83 > > │ │
00:00:16 verbose #84 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #85 > >
00:00:16 verbose #86 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #87 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #88 > > │ ## complex_sin │
00:00:16 verbose #89 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #90 > >
00:00:16 verbose #91 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #92 > > inl re forall t. (c : complex t) : t =
00:00:16 verbose #93 > > inl c = join c
00:00:16 verbose #94 > > !\($'"!c.re"')
00:00:16 verbose #95 > >
00:00:16 verbose #96 > > inl im forall t. (c : complex t) : t =
00:00:16 verbose #97 > > inl c = join c
00:00:16 verbose #98 > > !\($'"!c.im"')
00:00:16 verbose #99 > >
00:00:16 verbose #100 > > inl complex_unbox forall t. (c : complex t) =
00:00:16 verbose #101 > > re c, im c
00:00:16 verbose #102 > >
00:00:16 verbose #103 > > inl (~.^) c = complex c
00:00:16 verbose #104 > >
00:00:16 verbose #105 > > inl complex_eq forall t. (a : complex t) (b : complex t) : bool =
00:00:16 verbose #106 > > !\($'"!a == !b"')
00:00:16 verbose #107 > >
00:00:16 verbose #108 > > inl (.=) a b = complex_eq a b
00:00:16 verbose #109 > >
00:00:16 verbose #110 > > instance equable complex t = complex_eq
00:00:16 verbose #111 > >
00:00:16 verbose #112 > > inl complex_add forall t. (a : complex t) (b : complex t) : complex t =
00:00:16 verbose #113 > > !\($'"!a + !b"')
00:00:16 verbose #114 > >
00:00:16 verbose #115 > > inl (.+) a b = complex_add a b
00:00:16 verbose #116 > >
00:00:16 verbose #117 > > inl complex_sub forall t. (a : complex t) (b : complex t) : complex t =
00:00:16 verbose #118 > > !\\((a, b), $'"$0 - $1"')
00:00:16 verbose #119 > >
00:00:16 verbose #120 > > inl (.-) a b = complex_sub a b
00:00:16 verbose #121 > >
00:00:16 verbose #122 > > inl complex_mult forall t. (a : complex t) (b : complex t) : complex t =
00:00:16 verbose #123 > > !\\((a, b), $'"$0 * $1"')
00:00:16 verbose #124 > >
00:00:16 verbose #125 > > inl (.*) a b = complex_mult a b
00:00:16 verbose #126 > >
00:00:16 verbose #127 > > inl complex_div forall t. (a : complex t) (b : complex t) : complex t =
00:00:16 verbose #128 > > !\($'"!a / !b"')
00:00:16 verbose #129 > >
00:00:16 verbose #130 > > inl (./) a b = complex_div a b
00:00:16 verbose #131 > >
00:00:16 verbose #132 > > inl powc forall t. (s : complex t) (c : complex t) : complex t =
00:00:16 verbose #133 > > inl c = join c
00:00:16 verbose #134 > > inl s = join s
00:00:16 verbose #135 > > !\($'"num_complex::Complex::powc(!c, !s)"')
00:00:16 verbose #136 > >
00:00:16 verbose #137 > > inl (.**) a b = powc b a
00:00:16 verbose #138 > >
00:00:16 verbose #139 > > inl complex_sin forall t. (c : complex t) : complex t =
00:00:16 verbose #140 > > !\($'"!c.sin()"')
00:00:16 verbose #141 > >
00:00:16 verbose #142 > > inl conj forall t. (c : complex t) : complex t =
00:00:16 verbose #143 > > !\($'"!c.conj()"')
00:00:16 verbose #144 > >
00:00:16 verbose #145 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #146 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #147 > > │ ## zeta │
00:00:16 verbose #148 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #149 > >
00:00:16 verbose #150 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #151 > > inl zeta log (gamma : complex f64 -> complex f64) (s : complex f64) : complex
00:00:16 verbose #152 > > f64 =
00:00:16 verbose #153 > > inl rec zeta count gamma s =
00:00:16 verbose #154 > > if log then
00:00:16 verbose #155 > > !\\(s, $'"println\!(\\\"zeta / count: {:?} / s: {:?}\\\", !count,
00:00:16 verbose #156 > > $0)"')
00:00:16 verbose #157 > > if re s > 1 then
00:00:16 verbose #158 > > (.^(0, 0), (am.init 10000i32 id : a i32 _))
00:00:16 verbose #159 > > ||> am.fold fun acc n =>
00:00:16 verbose #160 > > acc .+ (.^(1, 0) ./ (.^(f64 n, 0) .** s))
00:00:16 verbose #161 > > else
00:00:16 verbose #162 > > inl gamma_term = gamma (.^(1, 0) .- s)
00:00:16 verbose #163 > > inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |> complex_sin
00:00:16 verbose #164 > > inl one_minus_s = .^(1 - re s, -(im s))
00:00:16 verbose #165 > > inl mirror_term =
00:00:16 verbose #166 > > if re one_minus_s <= 1
00:00:16 verbose #167 > > then .^(0, 0)
00:00:16 verbose #168 > > else
00:00:16 verbose #169 > > if count <= 3
00:00:16 verbose #170 > > then zeta (count + 1) gamma one_minus_s
00:00:16 verbose #171 > > else one_minus_s
00:00:16 verbose #172 > > inl reflection_formula =
00:00:16 verbose #173 > > .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .*
00:00:16 verbose #174 > > mirror_term
00:00:16 verbose #175 > > reflection_formula
00:00:16 verbose #176 > > join zeta 0i32 gamma s
00:00:16 verbose #177 > >
00:00:16 verbose #178 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #179 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #180 > > │ ## eval │
00:00:16 verbose #181 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #182 > >
00:00:16 verbose #183 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #184 > > inl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =
00:00:16 verbose #185 > > inl py = join py
00:00:16 verbose #186 > > inl code = code |> sm'.as_str
00:00:16 verbose #187 > > !\($'"pyo3::types::PyModule::from_code_bound(!py, !code, \\"\\", \\"\\")"')
00:00:16 verbose #188 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:16 verbose #189 > >
00:00:16 verbose #190 > > inl use_pyanymethods () =
00:00:16 verbose #191 > > global "Fable.Core.RustInterop.emitRustExpr () \");\nuse
00:00:16 verbose #192 > > pyo3::prelude::PyAnyMethods;\n//\""
00:00:16 verbose #193 > >
00:00:16 verbose #194 > > inl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =
00:00:16 verbose #195 > > inl attr = join attr
00:00:16 verbose #196 > > inl attr = attr |> sm'.as_str
00:00:16 verbose #197 > > inl module = join module
00:00:16 verbose #198 > > use_pyanymethods ()
00:00:16 verbose #199 > > !\($'"!module.getattr(!attr)"')
00:00:16 verbose #200 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:16 verbose #201 > >
00:00:16 verbose #202 > > inl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =
00:00:16 verbose #203 > > inl args = join args
00:00:16 verbose #204 > > inl module = join module
00:00:16 verbose #205 > > !\($'"pyo3::prelude::PyAnyMethods::call(&!module, ((*!args).0, *(*!args).1),
00:00:16 verbose #206 > > None)"')
00:00:16 verbose #207 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:16 verbose #208 > >
00:00:16 verbose #209 > > inl extract forall t. (result : bound pyany) : _ t _ =
00:00:16 verbose #210 > > inl result = join result
00:00:16 verbose #211 > > use_pyanymethods ()
00:00:16 verbose #212 > > !\($'"!result.extract()"')
00:00:16 verbose #213 > > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:16 verbose #214 > >
00:00:16 verbose #215 > > inl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm'.std_string =
00:00:16 verbose #216 > > inl code =
00:00:16 verbose #217 > > code
00:00:16 verbose #218 > > |> module_from_code py
00:00:16 verbose #219 > > |> resultm.unwrap'
00:00:16 verbose #220 > > inl fn =
00:00:16 verbose #221 > > code
00:00:16 verbose #222 > > |> getattr "fn"
00:00:16 verbose #223 > > |> resultm.unwrap'
00:00:16 verbose #224 > >
00:00:16 verbose #225 > > fn
00:00:16 verbose #226 > > |> call args
00:00:16 verbose #227 > > |> resultm.try'
00:00:16 verbose #228 > > |> extract
00:00:16 verbose #229 > > |> resultm.try'
00:00:16 verbose #230 > > |> complex
00:00:16 verbose #231 > > |> Ok
00:00:16 verbose #232 > > |> resultm.box
00:00:16 verbose #233 > >
00:00:16 verbose #234 > > inl call1_ log py s code =
00:00:16 verbose #235 > > inl code = join (a code : _ i32 _) |> sm'.concat_array_trailing "\n"
00:00:16 verbose #236 > >
00:00:16 verbose #237 > > inl s = new_pair (re s) (im s)
00:00:16 verbose #238 > > inl args = new_pair log s
00:00:16 verbose #239 > >
00:00:16 verbose #240 > > eval py code args
00:00:16 verbose #241 > >
00:00:16 verbose #242 > > inl call1_ log name py s line =
00:00:16 verbose #243 > > inl s = join s
00:00:16 verbose #244 > > join
00:00:16 verbose #245 > > ;[[
00:00:16 verbose #246 > > $'$"import sys"'
00:00:16 verbose #247 > > $'$"import traceback"'
00:00:16 verbose #248 > > $'$"import re"'
00:00:16 verbose #249 > > $'$"count = 0"'
00:00:16 verbose #250 > > $'$"memory_address_pattern = re.compile(r\' at 0x[[0-9a-fA-F]]+\')"'
00:00:16 verbose #251 > > $'$"def trace_calls(frame, event, arg):"'
00:00:16 verbose #252 > > $'$" global count"'
00:00:16 verbose #253 > > $'$" count += 1"'
00:00:16 verbose #254 > > $'$" if count < 200:"'
00:00:16 verbose #255 > > $'$" try:"'
00:00:16 verbose #256 > > $'$" args = {{ k: v for k, v in frame.f_locals.items() if
00:00:16 verbose #257 > > frame.f_code.co_name \!= \'make_mpc\' and k not in [[\'ctx\']] and not
00:00:16 verbose #258 > > callable(v) }}"'
00:00:16 verbose #259 > > $'$" args_str = \', \'.join([[
00:00:16 verbose #260 > > f\\\"{{k}}={{re.sub(memory_address_pattern, \' at 0x<?>\', repr(v))}}\\\" for k,
00:00:16 verbose #261 > > v in args.items() ]])"'
00:00:16 verbose #262 > > $'$" print(f\\\"{{event}}({!name}) / f_code.co_name:
00:00:16 verbose #263 > > {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}}
00:00:16 verbose #264 > > / f_code.co_filename:
00:00:16 verbose #265 > > {{frame.f_code.co_filename.split(\'site-packages\')[[-1]]}} / f_back.f_lineno:
00:00:16 verbose #266 > > {{ \'\' if frame.f_back is None else frame.f_back.f_lineno }}
00:00:16 verbose #267 > > f_back.f_code.co_filename: {{ \'\' if frame.f_back is None else
00:00:16 verbose #268 > > frame.f_back.f_code.co_filename.split(\'site-packages\')[[-1]] }} / arg:
00:00:16 verbose #269 > > {{re.sub(memory_address_pattern, \' at 0x<?>\', repr(arg))}}\\\", flush=True)"'
00:00:16 verbose #270 > > $'$" except ValueError as e:"'
00:00:16 verbose #271 > > $'$" print(f\'{!name} / e: {{e}}\', flush=True)"'
00:00:16 verbose #272 > > $'$" return trace_calls"'
00:00:16 verbose #273 > > $'$"import mpmath"'
00:00:16 verbose #274 > > $'$"def fn(log, s):"'
00:00:16 verbose #275 > > $'$" global count"'
00:00:16 verbose #276 > > $'$" if log:"'
00:00:16 verbose #277 > > $'$" print(f\'{!name} / s: {{s}} / count: {{count}}\',
00:00:16 verbose #278 > > flush=True)"'
00:00:16 verbose #279 > > $'$" s = complex(*s)"'
00:00:16 verbose #280 > > $'$" try:"'
00:00:16 verbose #281 > > $'$" if log: sys.settrace(trace_calls)"'
00:00:16 verbose #282 > > line
00:00:16 verbose #283 > > $'$" if log:"'
00:00:16 verbose #284 > > $'$" sys.settrace(None)"'
00:00:16 verbose #285 > > $'$" print(f\'{!name} / result: {{s}} / count:
00:00:16 verbose #286 > > {{count}}\', flush=True)"'
00:00:16 verbose #287 > > $'$" except ValueError as e:"'
00:00:16 verbose #288 > > $'$" if s.real == 1:"'
00:00:16 verbose #289 > > $'$" s = complex(float(\'inf\'), 0)"'
00:00:16 verbose #290 > > $'$" return (s.real, s.imag)"'
00:00:16 verbose #291 > > ]]
00:00:16 verbose #292 > > |> call1_ log py s
00:00:16 verbose #293 > >
00:00:16 verbose #294 > > inl gamma_ log py s =
00:00:16 verbose #295 > > call1_ log "gamma_" py s $'$" s = mpmath.gamma(s)"'
00:00:16 verbose #296 > >
00:00:16 verbose #297 > > inl zeta_ log py s =
00:00:16 verbose #298 > > call1_ log "zeta_" py s $'$" s = mpmath.zeta(s)"'
00:00:16 verbose #299 > >
00:00:16 verbose #300 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #301 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #302 > > │ ## run_test │
00:00:16 verbose #303 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #304 > >
00:00:16 verbose #305 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #306 > > inl run_test log closure_fix (fn : (complex f64 -> complex f64) * (complex f64
00:00:16 verbose #307 > > -> complex f64) -> ()) =
00:00:16 verbose #308 > > inl fn_ (py : python) : resultm.result' () pyerr =
00:00:16 verbose #309 > > inl nan () =
00:00:16 verbose #310 > > !\($'"f64::NAN"')
00:00:16 verbose #311 > > inl gamma__ = fun (s : complex f64) =>
00:00:16 verbose #312 > > inl result = gamma_ log py s
00:00:16 verbose #313 > > if log then
00:00:16 verbose #314 > > inl s = join s
00:00:16 verbose #315 > > !\($'"println\!(\\\"gamma__ / s: {:?} / result: {:?}\\\", !s,
00:00:16 verbose #316 > > !result)"')
00:00:16 verbose #317 > > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:16 verbose #318 > > .^(nan (), nan ())
00:00:16 verbose #319 > > inl zeta__ = fun (s : complex f64) =>
00:00:16 verbose #320 > > inl result = zeta_ log py s
00:00:16 verbose #321 > >
00:00:16 verbose #322 > > inl z = zeta true gamma__ s
00:00:16 verbose #323 > >
00:00:16 verbose #324 > > if log then
00:00:16 verbose #325 > > inl s = join s
00:00:16 verbose #326 > > !\($'"println\!(\\\"zeta__ / s: {:?} / result: {:?} / z:
00:00:16 verbose #327 > > {:?}\\\", !s, !result, !z)"')
00:00:16 verbose #328 > >
00:00:16 verbose #329 > > // re result - re x |> abs
00:00:16 verbose #330 > > // |> _assert_lt 0.001
00:00:16 verbose #331 > >
00:00:16 verbose #332 > > // im result - im x |> abs
00:00:16 verbose #333 > > // |> _assert_lt 0.001
00:00:16 verbose #334 > >
00:00:16 verbose #335 > > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:16 verbose #336 > > .^(nan (), nan ())
00:00:16 verbose #337 > > join fn (zeta__, gamma__)
00:00:16 verbose #338 > >
00:00:16 verbose #339 > > Ok ()
00:00:16 verbose #340 > > |> resultm.box
00:00:16 verbose #341 > >
00:00:16 verbose #342 > > join
00:00:16 verbose #343 > > !\($'"pyo3::prepare_freethreaded_python()"') : ()
00:00:16 verbose #344 > >
00:00:16 verbose #345 > > !\($'"let __result = pyo3::Python::with_gil(|py| -> pyo3::PyResult<()> {
00:00:16 verbose #346 > > //"')
00:00:16 verbose #347 > >
00:00:16 verbose #348 > > let x' = fn_ (!\($'"py"') : python)
00:00:16 verbose #349 > > inl x' = join x'
00:00:16 verbose #350 > >
00:00:16 verbose #351 > > inl closure_fix = 2u8, 1u8
00:00:16 verbose #352 > > x' |> rust.fix_closure closure_fix
00:00:16 verbose #353 > >
00:00:16 verbose #354 > > (!\($'"__result"') : _ () pyerr)
00:00:16 verbose #355 > > |> resultm.unwrap'
00:00:16 verbose #356 > >
00:00:16 verbose #357 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 verbose #358 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 verbose #359 > > │ ## test_zeta_at_known_values_ │
00:00:16 verbose #360 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 verbose #361 > >
00:00:16 verbose #362 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #363 > > inl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:16 verbose #364 > > ;[[
00:00:16 verbose #365 > > .^(2, 0), pi ** 2 / 6
00:00:16 verbose #366 > > .^(-1, 0), -1 / 12
00:00:16 verbose #367 > > ]]
00:00:16 verbose #368 > > |> fun x => a x : _ i32 _
00:00:16 verbose #369 > > |> am.iter fun s, e =>
00:00:16 verbose #370 > > inl result = zeta s
00:00:16 verbose #371 > >
00:00:16 verbose #372 > > result |> im |> _assert_eq 0
00:00:16 verbose #373 > > re result - e |> abs |> _assert_lt 0.0001
00:00:16 verbose #374 > >
00:00:16 verbose #375 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 verbose #376 > > //// test
00:00:16 verbose #377 > > ///! rust -d num-complex pyo3
00:00:16 verbose #378 > >
00:00:16 verbose #379 > > types ()
00:00:16 verbose #380 > > test_zeta_at_known_values_ true
00:00:29 verbose #381 > >
00:00:29 verbose #382 > > ╭─[ 12.40s - return value ]────────────────────────────────────────────────────╮
00:00:29 verbose #383 > > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:00:29 verbose #384 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:29 verbose #385 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:29 verbose #386 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:29 verbose #387 > > │ / arg: None │
00:00:29 verbose #388 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:29 verbose #389 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:29 verbose #390 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:29 verbose #391 > > │ / arg: None │
00:00:29 verbose #392 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:29 verbose #393 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:29 verbose #394 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:29 verbose #395 > > │ / arg: None │
00:00:29 verbose #396 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:29 verbose #397 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:29 verbose #398 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:29 verbose #399 > > │ / arg: None │
00:00:29 verbose #400 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:29 verbose #401 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:29 verbose #402 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:29 verbose #403 > > │ / arg: None │
00:00:29 verbose #404 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:00:29 verbose #405 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:29 verbose #406 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:00:29 verbose #407 > > │ / arg: None │
00:00:29 verbose #408 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:00:29 verbose #409 > > │ / f_line...o_name: make_mpc / f_locals: / f_lineno: 768 / │
00:00:29 verbose #410 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:29 verbose #411 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:29 verbose #412 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 769 / │
00:00:29 verbose #413 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:29 verbose #414 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:29 verbose #415 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:29 verbose #416 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:29 verbose #417 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:29 verbose #418 > > │ return(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:29 verbose #419 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:29 verbose #420 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: mpc(real='1.0', │
00:00:29 verbose #421 > > │ imag='0.0') │
00:00:29 verbose #422 > > │ return(gamma_) / f_code.co_name: f / f_locals: x=mpc(real='2.0', │
00:00:29 verbose #423 > > │ imag='0.0'), kwargs={}, name='gamma', prec=53, rounding='n' / f_lineno: 1131 │
00:00:29 verbose #424 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 25 / │
00:00:29 verbose #425 > > │ f_back.f_code.co_filename: / arg: mpc(real='1.0', imag='0.0') │
00:00:29 verbose #426 > > │ gamma_ / result: (1.0 + 0.0j) / count: 161 │
00:00:29 verbose #427 > > │ gamma__ / s: Complex { re: 2.0, im: 0.0 } / result: Ok(Complex { re: 1.0, │
00:00:29 verbose #428 > > │ im: 0.0 }) │
00:00:29 verbose #429 > > │ zeta / count: 1 / s: Complex { re: 2.0, im: -0.0 } │
00:00:29 verbose #430 > > │ zeta__ / s: Complex { re: -1.0, im: 0.0 } / result: Ok(Complex { re: │
00:00:29 verbose #431 > > │ -0.08333333333333333, im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:00:29 verbose #432 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:29 verbose #433 > > │ assert_lt / actual: 0.0 / expected: 0.0001 │
00:00:29 verbose #434 > > │ │
00:00:29 verbose #435 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #436 > >
00:00:29 verbose #437 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #438 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #439 > > │ ## test_zeta_at_2_minus2 │
00:00:29 verbose #440 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #441 > >
00:00:29 verbose #442 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #443 > > inl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:00:29 verbose #444 > > inl s = .^(2, -2)
00:00:29 verbose #445 > > inl result = zeta s
00:00:29 verbose #446 > >
00:00:29 verbose #447 > > (re result - 0.8673) |> abs |> _assert_lt 0.001
00:00:29 verbose #448 > > (im result - 0.2750) |> abs |> _assert_lt 0.001
00:00:29 verbose #449 > >
00:00:29 verbose #450 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #451 > > //// test
00:00:29 verbose #452 > > ///! rust -d num-complex pyo3
00:00:29 verbose #453 > >
00:00:29 verbose #454 > > types ()
00:00:29 verbose #455 > > test_zeta_at_2_minus2 true
00:00:35 verbose #456 > >
00:00:35 verbose #457 > > ╭─[ 5.88s - return value ]─────────────────────────────────────────────────────╮
00:00:35 verbose #458 > > │ zeta_ / s: (2.0, -2.0) / count: 0 │
00:00:35 verbose #459 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:35 verbose #460 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:35 verbose #461 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:35 verbose #462 > > │ / arg: None │
00:00:35 verbose #463 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:35 verbose #464 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:35 verbose #465 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:35 verbose #466 > > │ / arg: None │
00:00:35 verbose #467 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:35 verbose #468 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:35 verbose #469 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:35 verbose #470 > > │ / arg: None │
00:00:35 verbose #471 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:35 verbose #472 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:35 verbose #473 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:35 verbose #474 > > │ / arg: None │
00:00:35 verbose #475 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:00:35 verbose #476 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:35 verbose #477 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:35 verbose #478 > > │ / arg: None │
00:00:35 verbose #479 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2-2j), kwargs={}, name='zeta' │
00:00:35 verbose #480 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:35 verbose #481 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:00:35 verbose #482 > > │ / arg: None │
00:00:35 verbose #483 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2-2j), kwargs={}, name='zeta' │
00:00:35 verbose #484 > > │ / f_lin..., 1, 2, 1), prec=14, rnd='d', _sub=0, ssign=0, sman=1, sexp=2, │
00:00:35 verbose #485 > > │ sbc=1, tsign=0, tman=1, texp=2, tbc=1, offset=0, man=2 / f_lineno: 665 / │
00:00:35 verbose #486 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 1322 / │
00:00:35 verbose #487 > > │ f_back.f_code.co_filename: \mpmath\libmp\libmpf.py / arg: None │
00:00:35 verbose #488 > > │ line(zeta_) / f_code.co_name: mpf_add / f_locals: s=(0, 1, 2, 1), t=(0, 1, │
00:00:35 verbose #489 > > │ 2, 1), prec=14, rnd='d', _sub=0, ssign=0, sman=1, sexp=2, sbc=1, tsign=0, │
00:00:35 verbose #490 > > │ tman=1, texp=2, tbc=1, offset=0, man=2, bc=2 / f_lineno: 666 / │
00:00:35 verbose #491 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 1322 / │
00:00:35 verbose #492 > > │ f_back.f_code.co_filename: \mpmath\libmp\libmpf.py / arg: None │
00:00:35 verbose #493 > > │ call(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=2, exp=2, │
00:00:35 verbose #494 > > │ bc=2, prec=14, rnd='d' / f_lineno: 185 / f_code.co_filename: │
00:00:35 verbose #495 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:00:35 verbose #496 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:00:35 verbose #497 > > │ line(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=2, exp=2, │
00:00:35 verbose #498 > > │ bc=2, prec=14, rnd='d' / f_lineno: 186 / f_code.co_filename: │
00:00:35 verbose #499 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:00:35 verbose #500 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:00:35 verbose #501 > > │ zeta_ / result: (0.867351829635993 + 0.275127238807858j) / count: 1553 │
00:00:35 verbose #502 > > │ zeta / count: 0 / s: Complex { re: 2.0, im: -2.0 } │
00:00:35 verbose #503 > > │ zeta__ / s: Complex { re: 2.0, im: -2.0 } / result: Ok(Complex { re: │
00:00:35 verbose #504 > > │ 0.8673518296359931, im: 0.27512723880785767 }) / z: Complex { re: NaN, im: │
00:00:35 verbose #505 > > │ NaN } │
00:00:35 verbose #506 > > │ assert_lt / actual: 5.182963599315027e-5 / expected: 0.001 │
00:00:35 verbose #507 > > │ assert_lt / actual: 0.00012723880785764363 / expected: 0.001 │
00:00:35 verbose #508 > > │ │
00:00:35 verbose #509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #510 > >
00:00:35 verbose #511 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #512 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #513 > > │ ## test_trivial_zero_at_negative_even___ │
00:00:35 verbose #514 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #515 > >
00:00:35 verbose #516 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #517 > > inl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun
00:00:35 verbose #518 > > zeta, gamma =>
00:00:35 verbose #519 > > (join listm'.init_series -2f64 -40 -2)
00:00:35 verbose #520 > > |> listm.iter fun n =>
00:00:35 verbose #521 > > inl s = .^(n, 0)
00:00:35 verbose #522 > > inl result = zeta s
00:00:35 verbose #523 > >
00:00:35 verbose #524 > > result |> re |> _assert_eq 0
00:00:35 verbose #525 > > result |> im |> _assert_eq 0
00:00:35 verbose #526 > >
00:00:35 verbose #527 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #528 > > //// test
00:00:35 verbose #529 > > ///! rust -d num-complex pyo3
00:00:35 verbose #530 > >
00:00:35 verbose #531 > > types ()
00:00:35 verbose #532 > > test_trivial_zero_at_negative_even___ true
00:00:41 verbose #533 > >
00:00:41 verbose #534 > > ╭─[ 6.05s - return value ]─────────────────────────────────────────────────────╮
00:00:41 verbose #535 > > │ zeta_ / s: (-2.0, 0.0) / count: 0 │
00:00:41 verbose #536 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:41 verbose #537 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:41 verbose #538 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:41 verbose #539 > > │ / arg: None │
00:00:41 verbose #540 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:41 verbose #541 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:41 verbose #542 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:41 verbose #543 > > │ / arg: None │
00:00:41 verbose #544 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:41 verbose #545 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:41 verbose #546 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:41 verbose #547 > > │ / arg: None │
00:00:41 verbose #548 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:41 verbose #549 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:41 verbose #550 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:41 verbose #551 > > │ / arg: None │
00:00:41 verbose #552 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:00:41 verbose #553 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:41 verbose #554 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:41 verbose #555 > > │ / arg: None │
00:00:41 verbose #556 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(-2+0j), kwargs={}, │
00:00:41 verbose #557 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:00:41 verbose #558 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:00:41 verbose #559 > > │ \mpmath\functions\zeta.py / arg: None │
00:00:41 verbose #560 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(-2+0j), kwargs={}, │
00:00:41 verbose #561 > > │ name='zeta' ...o_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 │
00:00:41 verbose #562 > > │ / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:41 verbose #563 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 769 / │
00:00:41 verbose #564 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:41 verbose #565 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:41 verbose #566 > > │ line(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:41 verbose #567 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:41 verbose #568 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:41 verbose #569 > > │ return(gamma_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:41 verbose #570 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:41 verbose #571 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: │
00:00:41 verbose #572 > > │ mpc(real='8.1591528324789768e+47', imag='0.0') │
00:00:41 verbose #573 > > │ return(gamma_) / f_code.co_name: f / f_locals: x=mpc(real='41.0', │
00:00:41 verbose #574 > > │ imag='0.0'), kwargs={}, name='gamma', prec=53, rounding='n' / f_lineno: 1131 │
00:00:41 verbose #575 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 25 / │
00:00:41 verbose #576 > > │ f_back.f_code.co_filename: / arg: mpc(real='8.1591528324789768e+47', │
00:00:41 verbose #577 > > │ imag='0.0') │
00:00:41 verbose #578 > > │ gamma_ / result: (8.15915283247898e+47 + 0.0j) / count: 166 │
00:00:41 verbose #579 > > │ gamma__ / s: Complex { re: 41.0, im: 0.0 } / result: Ok(Complex { re: │
00:00:41 verbose #580 > > │ 8.159152832478977e47, im: 0.0 }) │
00:00:41 verbose #581 > > │ zeta / count: 1 / s: Complex { re: 41.0, im: -0.0 } │
00:00:41 verbose #582 > > │ zeta__ / s: Complex { re: -40.0, im: 0.0 } / result: Ok(Complex { re: 0.0, │
00:00:41 verbose #583 > > │ im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:00:41 verbose #584 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:41 verbose #585 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:41 verbose #586 > > │ │
00:00:41 verbose #587 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #588 > >
00:00:41 verbose #589 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:41 verbose #590 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:41 verbose #591 > > │ ## test_non_trivial_zero___ │
00:00:41 verbose #592 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:41 verbose #593 > >
00:00:41 verbose #594 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #595 > > inl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:41 verbose #596 > > ;[[
00:00:41 verbose #597 > > .^(0.5, 14.134725)
00:00:41 verbose #598 > > .^(0.5, 21.022040)
00:00:41 verbose #599 > > .^(0.5, 25.010857)
00:00:41 verbose #600 > > .^(0.5, 30.424876)
00:00:41 verbose #601 > > .^(0.5, 32.935062)
00:00:41 verbose #602 > > .^(0.5, 37.586178)
00:00:41 verbose #603 > > ]]
00:00:41 verbose #604 > > |> fun x => a x : _ i32 _
00:00:41 verbose #605 > > |> am.iter fun x =>
00:00:41 verbose #606 > > inl result = zeta x
00:00:41 verbose #607 > > result |> re |> abs |> _assert_lt 0.0001
00:00:41 verbose #608 > > result |> im |> abs |> _assert_lt 0.0001
00:00:41 verbose #609 > >
00:00:41 verbose #610 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:41 verbose #611 > > //// test
00:00:41 verbose #612 > > ///! rust -d num-complex pyo3
00:00:41 verbose #613 > >
00:00:41 verbose #614 > > types ()
00:00:41 verbose #615 > > test_non_trivial_zero___ true
00:00:47 verbose #616 > >
00:00:47 verbose #617 > > ╭─[ 6.51s - return value ]─────────────────────────────────────────────────────╮
00:00:47 verbose #618 > > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:00:47 verbose #619 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:47 verbose #620 > > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:47 verbose #621 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:47 verbose #622 > > │ / arg: None │
00:00:47 verbose #623 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:47 verbose #624 > > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:47 verbose #625 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:47 verbose #626 > > │ / arg: None │
00:00:47 verbose #627 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:47 verbose #628 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:00:47 verbose #629 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:47 verbose #630 > > │ f_back.f_code.co_filename: / arg: None │
00:00:47 verbose #631 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:47 verbose #632 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 534 / │
00:00:47 verbose #633 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:47 verbose #634 > > │ f_back.f_code.co_filename: / arg: None │
00:00:47 verbose #635 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:00:47 verbose #636 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:00:47 verbose #637 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:47 verbose #638 > > │ f_back.f_code.co_filename: / arg: None │
00:00:47 verbose #639 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(0.5+14.134725j), kwargs={}, │
00:00:47 verbose #640 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:00:47 verbose #641 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:00:47 verbose #642 > > │ \mpmath\functions\zeta.py / arg: None │
00:00:47 verbose #643 > > │ line(zeta_) / f_cod...ta.py / arg: None │
00:00:47 verbose #644 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: │
00:00:47 verbose #645 > > │ x=1208925819614629174706176, y=-90877802089662679288381440, prec=81, │
00:00:47 verbose #646 > > │ _m=3416353708500640443578529333, tre=-1816151534455075068, │
00:00:47 verbose #647 > > │ tim=-45486653225747820096, ure=-1710577520534459139249, │
00:00:47 verbose #648 > > │ uim=45518868236127668552, sre=1013002518538853602038572, │
00:00:47 verbose #649 > > │ sim=90883161825546323029600502 / f_lineno: 1629 / f_code.co_filename: │
00:00:47 verbose #650 > > │ \mpmath\libmp\gammazeta.py / f_back.f_lineno: 2041 / │
00:00:47 verbose #651 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:00:47 verbose #652 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: │
00:00:47 verbose #653 > > │ x=1208925819614629174706176, y=-90877802089662679288381440, prec=81, │
00:00:47 verbose #654 > > │ _m=3416353708500640443578529333, tre=-1816151534455075068, │
00:00:47 verbose #655 > > │ tim=-45486653225747820096, ure=-1710577520534459139249, │
00:00:47 verbose #656 > > │ uim=45518868236127668552, sre=1013002523583718975524892, │
00:00:47 verbose #657 > > │ sim=90883161951898137545566669 / f_lineno: 1630 / f_code.co_filename: │
00:00:47 verbose #658 > > │ \mpmath\libmp\gammazeta.py / f_back.f_lineno: 2041 / │
00:00:47 verbose #659 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:00:47 verbose #660 > > │ gamma_ / result: (-1.32798420042152e-26 + 5.5751975252688e-26j) / count: 301 │
00:00:47 verbose #661 > > │ gamma__ / s: Complex { re: 0.5, im: -37.586178 } / result: Ok(Complex { re: │
00:00:47 verbose #662 > > │ -1.3279842004215153e-26, im: 5.575197525268802e-26 }) │
00:00:47 verbose #663 > > │ zeta__ / s: Complex { re: 0.5, im: 37.586178 } / result: Ok(Complex { re: │
00:00:47 verbose #664 > > │ -8.910186507947958e-8, im: -2.943780446402868e-7 }) / z: Complex { re: -0.0, │
00:00:47 verbose #665 > > │ im: 0.0 } │
00:00:47 verbose #666 > > │ assert_lt / actual: 8.910186507947958e-8 / expected: 0.0001 │
00:00:47 verbose #667 > > │ assert_lt / actual: 2.943780446402868e-7 / expected: 0.0001 │
00:00:47 verbose #668 > > │ │
00:00:47 verbose #669 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #670 > >
00:00:47 verbose #671 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:47 verbose #672 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:47 verbose #673 > > │ ## test_real_part_greater_than_one___ │
00:00:47 verbose #674 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #675 > >
00:00:47 verbose #676 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 verbose #677 > > inl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta,
00:00:47 verbose #678 > > gamma =>
00:00:47 verbose #679 > > inl points = ;[[2; 3; 4; 5; 10; 20; 50]]
00:00:47 verbose #680 > > (a points : _ i32 _)
00:00:47 verbose #681 > > |> am.iter fun point =>
00:00:47 verbose #682 > > inl s = .^(point, 0)
00:00:47 verbose #683 > > inl result = zeta s
00:00:47 verbose #684 > > result |> re |> _assert_gt 0
00:00:47 verbose #685 > > result |> im |> _assert_eq 0
00:00:47 verbose #686 > >
00:00:47 verbose #687 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 verbose #688 > > //// test
00:00:47 verbose #689 > > ///! rust -d num-complex pyo3
00:00:47 verbose #690 > >
00:00:47 verbose #691 > > types ()
00:00:47 verbose #692 > > test_real_part_greater_than_one___ true
00:00:53 verbose #693 > >
00:00:53 verbose #694 > > ╭─[ 5.66s - return value ]─────────────────────────────────────────────────────╮
00:00:53 verbose #695 > > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:00:53 verbose #696 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:53 verbose #697 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:53 verbose #698 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 verbose #699 > > │ / arg: None │
00:00:53 verbose #700 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:53 verbose #701 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:53 verbose #702 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 verbose #703 > > │ / arg: None │
00:00:53 verbose #704 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:53 verbose #705 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:53 verbose #706 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 verbose #707 > > │ / arg: None │
00:00:53 verbose #708 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:53 verbose #709 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:53 verbose #710 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 verbose #711 > > │ / arg: None │
00:00:53 verbose #712 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:53 verbose #713 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:53 verbose #714 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:53 verbose #715 > > │ / arg: None │
00:00:53 verbose #716 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:00:53 verbose #717 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:53 verbose #718 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:00:53 verbose #719 > > │ / arg: None │
00:00:53 verbose #720 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:00:53 verbose #721 > > │ / f_line...9 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:53 verbose #722 > > │ f_back.f_lineno: 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py │
00:00:53 verbose #723 > > │ / arg: None │
00:00:53 verbose #724 > > │ line(zeta_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:53 verbose #725 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:53 verbose #726 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:00:53 verbose #727 > > │ return(zeta_) / f_code.co_name: make_mpc / f_locals: / f_lineno: 770 / │
00:00:53 verbose #728 > > │ f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 1131 / │
00:00:53 verbose #729 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: │
00:00:53 verbose #730 > > │ mpc(real='1.0000000000000009', imag='0.0') │
00:00:53 verbose #731 > > │ return(zeta_) / f_code.co_name: f / f_locals: x=mpc(real='50.0', │
00:00:53 verbose #732 > > │ imag='0.0'), kwargs={}, name='zeta', prec=53, rounding='n' / f_lineno: 1131 │
00:00:53 verbose #733 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 535 / │
00:00:53 verbose #734 > > │ f_back.f_code.co_filename: \mpmath\functions\zeta.py / arg: │
00:00:53 verbose #735 > > │ mpc(real='1.0000000000000009', imag='0.0') │
00:00:53 verbose #736 > > │ return(zeta_) / f_code.co_name: zeta / f_locals: s=(50+0j), a=1, │
00:00:53 verbose #737 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:00:53 verbose #738 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:00:53 verbose #739 > > │ f_back.f_code.co_filename: / arg: mpc(real='1.0000000000000009', │
00:00:53 verbose #740 > > │ imag='0.0') │
00:00:53 verbose #741 > > │ zeta_ / result: (1.0 + 0.0j) / count: 193 │
00:00:53 verbose #742 > > │ zeta / count: 0 / s: Complex { re: 50.0, im: 0.0 } │
00:00:53 verbose #743 > > │ zeta__ / s: Complex { re: 50.0, im: 0.0 } / result: Ok(Complex { re: │
00:00:53 verbose #744 > > │ 1.0000000000000009, im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:00:53 verbose #745 > > │ assert_gt / actual: 1.0000000000000009 / expected: 0.0 │
00:00:53 verbose #746 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:53 verbose #747 > > │ │
00:00:53 verbose #748 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #749 > >
00:00:53 verbose #750 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 verbose #751 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 verbose #752 > > │ ## test_zeta_at_1___ │
00:00:53 verbose #753 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #754 > >
00:00:53 verbose #755 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 verbose #756 > > inl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:00:53 verbose #757 > > inl s = .^(1, 0)
00:00:53 verbose #758 > > inl result = zeta s
00:00:53 verbose #759 > > result |> re |> _assert_eq limit.max
00:00:53 verbose #760 > > result |> im |> _assert_eq 0
00:00:53 verbose #761 > >
00:00:53 verbose #762 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 verbose #763 > > //// test
00:00:53 verbose #764 > > ///! rust -d num-complex pyo3
00:00:53 verbose #765 > >
00:00:53 verbose #766 > > types ()
00:00:53 verbose #767 > > test_zeta_at_1___ true
00:00:57 verbose #768 > >
00:00:57 verbose #769 > > ╭─[ 3.97s - return value ]─────────────────────────────────────────────────────╮
00:00:57 verbose #770 > > │ zeta_ / s: (1.0, 0.0) / count: 0 │
00:00:57 verbose #771 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:00:57 verbose #772 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:57 verbose #773 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:57 verbose #774 > > │ / arg: None │
00:00:57 verbose #775 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:00:57 verbose #776 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:57 verbose #777 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:57 verbose #778 > > │ / arg: None │
00:00:57 verbose #779 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:00:57 verbose #780 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:57 verbose #781 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:57 verbose #782 > > │ / arg: None │
00:00:57 verbose #783 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:00:57 verbose #784 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:00:57 verbose #785 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:57 verbose #786 > > │ / arg: None │
00:00:57 verbose #787 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:00:57 verbose #788 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:00:57 verbose #789 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:57 verbose #790 > > │ / arg: None │
00:00:57 verbose #791 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(1+0j), kwargs={}, name='zeta' │
00:00:57 verbose #792 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:00:57 verbose #793 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:00:57 verbose #794 > > │ / arg: None │
00:00:57 verbose #795 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(1+0j), kwargs={}, name='zeta' │
00:00:57 verbose #796 > > │ / f_line...raceback object at 0x<?>>) │
00:00:57 verbose #797 > > │ return(gamma_) / f_code.co_name: f / f_locals: x=mpc(real='0.0', │
00:00:57 verbose #798 > > │ imag='0.0'), kwargs={}, name='gamma', prec=53, rounding='n' / f_lineno: 1131 │
00:00:57 verbose #799 > > │ / f_code.co_filename: \mpmath\ctx_mp_python.py / f_back.f_lineno: 25 / │
00:00:57 verbose #800 > > │ f_back.f_code.co_filename: / arg: None │
00:00:57 verbose #801 > > │ exception(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / │
00:00:57 verbose #802 > > │ f_lineno: 25 / f_code.co_filename: / f_back.f_lineno: / │
00:00:57 verbose #803 > > │ f_back.f_code.co_filename: / arg: (<class 'ValueError'>, ValueError('gamma │
00:00:57 verbose #804 > > │ function pole'), <traceback object at 0x<?>>) │
00:00:57 verbose #805 > > │ line(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / f_lineno: 29 │
00:00:57 verbose #806 > > │ / f_code.co_filename: / f_back.f_lineno: / f_back.f_code.co_filename: / │
00:00:57 verbose #807 > > │ arg: None │
00:00:57 verbose #808 > > │ line(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j, │
00:00:57 verbose #809 > > │ e=ValueError('gamma function pole') / f_lineno: 30 / f_code.co_filename: / │
00:00:57 verbose #810 > > │ f_back.f_lineno: / f_back.f_code.co_filename: / arg: None │
00:00:57 verbose #811 > > │ line(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / f_lineno: 32 │
00:00:57 verbose #812 > > │ / f_code.co_filename: / f_back.f_lineno: / f_back.f_code.co_filename: / │
00:00:57 verbose #813 > > │ arg: None │
00:00:57 verbose #814 > > │ return(gamma_) / f_code.co_name: fn / f_locals: log=True, s=0j / f_lineno: │
00:00:57 verbose #815 > > │ 32 / f_code.co_filename: / f_back.f_lineno: / f_back.f_code.co_filename: │
00:00:57 verbose #816 > > │ / arg: (0.0, 0.0) │
00:00:57 verbose #817 > > │ gamma__ / s: Complex { re: 0.0, im: 0.0 } / result: Ok(Complex { re: 0.0, │
00:00:57 verbose #818 > > │ im: 0.0 }) │
00:00:57 verbose #819 > > │ zeta__ / s: Complex { re: 1.0, im: 0.0 } / result: Ok(Complex { re: inf, im: │
00:00:57 verbose #820 > > │ 0.0 }) / z: Complex { re: 0.0, im: 0.0 } │
00:00:57 verbose #821 > > │ assert_eq / actual: inf / expected: inf │
00:00:57 verbose #822 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:00:57 verbose #823 > > │ │
00:00:57 verbose #824 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #825 > >
00:00:57 verbose #826 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:57 verbose #827 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:57 verbose #828 > > │ ## test_symmetry_across_real_axis___ │
00:00:57 verbose #829 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 verbose #830 > >
00:00:57 verbose #831 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #832 > > inl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta,
00:00:57 verbose #833 > > gamma =>
00:00:57 verbose #834 > > inl s = .^(2, 10)
00:00:57 verbose #835 > > inl result_positive_im = zeta s
00:00:57 verbose #836 > > inl result_negative_im = zeta .^(re s, -(im s))
00:00:57 verbose #837 > > inl conj = result_negative_im |> conj
00:00:57 verbose #838 > > result_positive_im |> re |> _assert_eq (conj |> re)
00:00:57 verbose #839 > > result_positive_im |> im |> _assert_eq (conj |> im)
00:00:57 verbose #840 > >
00:00:57 verbose #841 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:57 verbose #842 > > //// test
00:00:57 verbose #843 > > ///! rust -d num-complex pyo3
00:00:57 verbose #844 > >
00:00:57 verbose #845 > > types ()
00:00:57 verbose #846 > > test_symmetry_across_real_axis___ true
00:01:01 verbose #847 > >
00:01:01 verbose #848 > > ╭─[ 3.77s - return value ]─────────────────────────────────────────────────────╮
00:01:01 verbose #849 > > │ zeta_ / s: (2.0, 10.0) / count: 0 │
00:01:01 verbose #850 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:01 verbose #851 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:01 verbose #852 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:01 verbose #853 > > │ / arg: None │
00:01:01 verbose #854 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:01 verbose #855 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:01 verbose #856 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:01 verbose #857 > > │ / arg: None │
00:01:01 verbose #858 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:01 verbose #859 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:01 verbose #860 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:01 verbose #861 > > │ / arg: None │
00:01:01 verbose #862 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:01 verbose #863 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:01 verbose #864 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:01 verbose #865 > > │ / arg: None │
00:01:01 verbose #866 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:01:01 verbose #867 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:01 verbose #868 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:01 verbose #869 > > │ / arg: None │
00:01:01 verbose #870 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+10j), kwargs={}, │
00:01:01 verbose #871 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:01 verbose #872 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:01:01 verbose #873 > > │ \mpmath\functions\zeta.py / arg: None │
00:01:01 verbose #874 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+10j), kwargs={}, │
00:01:01 verbose #875 > > │ name='zeta' ...) / f_code.co_name: mpf_add / f_locals: s=(0, 1, 2, 1), t=(0, │
00:01:01 verbose #876 > > │ 25, 2, 5), prec=14, rnd='d', _sub=0, ssign=0, sman=1, sexp=2, sbc=1, │
00:01:01 verbose #877 > > │ tsign=0, tman=25, texp=2, tbc=5, offset=0, man=26, bc=5 / f_lineno: 666 / │
00:01:01 verbose #878 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 1322 / │
00:01:01 verbose #879 > > │ f_back.f_code.co_filename: \mpmath\libmp\libmpf.py / arg: None │
00:01:01 verbose #880 > > │ call(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=26, exp=2, │
00:01:01 verbose #881 > > │ bc=5, prec=14, rnd='d' / f_lineno: 185 / f_code.co_filename: │
00:01:01 verbose #882 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:01:01 verbose #883 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:01:01 verbose #884 > > │ line(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=26, exp=2, │
00:01:01 verbose #885 > > │ bc=5, prec=14, rnd='d' / f_lineno: 186 / f_code.co_filename: │
00:01:01 verbose #886 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:01:01 verbose #887 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:01:01 verbose #888 > > │ line(zeta_) / f_code.co_name: normalize / f_locals: sign=0, man=26, exp=2, │
00:01:01 verbose #889 > > │ bc=5, prec=14, rnd='d' / f_lineno: 187 / f_code.co_filename: │
00:01:01 verbose #890 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 666 / f_back.f_code.co_filename: │
00:01:01 verbose #891 > > │ \mpmath\libmp\libmpf.py / arg: None │
00:01:01 verbose #892 > > │ zeta_ / result: (1.19798250067418 + 0.0791704917205257j) / count: 1031 │
00:01:01 verbose #893 > > │ zeta / count: 0 / s: Complex { re: 2.0, im: -10.0 } │
00:01:01 verbose #894 > > │ zeta__ / s: Complex { re: 2.0, im: -10.0 } / result: Ok(Complex { re: │
00:01:01 verbose #895 > > │ 1.1979825006741847, im: 0.07917049172052575 }) / z: Complex { re: NaN, im: │
00:01:01 verbose #896 > > │ NaN } │
00:01:01 verbose #897 > > │ assert_eq / actual: 1.1979825006741847 / expected: 1.1979825006741847 │
00:01:01 verbose #898 > > │ assert_eq / actual: -0.07917049172052575 / expected: -0.07917049172052575 │
00:01:01 verbose #899 > > │ │
00:01:01 verbose #900 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #901 > >
00:01:01 verbose #902 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 verbose #903 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 verbose #904 > > │ ## test_behavior_near_origin___ │
00:01:01 verbose #905 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 verbose #906 > >
00:01:01 verbose #907 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #908 > > inl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma
00:01:01 verbose #909 > > =>
00:01:01 verbose #910 > > inl s = .^(0.01, 0.01)
00:01:01 verbose #911 > > inl result = zeta s
00:01:01 verbose #912 > > result |> re |> _assert_lt limit.max
00:01:01 verbose #913 > > result |> im |> _assert_lt limit.max
00:01:01 verbose #914 > >
00:01:01 verbose #915 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 verbose #916 > > //// test
00:01:01 verbose #917 > > ///! rust -d num-complex pyo3
00:01:01 verbose #918 > >
00:01:01 verbose #919 > > types ()
00:01:01 verbose #920 > > test_behavior_near_origin___ true
00:01:05 verbose #921 > >
00:01:05 verbose #922 > > ╭─[ 3.96s - return value ]─────────────────────────────────────────────────────╮
00:01:05 verbose #923 > > │ zeta_ / s: (0.01, 0.01) / count: 0 │
00:01:05 verbose #924 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:05 verbose #925 > > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:05 verbose #926 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:05 verbose #927 > > │ / arg: None │
00:01:05 verbose #928 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:05 verbose #929 > > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:05 verbose #930 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:05 verbose #931 > > │ / arg: None │
00:01:05 verbose #932 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:05 verbose #933 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:05 verbose #934 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:05 verbose #935 > > │ f_back.f_code.co_filename: / arg: None │
00:01:05 verbose #936 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:05 verbose #937 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 534 / │
00:01:05 verbose #938 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:05 verbose #939 > > │ f_back.f_code.co_filename: / arg: None │
00:01:05 verbose #940 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:01:05 verbose #941 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:01:05 verbose #942 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:05 verbose #943 > > │ f_back.f_code.co_filename: / arg: None │
00:01:05 verbose #944 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(0.01+0.01j), kwargs={}, │
00:01:05 verbose #945 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:05 verbose #946 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:01:05 verbose #947 > > │ \mpmath\functions\zeta.py / arg: None │
00:01:05 verbose #948 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(...eta.py / f_back.f_lineno: │
00:01:05 verbose #949 > > │ 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:01:05 verbose #950 > > │ line(gamma_) / f_code.co_name: mpc_gamma / f_locals: z=((0, │
00:01:05 verbose #951 > > │ 4458563631096791, -52, 52), (1, 5764607523034235, -59, 53)), prec=53, │
00:01:05 verbose #952 > > │ rnd='n', type=0, a=(0, 4458563631096791, -52, 52), b=(1, 5764607523034235, │
00:01:05 verbose #953 > > │ -59, 53), asign=0, aman=4458563631096791, aexp=-52, abc=52, bsign=1, │
00:01:05 verbose #954 > > │ bman=5764607523034235, bexp=-59, bbc=53, wp=73, amag=0, bmag=-6, mag=0, │
00:01:05 verbose #955 > > │ an=0, bn=0, absn=0j, gamma_size=0, need_reflection=0, zorig=((0, │
00:01:05 verbose #956 > > │ 4458563631096791, -52, 52), (1, 5764607523034235, -59, 53)), yfinal=0, │
00:01:05 verbose #957 > > │ balance_prec=0, n_for_stirling=14, need_reduction=True, │
00:01:05 verbose #958 > > │ afix=132131814190692672995328, bfix=-94447329657392906240, r=0, zprered=((0, │
00:01:05 verbose #959 > > │ 4458563631096791, -52, 52), (1, 5764607523034235, -59, 53)), d=14, │
00:01:05 verbose #960 > > │ rre=56942610883563778729574216337150, one=9444732965739290427392, │
00:01:05 verbose #961 > > │ rim=-1820461636508155576115177658065, k=13 / f_lineno: 2035 / │
00:01:05 verbose #962 > > │ f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: 1131 / │
00:01:05 verbose #963 > > │ f_back.f_code.co_filename: \mpmath\ctx_mp_python.py / arg: None │
00:01:05 verbose #964 > > │ gamma_ / result: (1.00577030202902 + 0.0059717824054102j) / count: 357 │
00:01:05 verbose #965 > > │ gamma__ / s: Complex { re: 0.99, im: -0.01 } / result: Ok(Complex { re: │
00:01:05 verbose #966 > > │ 1.005770302029023, im: 0.005971782405410201 }) │
00:01:05 verbose #967 > > │ zeta__ / s: Complex { re: 0.01, im: 0.01 } / result: Ok(Complex { re: │
00:01:05 verbose #968 > > │ -0.5091873433665667, im: -0.00939202213994577 }) / z: Complex { re: 0.0, im: │
00:01:05 verbose #969 > > │ 0.0 } │
00:01:05 verbose #970 > > │ assert_lt / actual: -0.5091873433665667 / expected: inf │
00:01:05 verbose #971 > > │ assert_lt / actual: -0.00939202213994577 / expected: inf │
00:01:05 verbose #972 > > │ │
00:01:05 verbose #973 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 verbose #974 > >
00:01:05 verbose #975 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:05 verbose #976 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:05 verbose #977 > > │ ## test_imaginary_axis │
00:01:05 verbose #978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:05 verbose #979 > >
00:01:05 verbose #980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:05 verbose #981 > > inl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:05 verbose #982 > > (join a ;[[10; 20; 30; 40; 50; 60; 70; 80; 90; 100]] : _ i32 _)
00:01:05 verbose #983 > > |> am.iter fun s =>
00:01:05 verbose #984 > > inl s = .^(0, s)
00:01:05 verbose #985 > > inl result = zeta s
00:01:05 verbose #986 > > result |> re |> _assert_ne 0
00:01:05 verbose #987 > > result |> im |> _assert_ne 0
00:01:05 verbose #988 > >
00:01:05 verbose #989 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:05 verbose #990 > > //// test
00:01:05 verbose #991 > > ///! rust -d num-complex pyo3
00:01:05 verbose #992 > >
00:01:05 verbose #993 > > types ()
00:01:05 verbose #994 > > test_imaginary_axis true
00:01:09 verbose #995 > >
00:01:09 verbose #996 > > ╭─[ 4.39s - return value ]─────────────────────────────────────────────────────╮
00:01:09 verbose #997 > > │ zeta_ / s: (0.0, 10.0) / count: 0 │
00:01:09 verbose #998 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:09 verbose #999 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:09 verbose #1000 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:09 verbose #1001 > > │ / arg: None │
00:01:09 verbose #1002 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:09 verbose #1003 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:09 verbose #1004 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:09 verbose #1005 > > │ / arg: None │
00:01:09 verbose #1006 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:09 verbose #1007 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:09 verbose #1008 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:09 verbose #1009 > > │ / arg: None │
00:01:09 verbose #1010 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:09 verbose #1011 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:09 verbose #1012 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:09 verbose #1013 > > │ / arg: None │
00:01:09 verbose #1014 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:01:09 verbose #1015 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:09 verbose #1016 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:09 verbose #1017 > > │ / arg: None │
00:01:09 verbose #1018 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=10j, kwargs={}, name='zeta' / │
00:01:09 verbose #1019 > > │ f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:09 verbose #1020 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:09 verbose #1021 > > │ / arg: None │
00:01:09 verbose #1022 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=10j, kwargs={}, name='zeta' / │
00:01:09 verbose #1023 > > │ f_lineno: 1114 / f_code.co...: s=(0, 1, 0, 1), prec=83, sign=0, man=1, │
00:01:09 verbose #1024 > > │ exp=0, bc=1 / f_lineno: 409 / f_code.co_filename: \mpmath\libmp\libmpf.py / │
00:01:09 verbose #1025 > > │ f_back.f_lineno: 2022 / f_back.f_code.co_filename: │
00:01:09 verbose #1026 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:09 verbose #1027 > > │ line(gamma_) / f_code.co_name: to_fixed / f_locals: s=(0, 1, 0, 1), prec=83, │
00:01:09 verbose #1028 > > │ sign=0, man=1, exp=0, bc=1, offset=83 / f_lineno: 410 / f_code.co_filename: │
00:01:09 verbose #1029 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 2022 / f_back.f_code.co_filename: │
00:01:09 verbose #1030 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:09 verbose #1031 > > │ line(gamma_) / f_code.co_name: to_fixed / f_locals: s=(0, 1, 0, 1), prec=83, │
00:01:09 verbose #1032 > > │ sign=0, man=1, exp=0, bc=1, offset=83 / f_lineno: 414 / f_code.co_filename: │
00:01:09 verbose #1033 > > │ \mpmath\libmp\libmpf.py / f_back.f_lineno: 2022 / f_back.f_code.co_filename: │
00:01:09 verbose #1034 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:09 verbose #1035 > > │ return(gamma_) / f_code.co_name: to_fixed / f_locals: s=(0, 1, 0, 1), │
00:01:09 verbose #1036 > > │ prec=83, sign=0, man=1, exp=0, bc=1, offset=83 / f_lineno: 414 / │
00:01:09 verbose #1037 > > │ f_code.co_filename: \mpmath\libmp\libmpf.py / f_back.f_lineno: 2022 / │
00:01:09 verbose #1038 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: │
00:01:09 verbose #1039 > > │ 9671406556917033397649408 │
00:01:09 verbose #1040 > > │ gamma_ / result: (-1.51425318049776e-67 + 2.79082155561748e-69j) / count: │
00:01:09 verbose #1041 > > │ 289 │
00:01:09 verbose #1042 > > │ gamma__ / s: Complex { re: 1.0, im: -100.0 } / result: Ok(Complex { re: │
00:01:09 verbose #1043 > > │ -1.514253180497756e-67, im: 2.7908215556174775e-69 }) │
00:01:09 verbose #1044 > > │ zeta__ / s: Complex { re: 0.0, im: 100.0 } / result: Ok(Complex { re: │
00:01:09 verbose #1045 > > │ 6.51721042625301, im: 0.18128842533791736 }) / z: Complex { re: 0.0, im: 0.0 │
00:01:09 verbose #1046 > > │ } │
00:01:09 verbose #1047 > > │ assert_ne / actual: 6.51721042625301 / expected: 0.0 │
00:01:09 verbose #1048 > > │ assert_ne / actual: 0.18128842533791736 / expected: 0.0 │
00:01:09 verbose #1049 > > │ │
00:01:09 verbose #1050 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #1051 > >
00:01:09 verbose #1052 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:09 verbose #1053 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:09 verbose #1054 > > │ ## test_critical_strip │
00:01:09 verbose #1055 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #1056 > >
00:01:09 verbose #1057 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:09 verbose #1058 > > inl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:09 verbose #1059 > > ;[[
00:01:09 verbose #1060 > > .^(0.5, 14.134725)
00:01:09 verbose #1061 > > .^(0.75, 20.5)
00:01:09 verbose #1062 > > .^(1.25, 30.1)
00:01:09 verbose #1063 > > .^(0.25, 40.0)
00:01:09 verbose #1064 > > .^(1.0, 50.0)
00:01:09 verbose #1065 > > ]]
00:01:09 verbose #1066 > > |> fun x => a x : _ i32 _
00:01:09 verbose #1067 > > |> am.iter fun s =>
00:01:09 verbose #1068 > > inl result = zeta s
00:01:09 verbose #1069 > > result |> re |> _assert_ne 0
00:01:09 verbose #1070 > > result |> im |> _assert_ne 0
00:01:09 verbose #1071 > >
00:01:09 verbose #1072 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:09 verbose #1073 > > //// test
00:01:09 verbose #1074 > > ///! rust -d num-complex pyo3
00:01:09 verbose #1075 > >
00:01:09 verbose #1076 > > types ()
00:01:09 verbose #1077 > > test_critical_strip true
00:01:13 verbose #1078 > >
00:01:13 verbose #1079 > > ╭─[ 4.11s - return value ]─────────────────────────────────────────────────────╮
00:01:13 verbose #1080 > > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:01:13 verbose #1081 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:13 verbose #1082 > > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:13 verbose #1083 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:13 verbose #1084 > > │ / arg: None │
00:01:13 verbose #1085 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:13 verbose #1086 > > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:13 verbose #1087 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:13 verbose #1088 > > │ / arg: None │
00:01:13 verbose #1089 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:13 verbose #1090 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:13 verbose #1091 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:13 verbose #1092 > > │ f_back.f_code.co_filename: / arg: None │
00:01:13 verbose #1093 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:13 verbose #1094 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 534 / │
00:01:13 verbose #1095 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:13 verbose #1096 > > │ f_back.f_code.co_filename: / arg: None │
00:01:13 verbose #1097 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:13 verbose #1098 > > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 535 / │
00:01:13 verbose #1099 > > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:13 verbose #1100 > > │ f_back.f_code.co_filename: / arg: None │
00:01:13 verbose #1101 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(0.5+14.134725j), kwargs={}, │
00:01:13 verbose #1102 > > │ name='zeta' / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:13 verbose #1103 > > │ / f_back.f_lineno: 535 / f_back.f_code.co_filename: │
00:01:13 verbose #1104 > > │ \mpmath\functions\zeta.py / arg: None │
00:01:13 verbose #1105 > > │ line(zeta_) / f_cod...41793223535862290159229021 / f_lineno: 1635 / │
00:01:13 verbose #1106 > > │ f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: 2041 / │
00:01:13 verbose #1107 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:13 verbose #1108 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: x=0, │
00:01:13 verbose #1109 > > │ y=-241785163922925834941235200, prec=82, _m=12089258196146291747061760000, │
00:01:13 verbose #1110 > > │ tre=0, tim=2475880078, ure=-1934281311383406679530, uim=0, │
00:01:13 verbose #1111 > > │ sre=4443714077719696485012210, sim=241793223535862290159229021 / f_lineno: │
00:01:13 verbose #1112 > > │ 1636 / f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: │
00:01:13 verbose #1113 > > │ 2041 / f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:13 verbose #1114 > > │ line(gamma_) / f_code.co_name: complex_stirling_series / f_locals: x=0, │
00:01:13 verbose #1115 > > │ y=-241785163922925834941235200, prec=82, _m=12089258196146291747061760000, │
00:01:13 verbose #1116 > > │ tre=0, tim=2475880078, ure=-1934281311383406679530, uim=0, │
00:01:13 verbose #1117 > > │ sre=4443714077719696485012210, sim=241793223535862290161313095 / f_lineno: │
00:01:13 verbose #1118 > > │ 1637 / f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: │
00:01:13 verbose #1119 > > │ 2041 / f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:13 verbose #1120 > > │ gamma_ / result: (2.63173210619768e-35 - 8.16464935465334e-36j) / count: 266 │
00:01:13 verbose #1121 > > │ gamma__ / s: Complex { re: 0.0, im: -50.0 } / result: Ok(Complex { re: │
00:01:13 verbose #1122 > > │ 2.6317321061976804e-35, im: -8.164649354653339e-36 }) │
00:01:13 verbose #1123 > > │ zeta__ / s: Complex { re: 1.0, im: 50.0 } / result: Ok(Complex { re: │
00:01:13 verbose #1124 > > │ 0.44103873082309397, im: 0.281582455029683 }) / z: Complex { re: 0.0, im: │
00:01:13 verbose #1125 > > │ 0.0 } │
00:01:13 verbose #1126 > > │ assert_ne / actual: 0.44103873082309397 / expected: 0.0 │
00:01:13 verbose #1127 > > │ assert_ne / actual: 0.281582455029683 / expected: 0.0 │
00:01:13 verbose #1128 > > │ │
00:01:13 verbose #1129 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:13 verbose #1130 > >
00:01:13 verbose #1131 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:13 verbose #1132 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:13 verbose #1133 > > │ ## test_reflection_formula_for_specific_value │
00:01:13 verbose #1134 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:13 verbose #1135 > >
00:01:13 verbose #1136 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:13 verbose #1137 > > inl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun
00:01:13 verbose #1138 > > zeta, gamma =>
00:01:13 verbose #1139 > > ;[[
00:01:13 verbose #1140 > > .^(3, 4)
00:01:13 verbose #1141 > > .^(2.5, -3.5)
00:01:13 verbose #1142 > > .^(1.5, 2.5)
00:01:13 verbose #1143 > > .^(0.5, 14.134725)
00:01:13 verbose #1144 > > ]]
00:01:13 verbose #1145 > > |> fun x => a x : _ i32 _
00:01:13 verbose #1146 > > |> am.iter fun s =>
00:01:13 verbose #1147 > > inl lhs = zeta s
00:01:13 verbose #1148 > > inl reflection_coefficient =
00:01:13 verbose #1149 > > (.^(2, 0) .** s)
00:01:13 verbose #1150 > > .* (.^(pi, 0) .** (s .- .^(1, 0)))
00:01:13 verbose #1151 > > .* (.^(pi, 0) .* s ./ .^(2, 0) |> complex_sin)
00:01:13 verbose #1152 > > .* gamma (.^(1, 0) .- s)
00:01:13 verbose #1153 > >
00:01:13 verbose #1154 > > inl one_minus_s = .^(1 - re s, -(im s))
00:01:13 verbose #1155 > > inl rhs = reflection_coefficient .* zeta one_minus_s
00:01:13 verbose #1156 > >
00:01:13 verbose #1157 > > re lhs - re rhs |> abs |> _assert_lt 0.0001
00:01:13 verbose #1158 > > im lhs - im rhs |> abs |> _assert_lt 0.0001
00:01:13 verbose #1159 > >
00:01:13 verbose #1160 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:13 verbose #1161 > > //// test
00:01:13 verbose #1162 > > ///! rust -d num-complex pyo3
00:01:13 verbose #1163 > >
00:01:13 verbose #1164 > > types ()
00:01:13 verbose #1165 > > test_reflection_formula_for_specific_value true
00:01:18 verbose #1166 > >
00:01:18 verbose #1167 > > ╭─[ 4.14s - return value ]─────────────────────────────────────────────────────╮
00:01:18 verbose #1168 > > │ zeta_ / s: (3.0, 4.0) / count: 0 │
00:01:18 verbose #1169 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:18 verbose #1170 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:18 verbose #1171 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:18 verbose #1172 > > │ / arg: None │
00:01:18 verbose #1173 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:18 verbose #1174 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:18 verbose #1175 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:18 verbose #1176 > > │ / arg: None │
00:01:18 verbose #1177 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:18 verbose #1178 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:18 verbose #1179 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:18 verbose #1180 > > │ / arg: None │
00:01:18 verbose #1181 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:18 verbose #1182 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:18 verbose #1183 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:18 verbose #1184 > > │ / arg: None │
00:01:18 verbose #1185 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:01:18 verbose #1186 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:18 verbose #1187 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:18 verbose #1188 > > │ / arg: None │
00:01:18 verbose #1189 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(3+4j), kwargs={}, name='zeta' │
00:01:18 verbose #1190 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:18 verbose #1191 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:18 verbose #1192 > > │ / arg: None │
00:01:18 verbose #1193 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(3+4j), kwargs={}, name='zeta' │
00:01:18 verbose #1194 > > │ / f_line...o: 2034 / f_code.co_filename: \mpmath\libmp\gammazeta.py / │
00:01:18 verbose #1195 > > │ f_back.f_lineno: 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:18 verbose #1196 > > │ / arg: None │
00:01:18 verbose #1197 > > │ line(gamma_) / f_code.co_name: mpc_gamma / f_locals: z=((0, 1, -1, 1), (0, │
00:01:18 verbose #1198 > > │ 3978571390186527, -48, 52)), prec=53, rnd='n', type=0, a=(0, 1, -1, 1), │
00:01:18 verbose #1199 > > │ b=(0, 3978571390186527, -48, 52), asign=0, aman=1, aexp=-1, abc=1, bsign=0, │
00:01:18 verbose #1200 > > │ bman=3978571390186527, bexp=-48, bbc=52, wp=79, amag=0, bmag=4, mag=4, an=0, │
00:01:18 verbose #1201 > > │ bn=14, absn=14j, gamma_size=56, need_reflection=0, zorig=((0, 1, -1, 1), (0, │
00:01:18 verbose #1202 > > │ 3978571390186527, -48, 52)), yfinal=0, balance_prec=0, n_for_stirling=15, │
00:01:18 verbose #1203 > > │ need_reduction=True, afix=2115620184325601055735808, │
00:01:18 verbose #1204 > > │ bfix=8543917002826194402410496, r=0, zprered=((0, 1, -1, 1), (0, │
00:01:18 verbose #1205 > > │ 3978571390186527, -48, 52)), d=5, rre=-542313259704087430481959845, │
00:01:18 verbose #1206 > > │ one=604462909807314587353088, rim=-1657865507045117397880679064, k=3 / │
00:01:18 verbose #1207 > > │ f_lineno: 2035 / f_code.co_filename: \mpmath\libmp\gammazeta.py / │
00:01:18 verbose #1208 > > │ f_back.f_lineno: 1131 / f_back.f_code.co_filename: \mpmath\ctx_mp_python.py │
00:01:18 verbose #1209 > > │ / arg: None │
00:01:18 verbose #1210 > > │ gamma_ / result: (-1.4455538437607e-10 - 5.52278876877407e-10j) / count: 314 │
00:01:18 verbose #1211 > > │ gamma__ / s: Complex { re: 0.5, im: 14.134725 } / result: Ok(Complex { re: │
00:01:18 verbose #1212 > > │ -1.4455538437606964e-10, im: -5.522788768774066e-10 }) │
00:01:18 verbose #1213 > > │ zeta__ / s: Complex { re: 0.5, im: -14.134725 } / result: Ok(Complex { re: │
00:01:18 verbose #1214 > > │ 1.7674298413849186e-8, im: 1.1102028930923156e-7 }) / z: Complex { re: 0.0, │
00:01:18 verbose #1215 > > │ im: 0.0 } │
00:01:18 verbose #1216 > > │ assert_lt / actual: 4.499862532288471e-22 / expected: 0.0001 │
00:01:18 verbose #1217 > > │ assert_lt / actual: 1.4558378780933287e-22 / expected: 0.0001 │
00:01:18 verbose #1218 > > │ │
00:01:18 verbose #1219 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:18 verbose #1220 > >
00:01:18 verbose #1221 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:18 verbose #1222 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:18 verbose #1223 > > │ ## test_euler_product_formula │
00:01:18 verbose #1224 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:18 verbose #1225 > >
00:01:18 verbose #1226 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:18 verbose #1227 > > inl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:18 verbose #1228 > > inl s_values = ;[[2; 2.5; 3; 3.5; 4; 4.5; 5]]
00:01:18 verbose #1229 > > inl primes = ;[[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53;
00:01:18 verbose #1230 > > 59; 61; 67; 71]]
00:01:18 verbose #1231 > > (a s_values : _ i32 _)
00:01:18 verbose #1232 > > |> am.iter fun s_re =>
00:01:18 verbose #1233 > > inl s = .^(s_re, 0)
00:01:18 verbose #1234 > > inl product =
00:01:18 verbose #1235 > > (1, (a primes : _ i32 _))
00:01:18 verbose #1236 > > ||> am.fold fun acc x =>
00:01:18 verbose #1237 > > acc * 1 / (1 - x ** -s_re)
00:01:18 verbose #1238 > >
00:01:18 verbose #1239 > > inl result = zeta s
00:01:18 verbose #1240 > > re result - product |> abs |> _assert_lt 0.01
00:01:18 verbose #1241 > > result |> im |> _assert_lt 0.01
00:01:18 verbose #1242 > >
00:01:18 verbose #1243 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:18 verbose #1244 > > //// test
00:01:18 verbose #1245 > > ///! rust -d num-complex pyo3
00:01:18 verbose #1246 > >
00:01:18 verbose #1247 > > types ()
00:01:18 verbose #1248 > > test_euler_product_formula true
00:01:22 verbose #1249 > >
00:01:22 verbose #1250 > > ╭─[ 4.05s - return value ]─────────────────────────────────────────────────────╮
00:01:22 verbose #1251 > > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:22 verbose #1252 > > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:22 verbose #1253 > > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:22 verbose #1254 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 verbose #1255 > > │ / arg: None │
00:01:22 verbose #1256 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:22 verbose #1257 > > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:22 verbose #1258 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 verbose #1259 > > │ / arg: None │
00:01:22 verbose #1260 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:22 verbose #1261 > > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:22 verbose #1262 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 verbose #1263 > > │ / arg: None │
00:01:22 verbose #1264 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:22 verbose #1265 > > │ method=None, kwargs={}, d=0 / f_lineno: 534 / f_code.co_filename: │
00:01:22 verbose #1266 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 verbose #1267 > > │ / arg: None │
00:01:22 verbose #1268 > > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:22 verbose #1269 > > │ method=None, kwargs={}, d=0 / f_lineno: 535 / f_code.co_filename: │
00:01:22 verbose #1270 > > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 verbose #1271 > > │ / arg: None │
00:01:22 verbose #1272 > > │ call(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:01:22 verbose #1273 > > │ / f_lineno: 1113 / f_code.co_filename: \mpmath\ctx_mp_python.py / │
00:01:22 verbose #1274 > > │ f_back.f_lineno: 535 / f_back.f_code.co_filename: \mpmath\functions\zeta.py │
00:01:22 verbose #1275 > > │ / arg: None │
00:01:22 verbose #1276 > > │ line(zeta_) / f_code.co_name: f / f_locals: x=(2+0j), kwargs={}, name='zeta' │
00:01:22 verbose #1277 > > │ / f_line..._back.f_lineno: 976 / f_back.f_code.co_filename: │
00:01:22 verbose #1278 > > │ \mpmath\libmp\gammazeta.py / arg: None │
00:01:22 verbose #1279 > > │ line(zeta_) / f_code.co_name: mpf_zeta_int / f_locals: s=5, prec=53, │
00:01:22 verbose #1280 > > │ rnd='n', wp=73, m=19.25, needed_terms=623488, n=33, d=[1, 2179, 792067, │
00:01:22 verbose #1281 > > │ 115062531, 8930212611, 429314925315, 13983537177347, 327666966438659, │
00:01:22 verbose #1282 > > │ 5764846406968067, 78615943485956867, 851604426176701187, │
00:01:22 verbose #1283 > > │ 7470527451121689347, 53898915046387983107, 323897845985013506819, │
00:01:22 verbose #1284 > > │ 1638178356374090130179, 7034281785235908174595, 25833609859980306522883, │
00:01:22 verbose #1285 > > │ 81661917475887913739011, 223448095548034217779971, 532029677981012660429571, │
00:01:22 verbose #1286 > > │ 1108048631855905753375491, 2029946562680066824315651, │
00:01:22 verbose #1287 > > │ 3292927237466655352791811, 4769455369342763680768771, │
00:01:22 verbose #1288 > > │ 6235511670496346417767171, 7463408621503347142796035, │
00:01:22 verbose #1289 > > │ 8322751284048216428487427, 8818779962777819524211459, │
00:01:22 verbose #1290 > > │ 9050689474911140452082435, 9136270117622166323831555, │
00:01:22 verbose #1291 > > │ 9160252037839493347779331, 9165045885455648617505539, │
00:01:22 verbose #1292 > > │ 9165654628010081032708867, 9165691521498228451812099], │
00:01:22 verbose #1293 > > │ t=-84153981556310142931811887755527036638996681066, k=21 / f_lineno: 944 / │
00:01:22 verbose #1294 > > │ f_code.co_filename: \mpmath\libmp\gammazeta.py / f_back.f_lineno: 976 / │
00:01:22 verbose #1295 > > │ f_back.f_code.co_filename: \mpmath\libmp\gammazeta.py / arg: None │
00:01:22 verbose #1296 > > │ zeta_ / result: (1.03692775514337 + 0.0j) / count: 236 │
00:01:22 verbose #1297 > > │ zeta / count: 0 / s: Complex { re: 5.0, im: 0.0 } │
00:01:22 verbose #1298 > > │ zeta__ / s: Complex { re: 5.0, im: 0.0 } / result: Ok(Complex { re: │
00:01:22 verbose #1299 > > │ 1.03692775514337, im: 0.0 }) / z: Complex { re: NaN, im: NaN } │
00:01:22 verbose #1300 > > │ assert_lt / actual: 2.0033654735129858e-9 / expected: 0.01 │
00:01:22 verbose #1301 > > │ assert_lt / actual: 0.0 / expected: 0.01 │
00:01:22 verbose #1302 > > │ │
00:01:22 verbose #1303 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #1304 > >
00:01:22 verbose #1305 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #1306 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #1307 > > │ ## graph │
00:01:22 verbose #1308 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #1309 > >
00:01:22 verbose #1310 > > ── mermaid ─────────────────────────────────────────────────────────────────────
00:01:22 verbose #1311 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #1312 > > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:01:22 verbose #1313 > > │ <link rel="stylesheet" │
00:01:22 verbose #1314 > > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:01:22 verbose #1315 > > │ css"> │
00:01:22 verbose #1316 > > │ <div id="e410a038ae00430c9378aa96d13f830d"></div> │
00:01:22 verbose #1317 > > │ <script type="module"> │
00:01:22 verbose #1318 > > │ │
00:01:22 verbose #1319 > > │ import mermaid from │
00:01:22 verbose #1320 > > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:01:22 verbose #1321 > > │ let renderTarget = │
00:01:22 verbose #1322 > > │ document.getElementById('e410a038ae00430c9378aa96d13f830d'); │
00:01:22 verbose #1323 > > │ try { │
00:01:22 verbose #1324 > > │ const {svg, bindFunctions} = await │
00:01:22 verbose #1325 > > │ mermaid.mermaidAPI.render( │
00:01:22 verbose #1326 > > │ 'mermaid_e410a038ae00430c9378aa96d13f830d', │
00:01:22 verbose #1327 > > │ `graph TD │
00:01:22 verbose #1328 > > │ zeta("zeta()") --> convert │
00:01:22 verbose #1329 > > │ zeta --> f["f()"] │
00:01:22 verbose #1330 > > │ f --> mpc_f["mpc_zeta()"] │
00:01:22 verbose #1331 > > │ f --> mpf_f["mpf_zeta()"] │
00:01:22 verbose #1332 > > │ convert --> from_float │
00:01:22 verbose #1333 > > │ from_float --> from_man_exp │
00:01:22 verbose #1334 > > │ from_man_exp --> python_bitcount │
00:01:22 verbose #1335 > > │ python_bitcount --> _normalize │
00:01:22 verbose #1336 > > │ _normalize --> make_mpc │
00:01:22 verbose #1337 > > │ make_mpc --> mpc_zeta["mpc_zeta()"] │
00:01:22 verbose #1338 > > │ mpc_zeta --> mpf_zeta["mpf_zeta()"] │
00:01:22 verbose #1339 > > │ mpf_zeta --> to_int │
00:01:22 verbose #1340 > > │ to_int --> mpf_zeta_int["mpf_zeta_int()"] │
00:01:22 verbose #1341 > > │ mpf_zeta_int --> borwein_coefficients │
00:01:22 verbose #1342 > > │ borwein_coefficients --> from_man_exp_2("from_man_exp()") │
00:01:22 verbose #1343 > > │ from_man_exp_2 --> python_bitcount_2("python_bitcount()") │
00:01:22 verbose #1344 > > │ python_bitcount_2 --> _normalize_2("_normalize()") │
00:01:22 verbose #1345 > > │ _normalize_2 --> make_mpc_2("make_mpc()") │
00:01:22 verbose #1346 > > │ make_mpc_2 --> stop_trace │
00:01:22 verbose #1347 > > │ mpf_zeta_int --> mpf_bernoulli │
00:01:22 verbose #1348 > > │ mpf_bernoulli --> bernoulli_size │
00:01:22 verbose #1349 > > │ bernoulli_size --> mpf_rdiv_int │
00:01:22 verbose #1350 > > │ mpf_rdiv_int --> python_bitcount_3("python_bitcount()") │
00:01:22 verbose #1351 > > │ python_bitcount_3 --> _normalize1 │
00:01:22 verbose #1352 > > │ _normalize1 --> from_man_exp_3("from_man_exp()") │
00:01:22 verbose #1353 > > │ from_man_exp_3 --> _normalize_3("_normalize()") │
00:01:22 verbose #1354 > > │ _normalize_3 --> mpf_sub │
00:01:22 verbose #1355 > > │ mpf_sub --> mpf_add │
00:01:22 verbose #1356 > > │ mpf_add --> mpf_neg │
00:01:22 verbose #1357 > > │ mpf_neg --> _normalize1_2("_normalize1()") │
00:01:22 verbose #1358 > > │ _normalize1_2 --> from_int │
00:01:22 verbose #1359 > > │ from_int --> mpf_div │
00:01:22 verbose #1360 > > │ mpf_div --> python_bitcount_4("python_bitcount()") │
00:01:22 verbose #1361 > > │ python_bitcount_4 --> _normalize1_3("_normalize1()") │
00:01:22 verbose #1362 > > │ _normalize1_3 --> make_mpc_3("make_mpc()") │
00:01:22 verbose #1363 > > │ make_mpc_3 --> final_stop["stop_trace()"]`); │
00:01:22 verbose #1364 > > │ renderTarget.innerHTML = svg; │
00:01:22 verbose #1365 > > │ bindFunctions?.(renderTarget); │
00:01:22 verbose #1366 > > │ } │
00:01:22 verbose #1367 > > │ catch (error) { │
00:01:22 verbose #1368 > > │ console.log(error); │
00:01:22 verbose #1369 > > │ } │
00:01:22 verbose #1370 > > │ </script> │
00:01:22 verbose #1371 > > │ </div> │
00:01:22 verbose #1372 > > │ │
00:01:22 verbose #1373 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #1374 > >
00:01:22 verbose #1375 > > ── mermaid ─────────────────────────────────────────────────────────────────────
00:01:22 verbose #1376 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #1377 > > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:01:22 verbose #1378 > > │ <link rel="stylesheet" │
00:01:22 verbose #1379 > > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:01:22 verbose #1380 > > │ css"> │
00:01:22 verbose #1381 > > │ <div id="49df208a1b42439989fd6c06600b07a0"></div> │
00:01:22 verbose #1382 > > │ <script type="module"> │
00:01:22 verbose #1383 > > │ │
00:01:22 verbose #1384 > > │ import mermaid from │
00:01:22 verbose #1385 > > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:01:22 verbose #1386 > > │ let renderTarget = │
00:01:22 verbose #1387 > > │ document.getElementById('49df208a1b42439989fd6c06600b07a0'); │
00:01:22 verbose #1388 > > │ try { │
00:01:22 verbose #1389 > > │ const {svg, bindFunctions} = await │
00:01:22 verbose #1390 > > │ mermaid.mermaidAPI.render( │
00:01:22 verbose #1391 > > │ 'mermaid_49df208a1b42439989fd6c06600b07a0', │
00:01:22 verbose #1392 > > │ `graph TD │
00:01:22 verbose #1393 > > │ zeta_rust("zeta() - Rust") --> num_traits("num-traits") │
00:01:22 verbose #1394 > > │ zeta_rust --> num_bigint("num-bigint") │
00:01:22 verbose #1395 > > │ zeta_rust --> rust_decimal("rust_decimal for precision") │
00:01:22 verbose #1396 > > │ zeta_rust --> error_handling("Rust Error Handling") │
00:01:22 verbose #1397 > > │ │
00:01:22 verbose #1398 > > │ num_traits --> num_traits_usage("Use for common traits") │
00:01:22 verbose #1399 > > │ num_bigint --> bigint_operations("Arbitrary-precision arithmetic │
00:01:22 verbose #1400 > > │ operations") │
00:01:22 verbose #1401 > > │ rust_decimal --> decimal_operations("High-precision decimal operations") │
00:01:22 verbose #1402 > > │ error_handling --> result_type("Use Result<T, E> for error handling") │
00:01:22 verbose #1403 > > │ │
00:01:22 verbose #1404 > > │ bigint_operations --> convert_rust("convert() - Rust") │
00:01:22 verbose #1405 > > │ bigint_operations --> normalize_rust("_normalize() - Rust") │
00:01:22 verbose #1406 > > │ │
00:01:22 verbose #1407 > > │ convert_rust --> from_float_rust("from_float() - Rust") │
00:01:22 verbose #1408 > > │ from_float_rust --> from_man_exp_rust("from_man_exp() - Rust") │
00:01:22 verbose #1409 > > │ from_man_exp_rust --> bitcount_rust("bitcount() - Rust") │
00:01:22 verbose #1410 > > │ bitcount_rust --> normalize_rust │
00:01:22 verbose #1411 > > │ normalize_rust --> mpc_zeta_rust("mpc_zeta() - Rust") │
00:01:22 verbose #1412 > > │ mpc_zeta_rust --> mpf_zeta_rust("mpf_zeta() - Rust") │
00:01:22 verbose #1413 > > │ mpf_zeta_rust --> to_int_rust("to_int() - Rust") │
00:01:22 verbose #1414 > > │ to_int_rust --> mpf_zeta_int_rust("mpf_zeta_int() - Rust") │
00:01:22 verbose #1415 > > │ │
00:01:22 verbose #1416 > > │ mpf_zeta_int_rust --> borwein_coefficients_rust("borwein_coefficients() │
00:01:22 verbose #1417 > > │ - Rust") │
00:01:22 verbose #1418 > > │ borwein_coefficients_rust --> from_man_exp_rust_2("from_man_exp() - │
00:01:22 verbose #1419 > > │ Rust") │
00:01:22 verbose #1420 > > │ from_man_exp_rust_2 --> bitcount_rust_2("bitcount() - Rust") │
00:01:22 verbose #1421 > > │ bitcount_rust_2 --> normalize_rust_2("_normalize() - Rust") │
00:01:22 verbose #1422 > > │ normalize_rust_2 --> make_mpc_rust("make_mpc() - Rust") │
00:01:22 verbose #1423 > > │ │
00:01:22 verbose #1424 > > │ mpf_zeta_int_rust --> mpf_bernoulli_rust("mpf_bernoulli() - Rust") │
00:01:22 verbose #1425 > > │ mpf_bernoulli_rust --> bernoulli_size_rust("bernoulli_size() - Rust") │
00:01:22 verbose #1426 > > │ bernoulli_size_rust --> mpf_rdiv_int_rust("mpf_rdiv_int() - Rust") │
00:01:22 verbose #1427 > > │ mpf_rdiv_int_rust --> bitcount_rust_3("bitcount() - Rust") │
00:01:22 verbose #1428 > > │ bitcount_rust_3 --> normalize1_rust("_normalize1() - Rust") │
00:01:22 verbose #1429 > > │ normalize1_rust --> from_man_exp_rust_3("from_man_exp() - Rust") │
00:01:22 verbose #1430 > > │ from_man_exp_rust_3 --> normalize_rust_3("_normalize() - Rust") │
00:01:22 verbose #1431 > > │ normalize_rust_3 --> mpf_sub_rust("mpf_sub() - Rust") │
00:01:22 verbose #1432 > > │ mpf_sub_rust --> mpf_add_rust("mpf_add() - Rust") │
00:01:22 verbose #1433 > > │ mpf_add_rust --> mpf_neg_rust("mpf_neg() - Rust") │
00:01:22 verbose #1434 > > │ mpf_neg_rust --> normalize1_rust_2("_normalize1() - Rust") │
00:01:22 verbose #1435 > > │ normalize1_rust_2 --> from_int_rust("from_int() - Rust") │
00:01:22 verbose #1436 > > │ from_int_rust --> mpf_div_rust("mpf_div() - Rust") │
00:01:22 verbose #1437 > > │ mpf_div_rust --> bitcount_rust_4("bitcount() - Rust") │
00:01:22 verbose #1438 > > │ bitcount_rust_4 --> normalize1_rust_3("_normalize1() - Rust") │
00:01:22 verbose #1439 > > │ │
00:01:22 verbose #1440 > > │ style zeta_rust fill:#f9f,stroke:#333,stroke-width:4px │
00:01:22 verbose #1441 > > │ style num_traits fill:#bbf,stroke:#333,stroke-width:2px │
00:01:22 verbose #1442 > > │ style num_bigint fill:#bbf,stroke:#333,stroke-width:2px │
00:01:22 verbose #1443 > > │ style rust_decimal fill:#bbf,stroke:#333,stroke-width:2px │
00:01:22 verbose #1444 > > │ style error_handling fill:#bbf,stroke:#333,stroke-width:2px │
00:01:22 verbose #1445 > > │ style bigint_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:01:22 verbose #1446 > > │ style decimal_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:01:22 verbose #1447 > > │ style result_type fill:#bfb,stroke:#333,stroke-width:2px`); │
00:01:22 verbose #1448 > > │ renderTarget.innerHTML = svg; │
00:01:22 verbose #1449 > > │ bindFunctions?.(renderTarget); │
00:01:22 verbose #1450 > > │ } │
00:01:22 verbose #1451 > > │ catch (error) { │
00:01:22 verbose #1452 > > │ console.log(error); │
00:01:22 verbose #1453 > > │ } │
00:01:22 verbose #1454 > > │ </script> │
00:01:22 verbose #1455 > > │ </div> │
00:01:22 verbose #1456 > > │ │
00:01:22 verbose #1457 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #1458 > >
00:01:22 verbose #1459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #1460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #1461 > > │ ## tests │
00:01:22 verbose #1462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #1463 > >
00:01:22 verbose #1464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #1465 > > inl tests () =
00:01:22 verbose #1466 > > rust.run_tests [[
00:01:22 verbose #1467 > > "test_zeta_at_known_values_", fun _ =>
00:01:22 verbose #1468 > > test_zeta_at_known_values_ false
00:01:22 verbose #1469 > >
00:01:22 verbose #1470 > > "test_zeta_at_2_minus2", fun _ =>
00:01:22 verbose #1471 > > test_zeta_at_2_minus2 false
00:01:22 verbose #1472 > >
00:01:22 verbose #1473 > > "test_trivial_zero_at_negative_even___", fun _ =>
00:01:22 verbose #1474 > > test_trivial_zero_at_negative_even___ false
00:01:22 verbose #1475 > >
00:01:22 verbose #1476 > > "test_non_trivial_zero___", fun _ =>
00:01:22 verbose #1477 > > test_non_trivial_zero___ false
00:01:22 verbose #1478 > >
00:01:22 verbose #1479 > > "test_real_part_greater_than_one___", fun _ =>
00:01:22 verbose #1480 > > test_real_part_greater_than_one___ false
00:01:22 verbose #1481 > >
00:01:22 verbose #1482 > > "test_zeta_at_1___", fun _ =>
00:01:22 verbose #1483 > > test_zeta_at_1___ false
00:01:22 verbose #1484 > >
00:01:22 verbose #1485 > > "test_symmetry_across_real_axis___", fun _ =>
00:01:22 verbose #1486 > > test_symmetry_across_real_axis___ false
00:01:22 verbose #1487 > >
00:01:22 verbose #1488 > > "test_behavior_near_origin___", fun _ =>
00:01:22 verbose #1489 > > test_behavior_near_origin___ false
00:01:22 verbose #1490 > >
00:01:22 verbose #1491 > > "test_imaginary_axis", fun _ =>
00:01:22 verbose #1492 > > test_imaginary_axis false
00:01:22 verbose #1493 > >
00:01:22 verbose #1494 > > "test_critical_strip", fun _ =>
00:01:22 verbose #1495 > > test_critical_strip false
00:01:22 verbose #1496 > >
00:01:22 verbose #1497 > > "test_reflection_formula_for_specific_value", fun _ =>
00:01:22 verbose #1498 > > test_reflection_formula_for_specific_value false
00:01:22 verbose #1499 > >
00:01:22 verbose #1500 > > "test_euler_product_formula", fun _ =>
00:01:22 verbose #1501 > > test_euler_product_formula false
00:01:22 verbose #1502 > > ]]
00:01:22 verbose #1503 > >
00:01:22 verbose #1504 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #1505 > > ///!
00:01:22 verbose #1506 > >
00:01:22 verbose #1507 > > inl main (_args : array_base string) =
00:01:22 verbose #1508 > > inl value = 1i32
00:01:22 verbose #1509 > > console.write_line ($'$"value: {!value}"' : string)
00:01:22 verbose #1510 > > 0i32
00:01:22 verbose #1511 > >
00:01:22 verbose #1512 > > inl main () =
00:01:22 verbose #1513 > > types ()
00:01:22 verbose #1514 > > $'let tests () = !tests ()' : ()
00:01:22 verbose #1515 > > $'let main args = !main args' : ()
00:01:22 verbose #1516 > 00:01:20 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 90120
00:01:22 verbose #1517 > 00:01:20 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/math/math.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/math/math.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:24 verbose #1518 > 00:01:22 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/math/math.dib.ipynb to html
00:01:24 verbose #1519 > 00:01:22 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:24 verbose #1520 > 00:01:22 verbose #7 ! validate(nb)
00:01:27 verbose #1521 > 00:01:25 verbose #8 ! [NbConvertApp] Writing 7276498 bytes to c:\home\git\polyglot\lib\math\math.dib.html
00:01:27 verbose #1522 > 00:01:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 636
00:01:27 verbose #1523 > 00:01:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 636
00:01:27 verbose #1524 > 00:01:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/math/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/math/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:28 verbose #1525 > 00:01:26 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:28 verbose #1526 > 00:01:26 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:29 verbose #1527 > 00:01:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 90815
00:01:29 debug #1528 runtime.execute_with_options_async / exit_code: 0 / output.Length: 96050
00:01:29 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 1
00:01:29 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:01:29 debug #7 async.run_with_timeout_async / timeout: 100
00:00:00 debug #1 writeDibCode / output: Spi / path: math.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: math.dib
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #6 async.run_with_timeout_async / timeout: 500
00:00:02 debug #3 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:02 debug #4 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:02 verbose #5 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # math\nopen testing\nopen rust_operators\n\ninl types () =\n global ...027let main args = !main args\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result:
00:00:02 verbose #6 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result:
00:00:03 verbose #7 > 00:00:02 debug #4 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/math/math.spi
00:00:03 debug #7 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #8 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #9 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #10 Supervisor.buildFile / takeWhileInclusive / path: math.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'... let v2 : (string -> unit) = System.Console.WriteLine
v2 v1
0
let v0 : (unit -> unit) = closure0()
let tests () = v0 ()
let v1 : ((string []) -> int32) = closure5()
let main args = v1 args
()
/ errors: [] / typeErrorCount: 0
00:00:06 debug #11 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 verbose #7 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:00:06 debug #8 async.run_with_timeout_async / timeout: 100
00:00:00 debug #1 persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: math / hash: / code.Length: 143298
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\math\math.fsproj
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime linux-x64",
[||], None, None, true, Some "C:\home\git\polyglot\target\Builder\math")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\Builder\math\math.fsproj (in 393 ms).
00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\math\math.fsproj]
00:00:14 verbose #6 > math -> C:\home\git\polyglot\target\Builder\math\bin\Release\net9.0\linux-x64\math.dll
00:00:16 verbose #7 > math -> C:\home\git\polyglot\lib\math\dist\
00:00:16 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 637
00:00:16 debug #9 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime win-x64",
[||], None, None, true, Some "C:\home\git\polyglot\target\Builder\math")
00:00:16 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:17 verbose #11 > Determining projects to restore...
00:00:17 verbose #12 > Restored C:\home\git\polyglot\target\Builder\math\math.fsproj (in 395 ms).
00:00:17 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\math\math.fsproj]
00:00:29 verbose #14 > math -> C:\home\git\polyglot\target\Builder\math\bin\Release\net9.0\win-x64\math.dll
00:00:33 verbose #15 > math -> C:\home\git\polyglot\lib\math\dist\
00:00:33 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 635
targetDir: C:\home\git\polyglot\target\Builder\math
Fable 4.17.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @psfblair
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing target\Builder\math\math.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (14 source files) parsed in 204ms
Started Fable compilation...
Fable compilation finished in 7519ms
.\lib\spiral\sm.fsx(581,0): (581,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\common.fsx(1343,0): (1343,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\common.fsx(1350,0): (1350,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\async_.fsx(112,0): (112,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\crypto.fsx(1624,0): (1624,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\threading.fsx(171,0): (171,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\date_time.fsx(1264,0): (1264,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\platform.fsx(108,0): (108,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\networking.fsx(3349,0): (3349,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\networking.fsx(3358,0): (3358,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\trace.fsx(1217,0): (1217,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\trace.fsx(1220,0): (1220,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\runtime.fsx(3267,0): (3267,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\runtime.fsx(3278,0): (3278,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\file_system.fsx(6280,0): (6280,67) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\lib\spiral\file_system.fsx(6321,0): (6321,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\target\Builder\math\math.fs(233,0): (235,3) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Compiling syn v2.0.66
Compiling wide v0.7.23
Compiling syn v1.0.109
Compiling simba v0.6.0
Compiling pyo3-macros-backend v0.21.2
Compiling nalgebra-macros v0.1.0
Compiling futures-macro v0.3.30
Compiling futures-util v0.3.30
Compiling pyo3-macros v0.21.2
Compiling pyo3 v0.21.2
Compiling nalgebra v0.29.0
Compiling futures-executor v0.3.30
Compiling futures v0.3.30
Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust)
Compiling statrs v0.16.1
Compiling math v0.0.1 (C:\home\git\polyglot\lib\math)
Finished `release` profile [optimized] target(s) in 51.77s
Running unittests math.rs (C:\home\git\polyglot\workspace\target\release\deps\math-ac663e91b99cee74.exe)
running 12 tests
test module_b7a9935b::Math::test_behavior_near_origin___ ... ok
test module_b7a9935b::Math::test_reflection_formula_for_specific_value ... ok
test module_b7a9935b::Math::test_zeta_at_1___ ... ok
test module_b7a9935b::Math::test_euler_product_formula ... ok
test module_b7a9935b::Math::test_trivial_zero_at_negative_even___ ... ok
test module_b7a9935b::Math::test_zeta_at_known_values_ ... ok
test module_b7a9935b::Math::test_zeta_at_2_minus2 ... ok
test module_b7a9935b::Math::test_imaginary_axis ... ok
test module_b7a9935b::Math::test_real_part_greater_than_one___ ... ok
test module_b7a9935b::Math::test_symmetry_across_real_axis___ ... ok
test module_b7a9935b::Math::test_non_trivial_zero___ ... ok
test module_b7a9935b::Math::test_critical_strip ... ok
test result: ok. 12 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.43s
In [ ]:
{ pwsh ../apps/plot/build.ps1 } | Invoke-Block
Compiling futures-util v0.3.30 Compiling futures-executor v0.3.30 Compiling futures v0.3.30 Compiling fable_library_rust v0.1.0 (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) Compiling plot v0.0.1 (C:\home\git\polyglot\apps\plot) Finished `release` profile [optimized] target(s) in 24.21s
In [ ]:
{ pwsh ../apps/perf/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Perf.dib --retries 3",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Perf.dib", "--retries", "3"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/perf/Perf.dib", "--output-path", "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/perf/Perf.dib" --output-path "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #10 > >
00:00:04 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #13 > > │ # Perf (Polyglot) │
00:00:04 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #15 > >
00:00:04 verbose #16 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #17 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:04 verbose #18 > > #!import ../../lib/fsharp/Testing.dib
00:00:04 verbose #19 > >
00:00:04 verbose #20 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #21 > > #r
00:00:04 verbose #22 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:04 verbose #23 > > spNetCore.Html.Abstractions.dll"
00:00:04 verbose #24 > > #r
00:00:04 verbose #25 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #26 > > otNet.Interactive.dll"
00:00:04 verbose #27 > > #r
00:00:04 verbose #28 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #29 > > otNet.Interactive.FSharp.dll"
00:00:04 verbose #30 > > #r
00:00:04 verbose #31 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #32 > > otNet.Interactive.Formatting.dll"
00:00:04 verbose #33 > > open System
00:00:04 verbose #34 > > open System.IO
00:00:04 verbose #35 > > open System.Text
00:00:04 verbose #36 > > open Microsoft.DotNet.Interactive.Formatting
00:00:08 verbose #37 > >
00:00:08 verbose #38 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #39 > > #r
00:00:08 verbose #40 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #41 > > otNet.Interactive.FSharp.dll"
00:00:08 verbose #42 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:08 verbose #43 > > #r
00:00:08 verbose #44 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #45 > > otNet.Interactive.dll"
00:00:08 verbose #46 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:08 verbose #47 > >
00:00:08 verbose #48 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #49 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:09 verbose #50 > >
00:00:09 verbose #51 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #52 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:09 verbose #53 > > TextWriter)->fprintfn writer "%120A" x)
00:00:09 verbose #54 > >
00:00:09 verbose #55 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #56 > > //// test
00:00:09 verbose #57 > >
00:00:09 verbose #58 > > Formatter.ListExpansionLimit <- 100
00:00:09 verbose #59 > >
00:00:09 verbose #60 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #61 > > #if FABLE_COMPILER
00:00:09 verbose #62 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:09 verbose #63 > > #endif
00:00:09 verbose #64 > > type std_env_VarError = class end
00:00:09 verbose #65 > > #if FABLE_COMPILER
00:00:09 verbose #66 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:09 verbose #67 > > #endif
00:00:09 verbose #68 > > type core_any_Any = class end
00:00:09 verbose #69 > > #if FABLE_COMPILER
00:00:09 verbose #70 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:09 verbose #71 > > #endif
00:00:09 verbose #72 > > type core_ops_Try<'T> = class end
00:00:09 verbose #73 > > #if FABLE_COMPILER
00:00:09 verbose #74 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:09 verbose #75 > > #endif
00:00:09 verbose #76 > > type Func0<'T> = class end
00:00:09 verbose #77 > > #if FABLE_COMPILER
00:00:09 verbose #78 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:09 verbose #79 > > #endif
00:00:09 verbose #80 > > type Func0<'T, 'U> = class end
00:00:09 verbose #81 > > #if FABLE_COMPILER
00:00:09 verbose #82 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:09 verbose #83 > > #endif
00:00:09 verbose #84 > > type Box<'T> = class end
00:00:09 verbose #85 > > #if FABLE_COMPILER
00:00:09 verbose #86 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:09 verbose #87 > > #endif
00:00:09 verbose #88 > > type Dyn<'T> = class end
00:00:09 verbose #89 > > #if FABLE_COMPILER
00:00:09 verbose #90 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:09 verbose #91 > > #endif
00:00:09 verbose #92 > > type Send<'T> = class end
00:00:09 verbose #93 > > #if FABLE_COMPILER
00:00:09 verbose #94 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:09 verbose #95 > > #endif
00:00:09 verbose #96 > > type Fn<'T> = class end
00:00:09 verbose #97 > > #if FABLE_COMPILER
00:00:09 verbose #98 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:09 verbose #99 > > #endif
00:00:09 verbose #100 > > type FnUnit = class end
00:00:09 verbose #101 > > #if FABLE_COMPILER
00:00:09 verbose #102 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:09 verbose #103 > > #endif
00:00:09 verbose #104 > > type FnOnce<'T> = class end
00:00:09 verbose #105 > > #if FABLE_COMPILER
00:00:09 verbose #106 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:09 verbose #107 > > #endif
00:00:09 verbose #108 > > type ActionFn<'T> = class end
00:00:09 verbose #109 > > #if FABLE_COMPILER
00:00:09 verbose #110 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:09 verbose #111 > > #endif
00:00:09 verbose #112 > > type ActionFn2<'T, 'U> = class end
00:00:09 verbose #113 > > #if FABLE_COMPILER
00:00:09 verbose #114 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:09 verbose #115 > > #endif
00:00:09 verbose #116 > > type Impl<'T> = class end
00:00:09 verbose #117 > > #if FABLE_COMPILER
00:00:09 verbose #118 > > [[<Fabl... _v5=None"
00:00:09 verbose #119 > > US5_1
00:00:09 verbose #120 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:09 verbose #121 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:09 verbose #122 > > let v4 : (US4 -> US5) = closure6()
00:00:09 verbose #123 > > let v5 : (exn -> US5) = closure7(v2)
00:00:09 verbose #124 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:09 verbose #125 > > match v6 with
00:00:09 verbose #126 > > | US5_1 -> (* None *)
00:00:09 verbose #127 > > let v8 : int32 = v2 + 1
00:00:09 verbose #128 > > method6(v0, v1, v8)
00:00:09 verbose #129 > > | US5_0(v7) -> (* Some *)
00:00:09 verbose #130 > > v7
00:00:09 verbose #131 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:09 verbose #132 > > let v2 : int32 = 0
00:00:09 verbose #133 > > let v3 : US4 = method6(v0, v1, v2)
00:00:09 verbose #134 > > match v3 with
00:00:09 verbose #135 > > | US4_1 -> (* None *)
00:00:09 verbose #136 > > let v5 : unit option = None
00:00:09 verbose #137 > > v5
00:00:09 verbose #138 > > | US4_0 -> (* Some *)
00:00:09 verbose #139 > > let v4 : unit option = Some ()
00:00:09 verbose #140 > > v4
00:00:09 verbose #141 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:09 verbose #142 > > closure4(v0)
00:00:09 verbose #143 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #144 > > v0
00:00:09 verbose #145 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:09 verbose #146 > > v0.Value
00:00:09 verbose #147 > > ()
00:00:09 verbose #148 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #149 > > let v1 : (unit -> unit) = method12(v0)
00:00:09 verbose #150 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:09 verbose #151 > > closure13(v2)
00:00:09 verbose #152 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:09 verbose #153 > > let v1 : US0 = US0_0
00:00:09 verbose #154 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:09 verbose #155 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:09 verbose #156 > > let new_disposable x = v2 x
00:00:09 verbose #157 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:09 verbose #158 > > let retry_fn x = v3 x
00:00:09 verbose #159 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:09 verbose #160 > > let memoize x = v4 x
00:00:09 verbose #161 > > ()
00:00:09 verbose #162 > >
00:00:10 verbose #163 > >
00:00:10 verbose #164 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #165 > > #if FABLE_COMPILER
00:00:10 verbose #166 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:10 verbose #167 > > #endif
00:00:10 verbose #168 > > type core_any_Any = class end
00:00:10 verbose #169 > > #if FABLE_COMPILER
00:00:10 verbose #170 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:10 verbose #171 > > #endif
00:00:10 verbose #172 > > type core_ops_Try<'T> = class end
00:00:10 verbose #173 > > #if FABLE_COMPILER
00:00:10 verbose #174 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:10 verbose #175 > > #endif
00:00:10 verbose #176 > > type Func0<'T> = class end
00:00:10 verbose #177 > > #if FABLE_COMPILER
00:00:10 verbose #178 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:10 verbose #179 > > #endif
00:00:10 verbose #180 > > type Func0<'T, 'U> = class end
00:00:10 verbose #181 > > #if FABLE_COMPILER
00:00:10 verbose #182 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:10 verbose #183 > > #endif
00:00:10 verbose #184 > > type Box<'T> = class end
00:00:10 verbose #185 > > #if FABLE_COMPILER
00:00:10 verbose #186 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:10 verbose #187 > > #endif
00:00:10 verbose #188 > > type Dyn<'T> = class end
00:00:10 verbose #189 > > #if FABLE_COMPILER
00:00:10 verbose #190 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:10 verbose #191 > > #endif
00:00:10 verbose #192 > > type Send<'T> = class end
00:00:10 verbose #193 > > #if FABLE_COMPILER
00:00:10 verbose #194 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:10 verbose #195 > > #endif
00:00:10 verbose #196 > > type Fn<'T> = class end
00:00:10 verbose #197 > > #if FABLE_COMPILER
00:00:10 verbose #198 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:10 verbose #199 > > #endif
00:00:10 verbose #200 > > type FnUnit = class end
00:00:10 verbose #201 > > #if FABLE_COMPILER
00:00:10 verbose #202 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:10 verbose #203 > > #endif
00:00:10 verbose #204 > > type FnOnce<'T> = class end
00:00:10 verbose #205 > > #if FABLE_COMPILER
00:00:10 verbose #206 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:10 verbose #207 > > #endif
00:00:10 verbose #208 > > type ActionFn<'T> = class end
00:00:10 verbose #209 > > #if FABLE_COMPILER
00:00:10 verbose #210 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:10 verbose #211 > > #endif
00:00:10 verbose #212 > > type ActionFn2<'T, 'U> = class end
00:00:10 verbose #213 > > #if FABLE_COMPILER
00:00:10 verbose #214 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:10 verbose #215 > > #endif
00:00:10 verbose #216 > > type Impl<'T> = class end
00:00:10 verbose #217 > > #if FABLE_COMPILER
00:00:10 verbose #218 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:10 verbose #219 > > #endif
00:00:10 verbose #220 > > type Mut<'T> = class end
00:00:10 verbose #221 > > #if FABLE_COMPILER
00:00:10 verbose #222 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:10 verbose #223 > > let replace x = v4 x
00:00:10 verbose #224 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:10 verbose #225 > > let replace_regex x = v5 x
00:00:10 verbose #226 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:10 verbose #227 > > let slice x = v6 x
00:00:10 verbose #228 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:10 verbose #229 > > let split x = v7 x
00:00:10 verbose #230 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:10 verbose #231 > > let split_string x = v8 x
00:00:10 verbose #232 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:10 verbose #233 > > let starts_with x = v9 x
00:00:10 verbose #234 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:10 verbose #235 > > let substring x = v10 x
00:00:10 verbose #236 > > let v11 : (string -> string) = closure28()
00:00:10 verbose #237 > > let to_lower x = v11 x
00:00:10 verbose #238 > > let v12 : (string -> string) = closure29()
00:00:10 verbose #239 > > let to_upper x = v12 x
00:00:10 verbose #240 > > let v13 : (string -> string) = closure30()
00:00:10 verbose #241 > > let trim x = v13 x
00:00:10 verbose #242 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:10 verbose #243 > > let trim_end x = v14 x
00:00:10 verbose #244 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:10 verbose #245 > > let trim_start x = v15 x
00:00:10 verbose #246 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:10 verbose #247 > > let ellipsis x = v16 x
00:00:10 verbose #248 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:10 verbose #249 > > let ellipsis_end x = v17 x
00:00:10 verbose #250 > > let v18 : (exn -> string) = closure39()
00:00:10 verbose #251 > > let format_exception x = v18 x
00:00:10 verbose #252 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:10 verbose #253 > > let concat_array_trailing x = v19 x
00:00:10 verbose #254 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:10 verbose #255 > > let concat x = v20 x
00:00:10 verbose #256 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:10 verbose #257 > > let join' x = v21 x
00:00:10 verbose #258 > > let v22 : (string -> (char [[]])) = closure46()
00:00:10 verbose #259 > > let to_char_array x = v22 x
00:00:10 verbose #260 > > ()
00:00:10 verbose #261 > >
00:00:11 verbose #262 > >
00:00:11 verbose #263 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #264 > > #if FABLE_COMPILER
00:00:11 verbose #265 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #266 > > #endif
00:00:11 verbose #267 > > type core_any_Any = class end
00:00:11 verbose #268 > > #if FABLE_COMPILER
00:00:11 verbose #269 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #270 > > #endif
00:00:11 verbose #271 > > type core_ops_Try<'T> = class end
00:00:11 verbose #272 > > #if FABLE_COMPILER
00:00:11 verbose #273 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #274 > > #endif
00:00:11 verbose #275 > > type Func0<'T> = class end
00:00:11 verbose #276 > > #if FABLE_COMPILER
00:00:11 verbose #277 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #278 > > #endif
00:00:11 verbose #279 > > type Func0<'T, 'U> = class end
00:00:11 verbose #280 > > #if FABLE_COMPILER
00:00:11 verbose #281 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #282 > > #endif
00:00:11 verbose #283 > > type Box<'T> = class end
00:00:11 verbose #284 > > #if FABLE_COMPILER
00:00:11 verbose #285 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #286 > > #endif
00:00:11 verbose #287 > > type Dyn<'T> = class end
00:00:11 verbose #288 > > #if FABLE_COMPILER
00:00:11 verbose #289 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #290 > > #endif
00:00:11 verbose #291 > > type Send<'T> = class end
00:00:11 verbose #292 > > #if FABLE_COMPILER
00:00:11 verbose #293 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #294 > > #endif
00:00:11 verbose #295 > > type Fn<'T> = class end
00:00:11 verbose #296 > > #if FABLE_COMPILER
00:00:11 verbose #297 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #298 > > #endif
00:00:11 verbose #299 > > type FnUnit = class end
00:00:11 verbose #300 > > #if FABLE_COMPILER
00:00:11 verbose #301 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #302 > > #endif
00:00:11 verbose #303 > > type FnOnce<'T> = class end
00:00:11 verbose #304 > > #if FABLE_COMPILER
00:00:11 verbose #305 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #306 > > #endif
00:00:11 verbose #307 > > type ActionFn<'T> = class end
00:00:11 verbose #308 > > #if FABLE_COMPILER
00:00:11 verbose #309 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #310 > > #endif
00:00:11 verbose #311 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #312 > > #if FABLE_COMPILER
00:00:11 verbose #313 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #314 > > #endif
00:00:11 verbose #315 > > type Impl<'T> = class end
00:00:11 verbose #316 > > #if FABLE_COMPILER
00:00:11 verbose #317 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #318 > > #endif
00:00:11 verbose #319 > > type Mut<'T> = class end
00:00:11 verbose #320 > > #if FABLE_COMPILER
00:00:11 verbose #321 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:11 verbose #322 > > ()
00:00:11 verbose #323 > > #endif
00:00:11 verbose #324 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #325 > > let v28 : string = @"println!(""{}"", $0)"
00:00:11 verbose #326 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:11 verbose #327 > > ()
00:00:11 verbose #328 > > #endif
00:00:11 verbose #329 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:11 verbose #330 > > System.Console.WriteLine v24
00:00:11 verbose #331 > > ()
00:00:11 verbose #332 > > #endif
00:00:11 verbose #333 > > #if FABLE_COMPILER_PYTHON
00:00:11 verbose #334 > > System.Console.WriteLine v24
00:00:11 verbose #335 > > ()
00:00:11 verbose #336 > > #endif
00:00:11 verbose #337 > > #else
00:00:11 verbose #338 > > System.Console.WriteLine v24
00:00:11 verbose #339 > > ()
00:00:11 verbose #340 > > #endif
00:00:11 verbose #341 > > |> fun x -> _v25 <- Some x
00:00:11 verbose #342 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:11 verbose #343 > > _v25=None"
00:00:11 verbose #344 > > let v29 : (string -> unit) = v8.l0
00:00:11 verbose #345 > > v29 v24
00:00:11 verbose #346 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:11 verbose #347 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:11 verbose #348 > > method11(v0, v3)
00:00:11 verbose #349 > > and closure1 () (v0 : string) : uint16 =
00:00:11 verbose #350 > > let v1 : char = v0.[[int 0]]
00:00:11 verbose #351 > > let v2 : (char -> int32) = int32
00:00:11 verbose #352 > > let v3 : int32 = v2 v1
00:00:11 verbose #353 > > let v4 : string = v0.[[int 0..int 7]]
00:00:11 verbose #354 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:11 verbose #355 > > let v6 : int32 = v5 + v3
00:00:11 verbose #356 > > let v7 : (int32 -> uint16) = uint16
00:00:11 verbose #357 > > let v8 : uint16 = v7 v6
00:00:11 verbose #358 > > let v9 : US0 = US0_0
00:00:11 verbose #359 > > let v10 : (unit -> string) = closure2()
00:00:11 verbose #360 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:11 verbose #361 > > method3(v9, v10, v11)
00:00:11 verbose #362 > > let v12 : uint16 = v8 % 48128us
00:00:11 verbose #363 > > let v13 : uint16 = v12 + 1024us
00:00:11 verbose #364 > > v13
00:00:11 verbose #365 > > let v0 : (string -> string) = closure0()
00:00:11 verbose #366 > > let hash_text x = v0 x
00:00:11 verbose #367 > > let v1 : (string -> uint16) = closure1()
00:00:11 verbose #368 > > let hash_to_port x = v1 x
00:00:11 verbose #369 > > ()
00:00:11 verbose #370 > >
00:00:11 verbose #371 > >
00:00:11 verbose #372 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #373 > > #if FABLE_COMPILER
00:00:11 verbose #374 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #375 > > #endif
00:00:11 verbose #376 > > type core_any_Any = class end
00:00:11 verbose #377 > > #if FABLE_COMPILER
00:00:11 verbose #378 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #379 > > #endif
00:00:11 verbose #380 > > type core_ops_Try<'T> = class end
00:00:11 verbose #381 > > #if FABLE_COMPILER
00:00:11 verbose #382 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #383 > > #endif
00:00:11 verbose #384 > > type Func0<'T> = class end
00:00:11 verbose #385 > > #if FABLE_COMPILER
00:00:11 verbose #386 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #387 > > #endif
00:00:11 verbose #388 > > type Func0<'T, 'U> = class end
00:00:11 verbose #389 > > #if FABLE_COMPILER
00:00:11 verbose #390 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #391 > > #endif
00:00:11 verbose #392 > > type Box<'T> = class end
00:00:11 verbose #393 > > #if FABLE_COMPILER
00:00:11 verbose #394 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #395 > > #endif
00:00:11 verbose #396 > > type Dyn<'T> = class end
00:00:11 verbose #397 > > #if FABLE_COMPILER
00:00:11 verbose #398 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #399 > > #endif
00:00:11 verbose #400 > > type Send<'T> = class end
00:00:11 verbose #401 > > #if FABLE_COMPILER
00:00:11 verbose #402 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #403 > > #endif
00:00:11 verbose #404 > > type Fn<'T> = class end
00:00:11 verbose #405 > > #if FABLE_COMPILER
00:00:11 verbose #406 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #407 > > #endif
00:00:11 verbose #408 > > type FnUnit = class end
00:00:11 verbose #409 > > #if FABLE_COMPILER
00:00:11 verbose #410 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #411 > > #endif
00:00:11 verbose #412 > > type FnOnce<'T> = class end
00:00:11 verbose #413 > > #if FABLE_COMPILER
00:00:11 verbose #414 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #415 > > #endif
00:00:11 verbose #416 > > type ActionFn<'T> = class end
00:00:11 verbose #417 > > #if FABLE_COMPILER
00:00:11 verbose #418 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #419 > > #endif
00:00:11 verbose #420 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #421 > > #if FABLE_COMPILER
00:00:11 verbose #422 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #423 > > #endif
00:00:11 verbose #424 > > type Impl<'T> = class end
00:00:11 verbose #425 > > #if FABLE_COMPILER
00:00:11 verbose #426 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #427 > > #endif
00:00:11 verbose #428 > > type Mut<'T> = class end
00:00:11 verbose #429 > > #if FABLE_COMPILER
00:00:11 verbose #430 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:11 verbose #431 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:11 verbose #432 > > let v2 : System.Guid = v1 ()
00:00:11 verbose #433 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:11 verbose #434 > > let v4 : string = v3 v2
00:00:11 verbose #435 > > let v5 : (int64 -> string) = _.ToString()
00:00:11 verbose #436 > > let v6 : string = v5 v0
00:00:11 verbose #437 > > let v7 : string = v6.PadLeft (18, '0')
00:00:11 verbose #438 > > let v8 : System.Guid = System.Guid
00:00:11 verbose #439 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:11 verbose #440 > > v8
00:00:11 verbose #441 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:11 verbose #442 > > let v2 : (string -> string) = v1.ToString
00:00:11 verbose #443 > > v2 v0
00:00:11 verbose #444 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:11 verbose #445 > > closure12(v0)
00:00:11 verbose #446 > > and closure13 () (v0 : System.DateTime) : string =
00:00:11 verbose #447 > > let v1 : (string -> string) = v0.ToString
00:00:11 verbose #448 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:11 verbose #449 > > v1 v2
00:00:11 verbose #450 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:11 verbose #451 > > let date_time_guid_from_date_time x = v0 x
00:00:11 verbose #452 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:11 verbose #453 > > let date_time_from_guid x = v1 x
00:00:11 verbose #454 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:11 verbose #455 > > let timestamp_guid_from_timestamp x = v2 x
00:00:11 verbose #456 > > let v3 : (System.Guid -> int64) = closure8()
00:00:11 verbose #457 > > let timestamp_from_guid x = v3 x
00:00:11 verbose #458 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:11 verbose #459 > > let new_guid_from_date_time x = v4 x
00:00:11 verbose #460 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:11 verbose #461 > > let new_guid_from_timestamp x = v5 x
00:00:11 verbose #462 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:11 verbose #463 > > let format x = v6 x
00:00:11 verbose #464 > > let v7 : (System.DateTime -> string) = closure13()
00:00:11 verbose #465 > > let format_iso8601 x = v7 x
00:00:11 verbose #466 > > ()
00:00:11 verbose #467 > >
00:00:12 verbose #468 > >
00:00:12 verbose #469 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #470 > > #if FABLE_COMPILER
00:00:12 verbose #471 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:12 verbose #472 > > #endif
00:00:12 verbose #473 > > type futures_future_JoinAll<'T> = class end
00:00:12 verbose #474 > > #if FABLE_COMPILER
00:00:12 verbose #475 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:12 verbose #476 > > #endif
00:00:12 verbose #477 > > type futures_future_TryJoinAll<'T> = class end
00:00:12 verbose #478 > > #if FABLE_COMPILER
00:00:12 verbose #479 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:12 verbose #480 > > #endif
00:00:12 verbose #481 > > type rayon_iter_Map<'T> = class end
00:00:12 verbose #482 > > #if FABLE_COMPILER
00:00:12 verbose #483 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:12 verbose #484 > > #endif
00:00:12 verbose #485 > > type rayon_vec_IntoIter<'T> = class end
00:00:12 verbose #486 > > #if FABLE_COMPILER
00:00:12 verbose #487 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:12 verbose #488 > > #endif
00:00:12 verbose #489 > > type std_future_Future<'T> = class end
00:00:12 verbose #490 > > #if FABLE_COMPILER
00:00:12 verbose #491 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:12 verbose #492 > > #endif
00:00:12 verbose #493 > > type futures_future_Fuse<'T> = class end
00:00:12 verbose #494 > > #if FABLE_COMPILER
00:00:12 verbose #495 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:12 verbose #496 > > #endif
00:00:12 verbose #497 > > type tokio_task_JoinHandle<'T> = class end
00:00:12 verbose #498 > > #if FABLE_COMPILER
00:00:12 verbose #499 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:12 verbose #500 > > #endif
00:00:12 verbose #501 > > type tokio_stream_StreamExt = class end
00:00:12 verbose #502 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:12 verbose #503 > > Async<System.Threading.CancellationToken> =
00:00:12 verbose #504 > > let v1 : bool = true
00:00:12 verbose #505 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #506 > >
00:00:12 verbose #507 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #508 > >
00:00:12 verbose #509 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:12 verbose #510 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:12 verbose #511 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:12 verbose #512 > > v12
00:00:12 verbose #513 > > #endif
00:00:12 verbose #514 > > #else
00:00:12 verbose #515 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #516 > > let mutable _v13 = v13
00:00:12 verbose #517 > > async {
00:00:12 verbose #518 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:12 verbose #519 > > Async.CancellationToken
00:00:12 verbose #520 > > let! v14 = v14
00:00:12 verbose #521 > > let v15 : System.Threading.CancellationToken = v14
00:00:12 verbose #522 > > let v16 : System.Threading.CancellationToken =
00:00:12 verbose #523 > > Async.DefaultCancellationToken
00:00:12 verbose #524 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:12 verbose #525 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:12 verbose #526 > > System.Threading.CancellationTokenSource) =
00:00:12 verbose #527 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:12 verbose #528 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:12 verbose #529 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:12 verbose #530 > > return v20
00:00:12 verbose #531 > > }
00:00:12 verbose #532 > > |> fun x -> _v13 <- Some x
00:00:12 verbose #533 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:12 verbose #534 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:12 verbose #535 > > v21
00:00:12 verbose #536 > > #endif
00:00:12 verbose #537 > > |> fun x -> _v7 <- Some x
00:00:12 verbose #538 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:12 verbose #539 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:12 verbose #540 > > v22
00:00:12 verbose #541 > > #endif
00:00:12 verbose #542 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #543 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:12 verbose #544 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:12 verbose #545 > > v23
00:00:12 verbose #546 > > let v0 : (System.Threading.CancellationToken ->
00:00:12 verbose #547 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:12 verbose #548 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:12 verbose #549 > > ()
00:00:12 verbose #550 > >
00:00:12 verbose #551 > >
00:00:12 verbose #552 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #553 > > #if FABLE_COMPILER
00:00:12 verbose #554 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:12 verbose #555 > > #endif
00:00:12 verbose #556 > > type std_thread_JoinHandle<'T> = class end
00:00:12 verbose #557 > > #if FABLE_COMPILER
00:00:12 verbose #558 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:12 verbose #559 > > #endif
00:00:12 verbose #560 > > type std_sync_Arc<'T> = class end
00:00:12 verbose #561 > > #if FABLE_COMPILER
00:00:12 verbose #562 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:12 verbose #563 > > #endif
00:00:12 verbose #564 > > type std_sync_Mutex<'T> = class end
00:00:12 verbose #565 > > #if FABLE_COMPILER
00:00:12 verbose #566 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:12 verbose #567 > > #endif
00:00:12 verbose #568 > > type std_sync_MutexGuard<'T> = class end
00:00:12 verbose #569 > > #if FABLE_COMPILER
00:00:12 verbose #570 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:12 verbose #571 > > #endif
00:00:12 verbose #572 > > type std_sync_PoisonError<'T> = class end
00:00:12 verbose #573 > > #if FABLE_COMPILER
00:00:12 verbose #574 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:12 verbose #575 > > #endif
00:00:12 verbose #576 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:12 verbose #577 > > #if FABLE_COMPILER
00:00:12 verbose #578 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:12 verbose #579 > > #endif
00:00:12 verbose #580 > > type std_sync_mpsc_SendError<'T> = class end
00:00:12 verbose #581 > > #if FABLE_COMPILER
00:00:12 verbose #582 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:12 verbose #583 > > #endif
00:00:12 verbose #584 > > type std_sync_mpsc_Sender<'T> = class end
00:00:12 verbose #585 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:12 verbose #586 > > _.Dispose () = f ()
00:00:12 verbose #587 > > type [[<Struct>]] US0 =
00:00:12 verbose #588 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:12 verbose #589 > > | US0_1
00:00:12 verbose #590 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:12 verbose #591 > > let v1 : bool = true
00:00:12 verbose #592 > > let mutable _v1 : unit option = None
00:00:12 verbose #593 > >
00:00:12 verbose #594 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #595 > >
00:00:12 verbose #596 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:12 verbose #597 > > "$0()" )
00:00:12 verbose #598 > > v28
00:00:12 verbose #599 > > #endif
00:00:12 verbose #600 > > #if FABLE_COMPILER_RUST && WASM
00:00:12 verbose #601 > > let v29 : (unit -> unit) = method0(v25)
00:00:12 verbose #602 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:12 verbose #603 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:12 verbose #604 > > v30
00:00:12 verbose #605 > > #endif
00:00:12 verbose #606 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:12 verbose #607 > > let v31 : (unit -> unit) = method0(v25)
00:00:12 verbose #608 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:12 verbose #609 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:12 verbose #610 > > v32
00:00:12 verbose #611 > > #endif
00:00:12 verbose #612 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:12 verbose #613 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:12 verbose #614 > > v33
00:00:12 verbose #615 > > #endif
00:00:12 verbose #616 > > #if FABLE_COMPILER_PYTHON
00:00:12 verbose #617 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:12 verbose #618 > > v34
00:00:12 verbose #619 > > #endif
00:00:12 verbose #620 > > #else
00:00:12 verbose #621 > > let v35 : (unit -> unit) = method1(v25)
00:00:12 verbose #622 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:12 verbose #623 > > _.Dispose () = v35 () }
00:00:12 verbose #624 > > v36
00:00:12 verbose #625 > > #endif
00:00:12 verbose #626 > > |> fun x -> _v26 <- Some x
00:00:12 verbose #627 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:12 verbose #628 > > failwith "base.run_target / _v26=None"
00:00:12 verbose #629 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:12 verbose #630 > > struct (v38, v37)
00:00:12 verbose #631 > > #endif
00:00:12 verbose #632 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #633 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:12 verbose #634 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:12 verbose #635 > > "base.run_target / _v1=None"
00:00:12 verbose #636 > > struct (v39, v40)
00:00:12 verbose #637 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:12 verbose #638 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:12 verbose #639 > > let new_disposable_token x = v0 x
00:00:12 verbose #640 > > ()
00:00:12 verbose #641 > >
00:00:12 verbose #642 > >
00:00:12 verbose #643 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #644 > > #if FABLE_COMPILER
00:00:12 verbose #645 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:12 verbose #646 > > #endif
00:00:12 verbose #647 > > type reqwest_Error = class end
00:00:12 verbose #648 > > #if FABLE_COMPILER
00:00:12 verbose #649 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:12 verbose #650 > > #endif
00:00:12 verbose #651 > > type reqwest_RequestBuilder = class end
00:00:12 verbose #652 > > #if FABLE_COMPILER
00:00:12 verbose #653 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:12 verbose #654 > > #endif
00:00:12 verbose #655 > > type reqwest_Response = class end
00:00:12 verbose #656 > > #if FABLE_COMPILER
00:00:12 verbose #657 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:12 verbose #658 > > #endif
00:00:12 verbose #659 > > type std_env_VarError = class end
00:00:12 verbose #660 > > #if FABLE_COMPILER
00:00:12 verbose #661 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #662 > > #endif
00:00:12 verbose #663 > > type core_any_Any = class end
00:00:12 verbose #664 > > #if FABLE_COMPILER
00:00:12 verbose #665 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #666 > > #endif
00:00:12 verbose #667 > > type core_ops_Try<'T> = class end
00:00:12 verbose #668 > > #if FABLE_COMPILER
00:00:12 verbose #669 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #670 > > #endif
00:00:12 verbose #671 > > type Func0<'T> = class end
00:00:12 verbose #672 > > #if FABLE_COMPILER
00:00:12 verbose #673 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #674 > > #endif
00:00:12 verbose #675 > > type Func0<'T, 'U> = class end
00:00:12 verbose #676 > > #if FABLE_COMPILER
00:00:12 verbose #677 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #678 > > #endif
00:00:12 verbose #679 > > type Box<'T> = class end
00:00:12 verbose #680 > > #if FABLE_COMPILER
00:00:12 verbose #681 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #682 > > #endif
00:00:12 verbose #683 > > type Dyn<'T> = class end
00:00:12 verbose #684 > > #if FABLE_COMPILER
00:00:12 verbose #685 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #686 > > #endif
00:00:12 verbose #687 > > type Send<'T> = class end
00:00:12 verbose #688 > > #if FABLE_COMPILER
00:00:12 verbose #689 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #690 > > #endif
00:00:12 verbose #691 > > type Fn<'T> = class end
00:00:12 verbose #692 > > #if FABLE_COMPILER
00:00:12 verbose #693 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #694 > > #endif
00:00:12 verbose #695 > > type FnUnit = class end
00:00:12 verbose #696 > > #if FABLE_COMPILER
00:00:12 verbose #697 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #698 > > ... v212 = v212
00:00:12 verbose #699 > > let v213 : bool = v212
00:00:12 verbose #700 > > let v214 : bool = v213 = false
00:00:12 verbose #701 > > if v214 then
00:00:12 verbose #702 > > return v2
00:00:12 verbose #703 > > (*
00:00:12 verbose #704 > > ()
00:00:12 verbose #705 > > else
00:00:12 verbose #706 > > *) else
00:00:12 verbose #707 > > let v215 : int32 = v2 + 1
00:00:12 verbose #708 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:12 verbose #709 > > return! v216
00:00:12 verbose #710 > > (*
00:00:12 verbose #711 > > ()
00:00:12 verbose #712 > > *)
00:00:12 verbose #713 > > }
00:00:12 verbose #714 > > |> fun x -> _v9 <- Some x
00:00:12 verbose #715 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:12 verbose #716 > > "async.new_async_unit / _v9=None"
00:00:12 verbose #717 > > v217
00:00:12 verbose #718 > > #endif
00:00:12 verbose #719 > > |> fun x -> _v3 <- Some x
00:00:12 verbose #720 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:12 verbose #721 > > "base.run_target / _v3=None"
00:00:12 verbose #722 > > v218
00:00:12 verbose #723 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:12 verbose #724 > > method10(v0, v1, v2)
00:00:12 verbose #725 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:12 verbose #726 > > closure23(v0, v1)
00:00:12 verbose #727 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:12 verbose #728 > > closure22(v0)
00:00:12 verbose #729 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:12 verbose #730 > > let v1 : US0 = US0_0
00:00:12 verbose #731 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:12 verbose #732 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:12 verbose #733 > > let test_port_open x = v2 x
00:00:12 verbose #734 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:12 verbose #735 > > let test_port_open_timeout x = v3 x
00:00:12 verbose #736 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:12 verbose #737 > > closure15()
00:00:12 verbose #738 > > let wait_for_port_access x = v4 x
00:00:12 verbose #739 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:12 verbose #740 > > let get_available_port x = v5 x
00:00:12 verbose #741 > > ()
00:00:12 verbose #742 > >
00:00:14 verbose #743 > >
00:00:14 verbose #744 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #745 > > type [[<Struct>]] US0 =
00:00:14 verbose #746 > > | US0_0
00:00:14 verbose #747 > > | US0_1
00:00:14 verbose #748 > > | US0_2
00:00:14 verbose #749 > > and [[<Struct>]] US1 =
00:00:14 verbose #750 > > | US1_0 of f0_0 : US0
00:00:14 verbose #751 > > | US1_1 of f1_0 : US0
00:00:14 verbose #752 > > | US1_2 of f2_0 : US0
00:00:14 verbose #753 > > | US1_3 of f3_0 : US0
00:00:14 verbose #754 > > | US1_4 of f4_0 : US0
00:00:14 verbose #755 > > let rec closure0 () () : bool =
00:00:14 verbose #756 > > let v0 : bool = true
00:00:14 verbose #757 > > let mutable _v0 : bool option = None
00:00:14 verbose #758 > >
00:00:14 verbose #759 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:14 verbose #760 > >
00:00:14 verbose #761 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:14 verbose #762 > > let v1 : string = "cfg!(windows)"
00:00:14 verbose #763 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:14 verbose #764 > > v2
00:00:14 verbose #765 > > #endif
00:00:14 verbose #766 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #767 > > let v3 : string = "cfg!(windows)"
00:00:14 verbose #768 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:14 verbose #769 > > v4
00:00:14 verbose #770 > > #endif
00:00:14 verbose #771 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #772 > > let v5 : string = "cfg!(windows)"
00:00:14 verbose #773 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:14 verbose #774 > > v6
00:00:14 verbose #775 > > #endif
00:00:14 verbose #776 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #777 > > let v7 : US0 = US0_0
00:00:14 verbose #778 > > let v8 : US1 = US1_3(v7)
00:00:14 verbose #779 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:14 verbose #780 > > let v10 : bool = failwith<bool> v9
00:00:14 verbose #781 > > v10
00:00:14 verbose #782 > > #endif
00:00:14 verbose #783 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #784 > > let v11 : US0 = US0_0
00:00:14 verbose #785 > > let v12 : US1 = US1_4(v11)
00:00:14 verbose #786 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:14 verbose #787 > > let v14 : bool = failwith<bool> v13
00:00:14 verbose #788 > > v14
00:00:14 verbose #789 > > #endif
00:00:14 verbose #790 > > #else
00:00:14 verbose #791 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:14 verbose #792 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:14 verbose #793 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:14 verbose #794 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:14 verbose #795 > > let v17 : b...: string = "cfg!(windows)"
00:00:14 verbose #796 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:14 verbose #797 > > v2
00:00:14 verbose #798 > > #endif
00:00:14 verbose #799 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #800 > > let v3 : string = "cfg!(windows)"
00:00:14 verbose #801 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:14 verbose #802 > > v4
00:00:14 verbose #803 > > #endif
00:00:14 verbose #804 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #805 > > let v5 : string = "cfg!(windows)"
00:00:14 verbose #806 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:14 verbose #807 > > v6
00:00:14 verbose #808 > > #endif
00:00:14 verbose #809 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #810 > > let v7 : US0 = US0_0
00:00:14 verbose #811 > > let v8 : US1 = US1_3(v7)
00:00:14 verbose #812 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:14 verbose #813 > > let v10 : bool = failwith<bool> v9
00:00:14 verbose #814 > > v10
00:00:14 verbose #815 > > #endif
00:00:14 verbose #816 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #817 > > let v11 : US0 = US0_0
00:00:14 verbose #818 > > let v12 : US1 = US1_4(v11)
00:00:14 verbose #819 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:14 verbose #820 > > let v14 : bool = failwith<bool> v13
00:00:14 verbose #821 > > v14
00:00:14 verbose #822 > > #endif
00:00:14 verbose #823 > > #else
00:00:14 verbose #824 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:14 verbose #825 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:14 verbose #826 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:14 verbose #827 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:14 verbose #828 > > let v17 : bool = v16 v15
00:00:14 verbose #829 > > v17
00:00:14 verbose #830 > > #endif
00:00:14 verbose #831 > > |> fun x -> _v0 <- Some x
00:00:14 verbose #832 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:14 verbose #833 > > "base.run_target / _v0=None"
00:00:14 verbose #834 > > if v18 then
00:00:14 verbose #835 > > let v19 : string = ".exe"
00:00:14 verbose #836 > > v19
00:00:14 verbose #837 > > else
00:00:14 verbose #838 > > let v20 : string = ""
00:00:14 verbose #839 > > v20
00:00:14 verbose #840 > > let v0 : (unit -> bool) = closure0()
00:00:14 verbose #841 > > let is_windows () = v0 ()
00:00:14 verbose #842 > > let v1 : (unit -> string) = closure1()
00:00:14 verbose #843 > > let get_executable_suffix () = v1 ()
00:00:14 verbose #844 > > ()
00:00:14 verbose #845 > >
00:00:14 verbose #846 > >
00:00:14 verbose #847 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #848 > > #if FABLE_COMPILER
00:00:14 verbose #849 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:14 verbose #850 > > #endif
00:00:14 verbose #851 > > type clap_Arg = class end
00:00:14 verbose #852 > > #if FABLE_COMPILER
00:00:14 verbose #853 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:14 verbose #854 > > #endif
00:00:14 verbose #855 > > type clap_ArgAction = class end
00:00:14 verbose #856 > > #if FABLE_COMPILER
00:00:14 verbose #857 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:14 verbose #858 > > #endif
00:00:14 verbose #859 > > type clap_Command = class end
00:00:14 verbose #860 > > #if FABLE_COMPILER
00:00:14 verbose #861 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:14 verbose #862 > > #endif
00:00:14 verbose #863 > > type clap_ArgMatches = class end
00:00:14 verbose #864 > > #if FABLE_COMPILER
00:00:14 verbose #865 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:14 verbose #866 > > #endif
00:00:14 verbose #867 > > type clap_builder_ValueRange = class end
00:00:14 verbose #868 > > #if FABLE_COMPILER
00:00:14 verbose #869 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:14 verbose #870 > > #endif
00:00:14 verbose #871 > > type clap_builder_ValueParser = class end
00:00:14 verbose #872 > > #if FABLE_COMPILER
00:00:14 verbose #873 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:14 verbose #874 > > #endif
00:00:14 verbose #875 > > type clap_builder_PossibleValue = class end
00:00:14 verbose #876 > > #if FABLE_COMPILER
00:00:14 verbose #877 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:14 verbose #878 > > #endif
00:00:14 verbose #879 > > type std_process_Child = class end
00:00:14 verbose #880 > > #if FABLE_COMPILER
00:00:14 verbose #881 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:14 verbose #882 > > #endif
00:00:14 verbose #883 > > type std_process_ChildStderr = class end
00:00:14 verbose #884 > > #if FABLE_COMPILER
00:00:14 verbose #885 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:14 verbose #886 > > #endif
00:00:14 verbose #887 > > type std_process_ChildStdout = class end
00:00:14 verbose #888 > > #if FABLE_COMPILER
00:00:14 verbose #889 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:14 verbose #890 > > #endif
00:00:14 verbose #891 > > type std_process_ChildStdin = class end
00:00:14 verbose #892 > > #if FABLE_COMPILER
00:00:14 verbose #893 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:14 verbose #894 > > #endif
00:00:14 verbose #895 > > type std_process_Command = class... with
00:00:14 verbose #896 > > | US14_1(v28) -> (* Error *)
00:00:14 verbose #897 > > US8_1(v28)
00:00:14 verbose #898 > > | US14_0(v26) -> (* Ok *)
00:00:14 verbose #899 > > US8_0(v26)
00:00:14 verbose #900 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:00:14 verbose #901 > > let v1 : US8 = method16(v0)
00:00:14 verbose #902 > > match v1 with
00:00:14 verbose #903 > > | US8_1(v4) -> (* Error *)
00:00:14 verbose #904 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:14 verbose #905 > > v5
00:00:14 verbose #906 > > | US8_0(v2) -> (* Ok *)
00:00:14 verbose #907 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:14 verbose #908 > > v3
00:00:14 verbose #909 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:14 verbose #910 > > let v1 : US0 = US0_0
00:00:14 verbose #911 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:14 verbose #912 > > let v2 : (unit -> unit) = closure2()
00:00:14 verbose #913 > > let current_process_kill () = v2 ()
00:00:14 verbose #914 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:00:14 verbose #915 > > let execute_async x = v3 x
00:00:14 verbose #916 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:14 verbose #917 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:14 verbose #918 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:14 verbose #919 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:00:14 verbose #920 > > let execute_with_options_async x = v4 x
00:00:14 verbose #921 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:14 verbose #922 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:14 verbose #923 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:14 verbose #924 > > unit) option * bool * string option)) = closure18()
00:00:14 verbose #925 > > let execution_options x = v5 x
00:00:14 verbose #926 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:00:14 verbose #927 > > let split_args x = v6 x
00:00:14 verbose #928 > > ()
00:00:14 verbose #929 > >
00:00:16 verbose #930 > >
00:00:16 verbose #931 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:16 verbose #932 > > #if FABLE_COMPILER
00:00:16 verbose #933 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:16 verbose #934 > > #endif
00:00:16 verbose #935 > > type std_fs_File = class end
00:00:16 verbose #936 > > #if FABLE_COMPILER
00:00:16 verbose #937 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:16 verbose #938 > > #endif
00:00:16 verbose #939 > > type std_fs_FileType = class end
00:00:16 verbose #940 > > #if FABLE_COMPILER
00:00:16 verbose #941 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:16 verbose #942 > > #endif
00:00:16 verbose #943 > > type std_path_Display = class end
00:00:16 verbose #944 > > #if FABLE_COMPILER
00:00:16 verbose #945 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:16 verbose #946 > > #endif
00:00:16 verbose #947 > > type std_path_Path = class end
00:00:16 verbose #948 > > #if FABLE_COMPILER
00:00:16 verbose #949 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:16 verbose #950 > > #endif
00:00:16 verbose #951 > > type std_path_PathBuf = class end
00:00:16 verbose #952 > > #if FABLE_COMPILER
00:00:16 verbose #953 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:16 verbose #954 > > #endif
00:00:16 verbose #955 > > type async_walkdir_DirEntry = class end
00:00:16 verbose #956 > > #if FABLE_COMPILER
00:00:16 verbose #957 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:16 verbose #958 > > #endif
00:00:16 verbose #959 > > type async_walkdir_Filtering = class end
00:00:16 verbose #960 > > #if FABLE_COMPILER
00:00:16 verbose #961 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:16 verbose #962 > > #endif
00:00:16 verbose #963 > > type async_walkdir_WalkDir = class end
00:00:16 verbose #964 > > #if FABLE_COMPILER
00:00:16 verbose #965 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:16 verbose #966 > > #endif
00:00:16 verbose #967 > > type core_any_Any = class end
00:00:16 verbose #968 > > #if FABLE_COMPILER
00:00:16 verbose #969 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:16 verbose #970 > > #endif
00:00:16 verbose #971 > > type core_ops_Try<'T> = class end
00:00:16 verbose #972 > > #if FABLE_COMPILER
00:00:16 verbose #973 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:16 verbose #974 > > #endif
00:00:16 verbose #975 > > type Func0<'T> = class end
00:00:16 verbose #976 > > #if FABLE_COMPILER
00:00:16 verbose #977 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:16 verbose #978 > > #endif
00:00:16 verbose #979 > > type Func0<'T, 'U> = class end
00:00:16 verbose #980 > > #if FABLE_COMPILER
00:00:16 verbose #981 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:16 verbose #982 > > #endif
00:00:16 verbose #983 > > type Box<'T> = cla...4>) = closure12()
00:00:16 verbose #984 > > let wait_for_file_access_read x = v4 x
00:00:16 verbose #985 > > let v5 : (string -> Async<string>) = closure13()
00:00:16 verbose #986 > > let read_all_text_async x = v5 x
00:00:16 verbose #987 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:00:16 verbose #988 > > let file_exists_content x = v6 x
00:00:16 verbose #989 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:16 verbose #990 > > let write_all_text_async x = v7 x
00:00:16 verbose #991 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:16 verbose #992 > > let write_all_text_exists x = v8 x
00:00:16 verbose #993 > > let v9 : (string -> Async<int64>) = closure20()
00:00:16 verbose #994 > > let delete_file_async x = v9 x
00:00:16 verbose #995 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:16 verbose #996 > > let move_file_async x = v10 x
00:00:16 verbose #997 > > let v11 : (string -> Async<string option>) = closure27()
00:00:16 verbose #998 > > let read_all_text_retry_async x = v11 x
00:00:16 verbose #999 > > let v12 : (unit -> string) = closure35()
00:00:16 verbose #1000 > > let create_temp_path () = v12 ()
00:00:16 verbose #1001 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:16 verbose #1002 > > let create_temp_dir () = v13 ()
00:00:16 verbose #1003 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:16 verbose #1004 > > let create_temp_dir' x = v14 x
00:00:16 verbose #1005 > > let v15 : (unit -> string) = closure49()
00:00:16 verbose #1006 > > let get_source_directory () = v15 ()
00:00:16 verbose #1007 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:00:16 verbose #1008 > > let find_parent x = v16 x
00:00:16 verbose #1009 > > let v17 : (string -> string) = closure56()
00:00:16 verbose #1010 > > let normalize_path x = v17 x
00:00:16 verbose #1011 > > let v18 : (string -> string) = closure57()
00:00:16 verbose #1012 > > let new_file_uri x = v18 x
00:00:16 verbose #1013 > > let v19 : (unit -> string) = closure58()
00:00:16 verbose #1014 > > let get_workspace_root () = v19 ()
00:00:16 verbose #1015 > > let v20 : (bool -> unit) = closure59()
00:00:16 verbose #1016 > > let init_trace_file x = v20 x
00:00:16 verbose #1017 > > let v21 : (string -> (string -> string)) = closure61()
00:00:16 verbose #1018 > > let (</>) x = v21 x
00:00:16 verbose #1019 > > ()
00:00:16 verbose #1020 > >
00:00:19 verbose #1021 > >
00:00:19 verbose #1022 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:19 verbose #1023 > > #if FABLE_COMPILER
00:00:19 verbose #1024 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:19 verbose #1025 > > #endif
00:00:19 verbose #1026 > > type core_any_Any = class end
00:00:19 verbose #1027 > > #if FABLE_COMPILER
00:00:19 verbose #1028 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:19 verbose #1029 > > #endif
00:00:19 verbose #1030 > > type core_ops_Try<'T> = class end
00:00:19 verbose #1031 > > #if FABLE_COMPILER
00:00:19 verbose #1032 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:19 verbose #1033 > > #endif
00:00:19 verbose #1034 > > type Func0<'T> = class end
00:00:19 verbose #1035 > > #if FABLE_COMPILER
00:00:19 verbose #1036 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:19 verbose #1037 > > #endif
00:00:19 verbose #1038 > > type Func0<'T, 'U> = class end
00:00:19 verbose #1039 > > #if FABLE_COMPILER
00:00:19 verbose #1040 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:19 verbose #1041 > > #endif
00:00:19 verbose #1042 > > type Box<'T> = class end
00:00:19 verbose #1043 > > #if FABLE_COMPILER
00:00:19 verbose #1044 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:19 verbose #1045 > > #endif
00:00:19 verbose #1046 > > type Dyn<'T> = class end
00:00:19 verbose #1047 > > #if FABLE_COMPILER
00:00:19 verbose #1048 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:19 verbose #1049 > > #endif
00:00:19 verbose #1050 > > type Send<'T> = class end
00:00:19 verbose #1051 > > #if FABLE_COMPILER
00:00:19 verbose #1052 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:19 verbose #1053 > > #endif
00:00:19 verbose #1054 > > type Fn<'T> = class end
00:00:19 verbose #1055 > > #if FABLE_COMPILER
00:00:19 verbose #1056 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:19 verbose #1057 > > #endif
00:00:19 verbose #1058 > > type FnUnit = class end
00:00:19 verbose #1059 > > #if FABLE_COMPILER
00:00:19 verbose #1060 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:19 verbose #1061 > > #endif
00:00:19 verbose #1062 > > type FnOnce<'T> = class end
00:00:19 verbose #1063 > > #if FABLE_COMPILER
00:00:19 verbose #1064 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:19 verbose #1065 > > #endif
00:00:19 verbose #1066 > > type ActionFn<'T> = class end
00:00:19 verbose #1067 > > #if FABLE_COMPILER
00:00:19 verbose #1068 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:19 verbose #1069 > > #endif
00:00:19 verbose #1070 > > type ActionFn2<'T, 'U> = class end
00:00:19 verbose #1071 > > #if FABLE_COMPILER
00:00:19 verbose #1072 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:19 verbose #1073 > > #endif
00:00:19 verbose #1074 > > type Impl<'T> = class end
00:00:19 verbose #1075 > > #if FABLE_COMPILER
00:00:19 verbose #1076 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:19 verbose #1077 > > #endif
00:00:19 verbose #1078 > > type Mut<'T> = class end
00:00:19 verbose #1079 > > #if FABLE_COMPILER
00:00:19 verbose #1080 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:19 verbose #1081 > > #if FABLE_COMPILER_RUST && WASM
00:00:19 verbose #1082 > > let v27 : string = @"println!(""{}"", $0)"
00:00:19 verbose #1083 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:19 verbose #1084 > > ()
00:00:19 verbose #1085 > > #endif
00:00:19 verbose #1086 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:19 verbose #1087 > > let v28 : string = @"println!(""{}"", $0)"
00:00:19 verbose #1088 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:19 verbose #1089 > > ()
00:00:19 verbose #1090 > > #endif
00:00:19 verbose #1091 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:19 verbose #1092 > > System.Console.WriteLine v24
00:00:19 verbose #1093 > > ()
00:00:19 verbose #1094 > > #endif
00:00:19 verbose #1095 > > #if FABLE_COMPILER_PYTHON
00:00:19 verbose #1096 > > System.Console.WriteLine v24
00:00:19 verbose #1097 > > ()
00:00:19 verbose #1098 > > #endif
00:00:19 verbose #1099 > > #else
00:00:19 verbose #1100 > > System.Console.WriteLine v24
00:00:19 verbose #1101 > > ()
00:00:19 verbose #1102 > > #endif
00:00:19 verbose #1103 > > |> fun x -> _v25 <- Some x
00:00:19 verbose #1104 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:19 verbose #1105 > > _v25=None"
00:00:19 verbose #1106 > > let v29 : (string -> unit) = v8.l0
00:00:19 verbose #1107 > > v29 v24
00:00:19 verbose #1108 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:19 verbose #1109 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:19 verbose #1110 > > method8(v0, v3)
00:00:19 verbose #1111 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:19 verbose #1112 > > method4(v0, v1, v2)
00:00:19 verbose #1113 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:19 verbose #1114 > > closure4(v0, v1)
00:00:19 verbose #1115 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:19 verbose #1116 > > closure3(v0)
00:00:19 verbose #1117 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:19 verbose #1118 > > let v1 : US0 = US0_0
00:00:19 verbose #1119 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:19 verbose #1120 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:19 verbose #1121 > > let trace x = v2 x
00:00:19 verbose #1122 > > ()
00:00:19 verbose #1123 > >
00:00:20 verbose #1124 > >
00:00:20 verbose #1125 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1126 > > module SpiralTrace =
00:00:20 verbose #1127 > > let trace x =
00:00:20 verbose #1128 > > #if !INTERACTIVE
00:00:20 verbose #1129 > > Trace.trace x
00:00:20 verbose #1130 > > #else
00:00:20 verbose #1131 > > trace x
00:00:20 verbose #1132 > > #endif
00:00:20 verbose #1133 > >
00:00:20 verbose #1134 > > type TraceLevel =
00:00:20 verbose #1135 > > #if !INTERACTIVE
00:00:20 verbose #1136 > > Trace.US0
00:00:20 verbose #1137 > > #else
00:00:20 verbose #1138 > > US0
00:00:20 verbose #1139 > > #endif
00:00:20 verbose #1140 > >
00:00:20 verbose #1141 > > module SpiralCrypto =
00:00:20 verbose #1142 > > let hash_text x =
00:00:20 verbose #1143 > > #if !INTERACTIVE
00:00:20 verbose #1144 > > Crypto.hash_text x
00:00:20 verbose #1145 > > #else
00:00:20 verbose #1146 > > hash_text x
00:00:20 verbose #1147 > > #endif
00:00:20 verbose #1148 > >
00:00:20 verbose #1149 > > let hash_to_port x =
00:00:20 verbose #1150 > > #if !INTERACTIVE
00:00:20 verbose #1151 > > Crypto.hash_to_port x
00:00:20 verbose #1152 > > #else
00:00:20 verbose #1153 > > hash_to_port x
00:00:20 verbose #1154 > > #endif
00:00:20 verbose #1155 > >
00:00:20 verbose #1156 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:20 verbose #1157 > >
00:00:20 verbose #1158 > > module SpiralAsync =
00:00:20 verbose #1159 > > let merge_cancellation_token_with_default_async x =
00:00:20 verbose #1160 > > #if !INTERACTIVE
00:00:20 verbose #1161 > > Async_.merge_cancellation_token_with_default_async x
00:00:20 verbose #1162 > > #else
00:00:20 verbose #1163 > > merge_cancellation_token_with_default_async x
00:00:20 verbose #1164 > > #endif
00:00:20 verbose #1165 > >
00:00:20 verbose #1166 > > module SpiralThreading =
00:00:20 verbose #1167 > > let new_disposable_token x =
00:00:20 verbose #1168 > > #if !INTERACTIVE
00:00:20 verbose #1169 > > Threading.new_disposable_token x
00:00:20 verbose #1170 > > #else
00:00:20 verbose #1171 > > new_disposable_token x
00:00:20 verbose #1172 > > #endif
00:00:20 verbose #1173 > >
00:00:20 verbose #1174 > > module SpiralNetworking =
00:00:20 verbose #1175 > > let test_port_open x =
00:00:20 verbose #1176 > > #if !INTERACTIVE
00:00:20 verbose #1177 > > Networking.test_port_open x
00:00:20 verbose #1178 > > #else
00:00:20 verbose #1179 > > test_port_open x
00:00:20 verbose #1180 > > #endif
00:00:20 verbose #1181 > >
00:00:20 verbose #1182 > > let test_port_open_timeout x =
00:00:20 verbose #1183 > > #if !INTERACTIVE
00:00:20 verbose #1184 > > Networking.test_port_open_timeout x
00:00:20 verbose #1185 > > #else
00:00:20 verbose #1186 > > test_port_open_timeout x
00:00:20 verbose #1187 > > #endif
00:00:20 verbose #1188 > >
00:00:20 verbose #1189 > > let wait_for_port_access x =
00:00:20 verbose #1190 > > #if !INTERACTIVE
00:00:20 verbose #1191 > > Networking.wait_for_port_access x
00:00:20 verbose #1192 > > #else
00:00:20 verbose #1193 > > wait_for_port_access x
00:00:20 verbose #1194 > > #endif
00:00:20 verbose #1195 > >
00:00:20 verbose #1196 > > let get_available_port x =
00:00:20 verbose #1197 > > #if !INTERACTIVE
00:00:20 verbose #1198 > > Networking.get_available_port x
00:00:20 verbose #1199 > > #else
00:00:20 verbose #1200 > > get_available_port x
00:00:20 verbose #1201 > > #endif
00:00:20 verbose #1202 > >
00:00:20 verbose #1203 > > module SpiralPlatform =
00:00:20 verbose #1204 > > let get_executable_suffix () =
00:00:20 verbose #1205 > > #if !INTERACTIVE
00:00:20 verbose #1206 > > Platform.g...e.trace_state
00:00:20 verbose #1207 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1208 > > level.l0 <-
00:00:20 verbose #1209 > > match new_level with
00:00:20 verbose #1210 > > | Trace.US0_0 -> File_system.US0_0
00:00:20 verbose #1211 > > | Trace.US0_1 -> File_system.US0_1
00:00:20 verbose #1212 > > | Trace.US0_2 -> File_system.US0_2
00:00:20 verbose #1213 > > | Trace.US0_3 -> File_system.US0_3
00:00:20 verbose #1214 > > | Trace.US0_4 -> File_system.US0_4
00:00:20 verbose #1215 > > )
00:00:20 verbose #1216 > >
00:00:20 verbose #1217 > > Runtime.State.trace_state
00:00:20 verbose #1218 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1219 > > level.l0 <-
00:00:20 verbose #1220 > > match new_level with
00:00:20 verbose #1221 > > | Trace.US0_0 -> Runtime.US0_0
00:00:20 verbose #1222 > > | Trace.US0_1 -> Runtime.US0_1
00:00:20 verbose #1223 > > | Trace.US0_2 -> Runtime.US0_2
00:00:20 verbose #1224 > > | Trace.US0_3 -> Runtime.US0_3
00:00:20 verbose #1225 > > | Trace.US0_4 -> Runtime.US0_4
00:00:20 verbose #1226 > > )
00:00:20 verbose #1227 > >
00:00:20 verbose #1228 > > Common.State.trace_state
00:00:20 verbose #1229 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1230 > > level.l0 <-
00:00:20 verbose #1231 > > match new_level with
00:00:20 verbose #1232 > > | Trace.US0_0 -> Common.US0_0
00:00:20 verbose #1233 > > | Trace.US0_1 -> Common.US0_1
00:00:20 verbose #1234 > > | Trace.US0_2 -> Common.US0_2
00:00:20 verbose #1235 > > | Trace.US0_3 -> Common.US0_3
00:00:20 verbose #1236 > > | Trace.US0_4 -> Common.US0_4
00:00:20 verbose #1237 > > )
00:00:20 verbose #1238 > >
00:00:20 verbose #1239 > > Trace.State.trace_state
00:00:20 verbose #1240 > > #else
00:00:20 verbose #1241 > > State.trace_state
00:00:20 verbose #1242 > > #endif
00:00:20 verbose #1243 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:20 verbose #1244 > > level.l0 <- new_level
00:00:20 verbose #1245 > > )
00:00:20 verbose #1246 > >
00:00:20 verbose #1247 > > let get_trace_level () =
00:00:20 verbose #1248 > > #if !INTERACTIVE
00:00:20 verbose #1249 > > Trace.State.trace_state
00:00:20 verbose #1250 > > #else
00:00:20 verbose #1251 > > State.trace_state
00:00:20 verbose #1252 > > #endif
00:00:20 verbose #1253 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1254 > > level.l0
00:00:20 verbose #1255 > > )
00:00:20 verbose #1256 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:20 verbose #1257 > > trace_state=None")
00:00:20 verbose #1258 > >
00:00:20 verbose #1259 > >
00:00:20 verbose #1260 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1261 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:20 verbose #1262 > >
00:00:20 verbose #1263 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1264 > > //// test
00:00:20 verbose #1265 > >
00:00:20 verbose #1266 > > type AssertExceptionFormatter (ex) =
00:00:20 verbose #1267 > > member _.Text =
00:00:20 verbose #1268 > > ex.ToString()
00:00:20 verbose #1269 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:20 verbose #1270 > > .Replace("36m", "</span>")
00:00:20 verbose #1271 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:20 verbose #1272 > > .Replace("\n", "<br/>\n")
00:00:20 verbose #1273 > >
00:00:20 verbose #1274 > >
00:00:20 verbose #1275 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:20 verbose #1276 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:20 verbose #1277 > >
00:00:20 verbose #1278 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1279 > > //// test
00:00:20 verbose #1280 > >
00:00:20 verbose #1281 > > let inline __expect fn log expected actual =
00:00:20 verbose #1282 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:20 verbose #1283 > > try
00:00:20 verbose #1284 > > "Testing.__expect" |> fn actual expected
00:00:20 verbose #1285 > > with :? Expecto.AssertException as ex ->
00:00:20 verbose #1286 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:20 verbose #1287 > > failwith (ex.GetType().FullName)
00:00:20 verbose #1288 > >
00:00:20 verbose #1289 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:20 verbose #1290 > > expected actual
00:00:20 verbose #1291 > > let inline _contains expected actual = __contains true expected actual
00:00:20 verbose #1292 > >
00:00:20 verbose #1293 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:20 verbose #1294 > > expected actual
00:00:20 verbose #1295 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:20 verbose #1296 > >
00:00:20 verbose #1297 > > let inline __isGreaterThan log expected actual = __expect
00:00:20 verbose #1298 > > Expecto.Expect.isGreaterThan log expected actual
00:00:20 verbose #1299 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:20 verbose #1300 > >
00:00:20 verbose #1301 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:20 verbose #1302 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:20 verbose #1303 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:20 verbose #1304 > > expected actual
00:00:20 verbose #1305 > >
00:00:20 verbose #1306 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:20 verbose #1307 > > log expected actual
00:00:20 verbose #1308 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:20 verbose #1309 > >
00:00:20 verbose #1310 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:20 verbose #1311 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:20 verbose #1312 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:20 verbose #1313 > > expected actual
00:00:20 verbose #1314 > >
00:00:20 verbose #1315 > > let inline __sequenceEqual log expected actual = __expect
00:00:20 verbose #1316 > > Expecto.Expect.sequenceEqual log expected actual
00:00:20 verbose #1317 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:20 verbose #1318 > >
00:00:20 verbose #1319 > > let inline __stringContains log expected actual = __expect
00:00:20 verbose #1320 > > Expecto.Expect.stringContains log expected actual
00:00:20 verbose #1321 > > let inline _stringContains expected actual = __stringContains true expected
00:00:20 verbose #1322 > > actual
00:00:20 verbose #1323 > >
00:00:20 verbose #1324 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:20 verbose #1325 > > log expected actual
00:00:20 verbose #1326 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:20 verbose #1327 > >
00:00:20 verbose #1328 > > let inline __stringStarts log expected actual = __expect
00:00:20 verbose #1329 > > Expecto.Expect.stringStarts log expected actual
00:00:20 verbose #1330 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:20 verbose #1331 > >
00:00:20 verbose #1332 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:20 verbose #1333 > > expected actual
00:00:20 verbose #1334 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:20 verbose #1335 > >
00:00:20 verbose #1336 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1337 > > //// test
00:00:20 verbose #1338 > >
00:00:20 verbose #1339 > > let inline __isBetween log a b actual =
00:00:20 verbose #1340 > > let inline isBetween actual (a, b) _ =
00:00:20 verbose #1341 > > __isGreaterThanOrEqual log a actual
00:00:20 verbose #1342 > > __isLessThanOrEqual log b actual
00:00:20 verbose #1343 > > __expect isBetween log (a, b) actual
00:00:20 verbose #1344 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:20 verbose #1345 > >
00:00:20 verbose #1346 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:20 verbose #1347 > > //// test
00:00:20 verbose #1348 > >
00:00:20 verbose #1349 > > open testing
00:00:20 verbose #1350 > > open benchmark
00:00:20 verbose #1351 > >
00:00:20 verbose #1352 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1353 > > #r
00:00:20 verbose #1354 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:20 verbose #1355 > > otNet.Interactive.Spiral.dll"
00:00:20 verbose #1356 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:20 verbose #1357 > > #r
00:00:20 verbose #1358 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:20 verbose #1359 > > otNet.Interactive.dll"
00:00:20 verbose #1360 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:22 verbose #1361 > >
00:00:22 verbose #1362 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1363 > > #if !INTERACTIVE
00:00:22 verbose #1364 > > open Lib
00:00:22 verbose #1365 > > #endif
00:00:22 verbose #1366 > >
00:00:22 verbose #1367 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1368 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1369 > > │ ## TestCaseResult │
00:00:22 verbose #1370 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1371 > >
00:00:22 verbose #1372 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1373 > > type TestCaseResult =
00:00:22 verbose #1374 > > {
00:00:22 verbose #1375 > > Input: string
00:00:22 verbose #1376 > > Expected: string
00:00:22 verbose #1377 > > Result: string
00:00:22 verbose #1378 > > TimeList: int64 list
00:00:22 verbose #1379 > > }
00:00:22 verbose #1380 > >
00:00:22 verbose #1381 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1382 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1383 > > │ ## run │
00:00:22 verbose #1384 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1385 > >
00:00:22 verbose #1386 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1387 > > let run count (solutions: (string * ('TInput -> 'TExpected)) list) (input,
00:00:22 verbose #1388 > > expected) =
00:00:22 verbose #1389 > > let inputStr =
00:00:22 verbose #1390 > > match box input with
00:00:22 verbose #1391 > > | :? System.Collections.ICollection as input ->
00:00:22 verbose #1392 > > System.Linq.Enumerable.Cast<obj> input
00:00:22 verbose #1393 > > |> Seq.map string
00:00:22 verbose #1394 > > |> SpiralSm.concat ","
00:00:22 verbose #1395 > > | _ -> input.ToString ()
00:00:22 verbose #1396 > >
00:00:22 verbose #1397 > > printfn ""
00:00:22 verbose #1398 > > printfn $"Solution: {inputStr} "
00:00:22 verbose #1399 > >
00:00:22 verbose #1400 > > let performanceInvoke (fn: unit -> 'T) =
00:00:22 verbose #1401 > > GC.Collect ()
00:00:22 verbose #1402 > > let stopwatch = System.Diagnostics.Stopwatch ()
00:00:22 verbose #1403 > > stopwatch.Start ()
00:00:22 verbose #1404 > > let time1 = stopwatch.ElapsedMilliseconds
00:00:22 verbose #1405 > >
00:00:22 verbose #1406 > > let result =
00:00:22 verbose #1407 > > [[| 0 .. count |]]
00:00:22 verbose #1408 > > |> Array.Parallel.map (fun _ ->
00:00:22 verbose #1409 > > fn ()
00:00:22 verbose #1410 > > )
00:00:22 verbose #1411 > > |> Array.last
00:00:22 verbose #1412 > >
00:00:22 verbose #1413 > > let time2 = stopwatch.ElapsedMilliseconds - time1
00:00:22 verbose #1414 > >
00:00:22 verbose #1415 > > result, time2
00:00:22 verbose #1416 > >
00:00:22 verbose #1417 > > let resultsWithTime =
00:00:22 verbose #1418 > > solutions
00:00:22 verbose #1419 > > |> List.mapi (fun i (testName, solution) ->
00:00:22 verbose #1420 > > let result, time = performanceInvoke (fun () -> solution input)
00:00:22 verbose #1421 > > printfn $"Test case %d{i + 1}. %s{testName}. Time: %A{time} "
00:00:22 verbose #1422 > > result, time
00:00:22 verbose #1423 > > )
00:00:22 verbose #1424 > >
00:00:22 verbose #1425 > >
00:00:22 verbose #1426 > > match resultsWithTime |> List.map fst with
00:00:22 verbose #1427 > > | ([[]] | [[ _ ]]) -> ()
00:00:22 verbose #1428 > > | (head :: tail) when tail |> List.forall ((=) head) -> ()
00:00:22 verbose #1429 > > | results -> failwithf $"Challenge error: %A{results}"
00:00:22 verbose #1430 > >
00:00:22 verbose #1431 > > {
00:00:22 verbose #1432 > > Input = inputStr
00:00:22 verbose #1433 > > Expected = expected.ToString ()
00:00:22 verbose #1434 > > Result = resultsWithTime |> Seq.map fst |> Seq.head |> _.ToString()
00:00:22 verbose #1435 > > TimeList = resultsWithTime |> List.map snd
00:00:22 verbose #1436 > > }
00:00:22 verbose #1437 > >
00:00:22 verbose #1438 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1439 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1440 > > │ ## runAll │
00:00:22 verbose #1441 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1442 > >
00:00:22 verbose #1443 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1444 > > let runAll testName count (solutions: (string * ('TInput -> 'TExpected)) list)
00:00:22 verbose #1445 > > testCases =
00:00:22 verbose #1446 > > printfn ""
00:00:22 verbose #1447 > > printfn ""
00:00:22 verbose #1448 > > printfn $"Test: {testName}"
00:00:22 verbose #1449 > > testCases
00:00:22 verbose #1450 > > |> Seq.map (run count solutions)
00:00:22 verbose #1451 > > |> Seq.toList
00:00:22 verbose #1452 > >
00:00:22 verbose #1453 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1454 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1455 > > │ ## sortResultList │
00:00:22 verbose #1456 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1457 > >
00:00:22 verbose #1458 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1459 > > let sortResultList resultList =
00:00:22 verbose #1460 > > let table =
00:00:22 verbose #1461 > > let rows =
00:00:22 verbose #1462 > > resultList
00:00:22 verbose #1463 > > |> List.map (fun result ->
00:00:22 verbose #1464 > > let best =
00:00:22 verbose #1465 > > result.TimeList
00:00:22 verbose #1466 > > |> List.mapi (fun i time ->
00:00:22 verbose #1467 > > i + 1, time
00:00:22 verbose #1468 > > )
00:00:22 verbose #1469 > > |> List.sortBy snd
00:00:22 verbose #1470 > > |> List.head
00:00:22 verbose #1471 > > |> _.ToString()
00:00:22 verbose #1472 > > let row =
00:00:22 verbose #1473 > > [[
00:00:22 verbose #1474 > > result.Input
00:00:22 verbose #1475 > > result.Expected
00:00:22 verbose #1476 > > result.Result
00:00:22 verbose #1477 > > best
00:00:22 verbose #1478 > > ]]
00:00:22 verbose #1479 > > let color =
00:00:22 verbose #1480 > > match result.Expected = result.Result with
00:00:22 verbose #1481 > > | true -> Some ConsoleColor.DarkGreen
00:00:22 verbose #1482 > > | false -> Some ConsoleColor.DarkRed
00:00:22 verbose #1483 > > row, color
00:00:22 verbose #1484 > > )
00:00:22 verbose #1485 > > let header =
00:00:22 verbose #1486 > > [[
00:00:22 verbose #1487 > > [[
00:00:22 verbose #1488 > > "Input"
00:00:22 verbose #1489 > > "Expected"
00:00:22 verbose #1490 > > "Result"
00:00:22 verbose #1491 > > "Best"
00:00:22 verbose #1492 > > ]]
00:00:22 verbose #1493 > > [[
00:00:22 verbose #1494 > > "---"
00:00:22 verbose #1495 > > "---"
00:00:22 verbose #1496 > > "---"
00:00:22 verbose #1497 > > "---"
00:00:22 verbose #1498 > > ]]
00:00:22 verbose #1499 > > ]]
00:00:22 verbose #1500 > > |> List.map (fun row -> row, None)
00:00:22 verbose #1501 > > header @ rows
00:00:22 verbose #1502 > >
00:00:22 verbose #1503 > > let formattedTable =
00:00:22 verbose #1504 > > let lengthMap =
00:00:22 verbose #1505 > > table
00:00:22 verbose #1506 > > |> List.map fst
00:00:22 verbose #1507 > > |> List.transpose
00:00:22 verbose #1508 > > |> List.map (fun column ->
00:00:22 verbose #1509 > > column
00:00:22 verbose #1510 > > |> List.map String.length
00:00:22 verbose #1511 > > |> List.sortDescending
00:00:22 verbose #1512 > > |> List.tryHead
00:00:22 verbose #1513 > > |> Option.defaultValue 0
00:00:22 verbose #1514 > > )
00:00:22 verbose #1515 > > |> List.indexed
00:00:22 verbose #1516 > > |> Map.ofList
00:00:22 verbose #1517 > > table
00:00:22 verbose #1518 > > |> List.map (fun (row, color) ->
00:00:22 verbose #1519 > > let newRow =
00:00:22 verbose #1520 > > row
00:00:22 verbose #1521 > > |> List.mapi (fun i cell ->
00:00:22 verbose #1522 > > cell.PadRight lengthMap.[[i]]
00:00:22 verbose #1523 > > )
00:00:22 verbose #1524 > > newRow, color
00:00:22 verbose #1525 > > )
00:00:22 verbose #1526 > >
00:00:22 verbose #1527 > > printfn ""
00:00:22 verbose #1528 > > formattedTable
00:00:22 verbose #1529 > > |> List.iter (fun (row, color) ->
00:00:22 verbose #1530 > > match color with
00:00:22 verbose #1531 > > | Some color -> Console.ForegroundColor <- color
00:00:22 verbose #1532 > > | None -> Console.ResetColor ()
00:00:22 verbose #1533 > >
00:00:22 verbose #1534 > > printfn "%s" (String.Join ("\t| ", row))
00:00:22 verbose #1535 > >
00:00:22 verbose #1536 > > Console.ResetColor ()
00:00:22 verbose #1537 > > )
00:00:22 verbose #1538 > >
00:00:22 verbose #1539 > > let averages =
00:00:22 verbose #1540 > > resultList
00:00:22 verbose #1541 > > |> List.map (fun result -> result.TimeList |> List.map float)
00:00:22 verbose #1542 > > |> List.transpose
00:00:22 verbose #1543 > > |> List.map List.average
00:00:22 verbose #1544 > > |> List.map int64
00:00:22 verbose #1545 > > |> List.indexed
00:00:22 verbose #1546 > >
00:00:22 verbose #1547 > > printfn ""
00:00:22 verbose #1548 > > printfn "Average Ranking "
00:00:22 verbose #1549 > > averages
00:00:22 verbose #1550 > > |> List.sortBy snd
00:00:22 verbose #1551 > > |> List.iter (fun (i, avg) ->
00:00:22 verbose #1552 > > printfn $"Test case %d{i + 1}. Average Time: %A{avg} "
00:00:22 verbose #1553 > > )
00:00:22 verbose #1554 > >
00:00:22 verbose #1555 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1556 > > let mutable _count =
00:00:22 verbose #1557 > > if ("CI" |> System.Environment.GetEnvironmentVariable |> fun x -> $"%A{x}")
00:00:22 verbose #1558 > > <> "<null>"
00:00:22 verbose #1559 > > then 2000000
00:00:22 verbose #1560 > > else 2000
00:00:22 verbose #1561 > >
00:00:22 verbose #1562 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1563 > > inl is_fast () =
00:00:22 verbose #1564 > > false
00:00:22 verbose #1565 > >
00:00:22 verbose #1566 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1567 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1568 > > │ ## empty3Tests │
00:00:22 verbose #1569 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1570 > >
00:00:22 verbose #1571 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1572 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1573 > > │ Test: Empty3 │
00:00:22 verbose #1574 > > │ │
00:00:22 verbose #1575 > > │ Solution: (a, a) │
00:00:22 verbose #1576 > > │ Test case 1. A. Time: 91L │
00:00:22 verbose #1577 > > │ │
00:00:22 verbose #1578 > > │ Solution: (a, a) │
00:00:22 verbose #1579 > > │ Test case 1. A. Time: 56L │
00:00:22 verbose #1580 > > │ │
00:00:22 verbose #1581 > > │ Input | Expected | Result | Best │
00:00:22 verbose #1582 > > │ --- | --- | --- | --- │
00:00:22 verbose #1583 > > │ (a, a) | a | a | (1, 91) │
00:00:22 verbose #1584 > > │ (a, a) | a | a | (1, 56) │
00:00:22 verbose #1585 > > │ │
00:00:22 verbose #1586 > > │ Averages │
00:00:22 verbose #1587 > > │ Test case 1. Average Time: 73L │
00:00:22 verbose #1588 > > │ │
00:00:22 verbose #1589 > > │ Ranking │
00:00:22 verbose #1590 > > │ Test case 1. Average Time: 73L │
00:00:22 verbose #1591 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1592 > >
00:00:22 verbose #1593 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1594 > > //// test
00:00:22 verbose #1595 > >
00:00:22 verbose #1596 > > let solutions = [[
00:00:22 verbose #1597 > > "A",
00:00:22 verbose #1598 > > fun (a, _b) ->
00:00:22 verbose #1599 > > a
00:00:22 verbose #1600 > > ]]
00:00:22 verbose #1601 > > let testCases = seq {
00:00:22 verbose #1602 > > ("a", "a"), "a"
00:00:22 verbose #1603 > > ("a", "a"), "a"
00:00:22 verbose #1604 > > }
00:00:22 verbose #1605 > > let rec empty3Tests = runAll (nameof empty3Tests) _count solutions testCases
00:00:22 verbose #1606 > > empty3Tests
00:00:22 verbose #1607 > > |> sortResultList
00:00:22 verbose #1608 > >
00:00:22 verbose #1609 > > ╭─[ 471.90ms - stdout ]────────────────────────────────────────────────────────╮
00:00:22 verbose #1610 > > │ │
00:00:22 verbose #1611 > > │ │
00:00:22 verbose #1612 > > │ Test: empty3Tests │
00:00:22 verbose #1613 > > │ │
00:00:22 verbose #1614 > > │ Solution: (a, a) │
00:00:22 verbose #1615 > > │ Test case 1. A. Time: 1L │
00:00:22 verbose #1616 > > │ │
00:00:22 verbose #1617 > > │ Solution: (a, a) │
00:00:22 verbose #1618 > > │ Test case 1. A. Time: 0L │
00:00:22 verbose #1619 > > │ │
00:00:22 verbose #1620 > > │ Input | Expected | Result | Best │
00:00:22 verbose #1621 > > │ --- | --- | --- | --- │
00:00:22 verbose #1622 > > │ (a, a) | a | a | (1, 1) │
00:00:22 verbose #1623 > > │ (a, a) | a | a | (1, 0) │
00:00:22 verbose #1624 > > │ │
00:00:22 verbose #1625 > > │ Average Ranking │
00:00:22 verbose #1626 > > │ Test case 1. Average Time: 0L │
00:00:22 verbose #1627 > > │ │
00:00:22 verbose #1628 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1629 > >
00:00:22 verbose #1630 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1631 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1632 > > │ ## empty2Tests │
00:00:22 verbose #1633 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1634 > >
00:00:22 verbose #1635 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:22 verbose #1636 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:22 verbose #1637 > > │ Test: Empty2 │
00:00:22 verbose #1638 > > │ │
00:00:22 verbose #1639 > > │ Solution: (a, a) │
00:00:22 verbose #1640 > > │ Test case 1. A. Time: 59L │
00:00:22 verbose #1641 > > │ │
00:00:22 verbose #1642 > > │ Solution: (a, a) │
00:00:22 verbose #1643 > > │ Test case 1. A. Time: 53L │
00:00:22 verbose #1644 > > │ │
00:00:22 verbose #1645 > > │ Input | Expected | Result | Best │
00:00:22 verbose #1646 > > │ --- | --- | --- | --- │
00:00:22 verbose #1647 > > │ (a, a) | a | a | (1, 59) │
00:00:22 verbose #1648 > > │ (a, a) | a | a | (1, 53) │
00:00:22 verbose #1649 > > │ │
00:00:22 verbose #1650 > > │ Averages │
00:00:22 verbose #1651 > > │ Test case 1. Average Time: 56L │
00:00:22 verbose #1652 > > │ │
00:00:22 verbose #1653 > > │ Ranking │
00:00:22 verbose #1654 > > │ Test case 1. Average Time: 56L │
00:00:22 verbose #1655 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:22 verbose #1656 > >
00:00:22 verbose #1657 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:22 verbose #1658 > > //// test
00:00:22 verbose #1659 > >
00:00:22 verbose #1660 > > let solutions = [[
00:00:22 verbose #1661 > > "A",
00:00:22 verbose #1662 > > fun (a, _b) ->
00:00:22 verbose #1663 > > a
00:00:22 verbose #1664 > > ]]
00:00:22 verbose #1665 > > let testCases = seq {
00:00:22 verbose #1666 > > ("a", "a"), "a"
00:00:22 verbose #1667 > > ("a", "a"), "a"
00:00:22 verbose #1668 > > }
00:00:22 verbose #1669 > > let rec empty2Tests = runAll (nameof empty2Tests) _count solutions testCases
00:00:22 verbose #1670 > > empty2Tests
00:00:22 verbose #1671 > > |> sortResultList
00:00:23 verbose #1672 > >
00:00:23 verbose #1673 > > ╭─[ 554.30ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1674 > > │ │
00:00:23 verbose #1675 > > │ │
00:00:23 verbose #1676 > > │ Test: empty2Tests │
00:00:23 verbose #1677 > > │ │
00:00:23 verbose #1678 > > │ Solution: (a, a) │
00:00:23 verbose #1679 > > │ Test case 1. A. Time: 0L │
00:00:23 verbose #1680 > > │ │
00:00:23 verbose #1681 > > │ Solution: (a, a) │
00:00:23 verbose #1682 > > │ Test case 1. A. Time: 0L │
00:00:23 verbose #1683 > > │ │
00:00:23 verbose #1684 > > │ Input | Expected | Result | Best │
00:00:23 verbose #1685 > > │ --- | --- | --- | --- │
00:00:23 verbose #1686 > > │ (a, a) | a | a | (1, 0) │
00:00:23 verbose #1687 > > │ (a, a) | a | a | (1, 0) │
00:00:23 verbose #1688 > > │ │
00:00:23 verbose #1689 > > │ Average Ranking │
00:00:23 verbose #1690 > > │ Test case 1. Average Time: 0L │
00:00:23 verbose #1691 > > │ │
00:00:23 verbose #1692 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1693 > >
00:00:23 verbose #1694 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1695 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1696 > > │ ## emptyTests │
00:00:23 verbose #1697 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1698 > >
00:00:23 verbose #1699 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #1700 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #1701 > > │ Test: Empty │
00:00:23 verbose #1702 > > │ │
00:00:23 verbose #1703 > > │ Solution: 0 │
00:00:23 verbose #1704 > > │ Test case 1. A. Time: 61L │
00:00:23 verbose #1705 > > │ │
00:00:23 verbose #1706 > > │ Solution: 2 │
00:00:23 verbose #1707 > > │ Test case 1. A. Time: 62L │
00:00:23 verbose #1708 > > │ │
00:00:23 verbose #1709 > > │ Solution: 5 │
00:00:23 verbose #1710 > > │ Test case 1. A. Time: 70L │
00:00:23 verbose #1711 > > │ │
00:00:23 verbose #1712 > > │ Input | Expected | Result | Best │
00:00:23 verbose #1713 > > │ --- | --- | --- | --- │
00:00:23 verbose #1714 > > │ 0 | 0 | 0 | (1, 61) │
00:00:23 verbose #1715 > > │ 2 | 2 | 2 | (1, 62) │
00:00:23 verbose #1716 > > │ 5 | 5 | 5 | (1, 70) │
00:00:23 verbose #1717 > > │ │
00:00:23 verbose #1718 > > │ Averages │
00:00:23 verbose #1719 > > │ Test case 1. Average Time: 64L │
00:00:23 verbose #1720 > > │ │
00:00:23 verbose #1721 > > │ Ranking │
00:00:23 verbose #1722 > > │ Test case 1. Average Time: 64L │
00:00:23 verbose #1723 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1724 > >
00:00:23 verbose #1725 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1726 > > //// test
00:00:23 verbose #1727 > >
00:00:23 verbose #1728 > > let solutions = [[
00:00:23 verbose #1729 > > "A",
00:00:23 verbose #1730 > > fun n ->
00:00:23 verbose #1731 > > n + 0
00:00:23 verbose #1732 > > ]]
00:00:23 verbose #1733 > > let testCases = seq {
00:00:23 verbose #1734 > > 0, 0
00:00:23 verbose #1735 > > 2, 2
00:00:23 verbose #1736 > > 5, 5
00:00:23 verbose #1737 > > }
00:00:23 verbose #1738 > > let rec emptyTests = runAll (nameof emptyTests) _count solutions testCases
00:00:23 verbose #1739 > > emptyTests
00:00:23 verbose #1740 > > |> sortResultList
00:00:24 verbose #1741 > >
00:00:24 verbose #1742 > > ╭─[ 695.58ms - stdout ]────────────────────────────────────────────────────────╮
00:00:24 verbose #1743 > > │ │
00:00:24 verbose #1744 > > │ │
00:00:24 verbose #1745 > > │ Test: emptyTests │
00:00:24 verbose #1746 > > │ │
00:00:24 verbose #1747 > > │ Solution: 0 │
00:00:24 verbose #1748 > > │ Test case 1. A. Time: 2L │
00:00:24 verbose #1749 > > │ │
00:00:24 verbose #1750 > > │ Solution: 2 │
00:00:24 verbose #1751 > > │ Test case 1. A. Time: 0L │
00:00:24 verbose #1752 > > │ │
00:00:24 verbose #1753 > > │ Solution: 5 │
00:00:24 verbose #1754 > > │ Test case 1. A. Time: 0L │
00:00:24 verbose #1755 > > │ │
00:00:24 verbose #1756 > > │ Input | Expected | Result | Best │
00:00:24 verbose #1757 > > │ --- | --- | --- | --- │
00:00:24 verbose #1758 > > │ 0 | 0 | 0 | (1, 2) │
00:00:24 verbose #1759 > > │ 2 | 2 | 2 | (1, 0) │
00:00:24 verbose #1760 > > │ 5 | 5 | 5 | (1, 0) │
00:00:24 verbose #1761 > > │ │
00:00:24 verbose #1762 > > │ Average Ranking │
00:00:24 verbose #1763 > > │ Test case 1. Average Time: 0L │
00:00:24 verbose #1764 > > │ │
00:00:24 verbose #1765 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1766 > >
00:00:24 verbose #1767 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #1768 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #1769 > > │ ## uniqueLettersTests │
00:00:24 verbose #1770 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1771 > >
00:00:24 verbose #1772 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:24 verbose #1773 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:24 verbose #1774 > > │ Test: UniqueLetters │
00:00:24 verbose #1775 > > │ │
00:00:24 verbose #1776 > > │ Solution: abc │
00:00:24 verbose #1777 > > │ Test case 1. A. Time: 1512L │
00:00:24 verbose #1778 > > │ Test case 2. B. Time: 1947L │
00:00:24 verbose #1779 > > │ Test case 3. C. Time: 2023L │
00:00:24 verbose #1780 > > │ Test case 4. D. Time: 1358L │
00:00:24 verbose #1781 > > │ Test case 5. E. Time: 1321L │
00:00:24 verbose #1782 > > │ Test case 6. F. Time: 1346L │
00:00:24 verbose #1783 > > │ Test case 7. G. Time: 1304L │
00:00:24 verbose #1784 > > │ Test case 8. H. Time: 1383L │
00:00:24 verbose #1785 > > │ Test case 9. I. Time: 1495L │
00:00:24 verbose #1786 > > │ Test case 10. J. Time: 1245L │
00:00:24 verbose #1787 > > │ Test case 11. K. Time: 1219L │
00:00:24 verbose #1788 > > │ │
00:00:24 verbose #1789 > > │ Solution: accabb │
00:00:24 verbose #1790 > > │ Test case 1. A. Time: 1648L │
00:00:24 verbose #1791 > > │ Test case 2. B. Time: 2061L │
00:00:24 verbose #1792 > > │ Test case 3. C. Time: 2413L │
00:00:24 verbose #1793 > > │ Test case 4. D. Time: 1561L │
00:00:24 verbose #1794 > > │ Test case 5. E. Time: 1593L │
00:00:24 verbose #1795 > > │ Test case 6. F. Time: 1518L │
00:00:24 verbose #1796 > > │ Test case 7. G. Time: 1415L │
00:00:24 verbose #1797 > > │ Test case 8. H. Time: 1510L │
00:00:24 verbose #1798 > > │ Test case 9. I. Time: 1445L │
00:00:24 verbose #1799 > > │ Test case 10. J. Time: 1636L │
00:00:24 verbose #1800 > > │ Test case 11. K. Time: 1317L │
00:00:24 verbose #1801 > > │ │
00:00:24 verbose #1802 > > │ Solution: pprrqqpp │
00:00:24 verbose #1803 > > │ Test case 1. A. Time: 2255L │
00:00:24 verbose #1804 > > │ Test case 2. B. Time: 2408L │
00:00:24 verbose #1805 > > │ Test case 3. C. Time: 2393L │
00:00:24 verbose #1806 > > │ Test case 4. D. Time: 1675L │
00:00:24 verbose #1807 > > │ Test case 5. E. Time: 1911L │
00:00:24 verbose #1808 > > │ Test case 6. F. Time: 2126L │
00:00:24 verbose #1809 > > │ Test case 7. G. Time: 1504L │
00:00:24 verbose #1810 > > │ Test case 8. H. Time: 1715L │
00:00:24 verbose #1811 > > │ Test case 9. I. Time: 1537L │
00:00:24 verbose #1812 > > │ Test case 10. J. Time: 1522L │
00:00:24 verbose #1813 > > │ Test case 11. K. Time: 1322L │
00:00:24 verbose #1814 > > │ │
00:00:24 verbose #1815 > > │ Solution: │
00:00:24 verbose #1816 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:24 verbose #1817 > > │ bbb │
00:00:24 verbose #1818 > > │ Test case 1. A. Time: 13073L │
00:00:24 verbose #1819 > > │ Test case 2. B. Time: 11519L │
00:00:24 verbose #1820 > > │ Test case 3. C. Time: 8373L │
00:00:24 verbose #1821 > > │ Test case 4. D. Time: 5860L │
00:00:24 verbose #1822 > > │ Test case 5. E. Time: 6490L │
00:00:24 verbose #1823 > > │ Test case 6. F. Time: 6325L │
00:00:24 verbose #1824 > > │ Test case 7. G. Time: 5799L │
00:00:24 verbose #1825 > > │ Test case 8. H. Time: 7099L │
00:00:24 verbose #1826 > > │ Test case 9. I. Time: 6133L │
00:00:24 verbose #1827 > > │ Test case 10. J. Time: 5993L │
00:00:24 verbose #1828 > > │ Test case 11. K. Time: 2040L │
00:00:24 verbose #1829 > > │ │
00:00:24 verbose #1830 > > │ Input │
00:00:24 verbose #1831 > > │ | Expected | Result | Best │
00:00:24 verbose #1832 > > │ --- │
00:00:24 verbose #1833 > > │ │
00:00:24 verbose #1834 > > │ | --- | --- | --- │
00:00:24 verbose #1835 > > │ abc │
00:00:24 verbose #1836 > > │ │
00:00:24 verbose #1837 > > │ | abc | abc | (11, 1219) │
00:00:24 verbose #1838 > > │ accabb │
00:00:24 verbose #1839 > > │ | acb | acb | (11, 1317) │
00:00:24 verbose #1840 > > │ pprrqqpp │
00:00:24 verbose #1841 > > │ | prq | prq | (11, 1322) │
00:00:24 verbose #1842 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:24 verbose #1843 > > │ bbb | acb | acb | (11, 2040) │
00:00:24 verbose #1844 > > │ │
00:00:24 verbose #1845 > > │ Averages │
00:00:24 verbose #1846 > > │ Test case 1. Average Time: 4622L │
00:00:24 verbose #1847 > > │ Test case 2. Average Time: 4483L │
00:00:24 verbose #1848 > > │ Test case 3. Average Time: 3800L │
00:00:24 verbose #1849 > > │ Test case 4. Average Time: 2613L │
00:00:24 verbose #1850 > > │ Test case 5. Average Time: 2828L │
00:00:24 verbose #1851 > > │ Test case 6. Average Time: 2828L │
00:00:24 verbose #1852 > > │ Test case 7. Average Time: 2505L │
00:00:24 verbose #1853 > > │ Test case 8. Average Time: 2926L │
00:00:24 verbose #1854 > > │ Test case 9. Average Time: 2652L │
00:00:24 verbose #1855 > > │ Test case 10. Average Time: 2599L │
00:00:24 verbose #1856 > > │ Test case 11. Average Time: 1474L │
00:00:24 verbose #1857 > > │ │
00:00:24 verbose #1858 > > │ Ranking │
00:00:24 verbose #1859 > > │ Test case 1. Average Time: 4622L │
00:00:24 verbose #1860 > > │ Test case 2. Average Time: 4483L │
00:00:24 verbose #1861 > > │ Test case 3. Average Time: 3800L │
00:00:24 verbose #1862 > > │ Test case 8. Average Time: 2926L │
00:00:24 verbose #1863 > > │ Test case 5. Average Time: 2828L │
00:00:24 verbose #1864 > > │ Test case 6. Average Time: 2828L │
00:00:24 verbose #1865 > > │ Test case 9. Average Time: 2652L │
00:00:24 verbose #1866 > > │ Test case 4. Average Time: 2613L │
00:00:24 verbose #1867 > > │ Test case 10. Average Time: 2599L │
00:00:24 verbose #1868 > > │ Test case 7. Average Time: 2505L │
00:00:24 verbose #1869 > > │ Test case 11. Average Time: 1474L │
00:00:24 verbose #1870 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #1871 > >
00:00:24 verbose #1872 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:24 verbose #1873 > > //// test
00:00:24 verbose #1874 > >
00:00:24 verbose #1875 > > let solutions = [[
00:00:24 verbose #1876 > > "A",
00:00:24 verbose #1877 > > fun input ->
00:00:24 verbose #1878 > > input
00:00:24 verbose #1879 > > |> Seq.toList
00:00:24 verbose #1880 > > |> List.fold (fun acc x -> if List.contains x acc then acc else acc @ [[
00:00:24 verbose #1881 > > x ]]) [[]]
00:00:24 verbose #1882 > > |> Seq.toArray
00:00:24 verbose #1883 > > |> String
00:00:24 verbose #1884 > >
00:00:24 verbose #1885 > > "B",
00:00:24 verbose #1886 > > fun input ->
00:00:24 verbose #1887 > > input
00:00:24 verbose #1888 > > |> Seq.rev
00:00:24 verbose #1889 > > |> fun list -> Seq.foldBack (fun x acc -> if List.contains x acc then
00:00:24 verbose #1890 > > acc else x :: acc) list [[]]
00:00:24 verbose #1891 > > |> Seq.rev
00:00:24 verbose #1892 > > |> Seq.toArray
00:00:24 verbose #1893 > > |> String
00:00:24 verbose #1894 > >
00:00:24 verbose #1895 > > "C",
00:00:24 verbose #1896 > > fun input ->
00:00:24 verbose #1897 > > input
00:00:24 verbose #1898 > > |> Seq.rev
00:00:24 verbose #1899 > > |> fun list -> Seq.foldBack (fun x (set, acc) -> if Set.contains x set
00:00:24 verbose #1900 > > then set, acc else set.Add x, x :: acc) list (Set.empty, [[]])
00:00:24 verbose #1901 > > |> snd
00:00:24 verbose #1902 > > |> Seq.rev
00:00:24 verbose #1903 > > |> Seq.toArray
00:00:24 verbose #1904 > > |> String
00:00:24 verbose #1905 > >
00:00:24 verbose #1906 > > "D",
00:00:24 verbose #1907 > > fun input ->
00:00:24 verbose #1908 > > input
00:00:24 verbose #1909 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:24 verbose #1910 > > else set.Add x, Array.append acc [[| x |]]) (Set.empty, [[||]])
00:00:24 verbose #1911 > > |> snd
00:00:24 verbose #1912 > > |> String
00:00:24 verbose #1913 > >
00:00:24 verbose #1914 > > "E",
00:00:24 verbose #1915 > > fun input ->
00:00:24 verbose #1916 > > input
00:00:24 verbose #1917 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:24 verbose #1918 > > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:24 verbose #1919 > > |> snd
00:00:24 verbose #1920 > > |> List.rev
00:00:24 verbose #1921 > > |> List.toArray
00:00:24 verbose #1922 > > |> String
00:00:24 verbose #1923 > >
00:00:24 verbose #1924 > > "F",
00:00:24 verbose #1925 > > fun input ->
00:00:24 verbose #1926 > > input
00:00:24 verbose #1927 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:24 verbose #1928 > > else set.Add x, acc @ [[ x ]]) (Set.empty, [[]])
00:00:24 verbose #1929 > > |> snd
00:00:24 verbose #1930 > > |> List.toArray
00:00:24 verbose #1931 > > |> String
00:00:24 verbose #1932 > >
00:00:24 verbose #1933 > > "G",
00:00:24 verbose #1934 > > fun input ->
00:00:24 verbose #1935 > > input
00:00:24 verbose #1936 > > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:24 verbose #1937 > > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:24 verbose #1938 > > |> snd
00:00:24 verbose #1939 > > |> List.toArray
00:00:24 verbose #1940 > > |> Array.rev
00:00:24 verbose #1941 > > |> String
00:00:24 verbose #1942 > >
00:00:24 verbose #1943 > > "H",
00:00:24 verbose #1944 > > fun input ->
00:00:24 verbose #1945 > > input
00:00:24 verbose #1946 > > |> Seq.toList
00:00:24 verbose #1947 > > |> fun list ->
00:00:24 verbose #1948 > > let rec loop set = function
00:00:24 verbose #1949 > > | head :: tail when Set.contains head set -> loop set tail
00:00:24 verbose #1950 > > | head :: tail -> (loop (set.Add head) tail) @ [[ head ]]
00:00:24 verbose #1951 > > | [[]] -> [[]]
00:00:24 verbose #1952 > > loop Set.empty list
00:00:24 verbose #1953 > > |> List.rev
00:00:24 verbose #1954 > > |> List.toArray
00:00:24 verbose #1955 > > |> String
00:00:24 verbose #1956 > >
00:00:24 verbose #1957 > > "I",
00:00:24 verbose #1958 > > fun input ->
00:00:24 verbose #1959 > > input
00:00:24 verbose #1960 > > |> Seq.toList
00:00:24 verbose #1961 > > |> fun list ->
00:00:24 verbose #1962 > > let rec loop set = function
00:00:24 verbose #1963 > > | head :: tail when Set.contains head set -> loop set tail
00:00:24 verbose #1964 > > | head :: tail -> loop (set.Add head) tail |> Array.append [[|
00:00:24 verbose #1965 > > head |]]
00:00:24 verbose #1966 > > | [[]] -> [[||]]
00:00:24 verbose #1967 > > loop Set.empty list
00:00:24 verbose #1968 > > |> String
00:00:24 verbose #1969 > >
00:00:24 verbose #1970 > > "J",
00:00:24 verbose #1971 > > fun input ->
00:00:24 verbose #1972 > > input
00:00:24 verbose #1973 > > |> Seq.toList
00:00:24 verbose #1974 > > |> fun list ->
00:00:24 verbose #1975 > > let rec loop set = function
00:00:24 verbose #1976 > > | head :: tail when Set.contains head set -> loop set tail
00:00:24 verbose #1977 > > | head :: tail -> head :: loop (set.Add head) tail
00:00:24 verbose #1978 > > | [[]] -> [[]]
00:00:24 verbose #1979 > > loop Set.empty list
00:00:24 verbose #1980 > > |> List.toArray
00:00:24 verbose #1981 > > |> String
00:00:24 verbose #1982 > >
00:00:24 verbose #1983 > > "K",
00:00:24 verbose #1984 > > fun input ->
00:00:24 verbose #1985 > > input
00:00:24 verbose #1986 > > |> Seq.distinct
00:00:24 verbose #1987 > > |> Seq.toArray
00:00:24 verbose #1988 > > |> String
00:00:24 verbose #1989 > > ]]
00:00:24 verbose #1990 > > let testCases = seq {
00:00:24 verbose #1991 > > "abc", "abc"
00:00:24 verbose #1992 > > "accabb", "acb"
00:00:24 verbose #1993 > > "pprrqqpp", "prq"
00:00:24 verbose #1994 > >
00:00:24 verbose #1995 > > "aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbbbbb
00:00:24 verbose #1996 > > ", "acb"
00:00:24 verbose #1997 > > }
00:00:24 verbose #1998 > > let rec uniqueLettersTests = runAll (nameof uniqueLettersTests) _count solutions
00:00:24 verbose #1999 > > testCases
00:00:24 verbose #2000 > > uniqueLettersTests
00:00:24 verbose #2001 > > |> sortResultList
00:00:34 verbose #2002 > >
00:00:34 verbose #2003 > > ╭─[ 9.94s - stdout ]───────────────────────────────────────────────────────────╮
00:00:34 verbose #2004 > > │ │
00:00:34 verbose #2005 > > │ │
00:00:34 verbose #2006 > > │ Test: uniqueLettersTests │
00:00:34 verbose #2007 > > │ │
00:00:34 verbose #2008 > > │ Solution: abc │
00:00:34 verbose #2009 > > │ Test case 1. A. Time: 3L │
00:00:34 verbose #2010 > > │ Test case 2. B. Time: 3L │
00:00:34 verbose #2011 > > │ Test case 3. C. Time: 4L │
00:00:34 verbose #2012 > > │ Test case 4. D. Time: 2L │
00:00:34 verbose #2013 > > │ Test case 5. E. Time: 2L │
00:00:34 verbose #2014 > > │ Test case 6. F. Time: 2L │
00:00:34 verbose #2015 > > │ Test case 7. G. Time: 2L │
00:00:34 verbose #2016 > > │ Test case 8. H. Time: 2L │
00:00:34 verbose #2017 > > │ Test case 9. I. Time: 2L │
00:00:34 verbose #2018 > > │ Test case 10. J. Time: 1L │
00:00:34 verbose #2019 > > │ Test case 11. K. Time: 2L │
00:00:34 verbose #2020 > > │ │
00:00:34 verbose #2021 > > │ Solution: accabb │
00:00:34 verbose #2022 > > │ Test case 1. A. Time: 1L │
00:00:34 verbose #2023 > > │ Test case 2. B. Time: 1L │
00:00:34 verbose #2024 > > │ Test case 3. C. Time: 1L │
00:00:34 verbose #2025 > > │ Test case 4. D. Time: 1L │
00:00:34 verbose #2026 > > │ Test case 5. E. Time: 1L │
00:00:34 verbose #2027 > > │ Test case 6. F. Time: 1L │
00:00:34 verbose #2028 > > │ Test case 7. G. Time: 1L │
00:00:34 verbose #2029 > > │ Test case 8. H. Time: 1L │
00:00:34 verbose #2030 > > │ Test case 9. I. Time: 1L │
00:00:34 verbose #2031 > > │ Test case 10. J. Time: 1L │
00:00:34 verbose #2032 > > │ Test case 11. K. Time: 1L │
00:00:34 verbose #2033 > > │ │
00:00:34 verbose #2034 > > │ Solution: pprrqqpp │
00:00:34 verbose #2035 > > │ Test case 1. A. Time: 1L │
00:00:34 verbose #2036 > > │ Test case 2. B. Time: 1L │
00:00:34 verbose #2037 > > │ Test case 3. C. Time: 2L │
00:00:34 verbose #2038 > > │ Test case 4. D. Time: 1L │
00:00:34 verbose #2039 > > │ Test case 5. E. Time: 1L │
00:00:34 verbose #2040 > > │ Test case 6. F. Time: 1L │
00:00:34 verbose #2041 > > │ Test case 7. G. Time: 1L │
00:00:34 verbose #2042 > > │ Test case 8. H. Time: 1L │
00:00:34 verbose #2043 > > │ Test case 9. I. Time: 1L │
00:00:34 verbose #2044 > > │ Test case 10. J. Time: 1L │
00:00:34 verbose #2045 > > │ Test case 11. K. Time: 0L │
00:00:34 verbose #2046 > > │ │
00:00:34 verbose #2047 > > │ Solution: │
00:00:34 verbose #2048 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:34 verbose #2049 > > │ bbb │
00:00:34 verbose #2050 > > │ Test case 1. A. Time: 14L │
00:00:34 verbose #2051 > > │ Test case 2. B. Time: 10L │
00:00:34 verbose #2052 > > │ Test case 3. C. Time: 13L │
00:00:34 verbose #2053 > > │ Test case 4. D. Time: 9L │
00:00:34 verbose #2054 > > │ Test case 5. E. Time: 9L │
00:00:34 verbose #2055 > > │ Test case 6. F. Time: 9L │
00:00:34 verbose #2056 > > │ Test case 7. G. Time: 11L │
00:00:34 verbose #2057 > > │ Test case 8. H. Time: 9L │
00:00:34 verbose #2058 > > │ Test case 9. I. Time: 8L │
00:00:34 verbose #2059 > > │ Test case 10. J. Time: 8L │
00:00:34 verbose #2060 > > │ Test case 11. K. Time: 3L │
00:00:34 verbose #2061 > > │ │
00:00:34 verbose #2062 > > │ Input │
00:00:34 verbose #2063 > > │ | Expected | Result | Best │
00:00:34 verbose #2064 > > │ --- │
00:00:34 verbose #2065 > > │ | --- | --- | --- │
00:00:34 verbose #2066 > > │ abc │
00:00:34 verbose #2067 > > │ | abc | abc | (10, 1) │
00:00:34 verbose #2068 > > │ accabb │
00:00:34 verbose #2069 > > │ | acb | acb | (1, 1) │
00:00:34 verbose #2070 > > │ pprrqqpp │
00:00:34 verbose #2071 > > │ | prq | prq | (11, 0) │
00:00:34 verbose #2072 > > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:34 verbose #2073 > > │ bbb | acb | acb | (11, 3) │
00:00:34 verbose #2074 > > │ │
00:00:34 verbose #2075 > > │ Average Ranking │
00:00:34 verbose #2076 > > │ Test case 11. Average Time: 1L │
00:00:34 verbose #2077 > > │ Test case 10. Average Time: 2L │
00:00:34 verbose #2078 > > │ Test case 2. Average Time: 3L │
00:00:34 verbose #2079 > > │ Test case 4. Average Time: 3L │
00:00:34 verbose #2080 > > │ Test case 5. Average Time: 3L │
00:00:34 verbose #2081 > > │ Test case 6. Average Time: 3L │
00:00:34 verbose #2082 > > │ Test case 7. Average Time: 3L │
00:00:34 verbose #2083 > > │ Test case 8. Average Time: 3L │
00:00:34 verbose #2084 > > │ Test case 9. Average Time: 3L │
00:00:34 verbose #2085 > > │ Test case 1. Average Time: 4L │
00:00:34 verbose #2086 > > │ Test case 3. Average Time: 5L │
00:00:34 verbose #2087 > > │ │
00:00:34 verbose #2088 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #2089 > >
00:00:34 verbose #2090 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 verbose #2091 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 verbose #2092 > > │ ## rotateStringsTests │
00:00:34 verbose #2093 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #2094 > >
00:00:34 verbose #2095 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 verbose #2096 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 verbose #2097 > > │ https://www.hackerrank.com/challenges/rotate-string/forum │
00:00:34 verbose #2098 > > │ │
00:00:34 verbose #2099 > > │ Test: RotateStrings │
00:00:34 verbose #2100 > > │ │
00:00:34 verbose #2101 > > │ Solution: abc │
00:00:34 verbose #2102 > > │ Test case 1. A. Time: 1842L │
00:00:34 verbose #2103 > > │ Test case 2. B. Time: 1846L │
00:00:34 verbose #2104 > > │ Test case 3. C. Time: 1936L │
00:00:34 verbose #2105 > > │ Test case 4. CA. Time: 2224L │
00:00:34 verbose #2106 > > │ Test case 5. CB. Time: 2329L │
00:00:34 verbose #2107 > > │ Test case 6. D. Time: 2474L │
00:00:34 verbose #2108 > > │ Test case 7. E. Time: 1664L │
00:00:34 verbose #2109 > > │ Test case 8. F. Time: 1517L │
00:00:34 verbose #2110 > > │ Test case 9. FA. Time: 1651L │
00:00:34 verbose #2111 > > │ Test case 10. FB. Time: 3764L │
00:00:34 verbose #2112 > > │ Test case 11. FC. Time: 5415L │
00:00:34 verbose #2113 > > │ │
00:00:34 verbose #2114 > > │ Solution: abcde │
00:00:34 verbose #2115 > > │ Test case 1. A. Time: 3356L │
00:00:34 verbose #2116 > > │ Test case 2. B. Time: 2592L │
00:00:34 verbose #2117 > > │ Test case 3. C. Time: 2346L │
00:00:34 verbose #2118 > > │ Test case 4. CA. Time: 2997L │
00:00:34 verbose #2119 > > │ Test case 5. CB. Time: 3061L │
00:00:34 verbose #2120 > > │ Test case 6. D. Time: 4051L │
00:00:34 verbose #2121 > > │ Test case 7. E. Time: 1905L │
00:00:34 verbose #2122 > > │ Test case 8. F. Time: 1771L │
00:00:34 verbose #2123 > > │ Test case 9. FA. Time: 2175L │
00:00:34 verbose #2124 > > │ Test case 10. FB. Time: 3275L │
00:00:34 verbose #2125 > > │ Test case 11. FC. Time: 5266L │
00:00:34 verbose #2126 > > │ │
00:00:34 verbose #2127 > > │ Solution: abcdefghi │
00:00:34 verbose #2128 > > │ Test case 1. A. Time: 4492L │
00:00:34 verbose #2129 > > │ Test case 2. B. Time: 3526L │
00:00:34 verbose #2130 > > │ Test case 3. C. Time: 3583L │
00:00:34 verbose #2131 > > │ Test case 4. CA. Time: 3711L │
00:00:34 verbose #2132 > > │ Test case 5. CB. Time: 4783L │
00:00:34 verbose #2133 > > │ Test case 6. D. Time: 7557L │
00:00:34 verbose #2134 > > │ Test case 7. E. Time: 3452L │
00:00:34 verbose #2135 > > │ Test case 8. F. Time: 3050L │
00:00:34 verbose #2136 > > │ Test case 9. FA. Time: 3275L │
00:00:34 verbose #2137 > > │ Test case 10. FB. Time: 4635L │
00:00:34 verbose #2138 > > │ Test case 11. FC. Time: 5616L │
00:00:34 verbose #2139 > > │ │
00:00:34 verbose #2140 > > │ Solution: abab │
00:00:34 verbose #2141 > > │ Test case 1. A. Time: 2093L │
00:00:34 verbose #2142 > > │ Test case 2. B. Time: 1843L │
00:00:34 verbose #2143 > > │ Test case 3. C. Time: 1746L │
00:00:34 verbose #2144 > > │ Test case 4. CA. Time: 2085L │
00:00:34 verbose #2145 > > │ Test case 5. CB. Time: 2139L │
00:00:34 verbose #2146 > > │ Test case 6. D. Time: 2095L │
00:00:34 verbose #2147 > > │ Test case 7. E. Time: 1723L │
00:00:34 verbose #2148 > > │ Test case 8. F. Time: 1558L │
00:00:34 verbose #2149 > > │ Test case 9. FA. Time: 1620L │
00:00:34 verbose #2150 > > │ Test case 10. FB. Time: 2319L │
00:00:34 verbose #2151 > > │ Test case 11. FC. Time: 3918L │
00:00:34 verbose #2152 > > │ │
00:00:34 verbose #2153 > > │ Solution: aa │
00:00:34 verbose #2154 > > │ Test case 1. A. Time: 1107L │
00:00:34 verbose #2155 > > │ Test case 2. B. Time: 1241L │
00:00:34 verbose #2156 > > │ Test case 3. C. Time: 1183L │
00:00:34 verbose #2157 > > │ Test case 4. CA. Time: 1563L │
00:00:34 verbose #2158 > > │ Test case 5. CB. Time: 1525L │
00:00:34 verbose #2159 > > │ Test case 6. D. Time: 1591L │
00:00:34 verbose #2160 > > │ Test case 7. E. Time: 1327L │
00:00:34 verbose #2161 > > │ Test case 8. F. Time: 1151L │
00:00:34 verbose #2162 > > │ Test case 9. FA. Time: 1180L │
00:00:34 verbose #2163 > > │ Test case 10. FB. Time: 1733L │
00:00:34 verbose #2164 > > │ Test case 11. FC. Time: 2817L │
00:00:34 verbose #2165 > > │ │
00:00:34 verbose #2166 > > │ Solution: z │
00:00:34 verbose #2167 > > │ Test case 1. A. Time: 816L │
00:00:34 verbose #2168 > > │ Test case 2. B. Time: 745L │
00:00:34 verbose #2169 > > │ Test case 3. C. Time: 928L │
00:00:34 verbose #2170 > > │ Test case 4. CA. Time: 1375L │
00:00:34 verbose #2171 > > │ Test case 5. CB. Time: 1029L │
00:00:34 verbose #2172 > > │ Test case 6. D. Time: 852L │
00:00:34 verbose #2173 > > │ Test case 7. E. Time: 712L │
00:00:34 verbose #2174 > > │ Test case 8. F. Time: 263L │
00:00:34 verbose #2175 > > │ Test case 9. FA. Time: 232L │
00:00:34 verbose #2176 > > │ Test case 10. FB. Time: 773L │
00:00:34 verbose #2177 > > │ Test case 11. FC. Time: 1789L │
00:00:34 verbose #2178 > > │ │
00:00:34 verbose #2179 > > │ Input | Expected │
00:00:34 verbose #2180 > > │ │
00:00:34 verbose #2181 > > │ | Result │
00:00:34 verbose #2182 > > │ │
00:00:34 verbose #2183 > > │ | Best │
00:00:34 verbose #2184 > > │ --- | --- │
00:00:34 verbose #2185 > > │ │
00:00:34 verbose #2186 > > │ | --- │
00:00:34 verbose #2187 > > │ │
00:00:34 verbose #2188 > > │ | --- │
00:00:34 verbose #2189 > > │ abc | bca cab abc │
00:00:34 verbose #2190 > > │ │
00:00:34 verbose #2191 > > │ | bca cab abc │
00:00:34 verbose #2192 > > │ │
00:00:34 verbose #2193 > > │ | (8, 1517) │
00:00:34 verbose #2194 > > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:34 verbose #2195 > > │ | bcdea cdeab deabc eabcd abcde │
00:00:34 verbose #2196 > > │ | (8, 1771) │
00:00:34 verbose #2197 > > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:00:34 verbose #2198 > > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab │
00:00:34 verbose #2199 > > │ defghiabc efghiabcd fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi │
00:00:34 verbose #2200 > > │ | (8, 3050) │
00:00:34 verbose #2201 > > │ abab | baba abab baba abab │
00:00:34 verbose #2202 > > │ │
00:00:34 verbose #2203 > > │ | baba abab baba abab │
00:00:34 verbose #2204 > > │ │
00:00:34 verbose #2205 > > │ | (8, 1558) │
00:00:34 verbose #2206 > > │ aa | aa aa │
00:00:34 verbose #2207 > > │ │
00:00:34 verbose #2208 > > │ | aa aa │
00:00:34 verbose #2209 > > │ │
00:00:34 verbose #2210 > > │ | (1, 1107) │
00:00:34 verbose #2211 > > │ z | z │
00:00:34 verbose #2212 > > │ │
00:00:34 verbose #2213 > > │ | z │
00:00:34 verbose #2214 > > │ │
00:00:34 verbose #2215 > > │ | (9, 232) │
00:00:34 verbose #2216 > > │ │
00:00:34 verbose #2217 > > │ Averages │
00:00:34 verbose #2218 > > │ Test case 1. Average Time: 2284L │
00:00:34 verbose #2219 > > │ Test case 2. Average Time: 1965L │
00:00:34 verbose #2220 > > │ Test case 3. Average Time: 1953L │
00:00:34 verbose #2221 > > │ Test case 4. Average Time: 2325L │
00:00:34 verbose #2222 > > │ Test case 5. Average Time: 2477L │
00:00:34 verbose #2223 > > │ Test case 6. Average Time: 3103L │
00:00:34 verbose #2224 > > │ Test case 7. Average Time: 1797L │
00:00:34 verbose #2225 > > │ Test case 8. Average Time: 1551L │
00:00:34 verbose #2226 > > │ Test case 9. Average Time: 1688L │
00:00:34 verbose #2227 > > │ Test case 10. Average Time: 2749L │
00:00:34 verbose #2228 > > │ Test case 11. Average Time: 4136L │
00:00:34 verbose #2229 > > │ │
00:00:34 verbose #2230 > > │ Ranking │
00:00:34 verbose #2231 > > │ Test case 11. Average Time: 4136L │
00:00:34 verbose #2232 > > │ Test case 6. Average Time: 3103L │
00:00:34 verbose #2233 > > │ Test case 10. Average Time: 2749L │
00:00:34 verbose #2234 > > │ Test case 5. Average Time: 2477L │
00:00:34 verbose #2235 > > │ Test case 4. Average Time: 2325L │
00:00:34 verbose #2236 > > │ Test case 1. Average Time: 2284L │
00:00:34 verbose #2237 > > │ Test case 2. Average Time: 1965L │
00:00:34 verbose #2238 > > │ Test case 3. Average Time: 1953L │
00:00:34 verbose #2239 > > │ Test case 7. Average Time: 1797L │
00:00:34 verbose #2240 > > │ Test case 9. Average Time: 1688L │
00:00:34 verbose #2241 > > │ Test case 8. Average Time: 1551L │
00:00:34 verbose #2242 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 verbose #2243 > >
00:00:34 verbose #2244 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:34 verbose #2245 > > //// test
00:00:34 verbose #2246 > >
00:00:34 verbose #2247 > > let solutions = [[
00:00:34 verbose #2248 > > "A",
00:00:34 verbose #2249 > > fun (input: string) ->
00:00:34 verbose #2250 > > let resultList =
00:00:34 verbose #2251 > > List.fold (fun acc x ->
00:00:34 verbose #2252 > > let rotate (text: string) (letter: string) = (text |>
00:00:34 verbose #2253 > > SpiralSm.slice 1 (input.Length - 1)) + letter
00:00:34 verbose #2254 > > [[ rotate (if acc.IsEmpty then input else acc.Head) (string x)
00:00:34 verbose #2255 > > ]] @ acc
00:00:34 verbose #2256 > > ) [[]] (Seq.toList input)
00:00:34 verbose #2257 > >
00:00:34 verbose #2258 > > (resultList, "")
00:00:34 verbose #2259 > > ||> List.foldBack (fun acc x -> x + acc + " ")
00:00:34 verbose #2260 > > |> _.TrimEnd()
00:00:34 verbose #2261 > >
00:00:34 verbose #2262 > > "B",
00:00:34 verbose #2263 > > fun input ->
00:00:34 verbose #2264 > > input
00:00:34 verbose #2265 > > |> Seq.toList
00:00:34 verbose #2266 > > |> List.fold (fun (acc: string list) letter ->
00:00:34 verbose #2267 > > let last =
00:00:34 verbose #2268 > > if acc.IsEmpty
00:00:34 verbose #2269 > > then input
00:00:34 verbose #2270 > > else acc.Head
00:00:34 verbose #2271 > >
00:00:34 verbose #2272 > > let item = last.[[1 .. input.Length - 1]] + string letter
00:00:34 verbose #2273 > >
00:00:34 verbose #2274 > > item :: acc
00:00:34 verbose #2275 > > ) [[]]
00:00:34 verbose #2276 > > |> List.rev
00:00:34 verbose #2277 > > |> SpiralSm.concat " "
00:00:34 verbose #2278 > >
00:00:34 verbose #2279 > > "C",
00:00:34 verbose #2280 > > fun input ->
00:00:34 verbose #2281 > > input
00:00:34 verbose #2282 > > |> Seq.toList
00:00:34 verbose #2283 > > |> List.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:34 verbose #2284 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:34 verbose #2285 > > |> List.rev
00:00:34 verbose #2286 > > |> List.skip 1
00:00:34 verbose #2287 > > |> SpiralSm.concat " "
00:00:34 verbose #2288 > >
00:00:34 verbose #2289 > > "CA",
00:00:34 verbose #2290 > > fun input ->
00:00:34 verbose #2291 > > input
00:00:34 verbose #2292 > > |> Seq.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:34 verbose #2293 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:34 verbose #2294 > > |> Seq.rev
00:00:34 verbose #2295 > > |> Seq.skip 1
00:00:34 verbose #2296 > > |> SpiralSm.concat " "
00:00:34 verbose #2297 > >
00:00:34 verbose #2298 > > "CB",
00:00:34 verbose #2299 > > fun input ->
00:00:34 verbose #2300 > > input
00:00:34 verbose #2301 > > |> Seq.toArray
00:00:34 verbose #2302 > > |> Array.fold (fun (acc: string[[]]) letter -> acc |> Array.append [[|
00:00:34 verbose #2303 > > acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter |]]) [[| input |]]
00:00:34 verbose #2304 > > |> Array.rev
00:00:34 verbose #2305 > > |> Array.skip 1
00:00:34 verbose #2306 > > |> SpiralSm.concat " "
00:00:34 verbose #2307 > >
00:00:34 verbose #2308 > > "D",
00:00:34 verbose #2309 > > fun input ->
00:00:34 verbose #2310 > > input
00:00:34 verbose #2311 > > |> Seq.toList
00:00:34 verbose #2312 > > |> fun list ->
00:00:34 verbose #2313 > > let rec loop (acc: char list list) = function
00:00:34 verbose #2314 > > | _ when acc.Length = list.Length -> acc
00:00:34 verbose #2315 > > | head :: tail ->
00:00:34 verbose #2316 > > let item = tail @ [[ head ]]
00:00:34 verbose #2317 > > loop (item :: acc) item
00:00:34 verbose #2318 > > | [[]] -> [[]]
00:00:34 verbose #2319 > > loop [[]] list
00:00:34 verbose #2320 > > |> List.rev
00:00:34 verbose #2321 > > |> List.map (List.toArray >> String)
00:00:34 verbose #2322 > > |> SpiralSm.concat " "
00:00:34 verbose #2323 > >
00:00:34 verbose #2324 > > "E",
00:00:34 verbose #2325 > > fun input ->
00:00:34 verbose #2326 > > input
00:00:34 verbose #2327 > > |> Seq.toList
00:00:34 verbose #2328 > > |> fun list ->
00:00:34 verbose #2329 > > let rec loop (last: string) = function
00:00:34 verbose #2330 > > | head :: tail ->
00:00:34 verbose #2331 > > let item = last.[[1 .. input.Length - 1]] + string head
00:00:34 verbose #2332 > > item :: loop item tail
00:00:34 verbose #2333 > > | [[]] -> [[]]
00:00:34 verbose #2334 > > loop input list
00:00:34 verbose #2335 > > |> SpiralSm.concat " "
00:00:34 verbose #2336 > >
00:00:34 verbose #2337 > > "F",
00:00:34 verbose #2338 > > fun input ->
00:00:34 verbose #2339 > > Array.singleton 0
00:00:34 verbose #2340 > > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:34 verbose #2341 > > |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:34 verbose #2342 > > |> SpiralSm.concat " "
00:00:34 verbose #2343 > >
00:00:34 verbose #2344 > > "FA",
00:00:34 verbose #2345 > > fun input ->
00:00:34 verbose #2346 > > List.singleton 0
00:00:34 verbose #2347 > > |> List.append [[ 1 .. input.Length - 1 ]]
00:00:34 verbose #2348 > > |> List.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:34 verbose #2349 > > |> SpiralSm.concat " "
00:00:34 verbose #2350 > >
00:00:34 verbose #2351 > > "FB",
00:00:34 verbose #2352 > > fun input ->
00:00:34 verbose #2353 > > Seq.singleton 0
00:00:34 verbose #2354 > > |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:34 verbose #2355 > > |> Seq.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:34 verbose #2356 > > |> SpiralSm.concat " "
00:00:34 verbose #2357 > >
00:00:34 verbose #2358 > > "FC",
00:00:34 verbose #2359 > > fun input ->
00:00:34 verbose #2360 > > Array.singleton 0
00:00:34 verbose #2361 > > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:34 verbose #2362 > > |> Array.Parallel.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:34 verbose #2363 > > |> SpiralSm.concat " "
00:00:34 verbose #2364 > > ]]
00:00:34 verbose #2365 > > let testCases = seq {
00:00:34 verbose #2366 > > "abc", "bca cab abc"
00:00:34 verbose #2367 > > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:34 verbose #2368 > > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef
00:00:34 verbose #2369 > > hiabcdefg iabcdefgh abcdefghi"
00:00:34 verbose #2370 > > "abab", "baba abab baba abab"
00:00:34 verbose #2371 > > "aa", "aa aa"
00:00:34 verbose #2372 > > "z", "z"
00:00:34 verbose #2373 > > }
00:00:34 verbose #2374 > > let rec rotateStringsTests = runAll (nameof rotateStringsTests) _count solutions
00:00:34 verbose #2375 > > testCases
00:00:34 verbose #2376 > > rotateStringsTests
00:00:34 verbose #2377 > > |> sortResultList
00:00:47 verbose #2378 > >
00:00:47 verbose #2379 > > ╭─[ 13.86s - stdout ]──────────────────────────────────────────────────────────╮
00:00:47 verbose #2380 > > │ │
00:00:47 verbose #2381 > > │ │
00:00:47 verbose #2382 > > │ Test: rotateStringsTests │
00:00:47 verbose #2383 > > │ │
00:00:47 verbose #2384 > > │ Solution: abc │
00:00:47 verbose #2385 > > │ Test case 1. A. Time: 2L │
00:00:47 verbose #2386 > > │ Test case 2. B. Time: 1L │
00:00:47 verbose #2387 > > │ Test case 3. C. Time: 1L │
00:00:47 verbose #2388 > > │ Test case 4. CA. Time: 3L │
00:00:47 verbose #2389 > > │ Test case 5. CB. Time: 2L │
00:00:47 verbose #2390 > > │ Test case 6. D. Time: 2L │
00:00:47 verbose #2391 > > │ Test case 7. E. Time: 1L │
00:00:47 verbose #2392 > > │ Test case 8. F. Time: 1L │
00:00:47 verbose #2393 > > │ Test case 9. FA. Time: 2L │
00:00:47 verbose #2394 > > │ Test case 10. FB. Time: 7L │
00:00:47 verbose #2395 > > │ Test case 11. FC. Time: 8L │
00:00:47 verbose #2396 > > │ │
00:00:47 verbose #2397 > > │ Solution: abcde │
00:00:47 verbose #2398 > > │ Test case 1. A. Time: 2L │
00:00:47 verbose #2399 > > │ Test case 2. B. Time: 1L │
00:00:47 verbose #2400 > > │ Test case 3. C. Time: 1L │
00:00:47 verbose #2401 > > │ Test case 4. CA. Time: 1L │
00:00:47 verbose #2402 > > │ Test case 5. CB. Time: 1L │
00:00:47 verbose #2403 > > │ Test case 6. D. Time: 3L │
00:00:47 verbose #2404 > > │ Test case 7. E. Time: 1L │
00:00:47 verbose #2405 > > │ Test case 8. F. Time: 0L │
00:00:47 verbose #2406 > > │ Test case 9. FA. Time: 1L │
00:00:47 verbose #2407 > > │ Test case 10. FB. Time: 3L │
00:00:47 verbose #2408 > > │ Test case 11. FC. Time: 5L │
00:00:47 verbose #2409 > > │ │
00:00:47 verbose #2410 > > │ Solution: abcdefghi │
00:00:47 verbose #2411 > > │ Test case 1. A. Time: 4L │
00:00:47 verbose #2412 > > │ Test case 2. B. Time: 2L │
00:00:47 verbose #2413 > > │ Test case 3. C. Time: 3L │
00:00:47 verbose #2414 > > │ Test case 4. CA. Time: 1L │
00:00:47 verbose #2415 > > │ Test case 5. CB. Time: 4L │
00:00:47 verbose #2416 > > │ Test case 6. D. Time: 7L │
00:00:47 verbose #2417 > > │ Test case 7. E. Time: 2L │
00:00:47 verbose #2418 > > │ Test case 8. F. Time: 0L │
00:00:47 verbose #2419 > > │ Test case 9. FA. Time: 4L │
00:00:47 verbose #2420 > > │ Test case 10. FB. Time: 4L │
00:00:47 verbose #2421 > > │ Test case 11. FC. Time: 4L │
00:00:47 verbose #2422 > > │ │
00:00:47 verbose #2423 > > │ Solution: abab │
00:00:47 verbose #2424 > > │ Test case 1. A. Time: 1L │
00:00:47 verbose #2425 > > │ Test case 2. B. Time: 1L │
00:00:47 verbose #2426 > > │ Test case 3. C. Time: 1L │
00:00:47 verbose #2427 > > │ Test case 4. CA. Time: 2L │
00:00:47 verbose #2428 > > │ Test case 5. CB. Time: 1L │
00:00:47 verbose #2429 > > │ Test case 6. D. Time: 2L │
00:00:47 verbose #2430 > > │ Test case 7. E. Time: 1L │
00:00:47 verbose #2431 > > │ Test case 8. F. Time: 1L │
00:00:47 verbose #2432 > > │ Test case 9. FA. Time: 1L │
00:00:47 verbose #2433 > > │ Test case 10. FB. Time: 1L │
00:00:47 verbose #2434 > > │ Test case 11. FC. Time: 5L │
00:00:47 verbose #2435 > > │ │
00:00:47 verbose #2436 > > │ Solution: aa │
00:00:47 verbose #2437 > > │ Test case 1. A. Time: 1L │
00:00:47 verbose #2438 > > │ Test case 2. B. Time: 0L │
00:00:47 verbose #2439 > > │ Test case 3. C. Time: 1L │
00:00:47 verbose #2440 > > │ Test case 4. CA. Time: 1L │
00:00:47 verbose #2441 > > │ Test case 5. CB. Time: 0L │
00:00:47 verbose #2442 > > │ Test case 6. D. Time: 0L │
00:00:47 verbose #2443 > > │ Test case 7. E. Time: 0L │
00:00:47 verbose #2444 > > │ Test case 8. F. Time: 0L │
00:00:47 verbose #2445 > > │ Test case 9. FA. Time: 0L │
00:00:47 verbose #2446 > > │ Test case 10. FB. Time: 0L │
00:00:47 verbose #2447 > > │ Test case 11. FC. Time: 5L │
00:00:47 verbose #2448 > > │ │
00:00:47 verbose #2449 > > │ Solution: z │
00:00:47 verbose #2450 > > │ Test case 1. A. Time: 0L │
00:00:47 verbose #2451 > > │ Test case 2. B. Time: 0L │
00:00:47 verbose #2452 > > │ Test case 3. C. Time: 0L │
00:00:47 verbose #2453 > > │ Test case 4. CA. Time: 0L │
00:00:47 verbose #2454 > > │ Test case 5. CB. Time: 0L │
00:00:47 verbose #2455 > > │ Test case 6. D. Time: 0L │
00:00:47 verbose #2456 > > │ Test case 7. E. Time: 0L │
00:00:47 verbose #2457 > > │ Test case 8. F. Time: 0L │
00:00:47 verbose #2458 > > │ Test case 9. FA. Time: 0L │
00:00:47 verbose #2459 > > │ Test case 10. FB. Time: 0L │
00:00:47 verbose #2460 > > │ Test case 11. FC. Time: 5L │
00:00:47 verbose #2461 > > │ │
00:00:47 verbose #2462 > > │ Input | Expected │
00:00:47 verbose #2463 > > │ │
00:00:47 verbose #2464 > > │ | Result │
00:00:47 verbose #2465 > > │ │
00:00:47 verbose #2466 > > │ | Best │
00:00:47 verbose #2467 > > │ --- | --- │
00:00:47 verbose #2468 > > │ │
00:00:47 verbose #2469 > > │ | --- │
00:00:47 verbose #2470 > > │ │
00:00:47 verbose #2471 > > │ | --- │
00:00:47 verbose #2472 > > │ abc | bca cab abc │
00:00:47 verbose #2473 > > │ │
00:00:47 verbose #2474 > > │ | bca cab abc │
00:00:47 verbose #2475 > > │ │
00:00:47 verbose #2476 > > │ | (2, 1) │
00:00:47 verbose #2477 > > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:47 verbose #2478 > > │ | bcdea cdeab deabc eabcd abcde │
00:00:47 verbose #2479 > > │ | (8, 0) │
00:00:47 verbose #2480 > > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:00:47 verbose #2481 > > │ hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd │
00:00:47 verbose #2482 > > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi | (8, 0) │
00:00:47 verbose #2483 > > │ abab | baba abab baba abab │
00:00:47 verbose #2484 > > │ | baba abab baba abab │
00:00:47 verbose #2485 > > │ | (1, 1) │
00:00:47 verbose #2486 > > │ aa | aa aa │
00:00:47 verbose #2487 > > │ │
00:00:47 verbose #2488 > > │ | aa aa │
00:00:47 verbose #2489 > > │ │
00:00:47 verbose #2490 > > │ | (2, 0) │
00:00:47 verbose #2491 > > │ z | z │
00:00:47 verbose #2492 > > │ │
00:00:47 verbose #2493 > > │ | z │
00:00:47 verbose #2494 > > │ │
00:00:47 verbose #2495 > > │ | (1, 0) │
00:00:47 verbose #2496 > > │ │
00:00:47 verbose #2497 > > │ Average Ranking │
00:00:47 verbose #2498 > > │ Test case 2. Average Time: 0L │
00:00:47 verbose #2499 > > │ Test case 7. Average Time: 0L │
00:00:47 verbose #2500 > > │ Test case 8. Average Time: 0L │
00:00:47 verbose #2501 > > │ Test case 1. Average Time: 1L │
00:00:47 verbose #2502 > > │ Test case 3. Average Time: 1L │
00:00:47 verbose #2503 > > │ Test case 4. Average Time: 1L │
00:00:47 verbose #2504 > > │ Test case 5. Average Time: 1L │
00:00:47 verbose #2505 > > │ Test case 9. Average Time: 1L │
00:00:47 verbose #2506 > > │ Test case 6. Average Time: 2L │
00:00:47 verbose #2507 > > │ Test case 10. Average Time: 2L │
00:00:47 verbose #2508 > > │ Test case 11. Average Time: 5L │
00:00:47 verbose #2509 > > │ │
00:00:47 verbose #2510 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #2511 > >
00:00:47 verbose #2512 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:47 verbose #2513 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:47 verbose #2514 > > │ ## rotate_strings_tests │
00:00:47 verbose #2515 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 verbose #2516 > >
00:00:47 verbose #2517 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 verbose #2518 > > //// test
00:00:47 verbose #2519 > > //// timeout=60000
00:00:47 verbose #2520 > >
00:00:47 verbose #2521 > > inl get_solutions () =
00:00:47 verbose #2522 > > [[
00:00:47 verbose #2523 > > // "A",
00:00:47 verbose #2524 > > // fun (input : string) =>
00:00:47 verbose #2525 > > // let resultList =
00:00:47 verbose #2526 > > // List.fold (fun acc x =>
00:00:47 verbose #2527 > > // let rotate (text : string) (letter : string) =
00:00:47 verbose #2528 > > text.Substring (1, input.Length - 1) + letter
00:00:47 verbose #2529 > > // [[ rotate (if acc.IsEmpty then input else acc.Head)
00:00:47 verbose #2530 > > (string x) ]] ++ acc
00:00:47 verbose #2531 > > // ) [[]] (Seq.toList input)
00:00:47 verbose #2532 > >
00:00:47 verbose #2533 > > // List.foldBack (fun acc x => x + acc + " ") resultList ""
00:00:47 verbose #2534 > > // |> fun x => x.TrimEnd ()
00:00:47 verbose #2535 > >
00:00:47 verbose #2536 > > // "B",
00:00:47 verbose #2537 > > // fun input =>
00:00:47 verbose #2538 > > // input
00:00:47 verbose #2539 > > // |> Seq.toList
00:00:47 verbose #2540 > > // |> List.fold (fun (acc : string list) letter =>
00:00:47 verbose #2541 > > // let last =
00:00:47 verbose #2542 > > // if acc.IsEmpty
00:00:47 verbose #2543 > > // then input
00:00:47 verbose #2544 > > // else acc.Head
00:00:47 verbose #2545 > >
00:00:47 verbose #2546 > > // let item = last.[[1 .. input.Length - 1]] + string letter
00:00:47 verbose #2547 > >
00:00:47 verbose #2548 > > // item :: acc
00:00:47 verbose #2549 > > // ) [[]]
00:00:47 verbose #2550 > > // |> List.rev
00:00:47 verbose #2551 > > // |> SpiralSm.concat " "
00:00:47 verbose #2552 > >
00:00:47 verbose #2553 > > // "C",
00:00:47 verbose #2554 > > // fun input =>
00:00:47 verbose #2555 > > // input
00:00:47 verbose #2556 > > // |> Seq.toList
00:00:47 verbose #2557 > > // |> List.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:47 verbose #2558 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:47 verbose #2559 > > // |> List.rev
00:00:47 verbose #2560 > > // |> List.skip 1
00:00:47 verbose #2561 > > // |> SpiralSm.concat " "
00:00:47 verbose #2562 > >
00:00:47 verbose #2563 > > // "CA",
00:00:47 verbose #2564 > > // fun input =>
00:00:47 verbose #2565 > > // input
00:00:47 verbose #2566 > > // |> Seq.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:47 verbose #2567 > > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:47 verbose #2568 > > // |> Seq.rev
00:00:47 verbose #2569 > > // |> Seq.skip 1
00:00:47 verbose #2570 > > // |> SpiralSm.concat " "
00:00:47 verbose #2571 > >
00:00:47 verbose #2572 > > // "CB",
00:00:47 verbose #2573 > > // fun input =>
00:00:47 verbose #2574 > > // input
00:00:47 verbose #2575 > > // |> Seq.toArray
00:00:47 verbose #2576 > > // |> Array.fold (fun (acc : a _ string) letter => acc |>
00:00:47 verbose #2577 > > Array.append (a ;[[ acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter ]]))
00:00:47 verbose #2578 > > (a ;[[ input ]])
00:00:47 verbose #2579 > > // |> Array.rev
00:00:47 verbose #2580 > > // |> Array.skip 1
00:00:47 verbose #2581 > > // |> SpiralSm.concat " "
00:00:47 verbose #2582 > >
00:00:47 verbose #2583 > > // "D",
00:00:47 verbose #2584 > > // fun input =>
00:00:47 verbose #2585 > > // input
00:00:47 verbose #2586 > > // |> Seq.toList
00:00:47 verbose #2587 > > // |> fun list =>
00:00:47 verbose #2588 > > // let rec loop (acc : list (list char)) = function
00:00:47 verbose #2589 > > // | _ when acc.Length = list.Length => acc
00:00:47 verbose #2590 > > // | head :: tail =>
00:00:47 verbose #2591 > > // let item = tail ++ [[ head ]]
00:00:47 verbose #2592 > > // loop (item :: acc) item
00:00:47 verbose #2593 > > // | [[]] => [[]]
00:00:47 verbose #2594 > > // loop [[]] list
00:00:47 verbose #2595 > > // |> List.rev
00:00:47 verbose #2596 > > // |> List.map (List.toArray >> String)
00:00:47 verbose #2597 > > // |> SpiralSm.concat " "
00:00:47 verbose #2598 > >
00:00:47 verbose #2599 > > // "E",
00:00:47 verbose #2600 > > // fun input =>
00:00:47 verbose #2601 > > // input
00:00:47 verbose #2602 > > // |> Seq.toList
00:00:47 verbose #2603 > > // |> fun list =>
00:00:47 verbose #2604 > > // let rec loop (last : string) = function
00:00:47 verbose #2605 > > // | head :: tail =>
00:00:47 verbose #2606 > > // let item = last.[[1 .. input.Length - 1]] + string
00:00:47 verbose #2607 > > head
00:00:47 verbose #2608 > > // item :: loop item tail
00:00:47 verbose #2609 > > // | [[]] => [[]]
00:00:47 verbose #2610 > > // loop input list
00:00:47 verbose #2611 > > // |> SpiralSm.concat " "
00:00:47 verbose #2612 > >
00:00:47 verbose #2613 > > "F",
00:00:47 verbose #2614 > > fun input =>
00:00:47 verbose #2615 > > // Array.singleton 0
00:00:47 verbose #2616 > > // |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:47 verbose #2617 > > // |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:47 verbose #2618 > > // |> SpiralSm.concat " "
00:00:47 verbose #2619 > > inl input_length = input |> sm.length
00:00:47 verbose #2620 > > am.singleton 0i32
00:00:47 verbose #2621 > > |> am.append (am'.init_series 1 (input_length - 1) 1)
00:00:47 verbose #2622 > > |> am.map (fun i =>
00:00:47 verbose #2623 > > inl a = input |> sm'.slice i (input_length - 1)
00:00:47 verbose #2624 > > inl b = input |> sm'.slice 0 (i - 1)
00:00:47 verbose #2625 > > a +. b
00:00:47 verbose #2626 > > )
00:00:47 verbose #2627 > > |> seq.of_array
00:00:47 verbose #2628 > > |> sm'.concat " "
00:00:47 verbose #2629 > >
00:00:47 verbose #2630 > > "FA",
00:00:47 verbose #2631 > > fun input =>
00:00:47 verbose #2632 > > // List.singleton 0
00:00:47 verbose #2633 > > // |> List.append [[ 1 .. input.Length - 1 ]]
00:00:47 verbose #2634 > > // // |> List.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:47 verbose #2635 > > // |> SpiralSm.concat " "
00:00:47 verbose #2636 > > inl input_length = input |> sm.length
00:00:47 verbose #2637 > > listm.singleton 0i32
00:00:47 verbose #2638 > > |> listm.append (listm'.init_series 1 (input_length - 1) 1)
00:00:47 verbose #2639 > > |> listm.map (fun i =>
00:00:47 verbose #2640 > > inl a = input |> sm'.slice i (input_length - 1)
00:00:47 verbose #2641 > > inl b = if i = 0 then "" else input |> sm'.slice 0 (i - 1)
00:00:47 verbose #2642 > > a +. b
00:00:47 verbose #2643 > > )
00:00:47 verbose #2644 > > |> listm.toArray
00:00:47 verbose #2645 > > |> fun x => x : a i32 _
00:00:47 verbose #2646 > > |> seq.of_array
00:00:47 verbose #2647 > > |> sm'.concat " "
00:00:47 verbose #2648 > >
00:00:47 verbose #2649 > > // "FB",
00:00:47 verbose #2650 > > // fun input =>
00:00:47 verbose #2651 > > // Seq.singleton 0
00:00:47 verbose #2652 > > // // |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:47 verbose #2653 > > // // |> Seq.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:47 verbose #2654 > > // |> SpiralSm.concat " "
00:00:47 verbose #2655 > >
00:00:47 verbose #2656 > > // "FC",
00:00:47 verbose #2657 > > // fun input =>
00:00:47 verbose #2658 > > // Array.singleton 0
00:00:47 verbose #2659 > > // |> Array.append (a ;[[ 1 .. input.Length - 1 ]])
00:00:47 verbose #2660 > > //// |> Array.Parallel.map (fun i => input.[[ i .. ]] + input.[[ .. i
00:00:47 verbose #2661 > > - 1 ]])
00:00:47 verbose #2662 > > // |> SpiralSm.concat " "
00:00:47 verbose #2663 > > ]]
00:00:47 verbose #2664 > >
00:00:47 verbose #2665 > > inl rec rotate_strings_tests () =
00:00:47 verbose #2666 > > inl test_cases = [[
00:00:47 verbose #2667 > > "abc", "bca cab abc"
00:00:47 verbose #2668 > > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:47 verbose #2669 > > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde
00:00:47 verbose #2670 > > ghiabcdef hiabcdefg iabcdefgh abcdefghi"
00:00:47 verbose #2671 > > "abab", "baba abab baba abab"
00:00:47 verbose #2672 > > "aa", "aa aa"
00:00:47 verbose #2673 > > "z", "z"
00:00:47 verbose #2674 > > ]]
00:00:47 verbose #2675 > >
00:00:47 verbose #2676 > > inl solutions = get_solutions ()
00:00:47 verbose #2677 > >
00:00:47 verbose #2678 > > // inl is_fast () = true
00:00:47 verbose #2679 > >
00:00:47 verbose #2680 > > inl count =
00:00:47 verbose #2681 > > if is_fast ()
00:00:47 verbose #2682 > > then 1000i32
00:00:47 verbose #2683 > > else 2000000i32
00:00:47 verbose #2684 > >
00:00:47 verbose #2685 > > run_all (nameof rotate_strings_tests) count solutions test_cases
00:00:47 verbose #2686 > > |> sort_result_list
00:00:47 verbose #2687 > >
00:00:47 verbose #2688 > > rotate_strings_tests ()
00:01:11 verbose #2689 > >
00:01:11 verbose #2690 > > ╭─[ 23.56s - stdout ]──────────────────────────────────────────────────────────╮
00:01:11 verbose #2691 > > │ │
00:01:11 verbose #2692 > > │ │
00:01:11 verbose #2693 > > │ Test: v0 │
00:01:11 verbose #2694 > > │ │
00:01:11 verbose #2695 > > │ Solution: "abc" │
00:01:11 verbose #2696 > > │ Test case 1. F. Time: 1113 │
00:01:11 verbose #2697 > > │ Test case 2. FA. Time: 1441 │
00:01:11 verbose #2698 > > │ │
00:01:11 verbose #2699 > > │ Solution: "abcde" │
00:01:11 verbose #2700 > > │ Test case 1. F. Time: 1332 │
00:01:11 verbose #2701 > > │ Test case 2. FA. Time: 1306 │
00:01:11 verbose #2702 > > │ │
00:01:11 verbose #2703 > > │ Solution: "abcdefghi" │
00:01:11 verbose #2704 > > │ Test case 1. F. Time: 2045 │
00:01:11 verbose #2705 > > │ Test case 2. FA. Time: 2517 │
00:01:11 verbose #2706 > > │ │
00:01:11 verbose #2707 > > │ Solution: "abab" │
00:01:11 verbose #2708 > > │ Test case 1. F. Time: 965 │
00:01:11 verbose #2709 > > │ Test case 2. FA. Time: 1105 │
00:01:11 verbose #2710 > > │ │
00:01:11 verbose #2711 > > │ Solution: "aa" │
00:01:11 verbose #2712 > > │ Test case 1. F. Time: 807 │
00:01:11 verbose #2713 > > │ Test case 2. FA. Time: 937 │
00:01:11 verbose #2714 > > │ │
00:01:11 verbose #2715 > > │ Solution: "z" │
00:01:11 verbose #2716 > > │ Test case 1. F. Time: 210 │
00:01:11 verbose #2717 > > │ Test case 2. FA. Time: 176 │
00:01:11 verbose #2718 > > │ │
00:01:11 verbose #2719 > > │ Input | Expected │
00:01:11 verbose #2720 > > │ │
00:01:11 verbose #2721 > > │ | Result │
00:01:11 verbose #2722 > > │ │
00:01:11 verbose #2723 > > │ | Best │
00:01:11 verbose #2724 > > │ --- | --- │
00:01:11 verbose #2725 > > │ │
00:01:11 verbose #2726 > > │ | --- │
00:01:11 verbose #2727 > > │ │
00:01:11 verbose #2728 > > │ | --- │
00:01:11 verbose #2729 > > │ "abc" | "bca cab abc" │
00:01:11 verbose #2730 > > │ │
00:01:11 verbose #2731 > > │ | "bca cab abc" │
00:01:11 verbose #2732 > > │ │
00:01:11 verbose #2733 > > │ | struct (1L, 1113L) │
00:01:11 verbose #2734 > > │ "abcde" | "bcdea cdeab deabc eabcd abcde" │
00:01:11 verbose #2735 > > │ | "bcdea cdeab deabc eabcd abcde" │
00:01:11 verbose #2736 > > │ | struct (2L, 1306L) │
00:01:11 verbose #2737 > > │ "abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:01:11 verbose #2738 > > │ hiabcdefg iabcdefgh abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd │
00:01:11 verbose #2739 > > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi" | struct (1L, 2045L) │
00:01:11 verbose #2740 > > │ "abab" | "baba abab baba abab" │
00:01:11 verbose #2741 > > │ | "baba abab baba abab" │
00:01:11 verbose #2742 > > │ | struct (1L, 965L) │
00:01:11 verbose #2743 > > │ "aa" | "aa aa" │
00:01:11 verbose #2744 > > │ │
00:01:11 verbose #2745 > > │ | "aa aa" │
00:01:11 verbose #2746 > > │ │
00:01:11 verbose #2747 > > │ | struct (1L, 807L) │
00:01:11 verbose #2748 > > │ "z" | "z" │
00:01:11 verbose #2749 > > │ │
00:01:11 verbose #2750 > > │ | "z" │
00:01:11 verbose #2751 > > │ │
00:01:11 verbose #2752 > > │ | struct (2L, 176L) │
00:01:11 verbose #2753 > > │ │
00:01:11 verbose #2754 > > │ Average Ranking │
00:01:11 verbose #2755 > > │ Test case 1. Average Time: 1078L │
00:01:11 verbose #2756 > > │ Test case 2. Average Time: 1247L │
00:01:11 verbose #2757 > > │ │
00:01:11 verbose #2758 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #2759 > >
00:01:11 verbose #2760 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #2761 > > //// test
00:01:11 verbose #2762 > >
00:01:11 verbose #2763 > > // rotate_strings_tests ()
00:01:11 verbose #2764 > > ()
00:01:11 verbose #2765 > >
00:01:11 verbose #2766 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:11 verbose #2767 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:11 verbose #2768 > > │ ## binary_search_tests │
00:01:11 verbose #2769 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #2770 > >
00:01:11 verbose #2771 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 verbose #2772 > > //// test
00:01:11 verbose #2773 > > //// timeout=90000
00:01:11 verbose #2774 > >
00:01:11 verbose #2775 > > inl binary_search_semi_open_1 arr target left right =
00:01:11 verbose #2776 > > inl rec body left right =
00:01:11 verbose #2777 > > if left >= right
00:01:11 verbose #2778 > > then None
00:01:11 verbose #2779 > > else
00:01:11 verbose #2780 > > inl mid = (left + right) / 2
00:01:11 verbose #2781 > > inl item = index arr mid
00:01:11 verbose #2782 > > if item = target
00:01:11 verbose #2783 > > then Some mid
00:01:11 verbose #2784 > > elif item < target
00:01:11 verbose #2785 > > then loop (mid + 1) right
00:01:11 verbose #2786 > > else loop left mid
00:01:11 verbose #2787 > > and inl loop left right =
00:01:11 verbose #2788 > > if var_is right |> not
00:01:11 verbose #2789 > > then body left right
00:01:11 verbose #2790 > > else
00:01:11 verbose #2791 > > inl left = dyn left
00:01:11 verbose #2792 > > join body left right
00:01:11 verbose #2793 > > loop left right
00:01:11 verbose #2794 > >
00:01:11 verbose #2795 > > inl binary_search_closed_1 arr target left right =
00:01:11 verbose #2796 > > inl rec body left right =
00:01:11 verbose #2797 > > if left > right
00:01:11 verbose #2798 > > then None
00:01:11 verbose #2799 > > else
00:01:11 verbose #2800 > > inl mid = (left + right) / 2
00:01:11 verbose #2801 > > inl item = index arr mid
00:01:11 verbose #2802 > > if item = target
00:01:11 verbose #2803 > > then Some mid
00:01:11 verbose #2804 > > elif item < target
00:01:11 verbose #2805 > > then loop (mid + 1) right
00:01:11 verbose #2806 > > else loop left (mid - 1)
00:01:11 verbose #2807 > > and inl loop left right =
00:01:11 verbose #2808 > > if var_is right |> not
00:01:11 verbose #2809 > > then body left right
00:01:11 verbose #2810 > > else
00:01:11 verbose #2811 > > inl left = dyn left
00:01:11 verbose #2812 > > join body left right
00:01:11 verbose #2813 > > loop left right
00:01:11 verbose #2814 > >
00:01:11 verbose #2815 > > inl binary_search_semi_open_2 arr target left right =
00:01:11 verbose #2816 > > let rec body left right =
00:01:11 verbose #2817 > > if left >= right
00:01:11 verbose #2818 > > then None
00:01:11 verbose #2819 > > else
00:01:11 verbose #2820 > > inl mid = (left + right) / 2
00:01:11 verbose #2821 > > inl item = index arr mid
00:01:11 verbose #2822 > > if item = target
00:01:11 verbose #2823 > > then Some mid
00:01:11 verbose #2824 > > elif item < target
00:01:11 verbose #2825 > > then loop (mid + 1) right
00:01:11 verbose #2826 > > else loop left mid
00:01:11 verbose #2827 > > and inl loop left right = body left right
00:01:11 verbose #2828 > > loop left right
00:01:11 verbose #2829 > >
00:01:11 verbose #2830 > > inl binary_search_closed_2 arr target left right =
00:01:11 verbose #2831 > > let rec body left right =
00:01:11 verbose #2832 > > if left > right
00:01:11 verbose #2833 > > then None
00:01:11 verbose #2834 > > else
00:01:11 verbose #2835 > > inl mid = (left + right) / 2
00:01:11 verbose #2836 > > inl item = index arr mid
00:01:11 verbose #2837 > > if item = target
00:01:11 verbose #2838 > > then Some mid
00:01:11 verbose #2839 > > elif item < target
00:01:11 verbose #2840 > > then loop (mid + 1) right
00:01:11 verbose #2841 > > else loop left (mid - 1)
00:01:11 verbose #2842 > > and inl loop left right = body left right
00:01:11 verbose #2843 > > loop left right
00:01:11 verbose #2844 > >
00:01:11 verbose #2845 > > inl get_solutions () =
00:01:11 verbose #2846 > > [[
00:01:11 verbose #2847 > > "semi_open_1",
00:01:11 verbose #2848 > > fun (arr, (target, len)) =>
00:01:11 verbose #2849 > > binary_search_semi_open_1 arr target 0 len
00:01:11 verbose #2850 > >
00:01:11 verbose #2851 > > "closed_1",
00:01:11 verbose #2852 > > fun (arr, (target, len)) =>
00:01:11 verbose #2853 > > binary_search_closed_1 arr target 0 (len - 1)
00:01:11 verbose #2854 > >
00:01:11 verbose #2855 > > "semi_open_2",
00:01:11 verbose #2856 > > fun (arr, (target, len)) =>
00:01:11 verbose #2857 > > binary_search_semi_open_2 arr target 0 len
00:01:11 verbose #2858 > >
00:01:11 verbose #2859 > > "closed_2",
00:01:11 verbose #2860 > > fun (arr, (target, len)) =>
00:01:11 verbose #2861 > > binary_search_closed_2 arr target 0 (len - 1)
00:01:11 verbose #2862 > > ]]
00:01:11 verbose #2863 > >
00:01:11 verbose #2864 > > inl rec binary_search_tests () =
00:01:11 verbose #2865 > > inl arr_with_len target len arr =
00:01:11 verbose #2866 > > arr, (target, (len |> optionm'.default_with fun () => length arr))
00:01:11 verbose #2867 > >
00:01:11 verbose #2868 > > inl test_cases = [[
00:01:11 verbose #2869 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 None), (Some 3i32)
00:01:11 verbose #2870 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 None), (Some 0i32)
00:01:11 verbose #2871 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 None), (Some 6i32)
00:01:11 verbose #2872 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 None), None
00:01:11 verbose #2873 > > ((am'.init_series 1i32 100 1) |> arr_with_len 60 None), (Some 59)
00:01:11 verbose #2874 > >
00:01:11 verbose #2875 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 (Some 7)), (Some
00:01:11 verbose #2876 > > 3i32)
00:01:11 verbose #2877 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 (Some 7)), (Some
00:01:11 verbose #2878 > > 0i32)
00:01:11 verbose #2879 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 (Some 7)), (Some
00:01:11 verbose #2880 > > 6i32)
00:01:11 verbose #2881 > > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 (Some 7)), None
00:01:11 verbose #2882 > > ((am'.init_series 1i32 100 1) |> arr_with_len 60 (Some 100)), (Some 59)
00:01:11 verbose #2883 > > ]]
00:01:11 verbose #2884 > >
00:01:11 verbose #2885 > > inl solutions = get_solutions ()
00:01:11 verbose #2886 > >
00:01:11 verbose #2887 > > // inl is_fast () = true
00:01:11 verbose #2888 > >
00:01:11 verbose #2889 > > inl count =
00:01:11 verbose #2890 > > if is_fast ()
00:01:11 verbose #2891 > > then 1000i32
00:01:11 verbose #2892 > > else 8000000i32
00:01:11 verbose #2893 > >
00:01:11 verbose #2894 > > run_all (nameof binary_search_tests) count solutions test_cases
00:01:11 verbose #2895 > > |> sort_result_list
00:01:11 verbose #2896 > >
00:01:11 verbose #2897 > >
00:01:11 verbose #2898 > > let main () =
00:01:11 verbose #2899 > > binary_search_tests ()
00:01:46 verbose #2900 > >
00:01:46 verbose #2901 > > ╭─[ 35.15s - stdout ]──────────────────────────────────────────────────────────╮
00:01:46 verbose #2902 > > │ │
00:01:46 verbose #2903 > > │ │
00:01:46 verbose #2904 > > │ Test: v25 │
00:01:46 verbose #2905 > > │ │
00:01:46 verbose #2906 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:46 verbose #2907 > > │ Test case 1. semi_open_1. Time: 597 │
00:01:46 verbose #2908 > > │ Test case 2. closed_1. Time: 524 │
00:01:46 verbose #2909 > > │ Test case 3. semi_open_2. Time: 558 │
00:01:46 verbose #2910 > > │ Test case 4. closed_2. Time: 581 │
00:01:46 verbose #2911 > > │ │
00:01:46 verbose #2912 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:46 verbose #2913 > > │ Test case 1. semi_open_1. Time: 472 │
00:01:46 verbose #2914 > > │ Test case 2. closed_1. Time: 439 │
00:01:46 verbose #2915 > > │ Test case 3. semi_open_2. Time: 468 │
00:01:46 verbose #2916 > > │ Test case 4. closed_2. Time: 458 │
00:01:46 verbose #2917 > > │ │
00:01:46 verbose #2918 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:46 verbose #2919 > > │ Test case 1. semi_open_1. Time: 429 │
00:01:46 verbose #2920 > > │ Test case 2. closed_1. Time: 469 │
00:01:46 verbose #2921 > > │ Test case 3. semi_open_2. Time: 510 │
00:01:46 verbose #2922 > > │ Test case 4. closed_2. Time: 553 │
00:01:46 verbose #2923 > > │ │
00:01:46 verbose #2924 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:46 verbose #2925 > > │ Test case 1. semi_open_1. Time: 516 │
00:01:46 verbose #2926 > > │ Test case 2. closed_1. Time: 518 │
00:01:46 verbose #2927 > > │ Test case 3. semi_open_2. Time: 521 │
00:01:46 verbose #2928 > > │ Test case 4. closed_2. Time: 520 │
00:01:46 verbose #2929 > > │ │
00:01:46 verbose #2930 > > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:46 verbose #2931 > > │ 17; 18; 19; 20; │
00:01:46 verbose #2932 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:46 verbose #2933 > > │ 37; 38; │
00:01:46 verbose #2934 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:46 verbose #2935 > > │ 55; 56; │
00:01:46 verbose #2936 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:46 verbose #2937 > > │ 73; 74; │
00:01:46 verbose #2938 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:46 verbose #2939 > > │ 91; 92; │
00:01:46 verbose #2940 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:46 verbose #2941 > > │ Test case 1. semi_open_1. Time: 519 │
00:01:46 verbose #2942 > > │ Test case 2. closed_1. Time: 500 │
00:01:46 verbose #2943 > > │ Test case 3. semi_open_2. Time: 523 │
00:01:46 verbose #2944 > > │ Test case 4. closed_2. Time: 508 │
00:01:46 verbose #2945 > > │ │
00:01:46 verbose #2946 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:46 verbose #2947 > > │ Test case 1. semi_open_1. Time: 437 │
00:01:46 verbose #2948 > > │ Test case 2. closed_1. Time: 442 │
00:01:46 verbose #2949 > > │ Test case 3. semi_open_2. Time: 477 │
00:01:46 verbose #2950 > > │ Test case 4. closed_2. Time: 446 │
00:01:46 verbose #2951 > > │ │
00:01:46 verbose #2952 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:46 verbose #2953 > > │ Test case 1. semi_open_1. Time: 448 │
00:01:46 verbose #2954 > > │ Test case 2. closed_1. Time: 495 │
00:01:46 verbose #2955 > > │ Test case 3. semi_open_2. Time: 469 │
00:01:46 verbose #2956 > > │ Test case 4. closed_2. Time: 456 │
00:01:46 verbose #2957 > > │ │
00:01:46 verbose #2958 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:46 verbose #2959 > > │ Test case 1. semi_open_1. Time: 428 │
00:01:46 verbose #2960 > > │ Test case 2. closed_1. Time: 444 │
00:01:46 verbose #2961 > > │ Test case 3. semi_open_2. Time: 440 │
00:01:46 verbose #2962 > > │ Test case 4. closed_2. Time: 444 │
00:01:46 verbose #2963 > > │ │
00:01:46 verbose #2964 > > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:46 verbose #2965 > > │ Test case 1. semi_open_1. Time: 527 │
00:01:46 verbose #2966 > > │ Test case 2. closed_1. Time: 492 │
00:01:46 verbose #2967 > > │ Test case 3. semi_open_2. Time: 475 │
00:01:46 verbose #2968 > > │ Test case 4. closed_2. Time: 493 │
00:01:46 verbose #2969 > > │ │
00:01:46 verbose #2970 > > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:46 verbose #2971 > > │ 17; 18; 19; 20; │
00:01:46 verbose #2972 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:46 verbose #2973 > > │ 37; 38; │
00:01:46 verbose #2974 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:46 verbose #2975 > > │ 55; 56; │
00:01:46 verbose #2976 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:46 verbose #2977 > > │ 73; 74; │
00:01:46 verbose #2978 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:46 verbose #2979 > > │ 91; 92; │
00:01:46 verbose #2980 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:46 verbose #2981 > > │ Test case 1. semi_open_1. Time: 496 │
00:01:46 verbose #2982 > > │ Test case 2. closed_1. Time: 527 │
00:01:46 verbose #2983 > > │ Test case 3. semi_open_2. Time: 501 │
00:01:46 verbose #2984 > > │ Test case 4. closed_2. Time: 515 │
00:01:46 verbose #2985 > > │ │
00:01:46 verbose #2986 > > │ Input │
00:01:46 verbose #2987 > > │ │
00:01:46 verbose #2988 > > │ │
00:01:46 verbose #2989 > > │ │
00:01:46 verbose #2990 > > │ | Expected | Result | Best │
00:01:46 verbose #2991 > > │ --- │
00:01:46 verbose #2992 > > │ │
00:01:46 verbose #2993 > > │ │
00:01:46 verbose #2994 > > │ │
00:01:46 verbose #2995 > > │ | --- | --- | --- │
00:01:46 verbose #2996 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:46 verbose #2997 > > │ │
00:01:46 verbose #2998 > > │ │
00:01:46 verbose #2999 > > │ │
00:01:46 verbose #3000 > > │ | US0_0 3 | US0_0 3 | struct (2L, 524L) │
00:01:46 verbose #3001 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:46 verbose #3002 > > │ │
00:01:46 verbose #3003 > > │ │
00:01:46 verbose #3004 > > │ │
00:01:46 verbose #3005 > > │ | US0_0 0 | US0_0 0 | struct (2L, 439L) │
00:01:46 verbose #3006 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:46 verbose #3007 > > │ │
00:01:46 verbose #3008 > > │ │
00:01:46 verbose #3009 > > │ │
00:01:46 verbose #3010 > > │ | US0_0 6 | US0_0 6 | struct (1L, 429L) │
00:01:46 verbose #3011 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:46 verbose #3012 > > │ │
00:01:46 verbose #3013 > > │ │
00:01:46 verbose #3014 > > │ │
00:01:46 verbose #3015 > > │ | US0_1 | US0_1 | struct (1L, 516L) │
00:01:46 verbose #3016 > > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:46 verbose #3017 > > │ 20; │
00:01:46 verbose #3018 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:46 verbose #3019 > > │ 37; 38; │
00:01:46 verbose #3020 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:46 verbose #3021 > > │ 55; 56; │
00:01:46 verbose #3022 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:46 verbose #3023 > > │ 73; 74; │
00:01:46 verbose #3024 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:46 verbose #3025 > > │ 91; 92; │
00:01:46 verbose #3026 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:46 verbose #3027 > > │ struct (2L, 500L) │
00:01:46 verbose #3028 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:46 verbose #3029 > > │ │
00:01:46 verbose #3030 > > │ │
00:01:46 verbose #3031 > > │ │
00:01:46 verbose #3032 > > │ | US0_0 3 | US0_0 3 | struct (1L, 437L) │
00:01:46 verbose #3033 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:46 verbose #3034 > > │ │
00:01:46 verbose #3035 > > │ │
00:01:46 verbose #3036 > > │ │
00:01:46 verbose #3037 > > │ | US0_0 0 | US0_0 0 | struct (1L, 448L) │
00:01:46 verbose #3038 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:46 verbose #3039 > > │ │
00:01:46 verbose #3040 > > │ │
00:01:46 verbose #3041 > > │ │
00:01:46 verbose #3042 > > │ | US0_0 6 | US0_0 6 | struct (1L, 428L) │
00:01:46 verbose #3043 > > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:46 verbose #3044 > > │ │
00:01:46 verbose #3045 > > │ │
00:01:46 verbose #3046 > > │ │
00:01:46 verbose #3047 > > │ | US0_1 | US0_1 | struct (3L, 475L) │
00:01:46 verbose #3048 > > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:46 verbose #3049 > > │ 20; │
00:01:46 verbose #3050 > > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:46 verbose #3051 > > │ 37; 38; │
00:01:46 verbose #3052 > > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:46 verbose #3053 > > │ 55; 56; │
00:01:46 verbose #3054 > > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:46 verbose #3055 > > │ 73; 74; │
00:01:46 verbose #3056 > > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:46 verbose #3057 > > │ 91; 92; │
00:01:46 verbose #3058 > > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:46 verbose #3059 > > │ struct (1L, 496L) │
00:01:46 verbose #3060 > > │ │
00:01:46 verbose #3061 > > │ Average Ranking │
00:01:46 verbose #3062 > > │ Test case 2. Average Time: 485L │
00:01:46 verbose #3063 > > │ Test case 1. Average Time: 486L │
00:01:46 verbose #3064 > > │ Test case 3. Average Time: 494L │
00:01:46 verbose #3065 > > │ Test case 4. Average Time: 497L │
00:01:46 verbose #3066 > > │ │
00:01:46 verbose #3067 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #3068 > >
00:01:46 verbose #3069 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 verbose #3070 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 verbose #3071 > > │ ## returnLettersWithOddCountTests │
00:01:46 verbose #3072 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #3073 > >
00:01:46 verbose #3074 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 verbose #3075 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 verbose #3076 > > │ Test: ReturnLettersWithOddCount │
00:01:46 verbose #3077 > > │ │
00:01:46 verbose #3078 > > │ Solution: 1 │
00:01:46 verbose #3079 > > │ Test case 1. A. Time: 645L │
00:01:46 verbose #3080 > > │ │
00:01:46 verbose #3081 > > │ Solution: 2 │
00:01:46 verbose #3082 > > │ Test case 1. A. Time: 663L │
00:01:46 verbose #3083 > > │ │
00:01:46 verbose #3084 > > │ Solution: 3 │
00:01:46 verbose #3085 > > │ Test case 1. A. Time: 680L │
00:01:46 verbose #3086 > > │ │
00:01:46 verbose #3087 > > │ Solution: 9 │
00:01:46 verbose #3088 > > │ Test case 1. A. Time: 730L │
00:01:46 verbose #3089 > > │ │
00:01:46 verbose #3090 > > │ Solution: 10 │
00:01:46 verbose #3091 > > │ Test case 1. A. Time: 815L │
00:01:46 verbose #3092 > > │ │
00:01:46 verbose #3093 > > │ Input | Expected | Result | Best │
00:01:46 verbose #3094 > > │ --- | --- | --- | --- │
00:01:46 verbose #3095 > > │ 1 | a | a | (1, 645) │
00:01:46 verbose #3096 > > │ 2 | ba | ba | (1, 663) │
00:01:46 verbose #3097 > > │ 3 | aaa | aaa | (1, 680) │
00:01:46 verbose #3098 > > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 730) │
00:01:46 verbose #3099 > > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 815) │
00:01:46 verbose #3100 > > │ │
00:01:46 verbose #3101 > > │ Averages │
00:01:46 verbose #3102 > > │ Test case 1. Average Time: 706L │
00:01:46 verbose #3103 > > │ │
00:01:46 verbose #3104 > > │ Ranking │
00:01:46 verbose #3105 > > │ Test case 1. Average Time: 706L │
00:01:46 verbose #3106 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 verbose #3107 > >
00:01:46 verbose #3108 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:46 verbose #3109 > > //// test
00:01:46 verbose #3110 > >
00:01:46 verbose #3111 > > let solutions = [[
00:01:46 verbose #3112 > > "A",
00:01:46 verbose #3113 > > fun n ->
00:01:46 verbose #3114 > > let mutable _builder = StringBuilder (new string('a', n))
00:01:46 verbose #3115 > > if n % 2 = 0 then
00:01:46 verbose #3116 > > _builder.[[0]] <- 'b'
00:01:46 verbose #3117 > >
00:01:46 verbose #3118 > > _builder.ToString ()
00:01:46 verbose #3119 > > ]]
00:01:46 verbose #3120 > > let testCases = seq {
00:01:46 verbose #3121 > > 1, "a"
00:01:46 verbose #3122 > > 2, "ba"
00:01:46 verbose #3123 > > 3, "aaa"
00:01:46 verbose #3124 > > 9, "aaaaaaaaa"
00:01:46 verbose #3125 > > 10, "baaaaaaaaa"
00:01:46 verbose #3126 > > }
00:01:46 verbose #3127 > > let rec returnLettersWithOddCountTests =
00:01:46 verbose #3128 > > runAll (nameof returnLettersWithOddCountTests) _count solutions testCases
00:01:46 verbose #3129 > > returnLettersWithOddCountTests
00:01:46 verbose #3130 > > |> sortResultList
00:01:47 verbose #3131 > >
00:01:47 verbose #3132 > > ╭─[ 1.19s - stdout ]───────────────────────────────────────────────────────────╮
00:01:47 verbose #3133 > > │ │
00:01:47 verbose #3134 > > │ │
00:01:47 verbose #3135 > > │ Test: returnLettersWithOddCountTests │
00:01:47 verbose #3136 > > │ │
00:01:47 verbose #3137 > > │ Solution: 1 │
00:01:47 verbose #3138 > > │ Test case 1. A. Time: 1L │
00:01:47 verbose #3139 > > │ │
00:01:47 verbose #3140 > > │ Solution: 2 │
00:01:47 verbose #3141 > > │ Test case 1. A. Time: 0L │
00:01:47 verbose #3142 > > │ │
00:01:47 verbose #3143 > > │ Solution: 3 │
00:01:47 verbose #3144 > > │ Test case 1. A. Time: 0L │
00:01:47 verbose #3145 > > │ │
00:01:47 verbose #3146 > > │ Solution: 9 │
00:01:47 verbose #3147 > > │ Test case 1. A. Time: 0L │
00:01:47 verbose #3148 > > │ │
00:01:47 verbose #3149 > > │ Solution: 10 │
00:01:47 verbose #3150 > > │ Test case 1. A. Time: 2L │
00:01:47 verbose #3151 > > │ │
00:01:47 verbose #3152 > > │ Input | Expected | Result | Best │
00:01:47 verbose #3153 > > │ --- | --- | --- | --- │
00:01:47 verbose #3154 > > │ 1 | a | a | (1, 1) │
00:01:47 verbose #3155 > > │ 2 | ba | ba | (1, 0) │
00:01:47 verbose #3156 > > │ 3 | aaa | aaa | (1, 0) │
00:01:47 verbose #3157 > > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 0) │
00:01:47 verbose #3158 > > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 2) │
00:01:47 verbose #3159 > > │ │
00:01:47 verbose #3160 > > │ Average Ranking │
00:01:47 verbose #3161 > > │ Test case 1. Average Time: 0L │
00:01:47 verbose #3162 > > │ │
00:01:47 verbose #3163 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #3164 > >
00:01:47 verbose #3165 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 verbose #3166 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 verbose #3167 > > │ ## hasAnyPairCloseToEachotherTests │
00:01:47 verbose #3168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #3169 > >
00:01:47 verbose #3170 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 verbose #3171 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 verbose #3172 > > │ Test: HasAnyPairCloseToEachother │
00:01:47 verbose #3173 > > │ │
00:01:47 verbose #3174 > > │ Solution: 0 │
00:01:47 verbose #3175 > > │ Test case 1. A. Time: 137L │
00:01:47 verbose #3176 > > │ │
00:01:47 verbose #3177 > > │ Solution: 1,2 │
00:01:47 verbose #3178 > > │ Test case 1. A. Time: 186L │
00:01:47 verbose #3179 > > │ │
00:01:47 verbose #3180 > > │ Solution: 3,5 │
00:01:47 verbose #3181 > > │ Test case 1. A. Time: 206L │
00:01:47 verbose #3182 > > │ │
00:01:47 verbose #3183 > > │ Solution: 3,4,6 │
00:01:47 verbose #3184 > > │ Test case 1. A. Time: 149L │
00:01:47 verbose #3185 > > │ │
00:01:47 verbose #3186 > > │ Solution: 2,4,6 │
00:01:47 verbose #3187 > > │ Test case 1. A. Time: 150L │
00:01:47 verbose #3188 > > │ │
00:01:47 verbose #3189 > > │ Input | Expected | Result | Best │
00:01:47 verbose #3190 > > │ --- | --- | --- | --- │
00:01:47 verbose #3191 > > │ 0 | False | False | (1, 137) │
00:01:47 verbose #3192 > > │ 1,2 | True | True | (1, 186) │
00:01:47 verbose #3193 > > │ 3,5 | False | False | (1, 206) │
00:01:47 verbose #3194 > > │ 3,4,6 | True | True | (1, 149) │
00:01:47 verbose #3195 > > │ 2,4,6 | False | False | (1, 150) │
00:01:47 verbose #3196 > > │ │
00:01:47 verbose #3197 > > │ Averages │
00:01:47 verbose #3198 > > │ Test case 1. Average Time: 165L │
00:01:47 verbose #3199 > > │ │
00:01:47 verbose #3200 > > │ Ranking │
00:01:47 verbose #3201 > > │ Test case 1. Average Time: 165L │
00:01:47 verbose #3202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 verbose #3203 > >
00:01:47 verbose #3204 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 verbose #3205 > > //// test
00:01:47 verbose #3206 > >
00:01:47 verbose #3207 > > let solutions = [[
00:01:47 verbose #3208 > > "A",
00:01:47 verbose #3209 > > fun (a: int[[]]) ->
00:01:47 verbose #3210 > > let indices = System.Linq.Enumerable.Range(0, a.Length) |>
00:01:47 verbose #3211 > > System.Linq.Enumerable.ToArray
00:01:47 verbose #3212 > > System.Array.Sort (a, indices)
00:01:47 verbose #3213 > >
00:01:47 verbose #3214 > > indices
00:01:47 verbose #3215 > > |> Array.take (a.Length - 1)
00:01:47 verbose #3216 > > |> Array.exists (fun i -> a.[[i + 1]] - a.[[i]] = 1)
00:01:47 verbose #3217 > > ]]
00:01:47 verbose #3218 > > let testCases = seq {
00:01:47 verbose #3219 > > [[| 0 |]], false
00:01:47 verbose #3220 > > [[| 1; 2 |]], true
00:01:47 verbose #3221 > > [[| 3; 5 |]], false
00:01:47 verbose #3222 > > [[| 3; 4; 6 |]], true
00:01:47 verbose #3223 > > [[| 2; 4; 6 |]], false
00:01:47 verbose #3224 > > }
00:01:47 verbose #3225 > > let rec hasAnyPairCloseToEachotherTests =
00:01:47 verbose #3226 > > runAll (nameof hasAnyPairCloseToEachotherTests) _count solutions testCases
00:01:47 verbose #3227 > > hasAnyPairCloseToEachotherTests
00:01:47 verbose #3228 > > |> sortResultList
00:01:49 verbose #3229 > >
00:01:49 verbose #3230 > > ╭─[ 1.05s - stdout ]───────────────────────────────────────────────────────────╮
00:01:49 verbose #3231 > > │ │
00:01:49 verbose #3232 > > │ │
00:01:49 verbose #3233 > > │ Test: hasAnyPairCloseToEachotherTests │
00:01:49 verbose #3234 > > │ │
00:01:49 verbose #3235 > > │ Solution: 0 │
00:01:49 verbose #3236 > > │ Test case 1. A. Time: 2L │
00:01:49 verbose #3237 > > │ │
00:01:49 verbose #3238 > > │ Solution: 1,2 │
00:01:49 verbose #3239 > > │ Test case 1. A. Time: 0L │
00:01:49 verbose #3240 > > │ │
00:01:49 verbose #3241 > > │ Solution: 3,5 │
00:01:49 verbose #3242 > > │ Test case 1. A. Time: 0L │
00:01:49 verbose #3243 > > │ │
00:01:49 verbose #3244 > > │ Solution: 3,4,6 │
00:01:49 verbose #3245 > > │ Test case 1. A. Time: 0L │
00:01:49 verbose #3246 > > │ │
00:01:49 verbose #3247 > > │ Solution: 2,4,6 │
00:01:49 verbose #3248 > > │ Test case 1. A. Time: 0L │
00:01:49 verbose #3249 > > │ │
00:01:49 verbose #3250 > > │ Input | Expected | Result | Best │
00:01:49 verbose #3251 > > │ --- | --- | --- | --- │
00:01:49 verbose #3252 > > │ 0 | False | False | (1, 2) │
00:01:49 verbose #3253 > > │ 1,2 | True | True | (1, 0) │
00:01:49 verbose #3254 > > │ 3,5 | False | False | (1, 0) │
00:01:49 verbose #3255 > > │ 3,4,6 | True | True | (1, 0) │
00:01:49 verbose #3256 > > │ 2,4,6 | False | False | (1, 0) │
00:01:49 verbose #3257 > > │ │
00:01:49 verbose #3258 > > │ Average Ranking │
00:01:49 verbose #3259 > > │ Test case 1. Average Time: 0L │
00:01:49 verbose #3260 > > │ │
00:01:49 verbose #3261 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:49 verbose #3262 > 00:01:46 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 150136
00:01:49 verbose #3263 > 00:01:46 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/perf/Perf.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:51 verbose #3264 > 00:01:49 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/perf/Perf.dib.ipynb to html
00:01:51 verbose #3265 > 00:01:49 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:51 verbose #3266 > 00:01:49 verbose #7 ! validate(nb)
00:01:53 verbose #3267 > 00:01:51 verbose #8 ! [NbConvertApp] Writing 445208 bytes to c:\home\git\polyglot\apps\perf\Perf.dib.html
00:01:53 verbose #3268 > 00:01:51 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:01:53 verbose #3269 > 00:01:51 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:01:53 verbose #3270 > 00:01:51 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/perf/Perf.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/perf/Perf.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:54 verbose #3271 > 00:01:52 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:54 verbose #3272 > 00:01:52 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:55 verbose #3273 > 00:01:52 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 150832
00:01:55 debug #3274 runtime.execute_with_options_async / exit_code: 0 / output.Length: 159569
00:01:55 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Perf.dib --retries 3
00:01:55 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:01:55 debug #7 async.run_with_timeout_async / timeout: 100
00:00:00 debug #1 writeDibCode / output: Fs / path: Perf.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: Perf.dib
In [ ]:
{ pwsh ../apps/dir-tree-html/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path DirTreeHtml.dib",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "DirTreeHtml.dib"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib", "--output-path", "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib" --output-path "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #10 > >
00:00:04 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #13 > > │ # DirTreeHtml (Polyglot) │
00:00:04 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #15 > >
00:00:04 verbose #16 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:04 verbose #17 > > #r
00:00:04 verbose #18 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:04 verbose #19 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:04 verbose #20 > > #r
00:00:04 verbose #21 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:04 verbose #22 > > 0/System.Reactive.dll"
00:00:04 verbose #23 > > #r
00:00:04 verbose #24 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:04 verbose #25 > > netstandard2.0/System.Reactive.Linq.dll"
00:00:04 verbose #26 > > #r
00:00:04 verbose #27 > > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:00:04 verbose #28 > > #r
00:00:04 verbose #29 > > @"../../../../../../../.nuget/packages/falco.markup/1.1.1/lib/netstandard2.0/Fal
00:00:04 verbose #30 > > co.Markup.dll"
00:00:04 verbose #31 > >
00:00:04 verbose #32 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:04 verbose #33 > > #r
00:00:04 verbose #34 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:04 verbose #35 > > spNetCore.Html.Abstractions.dll"
00:00:04 verbose #36 > > #r
00:00:04 verbose #37 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #38 > > otNet.Interactive.dll"
00:00:04 verbose #39 > > #r
00:00:04 verbose #40 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #41 > > otNet.Interactive.FSharp.dll"
00:00:04 verbose #42 > > #r
00:00:04 verbose #43 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 verbose #44 > > otNet.Interactive.Formatting.dll"
00:00:04 verbose #45 > > open System
00:00:04 verbose #46 > > open System.IO
00:00:04 verbose #47 > > open System.Text
00:00:04 verbose #48 > > open Microsoft.DotNet.Interactive.Formatting
00:00:08 verbose #49 > >
00:00:08 verbose #50 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #51 > > #r
00:00:08 verbose #52 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #53 > > otNet.Interactive.FSharp.dll"
00:00:08 verbose #54 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:08 verbose #55 > > #r
00:00:08 verbose #56 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:08 verbose #57 > > otNet.Interactive.dll"
00:00:08 verbose #58 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:08 verbose #59 > >
00:00:08 verbose #60 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 verbose #61 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:00:09 verbose #62 > >
00:00:09 verbose #63 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #64 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:00:09 verbose #65 > > TextWriter)->fprintfn writer "%120A" x)
00:00:09 verbose #66 > >
00:00:09 verbose #67 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:09 verbose #68 > > #!import ../../lib/fsharp/Notebooks.dib
00:00:09 verbose #69 > > #!import ../../lib/fsharp/Testing.dib
00:00:09 verbose #70 > >
00:00:09 verbose #71 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #72 > > //// test
00:00:09 verbose #73 > >
00:00:09 verbose #74 > > Formatter.ListExpansionLimit <- 100
00:00:09 verbose #75 > >
00:00:09 verbose #76 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 verbose #77 > > #if FABLE_COMPILER
00:00:09 verbose #78 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:09 verbose #79 > > #endif
00:00:09 verbose #80 > > type std_env_VarError = class end
00:00:09 verbose #81 > > #if FABLE_COMPILER
00:00:09 verbose #82 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:09 verbose #83 > > #endif
00:00:09 verbose #84 > > type core_any_Any = class end
00:00:09 verbose #85 > > #if FABLE_COMPILER
00:00:09 verbose #86 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:09 verbose #87 > > #endif
00:00:09 verbose #88 > > type core_ops_Try<'T> = class end
00:00:09 verbose #89 > > #if FABLE_COMPILER
00:00:09 verbose #90 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:09 verbose #91 > > #endif
00:00:09 verbose #92 > > type Func0<'T> = class end
00:00:09 verbose #93 > > #if FABLE_COMPILER
00:00:09 verbose #94 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:09 verbose #95 > > #endif
00:00:09 verbose #96 > > type Func0<'T, 'U> = class end
00:00:09 verbose #97 > > #if FABLE_COMPILER
00:00:09 verbose #98 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:09 verbose #99 > > #endif
00:00:09 verbose #100 > > type Box<'T> = class end
00:00:09 verbose #101 > > #if FABLE_COMPILER
00:00:09 verbose #102 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:09 verbose #103 > > #endif
00:00:09 verbose #104 > > type Dyn<'T> = class end
00:00:09 verbose #105 > > #if FABLE_COMPILER
00:00:09 verbose #106 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:09 verbose #107 > > #endif
00:00:09 verbose #108 > > type Send<'T> = class end
00:00:09 verbose #109 > > #if FABLE_COMPILER
00:00:09 verbose #110 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:09 verbose #111 > > #endif
00:00:09 verbose #112 > > type Fn<'T> = class end
00:00:09 verbose #113 > > #if FABLE_COMPILER
00:00:09 verbose #114 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:09 verbose #115 > > #endif
00:00:09 verbose #116 > > type FnUnit = class end
00:00:09 verbose #117 > > #if FABLE_COMPILER
00:00:09 verbose #118 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:09 verbose #119 > > #endif
00:00:09 verbose #120 > > type FnOnce<'T> = class end
00:00:09 verbose #121 > > #if FABLE_COMPILER
00:00:09 verbose #122 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:09 verbose #123 > > #endif
00:00:09 verbose #124 > > type ActionFn<'T> = class end
00:00:09 verbose #125 > > #if FABLE_COMPILER
00:00:09 verbose #126 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:09 verbose #127 > > #endif
00:00:09 verbose #128 > > type ActionFn2<'T, 'U> = class end
00:00:09 verbose #129 > > #if FABLE_COMPILER
00:00:09 verbose #130 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:09 verbose #131 > > #endif
00:00:09 verbose #132 > > type Impl<'T> = class end
00:00:09 verbose #133 > > #if FABLE_COMPILER
00:00:09 verbose #134 > > [[<Fabl... _v5=None"
00:00:09 verbose #135 > > US5_1
00:00:09 verbose #136 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:00:09 verbose #137 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:00:09 verbose #138 > > let v4 : (US4 -> US5) = closure6()
00:00:09 verbose #139 > > let v5 : (exn -> US5) = closure7(v2)
00:00:09 verbose #140 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:00:09 verbose #141 > > match v6 with
00:00:09 verbose #142 > > | US5_1 -> (* None *)
00:00:09 verbose #143 > > let v8 : int32 = v2 + 1
00:00:09 verbose #144 > > method6(v0, v1, v8)
00:00:09 verbose #145 > > | US5_0(v7) -> (* Some *)
00:00:09 verbose #146 > > v7
00:00:09 verbose #147 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:00:09 verbose #148 > > let v2 : int32 = 0
00:00:09 verbose #149 > > let v3 : US4 = method6(v0, v1, v2)
00:00:09 verbose #150 > > match v3 with
00:00:09 verbose #151 > > | US4_1 -> (* None *)
00:00:09 verbose #152 > > let v5 : unit option = None
00:00:09 verbose #153 > > v5
00:00:09 verbose #154 > > | US4_0 -> (* Some *)
00:00:09 verbose #155 > > let v4 : unit option = Some ()
00:00:09 verbose #156 > > v4
00:00:09 verbose #157 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:00:09 verbose #158 > > closure4(v0)
00:00:09 verbose #159 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #160 > > v0
00:00:09 verbose #161 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:00:09 verbose #162 > > v0.Value
00:00:09 verbose #163 > > ()
00:00:09 verbose #164 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:00:09 verbose #165 > > let v1 : (unit -> unit) = method12(v0)
00:00:09 verbose #166 > > let v2 : Lazy<unit> = lazy v1 ()
00:00:09 verbose #167 > > closure13(v2)
00:00:09 verbose #168 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:09 verbose #169 > > let v1 : US0 = US0_0
00:00:09 verbose #170 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:09 verbose #171 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:00:09 verbose #172 > > let new_disposable x = v2 x
00:00:09 verbose #173 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:00:09 verbose #174 > > let retry_fn x = v3 x
00:00:09 verbose #175 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:00:09 verbose #176 > > let memoize x = v4 x
00:00:09 verbose #177 > > ()
00:00:09 verbose #178 > >
00:00:10 verbose #179 > >
00:00:10 verbose #180 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 verbose #181 > > #if FABLE_COMPILER
00:00:10 verbose #182 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:10 verbose #183 > > #endif
00:00:10 verbose #184 > > type core_any_Any = class end
00:00:10 verbose #185 > > #if FABLE_COMPILER
00:00:10 verbose #186 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:10 verbose #187 > > #endif
00:00:10 verbose #188 > > type core_ops_Try<'T> = class end
00:00:10 verbose #189 > > #if FABLE_COMPILER
00:00:10 verbose #190 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:10 verbose #191 > > #endif
00:00:10 verbose #192 > > type Func0<'T> = class end
00:00:10 verbose #193 > > #if FABLE_COMPILER
00:00:10 verbose #194 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:10 verbose #195 > > #endif
00:00:10 verbose #196 > > type Func0<'T, 'U> = class end
00:00:10 verbose #197 > > #if FABLE_COMPILER
00:00:10 verbose #198 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:10 verbose #199 > > #endif
00:00:10 verbose #200 > > type Box<'T> = class end
00:00:10 verbose #201 > > #if FABLE_COMPILER
00:00:10 verbose #202 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:10 verbose #203 > > #endif
00:00:10 verbose #204 > > type Dyn<'T> = class end
00:00:10 verbose #205 > > #if FABLE_COMPILER
00:00:10 verbose #206 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:10 verbose #207 > > #endif
00:00:10 verbose #208 > > type Send<'T> = class end
00:00:10 verbose #209 > > #if FABLE_COMPILER
00:00:10 verbose #210 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:10 verbose #211 > > #endif
00:00:10 verbose #212 > > type Fn<'T> = class end
00:00:10 verbose #213 > > #if FABLE_COMPILER
00:00:10 verbose #214 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:10 verbose #215 > > #endif
00:00:10 verbose #216 > > type FnUnit = class end
00:00:10 verbose #217 > > #if FABLE_COMPILER
00:00:10 verbose #218 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:10 verbose #219 > > #endif
00:00:10 verbose #220 > > type FnOnce<'T> = class end
00:00:10 verbose #221 > > #if FABLE_COMPILER
00:00:10 verbose #222 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:10 verbose #223 > > #endif
00:00:10 verbose #224 > > type ActionFn<'T> = class end
00:00:10 verbose #225 > > #if FABLE_COMPILER
00:00:10 verbose #226 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:10 verbose #227 > > #endif
00:00:10 verbose #228 > > type ActionFn2<'T, 'U> = class end
00:00:10 verbose #229 > > #if FABLE_COMPILER
00:00:10 verbose #230 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:10 verbose #231 > > #endif
00:00:10 verbose #232 > > type Impl<'T> = class end
00:00:10 verbose #233 > > #if FABLE_COMPILER
00:00:10 verbose #234 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:10 verbose #235 > > #endif
00:00:10 verbose #236 > > type Mut<'T> = class end
00:00:10 verbose #237 > > #if FABLE_COMPILER
00:00:10 verbose #238 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:00:10 verbose #239 > > let replace x = v4 x
00:00:10 verbose #240 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:00:10 verbose #241 > > let replace_regex x = v5 x
00:00:10 verbose #242 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:00:10 verbose #243 > > let slice x = v6 x
00:00:10 verbose #244 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:00:10 verbose #245 > > let split x = v7 x
00:00:10 verbose #246 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:00:10 verbose #247 > > let split_string x = v8 x
00:00:10 verbose #248 > > let v9 : (string -> (string -> bool)) = closure23()
00:00:10 verbose #249 > > let starts_with x = v9 x
00:00:10 verbose #250 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:00:10 verbose #251 > > let substring x = v10 x
00:00:10 verbose #252 > > let v11 : (string -> string) = closure28()
00:00:10 verbose #253 > > let to_lower x = v11 x
00:00:10 verbose #254 > > let v12 : (string -> string) = closure29()
00:00:10 verbose #255 > > let to_upper x = v12 x
00:00:10 verbose #256 > > let v13 : (string -> string) = closure30()
00:00:10 verbose #257 > > let trim x = v13 x
00:00:10 verbose #258 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:00:10 verbose #259 > > let trim_end x = v14 x
00:00:10 verbose #260 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:00:10 verbose #261 > > let trim_start x = v15 x
00:00:10 verbose #262 > > let v16 : (int32 -> (string -> string)) = closure35()
00:00:10 verbose #263 > > let ellipsis x = v16 x
00:00:10 verbose #264 > > let v17 : (int64 -> (string -> string)) = closure37()
00:00:10 verbose #265 > > let ellipsis_end x = v17 x
00:00:10 verbose #266 > > let v18 : (exn -> string) = closure39()
00:00:10 verbose #267 > > let format_exception x = v18 x
00:00:10 verbose #268 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:00:10 verbose #269 > > let concat_array_trailing x = v19 x
00:00:10 verbose #270 > > let v20 : (string -> (string seq -> string)) = closure42()
00:00:10 verbose #271 > > let concat x = v20 x
00:00:10 verbose #272 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:00:10 verbose #273 > > let join' x = v21 x
00:00:10 verbose #274 > > let v22 : (string -> (char [[]])) = closure46()
00:00:10 verbose #275 > > let to_char_array x = v22 x
00:00:10 verbose #276 > > ()
00:00:10 verbose #277 > >
00:00:11 verbose #278 > >
00:00:11 verbose #279 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:11 verbose #280 > > #if FABLE_COMPILER
00:00:11 verbose #281 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:11 verbose #282 > > #endif
00:00:11 verbose #283 > > type core_any_Any = class end
00:00:11 verbose #284 > > #if FABLE_COMPILER
00:00:11 verbose #285 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:11 verbose #286 > > #endif
00:00:11 verbose #287 > > type core_ops_Try<'T> = class end
00:00:11 verbose #288 > > #if FABLE_COMPILER
00:00:11 verbose #289 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:11 verbose #290 > > #endif
00:00:11 verbose #291 > > type Func0<'T> = class end
00:00:11 verbose #292 > > #if FABLE_COMPILER
00:00:11 verbose #293 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:11 verbose #294 > > #endif
00:00:11 verbose #295 > > type Func0<'T, 'U> = class end
00:00:11 verbose #296 > > #if FABLE_COMPILER
00:00:11 verbose #297 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:11 verbose #298 > > #endif
00:00:11 verbose #299 > > type Box<'T> = class end
00:00:11 verbose #300 > > #if FABLE_COMPILER
00:00:11 verbose #301 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:11 verbose #302 > > #endif
00:00:11 verbose #303 > > type Dyn<'T> = class end
00:00:11 verbose #304 > > #if FABLE_COMPILER
00:00:11 verbose #305 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:11 verbose #306 > > #endif
00:00:11 verbose #307 > > type Send<'T> = class end
00:00:11 verbose #308 > > #if FABLE_COMPILER
00:00:11 verbose #309 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:11 verbose #310 > > #endif
00:00:11 verbose #311 > > type Fn<'T> = class end
00:00:11 verbose #312 > > #if FABLE_COMPILER
00:00:11 verbose #313 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:11 verbose #314 > > #endif
00:00:11 verbose #315 > > type FnUnit = class end
00:00:11 verbose #316 > > #if FABLE_COMPILER
00:00:11 verbose #317 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:11 verbose #318 > > #endif
00:00:11 verbose #319 > > type FnOnce<'T> = class end
00:00:11 verbose #320 > > #if FABLE_COMPILER
00:00:11 verbose #321 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:11 verbose #322 > > #endif
00:00:11 verbose #323 > > type ActionFn<'T> = class end
00:00:11 verbose #324 > > #if FABLE_COMPILER
00:00:11 verbose #325 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:11 verbose #326 > > #endif
00:00:11 verbose #327 > > type ActionFn2<'T, 'U> = class end
00:00:11 verbose #328 > > #if FABLE_COMPILER
00:00:11 verbose #329 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:11 verbose #330 > > #endif
00:00:11 verbose #331 > > type Impl<'T> = class end
00:00:11 verbose #332 > > #if FABLE_COMPILER
00:00:11 verbose #333 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:11 verbose #334 > > #endif
00:00:11 verbose #335 > > type Mut<'T> = class end
00:00:11 verbose #336 > > #if FABLE_COMPILER
00:00:11 verbose #337 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:00:11 verbose #338 > > ()
00:00:11 verbose #339 > > #endif
00:00:11 verbose #340 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:11 verbose #341 > > let v28 : string = @"println!(""{}"", $0)"
00:00:11 verbose #342 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:11 verbose #343 > > ()
00:00:11 verbose #344 > > #endif
00:00:11 verbose #345 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:11 verbose #346 > > System.Console.WriteLine v24
00:00:11 verbose #347 > > ()
00:00:11 verbose #348 > > #endif
00:00:11 verbose #349 > > #if FABLE_COMPILER_PYTHON
00:00:11 verbose #350 > > System.Console.WriteLine v24
00:00:11 verbose #351 > > ()
00:00:11 verbose #352 > > #endif
00:00:11 verbose #353 > > #else
00:00:11 verbose #354 > > System.Console.WriteLine v24
00:00:11 verbose #355 > > ()
00:00:11 verbose #356 > > #endif
00:00:11 verbose #357 > > |> fun x -> _v25 <- Some x
00:00:11 verbose #358 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:11 verbose #359 > > _v25=None"
00:00:11 verbose #360 > > let v29 : (string -> unit) = v8.l0
00:00:11 verbose #361 > > v29 v24
00:00:11 verbose #362 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:11 verbose #363 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:11 verbose #364 > > method11(v0, v3)
00:00:11 verbose #365 > > and closure1 () (v0 : string) : uint16 =
00:00:11 verbose #366 > > let v1 : char = v0.[[int 0]]
00:00:11 verbose #367 > > let v2 : (char -> int32) = int32
00:00:11 verbose #368 > > let v3 : int32 = v2 v1
00:00:11 verbose #369 > > let v4 : string = v0.[[int 0..int 7]]
00:00:11 verbose #370 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:00:11 verbose #371 > > let v6 : int32 = v5 + v3
00:00:11 verbose #372 > > let v7 : (int32 -> uint16) = uint16
00:00:11 verbose #373 > > let v8 : uint16 = v7 v6
00:00:11 verbose #374 > > let v9 : US0 = US0_0
00:00:11 verbose #375 > > let v10 : (unit -> string) = closure2()
00:00:11 verbose #376 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:00:11 verbose #377 > > method3(v9, v10, v11)
00:00:11 verbose #378 > > let v12 : uint16 = v8 % 48128us
00:00:11 verbose #379 > > let v13 : uint16 = v12 + 1024us
00:00:11 verbose #380 > > v13
00:00:11 verbose #381 > > let v0 : (string -> string) = closure0()
00:00:11 verbose #382 > > let hash_text x = v0 x
00:00:11 verbose #383 > > let v1 : (string -> uint16) = closure1()
00:00:11 verbose #384 > > let hash_to_port x = v1 x
00:00:11 verbose #385 > > ()
00:00:11 verbose #386 > >
00:00:12 verbose #387 > >
00:00:12 verbose #388 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #389 > > #if FABLE_COMPILER
00:00:12 verbose #390 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #391 > > #endif
00:00:12 verbose #392 > > type core_any_Any = class end
00:00:12 verbose #393 > > #if FABLE_COMPILER
00:00:12 verbose #394 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #395 > > #endif
00:00:12 verbose #396 > > type core_ops_Try<'T> = class end
00:00:12 verbose #397 > > #if FABLE_COMPILER
00:00:12 verbose #398 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #399 > > #endif
00:00:12 verbose #400 > > type Func0<'T> = class end
00:00:12 verbose #401 > > #if FABLE_COMPILER
00:00:12 verbose #402 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #403 > > #endif
00:00:12 verbose #404 > > type Func0<'T, 'U> = class end
00:00:12 verbose #405 > > #if FABLE_COMPILER
00:00:12 verbose #406 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #407 > > #endif
00:00:12 verbose #408 > > type Box<'T> = class end
00:00:12 verbose #409 > > #if FABLE_COMPILER
00:00:12 verbose #410 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #411 > > #endif
00:00:12 verbose #412 > > type Dyn<'T> = class end
00:00:12 verbose #413 > > #if FABLE_COMPILER
00:00:12 verbose #414 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #415 > > #endif
00:00:12 verbose #416 > > type Send<'T> = class end
00:00:12 verbose #417 > > #if FABLE_COMPILER
00:00:12 verbose #418 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #419 > > #endif
00:00:12 verbose #420 > > type Fn<'T> = class end
00:00:12 verbose #421 > > #if FABLE_COMPILER
00:00:12 verbose #422 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #423 > > #endif
00:00:12 verbose #424 > > type FnUnit = class end
00:00:12 verbose #425 > > #if FABLE_COMPILER
00:00:12 verbose #426 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #427 > > #endif
00:00:12 verbose #428 > > type FnOnce<'T> = class end
00:00:12 verbose #429 > > #if FABLE_COMPILER
00:00:12 verbose #430 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:12 verbose #431 > > #endif
00:00:12 verbose #432 > > type ActionFn<'T> = class end
00:00:12 verbose #433 > > #if FABLE_COMPILER
00:00:12 verbose #434 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:12 verbose #435 > > #endif
00:00:12 verbose #436 > > type ActionFn2<'T, 'U> = class end
00:00:12 verbose #437 > > #if FABLE_COMPILER
00:00:12 verbose #438 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:12 verbose #439 > > #endif
00:00:12 verbose #440 > > type Impl<'T> = class end
00:00:12 verbose #441 > > #if FABLE_COMPILER
00:00:12 verbose #442 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:12 verbose #443 > > #endif
00:00:12 verbose #444 > > type Mut<'T> = class end
00:00:12 verbose #445 > > #if FABLE_COMPILER
00:00:12 verbose #446 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:00:12 verbose #447 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:00:12 verbose #448 > > let v2 : System.Guid = v1 ()
00:00:12 verbose #449 > > let v3 : (System.Guid -> string) = _.ToString()
00:00:12 verbose #450 > > let v4 : string = v3 v2
00:00:12 verbose #451 > > let v5 : (int64 -> string) = _.ToString()
00:00:12 verbose #452 > > let v6 : string = v5 v0
00:00:12 verbose #453 > > let v7 : string = v6.PadLeft (18, '0')
00:00:12 verbose #454 > > let v8 : System.Guid = System.Guid
00:00:12 verbose #455 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:00:12 verbose #456 > > v8
00:00:12 verbose #457 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:00:12 verbose #458 > > let v2 : (string -> string) = v1.ToString
00:00:12 verbose #459 > > v2 v0
00:00:12 verbose #460 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:00:12 verbose #461 > > closure12(v0)
00:00:12 verbose #462 > > and closure13 () (v0 : System.DateTime) : string =
00:00:12 verbose #463 > > let v1 : (string -> string) = v0.ToString
00:00:12 verbose #464 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:00:12 verbose #465 > > v1 v2
00:00:12 verbose #466 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:00:12 verbose #467 > > let date_time_guid_from_date_time x = v0 x
00:00:12 verbose #468 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:00:12 verbose #469 > > let date_time_from_guid x = v1 x
00:00:12 verbose #470 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:00:12 verbose #471 > > let timestamp_guid_from_timestamp x = v2 x
00:00:12 verbose #472 > > let v3 : (System.Guid -> int64) = closure8()
00:00:12 verbose #473 > > let timestamp_from_guid x = v3 x
00:00:12 verbose #474 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:00:12 verbose #475 > > let new_guid_from_date_time x = v4 x
00:00:12 verbose #476 > > let v5 : (int64 -> System.Guid) = closure10()
00:00:12 verbose #477 > > let new_guid_from_timestamp x = v5 x
00:00:12 verbose #478 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:00:12 verbose #479 > > let format x = v6 x
00:00:12 verbose #480 > > let v7 : (System.DateTime -> string) = closure13()
00:00:12 verbose #481 > > let format_iso8601 x = v7 x
00:00:12 verbose #482 > > ()
00:00:12 verbose #483 > >
00:00:12 verbose #484 > >
00:00:12 verbose #485 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #486 > > #if FABLE_COMPILER
00:00:12 verbose #487 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:00:12 verbose #488 > > #endif
00:00:12 verbose #489 > > type futures_future_JoinAll<'T> = class end
00:00:12 verbose #490 > > #if FABLE_COMPILER
00:00:12 verbose #491 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:00:12 verbose #492 > > #endif
00:00:12 verbose #493 > > type futures_future_TryJoinAll<'T> = class end
00:00:12 verbose #494 > > #if FABLE_COMPILER
00:00:12 verbose #495 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:00:12 verbose #496 > > #endif
00:00:12 verbose #497 > > type rayon_iter_Map<'T> = class end
00:00:12 verbose #498 > > #if FABLE_COMPILER
00:00:12 verbose #499 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:00:12 verbose #500 > > #endif
00:00:12 verbose #501 > > type rayon_vec_IntoIter<'T> = class end
00:00:12 verbose #502 > > #if FABLE_COMPILER
00:00:12 verbose #503 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:00:12 verbose #504 > > #endif
00:00:12 verbose #505 > > type std_future_Future<'T> = class end
00:00:12 verbose #506 > > #if FABLE_COMPILER
00:00:12 verbose #507 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:00:12 verbose #508 > > #endif
00:00:12 verbose #509 > > type futures_future_Fuse<'T> = class end
00:00:12 verbose #510 > > #if FABLE_COMPILER
00:00:12 verbose #511 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:00:12 verbose #512 > > #endif
00:00:12 verbose #513 > > type tokio_task_JoinHandle<'T> = class end
00:00:12 verbose #514 > > #if FABLE_COMPILER
00:00:12 verbose #515 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:00:12 verbose #516 > > #endif
00:00:12 verbose #517 > > type tokio_stream_StreamExt = class end
00:00:12 verbose #518 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:12 verbose #519 > > Async<System.Threading.CancellationToken> =
00:00:12 verbose #520 > > let v1 : bool = true
00:00:12 verbose #521 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #522 > >
00:00:12 verbose #523 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #524 > >
00:00:12 verbose #525 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:12 verbose #526 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:12 verbose #527 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:00:12 verbose #528 > > v12
00:00:12 verbose #529 > > #endif
00:00:12 verbose #530 > > #else
00:00:12 verbose #531 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:00:12 verbose #532 > > let mutable _v13 = v13
00:00:12 verbose #533 > > async {
00:00:12 verbose #534 > > let v14 : Async<System.Threading.CancellationToken> =
00:00:12 verbose #535 > > Async.CancellationToken
00:00:12 verbose #536 > > let! v14 = v14
00:00:12 verbose #537 > > let v15 : System.Threading.CancellationToken = v14
00:00:12 verbose #538 > > let v16 : System.Threading.CancellationToken =
00:00:12 verbose #539 > > Async.DefaultCancellationToken
00:00:12 verbose #540 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:00:12 verbose #541 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:00:12 verbose #542 > > System.Threading.CancellationTokenSource) =
00:00:12 verbose #543 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:00:12 verbose #544 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:00:12 verbose #545 > > let v20 : System.Threading.CancellationToken = v19.Token
00:00:12 verbose #546 > > return v20
00:00:12 verbose #547 > > }
00:00:12 verbose #548 > > |> fun x -> _v13 <- Some x
00:00:12 verbose #549 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:00:12 verbose #550 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:00:12 verbose #551 > > v21
00:00:12 verbose #552 > > #endif
00:00:12 verbose #553 > > |> fun x -> _v7 <- Some x
00:00:12 verbose #554 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:00:12 verbose #555 > > -> x | None -> failwith "base.run_target / _v7=None"
00:00:12 verbose #556 > > v22
00:00:12 verbose #557 > > #endif
00:00:12 verbose #558 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #559 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:00:12 verbose #560 > > -> x | None -> failwith "base.run_target / _v1=None"
00:00:12 verbose #561 > > v23
00:00:12 verbose #562 > > let v0 : (System.Threading.CancellationToken ->
00:00:12 verbose #563 > > Async<System.Threading.CancellationToken>) = closure0()
00:00:12 verbose #564 > > let merge_cancellation_token_with_default_async x = v0 x
00:00:12 verbose #565 > > ()
00:00:12 verbose #566 > >
00:00:12 verbose #567 > >
00:00:12 verbose #568 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #569 > > #if FABLE_COMPILER
00:00:12 verbose #570 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:00:12 verbose #571 > > #endif
00:00:12 verbose #572 > > type std_thread_JoinHandle<'T> = class end
00:00:12 verbose #573 > > #if FABLE_COMPILER
00:00:12 verbose #574 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:00:12 verbose #575 > > #endif
00:00:12 verbose #576 > > type std_sync_Arc<'T> = class end
00:00:12 verbose #577 > > #if FABLE_COMPILER
00:00:12 verbose #578 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:00:12 verbose #579 > > #endif
00:00:12 verbose #580 > > type std_sync_Mutex<'T> = class end
00:00:12 verbose #581 > > #if FABLE_COMPILER
00:00:12 verbose #582 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:00:12 verbose #583 > > #endif
00:00:12 verbose #584 > > type std_sync_MutexGuard<'T> = class end
00:00:12 verbose #585 > > #if FABLE_COMPILER
00:00:12 verbose #586 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:00:12 verbose #587 > > #endif
00:00:12 verbose #588 > > type std_sync_PoisonError<'T> = class end
00:00:12 verbose #589 > > #if FABLE_COMPILER
00:00:12 verbose #590 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:00:12 verbose #591 > > #endif
00:00:12 verbose #592 > > type std_sync_mpsc_Receiver<'T> = class end
00:00:12 verbose #593 > > #if FABLE_COMPILER
00:00:12 verbose #594 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:00:12 verbose #595 > > #endif
00:00:12 verbose #596 > > type std_sync_mpsc_SendError<'T> = class end
00:00:12 verbose #597 > > #if FABLE_COMPILER
00:00:12 verbose #598 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:00:12 verbose #599 > > #endif
00:00:12 verbose #600 > > type std_sync_mpsc_Sender<'T> = class end
00:00:12 verbose #601 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:00:12 verbose #602 > > _.Dispose () = f ()
00:00:12 verbose #603 > > type [[<Struct>]] US0 =
00:00:12 verbose #604 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:00:12 verbose #605 > > | US0_1
00:00:12 verbose #606 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:00:12 verbose #607 > > let v1 : bool = true
00:00:12 verbose #608 > > let mutable _v1 : unit option = None
00:00:12 verbose #609 > >
00:00:12 verbose #610 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:12 verbose #611 > >
00:00:12 verbose #612 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:00:12 verbose #613 > > "$0()" )
00:00:12 verbose #614 > > v28
00:00:12 verbose #615 > > #endif
00:00:12 verbose #616 > > #if FABLE_COMPILER_RUST && WASM
00:00:12 verbose #617 > > let v29 : (unit -> unit) = method0(v25)
00:00:12 verbose #618 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:00:12 verbose #619 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:00:12 verbose #620 > > v30
00:00:12 verbose #621 > > #endif
00:00:12 verbose #622 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:12 verbose #623 > > let v31 : (unit -> unit) = method0(v25)
00:00:12 verbose #624 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:00:12 verbose #625 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:00:12 verbose #626 > > v32
00:00:12 verbose #627 > > #endif
00:00:12 verbose #628 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:12 verbose #629 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:12 verbose #630 > > v33
00:00:12 verbose #631 > > #endif
00:00:12 verbose #632 > > #if FABLE_COMPILER_PYTHON
00:00:12 verbose #633 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:12 verbose #634 > > v34
00:00:12 verbose #635 > > #endif
00:00:12 verbose #636 > > #else
00:00:12 verbose #637 > > let v35 : (unit -> unit) = method1(v25)
00:00:12 verbose #638 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:00:12 verbose #639 > > _.Dispose () = v35 () }
00:00:12 verbose #640 > > v36
00:00:12 verbose #641 > > #endif
00:00:12 verbose #642 > > |> fun x -> _v26 <- Some x
00:00:12 verbose #643 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:00:12 verbose #644 > > failwith "base.run_target / _v26=None"
00:00:12 verbose #645 > > let v38 : System.Threading.CancellationToken = v25.Token
00:00:12 verbose #646 > > struct (v38, v37)
00:00:12 verbose #647 > > #endif
00:00:12 verbose #648 > > |> fun x -> _v1 <- Some x
00:00:12 verbose #649 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:00:12 verbose #650 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:00:12 verbose #651 > > "base.run_target / _v1=None"
00:00:12 verbose #652 > > struct (v39, v40)
00:00:12 verbose #653 > > let v0 : (System.Threading.CancellationToken option -> struct
00:00:12 verbose #654 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:00:12 verbose #655 > > let new_disposable_token x = v0 x
00:00:12 verbose #656 > > ()
00:00:12 verbose #657 > >
00:00:12 verbose #658 > >
00:00:12 verbose #659 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 verbose #660 > > #if FABLE_COMPILER
00:00:12 verbose #661 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:00:12 verbose #662 > > #endif
00:00:12 verbose #663 > > type reqwest_Error = class end
00:00:12 verbose #664 > > #if FABLE_COMPILER
00:00:12 verbose #665 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:00:12 verbose #666 > > #endif
00:00:12 verbose #667 > > type reqwest_RequestBuilder = class end
00:00:12 verbose #668 > > #if FABLE_COMPILER
00:00:12 verbose #669 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:00:12 verbose #670 > > #endif
00:00:12 verbose #671 > > type reqwest_Response = class end
00:00:12 verbose #672 > > #if FABLE_COMPILER
00:00:12 verbose #673 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:00:12 verbose #674 > > #endif
00:00:12 verbose #675 > > type std_env_VarError = class end
00:00:12 verbose #676 > > #if FABLE_COMPILER
00:00:12 verbose #677 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:12 verbose #678 > > #endif
00:00:12 verbose #679 > > type core_any_Any = class end
00:00:12 verbose #680 > > #if FABLE_COMPILER
00:00:12 verbose #681 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:12 verbose #682 > > #endif
00:00:12 verbose #683 > > type core_ops_Try<'T> = class end
00:00:12 verbose #684 > > #if FABLE_COMPILER
00:00:12 verbose #685 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:12 verbose #686 > > #endif
00:00:12 verbose #687 > > type Func0<'T> = class end
00:00:12 verbose #688 > > #if FABLE_COMPILER
00:00:12 verbose #689 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:12 verbose #690 > > #endif
00:00:12 verbose #691 > > type Func0<'T, 'U> = class end
00:00:12 verbose #692 > > #if FABLE_COMPILER
00:00:12 verbose #693 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:12 verbose #694 > > #endif
00:00:12 verbose #695 > > type Box<'T> = class end
00:00:12 verbose #696 > > #if FABLE_COMPILER
00:00:12 verbose #697 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:12 verbose #698 > > #endif
00:00:12 verbose #699 > > type Dyn<'T> = class end
00:00:12 verbose #700 > > #if FABLE_COMPILER
00:00:12 verbose #701 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:12 verbose #702 > > #endif
00:00:12 verbose #703 > > type Send<'T> = class end
00:00:12 verbose #704 > > #if FABLE_COMPILER
00:00:12 verbose #705 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:12 verbose #706 > > #endif
00:00:12 verbose #707 > > type Fn<'T> = class end
00:00:12 verbose #708 > > #if FABLE_COMPILER
00:00:12 verbose #709 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:12 verbose #710 > > #endif
00:00:12 verbose #711 > > type FnUnit = class end
00:00:12 verbose #712 > > #if FABLE_COMPILER
00:00:12 verbose #713 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:12 verbose #714 > > ... v212 = v212
00:00:12 verbose #715 > > let v213 : bool = v212
00:00:12 verbose #716 > > let v214 : bool = v213 = false
00:00:12 verbose #717 > > if v214 then
00:00:12 verbose #718 > > return v2
00:00:12 verbose #719 > > (*
00:00:12 verbose #720 > > ()
00:00:12 verbose #721 > > else
00:00:12 verbose #722 > > *) else
00:00:12 verbose #723 > > let v215 : int32 = v2 + 1
00:00:12 verbose #724 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:00:12 verbose #725 > > return! v216
00:00:12 verbose #726 > > (*
00:00:12 verbose #727 > > ()
00:00:12 verbose #728 > > *)
00:00:12 verbose #729 > > }
00:00:12 verbose #730 > > |> fun x -> _v9 <- Some x
00:00:12 verbose #731 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:00:12 verbose #732 > > "async.new_async_unit / _v9=None"
00:00:12 verbose #733 > > v217
00:00:12 verbose #734 > > #endif
00:00:12 verbose #735 > > |> fun x -> _v3 <- Some x
00:00:12 verbose #736 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:00:12 verbose #737 > > "base.run_target / _v3=None"
00:00:12 verbose #738 > > v218
00:00:12 verbose #739 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:00:12 verbose #740 > > method10(v0, v1, v2)
00:00:12 verbose #741 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:00:12 verbose #742 > > closure23(v0, v1)
00:00:12 verbose #743 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:00:12 verbose #744 > > closure22(v0)
00:00:12 verbose #745 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:12 verbose #746 > > let v1 : US0 = US0_0
00:00:12 verbose #747 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:12 verbose #748 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:00:12 verbose #749 > > let test_port_open x = v2 x
00:00:12 verbose #750 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:00:12 verbose #751 > > let test_port_open_timeout x = v3 x
00:00:12 verbose #752 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:00:12 verbose #753 > > closure15()
00:00:12 verbose #754 > > let wait_for_port_access x = v4 x
00:00:12 verbose #755 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:00:12 verbose #756 > > let get_available_port x = v5 x
00:00:12 verbose #757 > > ()
00:00:12 verbose #758 > >
00:00:14 verbose #759 > >
00:00:14 verbose #760 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #761 > > type [[<Struct>]] US0 =
00:00:14 verbose #762 > > | US0_0
00:00:14 verbose #763 > > | US0_1
00:00:14 verbose #764 > > | US0_2
00:00:14 verbose #765 > > and [[<Struct>]] US1 =
00:00:14 verbose #766 > > | US1_0 of f0_0 : US0
00:00:14 verbose #767 > > | US1_1 of f1_0 : US0
00:00:14 verbose #768 > > | US1_2 of f2_0 : US0
00:00:14 verbose #769 > > | US1_3 of f3_0 : US0
00:00:14 verbose #770 > > | US1_4 of f4_0 : US0
00:00:14 verbose #771 > > let rec closure0 () () : bool =
00:00:14 verbose #772 > > let v0 : bool = true
00:00:14 verbose #773 > > let mutable _v0 : bool option = None
00:00:14 verbose #774 > >
00:00:14 verbose #775 > > #if FABLE_COMPILER || WASM || CONTRACT
00:00:14 verbose #776 > >
00:00:14 verbose #777 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:14 verbose #778 > > let v1 : string = "cfg!(windows)"
00:00:14 verbose #779 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:14 verbose #780 > > v2
00:00:14 verbose #781 > > #endif
00:00:14 verbose #782 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #783 > > let v3 : string = "cfg!(windows)"
00:00:14 verbose #784 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:14 verbose #785 > > v4
00:00:14 verbose #786 > > #endif
00:00:14 verbose #787 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #788 > > let v5 : string = "cfg!(windows)"
00:00:14 verbose #789 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:14 verbose #790 > > v6
00:00:14 verbose #791 > > #endif
00:00:14 verbose #792 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #793 > > let v7 : US0 = US0_0
00:00:14 verbose #794 > > let v8 : US1 = US1_3(v7)
00:00:14 verbose #795 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:14 verbose #796 > > let v10 : bool = failwith<bool> v9
00:00:14 verbose #797 > > v10
00:00:14 verbose #798 > > #endif
00:00:14 verbose #799 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #800 > > let v11 : US0 = US0_0
00:00:14 verbose #801 > > let v12 : US1 = US1_4(v11)
00:00:14 verbose #802 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:14 verbose #803 > > let v14 : bool = failwith<bool> v13
00:00:14 verbose #804 > > v14
00:00:14 verbose #805 > > #endif
00:00:14 verbose #806 > > #else
00:00:14 verbose #807 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:14 verbose #808 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:14 verbose #809 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:14 verbose #810 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:14 verbose #811 > > let v17 : b...: string = "cfg!(windows)"
00:00:14 verbose #812 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:00:14 verbose #813 > > v2
00:00:14 verbose #814 > > #endif
00:00:14 verbose #815 > > #if FABLE_COMPILER_RUST && WASM
00:00:14 verbose #816 > > let v3 : string = "cfg!(windows)"
00:00:14 verbose #817 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:00:14 verbose #818 > > v4
00:00:14 verbose #819 > > #endif
00:00:14 verbose #820 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:14 verbose #821 > > let v5 : string = "cfg!(windows)"
00:00:14 verbose #822 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:00:14 verbose #823 > > v6
00:00:14 verbose #824 > > #endif
00:00:14 verbose #825 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:14 verbose #826 > > let v7 : US0 = US0_0
00:00:14 verbose #827 > > let v8 : US1 = US1_3(v7)
00:00:14 verbose #828 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:00:14 verbose #829 > > let v10 : bool = failwith<bool> v9
00:00:14 verbose #830 > > v10
00:00:14 verbose #831 > > #endif
00:00:14 verbose #832 > > #if FABLE_COMPILER_PYTHON
00:00:14 verbose #833 > > let v11 : US0 = US0_0
00:00:14 verbose #834 > > let v12 : US1 = US1_4(v11)
00:00:14 verbose #835 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:00:14 verbose #836 > > let v14 : bool = failwith<bool> v13
00:00:14 verbose #837 > > v14
00:00:14 verbose #838 > > #endif
00:00:14 verbose #839 > > #else
00:00:14 verbose #840 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:00:14 verbose #841 > > System.Runtime.InteropServices.OSPlatform.Windows
00:00:14 verbose #842 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:14 verbose #843 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:14 verbose #844 > > let v17 : bool = v16 v15
00:00:14 verbose #845 > > v17
00:00:14 verbose #846 > > #endif
00:00:14 verbose #847 > > |> fun x -> _v0 <- Some x
00:00:14 verbose #848 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:00:14 verbose #849 > > "base.run_target / _v0=None"
00:00:14 verbose #850 > > if v18 then
00:00:14 verbose #851 > > let v19 : string = ".exe"
00:00:14 verbose #852 > > v19
00:00:14 verbose #853 > > else
00:00:14 verbose #854 > > let v20 : string = ""
00:00:14 verbose #855 > > v20
00:00:14 verbose #856 > > let v0 : (unit -> bool) = closure0()
00:00:14 verbose #857 > > let is_windows () = v0 ()
00:00:14 verbose #858 > > let v1 : (unit -> string) = closure1()
00:00:14 verbose #859 > > let get_executable_suffix () = v1 ()
00:00:14 verbose #860 > > ()
00:00:14 verbose #861 > >
00:00:14 verbose #862 > >
00:00:14 verbose #863 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:14 verbose #864 > > #if FABLE_COMPILER
00:00:14 verbose #865 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:00:14 verbose #866 > > #endif
00:00:14 verbose #867 > > type clap_Arg = class end
00:00:14 verbose #868 > > #if FABLE_COMPILER
00:00:14 verbose #869 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:00:14 verbose #870 > > #endif
00:00:14 verbose #871 > > type clap_ArgAction = class end
00:00:14 verbose #872 > > #if FABLE_COMPILER
00:00:14 verbose #873 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:00:14 verbose #874 > > #endif
00:00:14 verbose #875 > > type clap_Command = class end
00:00:14 verbose #876 > > #if FABLE_COMPILER
00:00:14 verbose #877 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:00:14 verbose #878 > > #endif
00:00:14 verbose #879 > > type clap_ArgMatches = class end
00:00:14 verbose #880 > > #if FABLE_COMPILER
00:00:14 verbose #881 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:00:14 verbose #882 > > #endif
00:00:14 verbose #883 > > type clap_builder_ValueRange = class end
00:00:14 verbose #884 > > #if FABLE_COMPILER
00:00:14 verbose #885 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:00:14 verbose #886 > > #endif
00:00:14 verbose #887 > > type clap_builder_ValueParser = class end
00:00:14 verbose #888 > > #if FABLE_COMPILER
00:00:14 verbose #889 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:00:14 verbose #890 > > #endif
00:00:14 verbose #891 > > type clap_builder_PossibleValue = class end
00:00:14 verbose #892 > > #if FABLE_COMPILER
00:00:14 verbose #893 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:00:14 verbose #894 > > #endif
00:00:14 verbose #895 > > type std_process_Child = class end
00:00:14 verbose #896 > > #if FABLE_COMPILER
00:00:14 verbose #897 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:00:14 verbose #898 > > #endif
00:00:14 verbose #899 > > type std_process_ChildStderr = class end
00:00:14 verbose #900 > > #if FABLE_COMPILER
00:00:14 verbose #901 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:00:14 verbose #902 > > #endif
00:00:14 verbose #903 > > type std_process_ChildStdout = class end
00:00:14 verbose #904 > > #if FABLE_COMPILER
00:00:14 verbose #905 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:00:14 verbose #906 > > #endif
00:00:14 verbose #907 > > type std_process_ChildStdin = class end
00:00:14 verbose #908 > > #if FABLE_COMPILER
00:00:14 verbose #909 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:00:14 verbose #910 > > #endif
00:00:14 verbose #911 > > type std_process_Command = class... with
00:00:14 verbose #912 > > | US14_1(v28) -> (* Error *)
00:00:14 verbose #913 > > US8_1(v28)
00:00:14 verbose #914 > > | US14_0(v26) -> (* Ok *)
00:00:14 verbose #915 > > US8_0(v26)
00:00:14 verbose #916 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:00:14 verbose #917 > > let v1 : US8 = method16(v0)
00:00:14 verbose #918 > > match v1 with
00:00:14 verbose #919 > > | US8_1(v4) -> (* Error *)
00:00:14 verbose #920 > > let v5 : Result<(string [[]]), string> = Error v4
00:00:14 verbose #921 > > v5
00:00:14 verbose #922 > > | US8_0(v2) -> (* Ok *)
00:00:14 verbose #923 > > let v3 : Result<(string [[]]), string> = Ok v2
00:00:14 verbose #924 > > v3
00:00:14 verbose #925 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:14 verbose #926 > > let v1 : US0 = US0_0
00:00:14 verbose #927 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:14 verbose #928 > > let v2 : (unit -> unit) = closure2()
00:00:14 verbose #929 > > let current_process_kill () = v2 ()
00:00:14 verbose #930 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:00:14 verbose #931 > > let execute_async x = v3 x
00:00:14 verbose #932 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:00:14 verbose #933 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:00:14 verbose #934 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:00:14 verbose #935 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:00:14 verbose #936 > > let execute_with_options_async x = v4 x
00:00:14 verbose #937 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:00:14 verbose #938 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:00:14 verbose #939 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:00:14 verbose #940 > > unit) option * bool * string option)) = closure18()
00:00:14 verbose #941 > > let execution_options x = v5 x
00:00:14 verbose #942 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:00:14 verbose #943 > > let split_args x = v6 x
00:00:14 verbose #944 > > ()
00:00:14 verbose #945 > >
00:00:17 verbose #946 > >
00:00:17 verbose #947 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:17 verbose #948 > > #if FABLE_COMPILER
00:00:17 verbose #949 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:00:17 verbose #950 > > #endif
00:00:17 verbose #951 > > type std_fs_File = class end
00:00:17 verbose #952 > > #if FABLE_COMPILER
00:00:17 verbose #953 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:00:17 verbose #954 > > #endif
00:00:17 verbose #955 > > type std_fs_FileType = class end
00:00:17 verbose #956 > > #if FABLE_COMPILER
00:00:17 verbose #957 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:00:17 verbose #958 > > #endif
00:00:17 verbose #959 > > type std_path_Display = class end
00:00:17 verbose #960 > > #if FABLE_COMPILER
00:00:17 verbose #961 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:00:17 verbose #962 > > #endif
00:00:17 verbose #963 > > type std_path_Path = class end
00:00:17 verbose #964 > > #if FABLE_COMPILER
00:00:17 verbose #965 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:00:17 verbose #966 > > #endif
00:00:17 verbose #967 > > type std_path_PathBuf = class end
00:00:17 verbose #968 > > #if FABLE_COMPILER
00:00:17 verbose #969 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:00:17 verbose #970 > > #endif
00:00:17 verbose #971 > > type async_walkdir_DirEntry = class end
00:00:17 verbose #972 > > #if FABLE_COMPILER
00:00:17 verbose #973 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:00:17 verbose #974 > > #endif
00:00:17 verbose #975 > > type async_walkdir_Filtering = class end
00:00:17 verbose #976 > > #if FABLE_COMPILER
00:00:17 verbose #977 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:00:17 verbose #978 > > #endif
00:00:17 verbose #979 > > type async_walkdir_WalkDir = class end
00:00:17 verbose #980 > > #if FABLE_COMPILER
00:00:17 verbose #981 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:17 verbose #982 > > #endif
00:00:17 verbose #983 > > type core_any_Any = class end
00:00:17 verbose #984 > > #if FABLE_COMPILER
00:00:17 verbose #985 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:17 verbose #986 > > #endif
00:00:17 verbose #987 > > type core_ops_Try<'T> = class end
00:00:17 verbose #988 > > #if FABLE_COMPILER
00:00:17 verbose #989 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:17 verbose #990 > > #endif
00:00:17 verbose #991 > > type Func0<'T> = class end
00:00:17 verbose #992 > > #if FABLE_COMPILER
00:00:17 verbose #993 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:17 verbose #994 > > #endif
00:00:17 verbose #995 > > type Func0<'T, 'U> = class end
00:00:17 verbose #996 > > #if FABLE_COMPILER
00:00:17 verbose #997 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:17 verbose #998 > > #endif
00:00:17 verbose #999 > > type Box<'T> = cla...4>) = closure12()
00:00:17 verbose #1000 > > let wait_for_file_access_read x = v4 x
00:00:17 verbose #1001 > > let v5 : (string -> Async<string>) = closure13()
00:00:17 verbose #1002 > > let read_all_text_async x = v5 x
00:00:17 verbose #1003 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:00:17 verbose #1004 > > let file_exists_content x = v6 x
00:00:17 verbose #1005 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:00:17 verbose #1006 > > let write_all_text_async x = v7 x
00:00:17 verbose #1007 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:00:17 verbose #1008 > > let write_all_text_exists x = v8 x
00:00:17 verbose #1009 > > let v9 : (string -> Async<int64>) = closure20()
00:00:17 verbose #1010 > > let delete_file_async x = v9 x
00:00:17 verbose #1011 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:00:17 verbose #1012 > > let move_file_async x = v10 x
00:00:17 verbose #1013 > > let v11 : (string -> Async<string option>) = closure27()
00:00:17 verbose #1014 > > let read_all_text_retry_async x = v11 x
00:00:17 verbose #1015 > > let v12 : (unit -> string) = closure35()
00:00:17 verbose #1016 > > let create_temp_path () = v12 ()
00:00:17 verbose #1017 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:00:17 verbose #1018 > > let create_temp_dir () = v13 ()
00:00:17 verbose #1019 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:00:17 verbose #1020 > > let create_temp_dir' x = v14 x
00:00:17 verbose #1021 > > let v15 : (unit -> string) = closure49()
00:00:17 verbose #1022 > > let get_source_directory () = v15 ()
00:00:17 verbose #1023 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:00:17 verbose #1024 > > let find_parent x = v16 x
00:00:17 verbose #1025 > > let v17 : (string -> string) = closure56()
00:00:17 verbose #1026 > > let normalize_path x = v17 x
00:00:17 verbose #1027 > > let v18 : (string -> string) = closure57()
00:00:17 verbose #1028 > > let new_file_uri x = v18 x
00:00:17 verbose #1029 > > let v19 : (unit -> string) = closure58()
00:00:17 verbose #1030 > > let get_workspace_root () = v19 ()
00:00:17 verbose #1031 > > let v20 : (bool -> unit) = closure59()
00:00:17 verbose #1032 > > let init_trace_file x = v20 x
00:00:17 verbose #1033 > > let v21 : (string -> (string -> string)) = closure61()
00:00:17 verbose #1034 > > let (</>) x = v21 x
00:00:17 verbose #1035 > > ()
00:00:17 verbose #1036 > >
00:00:20 verbose #1037 > >
00:00:20 verbose #1038 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1039 > > #if FABLE_COMPILER
00:00:20 verbose #1040 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:00:20 verbose #1041 > > #endif
00:00:20 verbose #1042 > > type core_any_Any = class end
00:00:20 verbose #1043 > > #if FABLE_COMPILER
00:00:20 verbose #1044 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:00:20 verbose #1045 > > #endif
00:00:20 verbose #1046 > > type core_ops_Try<'T> = class end
00:00:20 verbose #1047 > > #if FABLE_COMPILER
00:00:20 verbose #1048 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:00:20 verbose #1049 > > #endif
00:00:20 verbose #1050 > > type Func0<'T> = class end
00:00:20 verbose #1051 > > #if FABLE_COMPILER
00:00:20 verbose #1052 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:00:20 verbose #1053 > > #endif
00:00:20 verbose #1054 > > type Func0<'T, 'U> = class end
00:00:20 verbose #1055 > > #if FABLE_COMPILER
00:00:20 verbose #1056 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:00:20 verbose #1057 > > #endif
00:00:20 verbose #1058 > > type Box<'T> = class end
00:00:20 verbose #1059 > > #if FABLE_COMPILER
00:00:20 verbose #1060 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:00:20 verbose #1061 > > #endif
00:00:20 verbose #1062 > > type Dyn<'T> = class end
00:00:20 verbose #1063 > > #if FABLE_COMPILER
00:00:20 verbose #1064 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:00:20 verbose #1065 > > #endif
00:00:20 verbose #1066 > > type Send<'T> = class end
00:00:20 verbose #1067 > > #if FABLE_COMPILER
00:00:20 verbose #1068 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:00:20 verbose #1069 > > #endif
00:00:20 verbose #1070 > > type Fn<'T> = class end
00:00:20 verbose #1071 > > #if FABLE_COMPILER
00:00:20 verbose #1072 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:00:20 verbose #1073 > > #endif
00:00:20 verbose #1074 > > type FnUnit = class end
00:00:20 verbose #1075 > > #if FABLE_COMPILER
00:00:20 verbose #1076 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:00:20 verbose #1077 > > #endif
00:00:20 verbose #1078 > > type FnOnce<'T> = class end
00:00:20 verbose #1079 > > #if FABLE_COMPILER
00:00:20 verbose #1080 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:00:20 verbose #1081 > > #endif
00:00:20 verbose #1082 > > type ActionFn<'T> = class end
00:00:20 verbose #1083 > > #if FABLE_COMPILER
00:00:20 verbose #1084 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:00:20 verbose #1085 > > #endif
00:00:20 verbose #1086 > > type ActionFn2<'T, 'U> = class end
00:00:20 verbose #1087 > > #if FABLE_COMPILER
00:00:20 verbose #1088 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:00:20 verbose #1089 > > #endif
00:00:20 verbose #1090 > > type Impl<'T> = class end
00:00:20 verbose #1091 > > #if FABLE_COMPILER
00:00:20 verbose #1092 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:00:20 verbose #1093 > > #endif
00:00:20 verbose #1094 > > type Mut<'T> = class end
00:00:20 verbose #1095 > > #if FABLE_COMPILER
00:00:20 verbose #1096 > > [[<Fable.Core.Erase; Fable.C... #endif
00:00:20 verbose #1097 > > #if FABLE_COMPILER_RUST && WASM
00:00:20 verbose #1098 > > let v27 : string = @"println!(""{}"", $0)"
00:00:20 verbose #1099 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:00:20 verbose #1100 > > ()
00:00:20 verbose #1101 > > #endif
00:00:20 verbose #1102 > > #if FABLE_COMPILER_RUST && CONTRACT
00:00:20 verbose #1103 > > let v28 : string = @"println!(""{}"", $0)"
00:00:20 verbose #1104 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:00:20 verbose #1105 > > ()
00:00:20 verbose #1106 > > #endif
00:00:20 verbose #1107 > > #if FABLE_COMPILER_TYPESCRIPT
00:00:20 verbose #1108 > > System.Console.WriteLine v24
00:00:20 verbose #1109 > > ()
00:00:20 verbose #1110 > > #endif
00:00:20 verbose #1111 > > #if FABLE_COMPILER_PYTHON
00:00:20 verbose #1112 > > System.Console.WriteLine v24
00:00:20 verbose #1113 > > ()
00:00:20 verbose #1114 > > #endif
00:00:20 verbose #1115 > > #else
00:00:20 verbose #1116 > > System.Console.WriteLine v24
00:00:20 verbose #1117 > > ()
00:00:20 verbose #1118 > > #endif
00:00:20 verbose #1119 > > |> fun x -> _v25 <- Some x
00:00:20 verbose #1120 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:00:20 verbose #1121 > > _v25=None"
00:00:20 verbose #1122 > > let v29 : (string -> unit) = v8.l0
00:00:20 verbose #1123 > > v29 v24
00:00:20 verbose #1124 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:00:20 verbose #1125 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:00:20 verbose #1126 > > method8(v0, v3)
00:00:20 verbose #1127 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:00:20 verbose #1128 > > method4(v0, v1, v2)
00:00:20 verbose #1129 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:00:20 verbose #1130 > > closure4(v0, v1)
00:00:20 verbose #1131 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:00:20 verbose #1132 > > closure3(v0)
00:00:20 verbose #1133 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:00:20 verbose #1134 > > let v1 : US0 = US0_0
00:00:20 verbose #1135 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:00:20 verbose #1136 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:00:20 verbose #1137 > > let trace x = v2 x
00:00:20 verbose #1138 > > ()
00:00:20 verbose #1139 > >
00:00:20 verbose #1140 > >
00:00:20 verbose #1141 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1142 > > module SpiralTrace =
00:00:20 verbose #1143 > > let trace x =
00:00:20 verbose #1144 > > #if !INTERACTIVE
00:00:20 verbose #1145 > > Trace.trace x
00:00:20 verbose #1146 > > #else
00:00:20 verbose #1147 > > trace x
00:00:20 verbose #1148 > > #endif
00:00:20 verbose #1149 > >
00:00:20 verbose #1150 > > type TraceLevel =
00:00:20 verbose #1151 > > #if !INTERACTIVE
00:00:20 verbose #1152 > > Trace.US0
00:00:20 verbose #1153 > > #else
00:00:20 verbose #1154 > > US0
00:00:20 verbose #1155 > > #endif
00:00:20 verbose #1156 > >
00:00:20 verbose #1157 > > module SpiralCrypto =
00:00:20 verbose #1158 > > let hash_text x =
00:00:20 verbose #1159 > > #if !INTERACTIVE
00:00:20 verbose #1160 > > Crypto.hash_text x
00:00:20 verbose #1161 > > #else
00:00:20 verbose #1162 > > hash_text x
00:00:20 verbose #1163 > > #endif
00:00:20 verbose #1164 > >
00:00:20 verbose #1165 > > let hash_to_port x =
00:00:20 verbose #1166 > > #if !INTERACTIVE
00:00:20 verbose #1167 > > Crypto.hash_to_port x
00:00:20 verbose #1168 > > #else
00:00:20 verbose #1169 > > hash_to_port x
00:00:20 verbose #1170 > > #endif
00:00:20 verbose #1171 > >
00:00:20 verbose #1172 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:20 verbose #1173 > >
00:00:20 verbose #1174 > > module SpiralAsync =
00:00:20 verbose #1175 > > let merge_cancellation_token_with_default_async x =
00:00:20 verbose #1176 > > #if !INTERACTIVE
00:00:20 verbose #1177 > > Async_.merge_cancellation_token_with_default_async x
00:00:20 verbose #1178 > > #else
00:00:20 verbose #1179 > > merge_cancellation_token_with_default_async x
00:00:20 verbose #1180 > > #endif
00:00:20 verbose #1181 > >
00:00:20 verbose #1182 > > module SpiralThreading =
00:00:20 verbose #1183 > > let new_disposable_token x =
00:00:20 verbose #1184 > > #if !INTERACTIVE
00:00:20 verbose #1185 > > Threading.new_disposable_token x
00:00:20 verbose #1186 > > #else
00:00:20 verbose #1187 > > new_disposable_token x
00:00:20 verbose #1188 > > #endif
00:00:20 verbose #1189 > >
00:00:20 verbose #1190 > > module SpiralNetworking =
00:00:20 verbose #1191 > > let test_port_open x =
00:00:20 verbose #1192 > > #if !INTERACTIVE
00:00:20 verbose #1193 > > Networking.test_port_open x
00:00:20 verbose #1194 > > #else
00:00:20 verbose #1195 > > test_port_open x
00:00:20 verbose #1196 > > #endif
00:00:20 verbose #1197 > >
00:00:20 verbose #1198 > > let test_port_open_timeout x =
00:00:20 verbose #1199 > > #if !INTERACTIVE
00:00:20 verbose #1200 > > Networking.test_port_open_timeout x
00:00:20 verbose #1201 > > #else
00:00:20 verbose #1202 > > test_port_open_timeout x
00:00:20 verbose #1203 > > #endif
00:00:20 verbose #1204 > >
00:00:20 verbose #1205 > > let wait_for_port_access x =
00:00:20 verbose #1206 > > #if !INTERACTIVE
00:00:20 verbose #1207 > > Networking.wait_for_port_access x
00:00:20 verbose #1208 > > #else
00:00:20 verbose #1209 > > wait_for_port_access x
00:00:20 verbose #1210 > > #endif
00:00:20 verbose #1211 > >
00:00:20 verbose #1212 > > let get_available_port x =
00:00:20 verbose #1213 > > #if !INTERACTIVE
00:00:20 verbose #1214 > > Networking.get_available_port x
00:00:20 verbose #1215 > > #else
00:00:20 verbose #1216 > > get_available_port x
00:00:20 verbose #1217 > > #endif
00:00:20 verbose #1218 > >
00:00:20 verbose #1219 > > module SpiralPlatform =
00:00:20 verbose #1220 > > let get_executable_suffix () =
00:00:20 verbose #1221 > > #if !INTERACTIVE
00:00:20 verbose #1222 > > Platform.g...e.trace_state
00:00:20 verbose #1223 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1224 > > level.l0 <-
00:00:20 verbose #1225 > > match new_level with
00:00:20 verbose #1226 > > | Trace.US0_0 -> File_system.US0_0
00:00:20 verbose #1227 > > | Trace.US0_1 -> File_system.US0_1
00:00:20 verbose #1228 > > | Trace.US0_2 -> File_system.US0_2
00:00:20 verbose #1229 > > | Trace.US0_3 -> File_system.US0_3
00:00:20 verbose #1230 > > | Trace.US0_4 -> File_system.US0_4
00:00:20 verbose #1231 > > )
00:00:20 verbose #1232 > >
00:00:20 verbose #1233 > > Runtime.State.trace_state
00:00:20 verbose #1234 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1235 > > level.l0 <-
00:00:20 verbose #1236 > > match new_level with
00:00:20 verbose #1237 > > | Trace.US0_0 -> Runtime.US0_0
00:00:20 verbose #1238 > > | Trace.US0_1 -> Runtime.US0_1
00:00:20 verbose #1239 > > | Trace.US0_2 -> Runtime.US0_2
00:00:20 verbose #1240 > > | Trace.US0_3 -> Runtime.US0_3
00:00:20 verbose #1241 > > | Trace.US0_4 -> Runtime.US0_4
00:00:20 verbose #1242 > > )
00:00:20 verbose #1243 > >
00:00:20 verbose #1244 > > Common.State.trace_state
00:00:20 verbose #1245 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1246 > > level.l0 <-
00:00:20 verbose #1247 > > match new_level with
00:00:20 verbose #1248 > > | Trace.US0_0 -> Common.US0_0
00:00:20 verbose #1249 > > | Trace.US0_1 -> Common.US0_1
00:00:20 verbose #1250 > > | Trace.US0_2 -> Common.US0_2
00:00:20 verbose #1251 > > | Trace.US0_3 -> Common.US0_3
00:00:20 verbose #1252 > > | Trace.US0_4 -> Common.US0_4
00:00:20 verbose #1253 > > )
00:00:20 verbose #1254 > >
00:00:20 verbose #1255 > > Trace.State.trace_state
00:00:20 verbose #1256 > > #else
00:00:20 verbose #1257 > > State.trace_state
00:00:20 verbose #1258 > > #endif
00:00:20 verbose #1259 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:00:20 verbose #1260 > > level.l0 <- new_level
00:00:20 verbose #1261 > > )
00:00:20 verbose #1262 > >
00:00:20 verbose #1263 > > let get_trace_level () =
00:00:20 verbose #1264 > > #if !INTERACTIVE
00:00:20 verbose #1265 > > Trace.State.trace_state
00:00:20 verbose #1266 > > #else
00:00:20 verbose #1267 > > State.trace_state
00:00:20 verbose #1268 > > #endif
00:00:20 verbose #1269 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:00:20 verbose #1270 > > level.l0
00:00:20 verbose #1271 > > )
00:00:20 verbose #1272 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:00:20 verbose #1273 > > trace_state=None")
00:00:20 verbose #1274 > >
00:00:20 verbose #1275 > >
00:00:20 verbose #1276 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1277 > > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:20 verbose #1278 > >
00:00:20 verbose #1279 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 verbose #1280 > > //// test
00:00:20 verbose #1281 > >
00:00:20 verbose #1282 > > type AssertExceptionFormatter (ex) =
00:00:20 verbose #1283 > > member _.Text =
00:00:20 verbose #1284 > > ex.ToString()
00:00:20 verbose #1285 > > .Replace("32m", "<span style=\"color: green;\">")
00:00:20 verbose #1286 > > .Replace("36m", "</span>")
00:00:20 verbose #1287 > > .Replace("31m", "<span style=\"color: red;\">")
00:00:20 verbose #1288 > > .Replace("\n", "<br/>\n")
00:00:20 verbose #1289 > >
00:00:20 verbose #1290 > >
00:00:20 verbose #1291 > > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:20 verbose #1292 > > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:21 verbose #1293 > >
00:00:21 verbose #1294 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1295 > > //// test
00:00:21 verbose #1296 > >
00:00:21 verbose #1297 > > let inline __expect fn log expected actual =
00:00:21 verbose #1298 > > if log then printfn $"{actual.ToDisplayString ()}"
00:00:21 verbose #1299 > > try
00:00:21 verbose #1300 > > "Testing.__expect" |> fn actual expected
00:00:21 verbose #1301 > > with :? Expecto.AssertException as ex ->
00:00:21 verbose #1302 > > AssertExceptionFormatter(ex).Display () |> ignore
00:00:21 verbose #1303 > > failwith (ex.GetType().FullName)
00:00:21 verbose #1304 > >
00:00:21 verbose #1305 > > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:21 verbose #1306 > > expected actual
00:00:21 verbose #1307 > > let inline _contains expected actual = __contains true expected actual
00:00:21 verbose #1308 > >
00:00:21 verbose #1309 > > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:21 verbose #1310 > > expected actual
00:00:21 verbose #1311 > > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:21 verbose #1312 > >
00:00:21 verbose #1313 > > let inline __isGreaterThan log expected actual = __expect
00:00:21 verbose #1314 > > Expecto.Expect.isGreaterThan log expected actual
00:00:21 verbose #1315 > > let inline _isGreaterThan expected actual = __isGreaterThan true expected actual
00:00:21 verbose #1316 > >
00:00:21 verbose #1317 > > let inline __isGreaterThanOrEqual log expected actual = __expect
00:00:21 verbose #1318 > > Expecto.Expect.isGreaterThanOrEqual log expected actual
00:00:21 verbose #1319 > > let inline _isGreaterThanOrEqual expected actual = __isGreaterThanOrEqual true
00:00:21 verbose #1320 > > expected actual
00:00:21 verbose #1321 > >
00:00:21 verbose #1322 > > let inline __isLessThan log expected actual = __expect Expecto.Expect.isLessThan
00:00:21 verbose #1323 > > log expected actual
00:00:21 verbose #1324 > > let inline _isLessThan expected actual = __isLessThan true expected actual
00:00:21 verbose #1325 > >
00:00:21 verbose #1326 > > let inline __isLessThanOrEqual log expected actual = __expect
00:00:21 verbose #1327 > > Expecto.Expect.isLessThanOrEqual log expected actual
00:00:21 verbose #1328 > > let inline _isLessThanOrEqual expected actual = __isLessThanOrEqual true
00:00:21 verbose #1329 > > expected actual
00:00:21 verbose #1330 > >
00:00:21 verbose #1331 > > let inline __sequenceEqual log expected actual = __expect
00:00:21 verbose #1332 > > Expecto.Expect.sequenceEqual log expected actual
00:00:21 verbose #1333 > > let inline _sequenceEqual expected actual = __sequenceEqual true expected actual
00:00:21 verbose #1334 > >
00:00:21 verbose #1335 > > let inline __stringContains log expected actual = __expect
00:00:21 verbose #1336 > > Expecto.Expect.stringContains log expected actual
00:00:21 verbose #1337 > > let inline _stringContains expected actual = __stringContains true expected
00:00:21 verbose #1338 > > actual
00:00:21 verbose #1339 > >
00:00:21 verbose #1340 > > let inline __stringEnds log expected actual = __expect Expecto.Expect.stringEnds
00:00:21 verbose #1341 > > log expected actual
00:00:21 verbose #1342 > > let inline _stringEnds expected actual = __stringEnds true expected actual
00:00:21 verbose #1343 > >
00:00:21 verbose #1344 > > let inline __stringStarts log expected actual = __expect
00:00:21 verbose #1345 > > Expecto.Expect.stringStarts log expected actual
00:00:21 verbose #1346 > > let inline _stringStarts expected actual = __stringStarts true expected actual
00:00:21 verbose #1347 > >
00:00:21 verbose #1348 > > let inline __throwsC log expected actual = __expect Expecto.Expect.throwsC log
00:00:21 verbose #1349 > > expected actual
00:00:21 verbose #1350 > > let inline _throwsC expected actual = __throwsC true expected actual
00:00:21 verbose #1351 > >
00:00:21 verbose #1352 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1353 > > //// test
00:00:21 verbose #1354 > >
00:00:21 verbose #1355 > > let inline __isBetween log a b actual =
00:00:21 verbose #1356 > > let inline isBetween actual (a, b) _ =
00:00:21 verbose #1357 > > __isGreaterThanOrEqual log a actual
00:00:21 verbose #1358 > > __isLessThanOrEqual log b actual
00:00:21 verbose #1359 > > __expect isBetween log (a, b) actual
00:00:21 verbose #1360 > > let inline _isBetween a b actual = __isBetween true a b actual
00:00:21 verbose #1361 > >
00:00:21 verbose #1362 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:21 verbose #1363 > > #!import ../../lib/fsharp/Common.fs
00:00:21 verbose #1364 > > #!import ../../lib/fsharp/CommonFSharp.fs
00:00:21 verbose #1365 > > #!import ../../lib/fsharp/Async.fs
00:00:21 verbose #1366 > > #!import ../../lib/fsharp/AsyncSeq.fs
00:00:21 verbose #1367 > > #!import ../../lib/fsharp/Runtime.fs
00:00:21 verbose #1368 > > #!import ../../lib/fsharp/FileSystem.fs
00:00:21 verbose #1369 > >
00:00:21 verbose #1370 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1371 > > #if !INTERACTIVE
00:00:21 verbose #1372 > > namespace Polyglot
00:00:21 verbose #1373 > > #endif
00:00:21 verbose #1374 > >
00:00:21 verbose #1375 > > module Common =
00:00:21 verbose #1376 > >
00:00:21 verbose #1377 > > #if !INTERACTIVE
00:00:21 verbose #1378 > > open Lib
00:00:21 verbose #1379 > > #endif
00:00:21 verbose #1380 > >
00:00:21 verbose #1381 > > let nl = System.Environment.NewLine
00:00:21 verbose #1382 > > let q = @""""
00:00:21 verbose #1383 > >
00:00:21 verbose #1384 > > let inline cons head tail = head :: tail
00:00:21 verbose #1385 > >
00:00:21 verbose #1386 > > /// ## memoize
00:00:21 verbose #1387 > > let inline memoize fn =
00:00:21 verbose #1388 > > let result = lazy fn ()
00:00:21 verbose #1389 > > fun () -> result.Value
00:00:21 verbose #1390 > >
00:00:21 verbose #1391 > > /// ## TraceLevel
00:00:21 verbose #1392 > > type TraceLevel =
00:00:21 verbose #1393 > > | Verbose
00:00:21 verbose #1394 > > | Debug
00:00:21 verbose #1395 > > | Info
00:00:21 verbose #1396 > > | Warning
00:00:21 verbose #1397 > > | Critical
00:00:21 verbose #1398 > >
00:00:21 verbose #1399 > > let inline _locals () = ""
00:00:21 verbose #1400 > >
00:00:21 verbose #1401 > > /// ## trace
00:00:21 verbose #1402 > > let to_trace_level = function
00:00:21 verbose #1403 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:00:21 verbose #1404 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:00:21 verbose #1405 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:00:21 verbose #1406 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:00:21 verbose #1407 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:00:21 verbose #1408 > >
00:00:21 verbose #1409 > > let trace level fn locals =
00:00:21 verbose #1410 > > let level = level |> to_trace_level
00:00:21 verbose #1411 > > SpiralTrace.trace level fn locals
00:00:21 verbose #1412 > >
00:00:21 verbose #1413 > >
00:00:21 verbose #1414 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1415 > > #if !INTERACTIVE
00:00:21 verbose #1416 > > namespace Polyglot
00:00:21 verbose #1417 > > #endif
00:00:21 verbose #1418 > >
00:00:21 verbose #1419 > > module CommonFSharp =
00:00:21 verbose #1420 > >
00:00:21 verbose #1421 > > open Common
00:00:21 verbose #1422 > >
00:00:21 verbose #1423 > > /// ## getUnionCaseName
00:00:21 verbose #1424 > > let inline getUnionCaseName<'T> (x: 'T) =
00:00:21 verbose #1425 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:00:21 verbose #1426 > > | case, _ -> case.Name
00:00:21 verbose #1427 > >
00:00:21 verbose #1428 > >
00:00:21 verbose #1429 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:21 verbose #1430 > > #if !INTERACTIVE
00:00:21 verbose #1431 > > namespace Polyglot
00:00:21 verbose #1432 > > #endif
00:00:21 verbose #1433 > >
00:00:21 verbose #1434 > > module Async =
00:00:21 verbose #1435 > >
00:00:21 verbose #1436 > > #if !INTERACTIVE
00:00:21 verbose #1437 > > open Lib
00:00:21 verbose #1438 > > #endif
00:00:21 verbose #1439 > >
00:00:21 verbose #1440 > > open Common
00:00:21 verbose #1441 > >
00:00:21 verbose #1442 > > /// ## choice
00:00:21 verbose #1443 > > let inline choice asyncs = async {
00:00:21 verbose #1444 > > let e = Event<_> ()
00:00:21 verbose #1445 > > use cts = new System.Threading.CancellationTokenSource ()
00:00:21 verbose #1446 > > let fn =
00:00:21 verbose #1447 > > asyncs
00:00:21 verbose #1448 > > |> Seq.map (fun a -> async {
00:00:21 verbose #1449 > > let! x = a
00:00:21 verbose #1450 > > e.Trigger x
00:00:21 verbose #1451 > > })
00:00:21 verbose #1452 > > |> Async.Parallel
00:00:21 verbose #1453 > > |> Async.Ignore
00:00:21 verbose #1454 > > Async.Start (fn, cts.Token)
00:00:21 verbose #1455 > > let! result = Async.AwaitEvent e.Publish
00:00:21 verbose #1456 > > cts.Cancel ()
00:00:21 verbose #1457 > > return result
00:00:21 verbose #1458 > > }
00:00:21 verbose #1459 > >
00:00:21 verbose #1460 > > /// ## map
00:00:21 verbose #1461 > > let inline map fn a = async {
00:00:21 verbose #1462 > > let! x = a
00:00:21 verbose #1463 > > return fn x
00:00:21 verbose #1464 > > }
00:00:21 verbose #1465 > >
00:00:21 verbose #1466 > > /// ## catch
00:00:21 verbose #1467 > > let inline catch a =
00:00:21 verbose #1468 > > a
00:00:21 verbose #1469 > > |> Async.Catch
00:00:21 verbose #1470 > > |> map (function
00:00:21 verbose #1471 > > | Choice1Of2 result -> Ok result
00:00:21 verbose #1472 > > | Choice2Of2 ex -> Error ex
00:00:21 verbose #1473 > > )
00:00:21 verbose #1474 > >
00:00:21 verbose #1475 > > /// ## runWithTimeoutChoiceAsync
00:00:21 verbose #1476 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:00:21 verbose #1477 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:00:21 verbose #1478 > >
00:00:21 verbose #1479 > > let timeoutTask = async {
00:00:21 verbose #1480 > > do! Async.Sleep timeout
00:00:21 verbose #1481 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:00:21 verbose #1482 > > return None
00:00:21 verbose #1483 > > }
00:00:21 verbose #1484 > >
00:00:21 verbose #1485 > > let task = async {
00:00:21 verbose #1486 > > try
00:00:21 verbose #1487 > > let! result = fn
00:00:21 verbose #1488 > > return Some result
00:00:21 verbose #1489 > > with
00:00:21 verbose #1490 > > | :? System.AggregateException as ex when
00:00:21 verbose #1491 > > ex.InnerExceptions
00:00:21 verbose #1492 > > |> Seq.exists (function :? Sy... None
00:00:21 verbose #1493 > >
00:00:21 verbose #1494 > > /// ## awaitValueTask
00:00:21 verbose #1495 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:21 verbose #1496 > > task.AsTask () |> Async.AwaitTask
00:00:21 verbose #1497 > >
00:00:21 verbose #1498 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:21 verbose #1499 > > task.AsTask () |> Async.AwaitTask
00:00:21 verbose #1500 > >
00:00:21 verbose #1501 > > /// ## init
00:00:21 verbose #1502 > > let inline init x = async {
00:00:21 verbose #1503 > > return x
00:00:21 verbose #1504 > > }
00:00:21 verbose #1505 > >
00:00:21 verbose #1506 > > /// ## withCancellationToken
00:00:21 verbose #1507 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:00:21 verbose #1508 > > fn =
00:00:21 verbose #1509 > > Async.StartImmediateAsTask (fn, ct)
00:00:21 verbose #1510 > > |> Async.AwaitTask
00:00:21 verbose #1511 > >
00:00:21 verbose #1512 > > /// ## retryAsync
00:00:21 verbose #1513 > > let inline retryAsync retries fn =
00:00:21 verbose #1514 > > let rec loop retry lastError = async {
00:00:21 verbose #1515 > > try
00:00:21 verbose #1516 > > return!
00:00:21 verbose #1517 > > if retry <= retries
00:00:21 verbose #1518 > > then fn |> map Ok
00:00:21 verbose #1519 > > else lastError |> Error |> init
00:00:21 verbose #1520 > > with ex ->
00:00:21 verbose #1521 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:00:21 verbose #1522 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:00:21 verbose #1523 > > do! Async.Sleep 1
00:00:21 verbose #1524 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:00:21 verbose #1525 > > }
00:00:21 verbose #1526 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:00:21 verbose #1527 > >
00:00:21 verbose #1528 > > /// ## fold
00:00:21 verbose #1529 > > let fold folder state array =
00:00:21 verbose #1530 > > let rec loop acc i =
00:00:21 verbose #1531 > > async {
00:00:21 verbose #1532 > > if i < Array.length array then
00:00:21 verbose #1533 > > let! newAcc = folder acc array.[[i]]
00:00:21 verbose #1534 > > return! loop newAcc (i + 1)
00:00:21 verbose #1535 > > else
00:00:21 verbose #1536 > > return acc
00:00:21 verbose #1537 > > }
00:00:21 verbose #1538 > > loop state 0
00:00:21 verbose #1539 > >
00:00:22 verbose #1540 > >
00:00:22 verbose #1541 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1542 > > #if !INTERACTIVE
00:00:22 verbose #1543 > > namespace Polyglot
00:00:22 verbose #1544 > > #endif
00:00:22 verbose #1545 > >
00:00:22 verbose #1546 > > module AsyncSeq =
00:00:22 verbose #1547 > >
00:00:22 verbose #1548 > > #if !INTERACTIVE
00:00:22 verbose #1549 > > open Lib
00:00:22 verbose #1550 > > #endif
00:00:22 verbose #1551 > >
00:00:22 verbose #1552 > > open Common
00:00:22 verbose #1553 > >
00:00:22 verbose #1554 > > /// ## subscribeEvent
00:00:22 verbose #1555 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:22 verbose #1556 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:22 verbose #1557 > > 'A>(event.AddHandler, event.RemoveHandler)
00:00:22 verbose #1558 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:22 verbose #1559 > > event.EventArgs)
00:00:22 verbose #1560 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:22 verbose #1561 > >
00:00:22 verbose #1562 > > /// ## subscribeToken
00:00:22 verbose #1563 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:22 verbose #1564 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:22 verbose #1565 > > System.Action tcs.SetResult |> token.Register |> ignore
00:00:22 verbose #1566 > > let start = System.DateTime.Now.Ticks
00:00:22 verbose #1567 > > FSharp.Control.AsyncSeq.unfoldAsync
00:00:22 verbose #1568 > > (fun () -> async {
00:00:22 verbose #1569 > > do! tcs.Task |> Async.AwaitTask
00:00:22 verbose #1570 > > return Some (System.DateTime.Now.Ticks - start, ())
00:00:22 verbose #1571 > > })
00:00:22 verbose #1572 > > ()
00:00:22 verbose #1573 > >
00:00:22 verbose #1574 > >
00:00:22 verbose #1575 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1576 > > #if !INTERACTIVE
00:00:22 verbose #1577 > > namespace Polyglot
00:00:22 verbose #1578 > > #endif
00:00:22 verbose #1579 > >
00:00:22 verbose #1580 > > module Runtime =
00:00:22 verbose #1581 > >
00:00:22 verbose #1582 > > #if !INTERACTIVE
00:00:22 verbose #1583 > > open Lib
00:00:22 verbose #1584 > > #endif
00:00:22 verbose #1585 > >
00:00:22 verbose #1586 > > open Common
00:00:22 verbose #1587 > >
00:00:22 verbose #1588 > > /// ## parseArgs
00:00:22 verbose #1589 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:00:22 verbose #1590 > > let assemblyName =
00:00:22 verbose #1591 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:00:22 verbose #1592 > > let errorHandler : Argu.IExiter =
00:00:22 verbose #1593 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:00:22 verbose #1594 > > List.contains assemblyName
00:00:22 verbose #1595 > > then Argu.ExceptionExiter ()
00:00:22 verbose #1596 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:00:22 verbose #1597 > > _ -> Some System.ConsoleColor.Red)
00:00:22 verbose #1598 > >
00:00:22 verbose #1599 > > let parser =
00:00:22 verbose #1600 > > Argu.ArgumentParser.Create<'T> (
00:00:22 verbose #1601 > > programName =
00:00:22 verbose #1602 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:00:22 verbose #1603 > > errorHandler = errorHandler
00:00:22 verbose #1604 > > )
00:00:22 verbose #1605 > >
00:00:22 verbose #1606 > > parser.ParseCommandLine args
00:00:22 verbose #1607 > >
00:00:22 verbose #1608 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:00:22 verbose #1609 > > args
00:00:22 verbose #1610 > > |> parseArgs<'T>
00:00:22 verbose #1611 > > |> fun results -> results.GetAllResults ()
00:00:22 verbose #1612 > >
00:00:22 verbose #1613 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:00:22 verbose #1614 > > args
00:00:22 verbose #1615 > > |> parseAllArgs<'T>
00:00:22 verbose #1616 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:00:22 verbose #1617 > > |> Map.ofList
00:00:22 verbose #1618 > >
00:00:22 verbose #1619 > >
00:00:22 verbose #1620 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:22 verbose #1621 > > #if !INTERACTIVE
00:00:22 verbose #1622 > > namespace Polyglot
00:00:22 verbose #1623 > > #endif
00:00:22 verbose #1624 > >
00:00:22 verbose #1625 > > module FileSystem =
00:00:22 verbose #1626 > >
00:00:22 verbose #1627 > > #if !INTERACTIVE
00:00:22 verbose #1628 > > open Lib
00:00:22 verbose #1629 > > #endif
00:00:22 verbose #1630 > >
00:00:22 verbose #1631 > > open Common
00:00:22 verbose #1632 > > open SpiralFileSystem.Operators
00:00:22 verbose #1633 > >
00:00:22 verbose #1634 > > /// ## watchDirectory
00:00:22 verbose #1635 > > [[<RequireQualifiedAccess>]]
00:00:22 verbose #1636 > > type FileSystemChangeType =
00:00:22 verbose #1637 > > | Failure
00:00:22 verbose #1638 > > | Changed
00:00:22 verbose #1639 > > | Created
00:00:22 verbose #1640 > > | Deleted
00:00:22 verbose #1641 > > | Renamed
00:00:22 verbose #1642 > >
00:00:22 verbose #1643 > > [[<RequireQualifiedAccess>]]
00:00:22 verbose #1644 > > type FileSystemChange =
00:00:22 verbose #1645 > > | Failure of exn: exn
00:00:22 verbose #1646 > > | Changed of path: string * content: string option
00:00:22 verbose #1647 > > | Created of path: string * content: string option
00:00:22 verbose #1648 > > | Deleted of path: string
00:00:22 verbose #1649 > > | Renamed of oldPath: string * (string * string option)
00:00:22 verbose #1650 > >
00:00:22 verbose #1651 > >
00:00:22 verbose #1652 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:00:22 verbose #1653 > > let fullPath = path |> System.IO.Path.GetFullPath
00:00:22 verbose #1654 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:00:22 verbose #1655 > >
00:00:22 verbose #1656 > > let watcher =
00:00:22 verbose #1657 > > new System.IO.FileSystemWatcher (
00:00:22 verbose #1658 > > Path = fullPath,
00:00:22 verbose #1659 > > NotifyFilter = filter,
00:00:22 verbose #1660 > > EnableRaisingEvents = true,
00:00:22 verbose #1661 > > IncludeSubdirectories = true
00:00:22 verbose #1662 > > )
00:00:22 verbose #1663 > >
00:00:22 verbose #1664 > > let inline getEventPath (path : string) =
00:00:22 verbose #1665 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:00:22 verbose #1666 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:00:22 verbose #1667 > >
00:00:22 verbose #1668 > > let inline ticks () =
00:00:22 verbose #1669 > > System.DateTime.UtcNow.Ticks
00:00:22 verbose #1670 > >
00:00:22 verbose #1671 > > let changedStream =
00:00:22 verbose #1672 > > AsyncSeq.subscribeEvent
00:00:22 verbose #1673 > > watcher.Changed
00:00:22 verbose #1674 > > (fun event ->
00:00:22 verbose #1675 > > ticks (),
00:00:22 verbose #1676 > > [[ FileSystemChang...d_all_text_retry_async
00:00:22 verbose #1677 > > return t, FileSystemChange.Changed (path, content)
00:00:22 verbose #1678 > > | true, FileSystemChange.Created (path, _) ->
00:00:22 verbose #1679 > > do! Async.Sleep 5
00:00:22 verbose #1680 > > let! content = fullPath </> path |>
00:00:22 verbose #1681 > > SpiralFileSystem.read_all_text_retry_async
00:00:22 verbose #1682 > > return t, FileSystemChange.Created (path, content)
00:00:22 verbose #1683 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:00:22 verbose #1684 > > let! content = fullPath </> newPath |>
00:00:22 verbose #1685 > > SpiralFileSystem.read_all_text_retry_async
00:00:22 verbose #1686 > > return t, FileSystemChange.Renamed (oldPath, (newPath,
00:00:22 verbose #1687 > > content))
00:00:22 verbose #1688 > > | _ -> return t, event
00:00:22 verbose #1689 > > })
00:00:22 verbose #1690 > >
00:00:22 verbose #1691 > > let disposable =
00:00:22 verbose #1692 > > new_disposable (fun () ->
00:00:22 verbose #1693 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
00:00:22 verbose #1694 > > watch stream") _locals
00:00:22 verbose #1695 > > watcher.EnableRaisingEvents <- false
00:00:22 verbose #1696 > > watcher.Dispose ()
00:00:22 verbose #1697 > > )
00:00:22 verbose #1698 > >
00:00:22 verbose #1699 > > stream, disposable
00:00:22 verbose #1700 > >
00:00:22 verbose #1701 > > let inline watchDirectory path =
00:00:22 verbose #1702 > > watchDirectoryWithFilter
00:00:22 verbose #1703 > > (System.IO.NotifyFilters.FileName
00:00:22 verbose #1704 > > // ||| System.IO.NotifyFilters.DirectoryName
00:00:22 verbose #1705 > > // ||| System.IO.NotifyFilters.Attributes
00:00:22 verbose #1706 > > //// ||| System.IO.NotifyFilters.Size
00:00:22 verbose #1707 > > ||| System.IO.NotifyFilters.LastWrite
00:00:22 verbose #1708 > > //// ||| System.IO.NotifyFilters.LastAccess
00:00:22 verbose #1709 > > // ||| System.IO.NotifyFilters.CreationTime
00:00:22 verbose #1710 > > // ||| System.IO.NotifyFilters.Security
00:00:22 verbose #1711 > > )
00:00:22 verbose #1712 > > path
00:00:22 verbose #1713 > >
00:00:23 verbose #1714 > >
00:00:23 verbose #1715 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1716 > > #if !INTERACTIVE
00:00:23 verbose #1717 > > open Lib
00:00:23 verbose #1718 > > #endif
00:00:23 verbose #1719 > >
00:00:23 verbose #1720 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1721 > > open SpiralFileSystem.Operators
00:00:23 verbose #1722 > > open Falco.Markup
00:00:23 verbose #1723 > >
00:00:23 verbose #1724 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1725 > > type FileSystemNode =
00:00:23 verbose #1726 > > | File of string * string * int64
00:00:23 verbose #1727 > > | Folder of string * string * FileSystemNode list
00:00:23 verbose #1728 > > | Root of FileSystemNode list
00:00:23 verbose #1729 > >
00:00:23 verbose #1730 > > let rec scanDirectory isRoot (basePath : string) (path : string) =
00:00:23 verbose #1731 > > let relativePath =
00:00:23 verbose #1732 > > path
00:00:23 verbose #1733 > > |> SpiralSm.replace basePath ""
00:00:23 verbose #1734 > > |> SpiralSm.replace "\\" "/"
00:00:23 verbose #1735 > > |> SpiralSm.replace "//" "/"
00:00:23 verbose #1736 > > |> SpiralSm.trim_start [[| '/' |]]
00:00:23 verbose #1737 > >
00:00:23 verbose #1738 > > let directories =
00:00:23 verbose #1739 > > path
00:00:23 verbose #1740 > > |> System.IO.Directory.GetDirectories
00:00:23 verbose #1741 > > |> Array.toList
00:00:23 verbose #1742 > > |> List.sort
00:00:23 verbose #1743 > > |> List.map (scanDirectory false basePath)
00:00:23 verbose #1744 > > let files =
00:00:23 verbose #1745 > > path
00:00:23 verbose #1746 > > |> System.IO.Directory.GetFiles
00:00:23 verbose #1747 > > |> Array.toList
00:00:23 verbose #1748 > > |> List.sort
00:00:23 verbose #1749 > > |> List.map (fun f -> File (System.IO.Path.GetFileName f, relativePath,
00:00:23 verbose #1750 > > System.IO.FileInfo(f).Length))
00:00:23 verbose #1751 > >
00:00:23 verbose #1752 > > let children = directories @ files
00:00:23 verbose #1753 > > if isRoot
00:00:23 verbose #1754 > > then Root children
00:00:23 verbose #1755 > > else Folder (path |> System.IO.Path.GetFileName, relativePath, children)
00:00:23 verbose #1756 > >
00:00:23 verbose #1757 > > let rec generateHtml fsNode =
00:00:23 verbose #1758 > > let sizeLabel size =
00:00:23 verbose #1759 > > match float size with
00:00:23 verbose #1760 > > | size when size > 1024.0 * 1024.0 -> $"%.2f{size / 1024.0 / 1024.0} MB"
00:00:23 verbose #1761 > > | size when size > 1024.0 -> $"%.2f{size / 1024.0} KB"
00:00:23 verbose #1762 > > | size -> $"%.2f{size} B"
00:00:23 verbose #1763 > > match fsNode with
00:00:23 verbose #1764 > > | File (fileName, relativePath, size) ->
00:00:23 verbose #1765 > > Elem.div [[]] [[
00:00:23 verbose #1766 > > Text.raw "📄 "
00:00:23 verbose #1767 > > Elem.a [[
00:00:23 verbose #1768 > > Attr.href $"""{relativePath}{if relativePath = "" then "" else
00:00:23 verbose #1769 > > "/"}{fileName}"""
00:00:23 verbose #1770 > > ]] [[
00:00:23 verbose #1771 > > Text.raw fileName
00:00:23 verbose #1772 > > ]]
00:00:23 verbose #1773 > > Elem.span [[]] [[
00:00:23 verbose #1774 > > Text.raw $" ({size |> sizeLabel})"
00:00:23 verbose #1775 > > ]]
00:00:23 verbose #1776 > > ]]
00:00:23 verbose #1777 > > | Folder (folderName, relativePath, children) ->
00:00:23 verbose #1778 > > let size =
00:00:23 verbose #1779 > > let rec loop children =
00:00:23 verbose #1780 > > children
00:00:23 verbose #1781 > > |> List.sumBy (function
00:00:23 verbose #1782 > > | File (_, _, size) -> size
00:00:23 verbose #1783 > > | Folder (_, _, children)
00:00:23 verbose #1784 > > | Root children -> loop children
00:00:23 verbose #1785 > > )
00:00:23 verbose #1786 > > loop children
00:00:23 verbose #1787 > > Elem.details [[
00:00:23 verbose #1788 > > Attr.open' "true"
00:00:23 verbose #1789 > > ]] [[
00:00:23 verbose #1790 > > Elem.summary [[]] [[
00:00:23 verbose #1791 > > Text.raw "📂 "
00:00:23 verbose #1792 > > Elem.a [[
00:00:23 verbose #1793 > > Attr.href relativePath
00:00:23 verbose #1794 > > ]] [[
00:00:23 verbose #1795 > > Text.raw folderName
00:00:23 verbose #1796 > > ]]
00:00:23 verbose #1797 > > Elem.span [[]] [[
00:00:23 verbose #1798 > > Text.raw $" ({size |> sizeLabel})"
00:00:23 verbose #1799 > > ]]
00:00:23 verbose #1800 > > ]]
00:00:23 verbose #1801 > > Elem.div [[]] [[
00:00:23 verbose #1802 > > yield! children |> List.map generateHtml
00:00:23 verbose #1803 > > ]]
00:00:23 verbose #1804 > > ]]
00:00:23 verbose #1805 > > | Root children ->
00:00:23 verbose #1806 > > Elem.div [[]] [[
00:00:23 verbose #1807 > > yield! children |> List.map generateHtml
00:00:23 verbose #1808 > > ]]
00:00:23 verbose #1809 > >
00:00:23 verbose #1810 > > let generateHtmlForFileSystem root =
00:00:23 verbose #1811 > > $"""<!DOCTYPE html>
00:00:23 verbose #1812 > > <html lang="en">
00:00:23 verbose #1813 > > <head>
00:00:23 verbose #1814 > > <meta charset="UTF-8">
00:00:23 verbose #1815 > > <style>
00:00:23 verbose #1816 > > body {{
00:00:23 verbose #1817 > > background-color: #222;
00:00:23 verbose #1818 > > color: #ccc;
00:00:23 verbose #1819 > > }}
00:00:23 verbose #1820 > > a {{
00:00:23 verbose #1821 > > color: #777;
00:00:23 verbose #1822 > > font-size: 15px;
00:00:23 verbose #1823 > > }}
00:00:23 verbose #1824 > > span {{
00:00:23 verbose #1825 > > font-size: 11px;
00:00:23 verbose #1826 > > }}
00:00:23 verbose #1827 > > div > div {{
00:00:23 verbose #1828 > > padding-left: 10px;
00:00:23 verbose #1829 > > }}
00:00:23 verbose #1830 > > details > div {{
00:00:23 verbose #1831 > > padding-left: 19px;
00:00:23 verbose #1832 > > }}
00:00:23 verbose #1833 > > </style>
00:00:23 verbose #1834 > > </head>
00:00:23 verbose #1835 > > <body>
00:00:23 verbose #1836 > > {root |> generateHtml |> renderNode}
00:00:23 verbose #1837 > > </body>
00:00:23 verbose #1838 > > </html>
00:00:23 verbose #1839 > > """
00:00:23 verbose #1840 > >
00:00:23 verbose #1841 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #1842 > > //// test
00:00:23 verbose #1843 > >
00:00:23 verbose #1844 > > let expected = """<!DOCTYPE html>
00:00:23 verbose #1845 > > <html lang="en">
00:00:23 verbose #1846 > > <head>
00:00:23 verbose #1847 > > <meta charset="UTF-8">
00:00:23 verbose #1848 > > <style>
00:00:23 verbose #1849 > > body {
00:00:23 verbose #1850 > > background-color: #222;
00:00:23 verbose #1851 > > color: #ccc;
00:00:23 verbose #1852 > > }
00:00:23 verbose #1853 > > a {
00:00:23 verbose #1854 > > color: #777;
00:00:23 verbose #1855 > > font-size: 15px;
00:00:23 verbose #1856 > > }
00:00:23 verbose #1857 > > span {
00:00:23 verbose #1858 > > font-size: 11px;
00:00:23 verbose #1859 > > }
00:00:23 verbose #1860 > > div > div {
00:00:23 verbose #1861 > > padding-left: 10px;
00:00:23 verbose #1862 > > }
00:00:23 verbose #1863 > > details > div {
00:00:23 verbose #1864 > > padding-left: 19px;
00:00:23 verbose #1865 > > }
00:00:23 verbose #1866 > > </style>
00:00:23 verbose #1867 > > </head>
00:00:23 verbose #1868 > > <body>
00:00:23 verbose #1869 > > <div><details open="true"><summary>📂 <a href="_.root">_.root</a><span>
00:00:23 verbose #1870 > > (10.00 B)</span></summary><div><details open="true"><summary>📂 <a
00:00:23 verbose #1871 > > href="_.root/3">3</a><span> (6.00 B)</span></summary><div><details
00:00:23 verbose #1872 > > open="true"><summary>📂 <a href="_.root/3/2">2</a><span> (3.00
00:00:23 verbose #1873 > > B)</span></summary><div><details open="true"><summary>📂 <a
00:00:23 verbose #1874 > > href="_.root/3/2/1">1</a><span> (1.00 B)</span></summary><div><div>📄 <a
00:00:23 verbose #1875 > > href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00
00:00:23 verbose #1876 > > B)</span></div></div></details><div>📄 <a
00:00:23 verbose #1877 > > href="_.root/3/2/file.txt">file.txt</a><span> (2.00
00:00:23 verbose #1878 > > B)</span></div></div></details><div>📄 <a
00:00:23 verbose #1879 > > href="_.root/3/file.txt">file.txt</a><span> (3.00
00:00:23 verbose #1880 > > B)</span></div></div></details><div>📄 <a
00:00:23 verbose #1881 > > href="_.root/file.txt">file.txt</a><span> (4.00
00:00:23 verbose #1882 > > B)</span></div></div></details></div>
00:00:23 verbose #1883 > > </body>
00:00:23 verbose #1884 > > </html>
00:00:23 verbose #1885 > > """
00:00:23 verbose #1886 > >
00:00:23 verbose #1887 > > let struct (tempFolder, disposable) = expected |> SpiralCrypto.hash_text |>
00:00:23 verbose #1888 > > SpiralFileSystem.create_temp_dir'
00:00:23 verbose #1889 > > let rec loop d n = async {
00:00:23 verbose #1890 > > if n >= 0 then
00:00:23 verbose #1891 > > tempFolder </> d |> System.IO.Directory.CreateDirectory |> ignore
00:00:23 verbose #1892 > > do!
00:00:23 verbose #1893 > > n
00:00:23 verbose #1894 > > |> string
00:00:23 verbose #1895 > > |> String.replicate (n + 1)
00:00:23 verbose #1896 > > |> SpiralFileSystem.write_all_text_async (tempFolder </> d </>
00:00:23 verbose #1897 > > $"file.txt")
00:00:23 verbose #1898 > > do! loop $"{d}/{n}" (n - 1)
00:00:23 verbose #1899 > > }
00:00:23 verbose #1900 > > loop "_.root" 3
00:00:23 verbose #1901 > > |> Async.RunSynchronously
00:00:23 verbose #1902 > >
00:00:23 verbose #1903 > > let html =
00:00:23 verbose #1904 > > scanDirectory true tempFolder tempFolder
00:00:23 verbose #1905 > > |> generateHtmlForFileSystem
00:00:23 verbose #1906 > >
00:00:23 verbose #1907 > > html
00:00:23 verbose #1908 > > |> _assertEqual expected
00:00:23 verbose #1909 > >
00:00:23 verbose #1910 > > disposable.Dispose ()
00:00:23 verbose #1911 > >
00:00:23 verbose #1912 > > html |> Microsoft.DotNet.Interactive.Formatting.Html.ToHtmlContent
00:00:23 verbose #1913 > >
00:00:23 verbose #1914 > > ╭─[ 188.04ms - return value ]──────────────────────────────────────────────────╮
00:00:23 verbose #1915 > > │ <!DOCTYPE html> │
00:00:23 verbose #1916 > > │ <html lang="en"> │
00:00:23 verbose #1917 > > │ <head> │
00:00:23 verbose #1918 > > │ <meta charset="UTF-8"> │
00:00:23 verbose #1919 > > │ <style> │
00:00:23 verbose #1920 > > │ body { │
00:00:23 verbose #1921 > > │ background-color: #222; │
00:00:23 verbose #1922 > > │ color: #ccc; │
00:00:23 verbose #1923 > > │ } │
00:00:23 verbose #1924 > > │ a { │
00:00:23 verbose #1925 > > │ color: #777; │
00:00:23 verbose #1926 > > │ font-size: 15px; │
00:00:23 verbose #1927 > > │ } │
00:00:23 verbose #1928 > > │ span { │
00:00:23 verbose #1929 > > │ font-size: 11px; │
00:00:23 verbose #1930 > > │ } │
00:00:23 verbose #1931 > > │ div > div { │
00:00:23 verbose #1932 > > │ padding-left: 10px; │
00:00:23 verbose #1933 > > │ } │
00:00:23 verbose #1934 > > │ details > div { │
00:00:23 verbose #1935 > > │ padding-left: 19px; │
00:00:23 verbose #1936 > > │ } │
00:00:23 verbose #1937 > > │ </style> │
00:00:23 verbose #1938 > > │ </head> │
00:00:23 verbose #1939 > > │ <body> │
00:00:23 verbose #1940 > > │ <div><details open="true"><summary>📂 <a │
00:00:23 verbose #1941 > > │ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
00:00:23 verbose #1942 > > │ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
00:00:23 verbose #1943 > > │ B)</span></summary><div><details open="true"><summary>📂 <a │
00:00:23 verbose #1944 > > │ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
00:00:23 verbose #1945 > > │ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
00:00:23 verbose #1946 > > │ B)</span></summary><div><div>📄 <a │
00:00:23 verbose #1947 > > │ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
00:00:23 verbose #1948 > > │ B)</span></div></div></details><div>📄 <a │
00:00:23 verbose #1949 > > │ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
00:00:23 verbose #1950 > > │ B)</span></div></div></details><div>📄 <a │
00:00:23 verbose #1951 > > │ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
00:00:23 verbose #1952 > > │ B)</span></div></div></details><div>📄 <a │
00:00:23 verbose #1953 > > │ href="_.root/file.txt">file.txt</a><span> (4.00 │
00:00:23 verbose #1954 > > │ B)</span></div></div></details></div> │
00:00:23 verbose #1955 > > │ </body> │
00:00:23 verbose #1956 > > │ </html> │
00:00:23 verbose #1957 > > │ │
00:00:23 verbose #1958 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #1959 > >
00:00:23 verbose #1960 > > ╭─[ 193.58ms - stdout ]────────────────────────────────────────────────────────╮
00:00:23 verbose #1961 > > │ "<!DOCTYPE html> │
00:00:23 verbose #1962 > > │ <html lang="en"> │
00:00:23 verbose #1963 > > │ <head> │
00:00:23 verbose #1964 > > │ <meta charset="UTF-8"> │
00:00:23 verbose #1965 > > │ <style> │
00:00:23 verbose #1966 > > │ body { │
00:00:23 verbose #1967 > > │ background-color: #222; │
00:00:23 verbose #1968 > > │ color: #ccc; │
00:00:23 verbose #1969 > > │ } │
00:00:23 verbose #1970 > > │ a { │
00:00:23 verbose #1971 > > │ color: #777; │
00:00:23 verbose #1972 > > │ font-size: 15px; │
00:00:23 verbose #1973 > > │ } │
00:00:23 verbose #1974 > > │ span { │
00:00:23 verbose #1975 > > │ font-size: 11px; │
00:00:23 verbose #1976 > > │ } │
00:00:23 verbose #1977 > > │ div > div { │
00:00:23 verbose #1978 > > │ padding-left: 10px; │
00:00:23 verbose #1979 > > │ } │
00:00:23 verbose #1980 > > │ details > div { │
00:00:23 verbose #1981 > > │ padding-left: 19px; │
00:00:23 verbose #1982 > > │ } │
00:00:23 verbose #1983 > > │ </style> │
00:00:23 verbose #1984 > > │ </head> │
00:00:23 verbose #1985 > > │ <body> │
00:00:23 verbose #1986 > > │ <div><details open="true"><summary>📂 <a │
00:00:23 verbose #1987 > > │ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
00:00:23 verbose #1988 > > │ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
00:00:23 verbose #1989 > > │ B)</span></summary><div><details open="true"><summary>📂 <a │
00:00:23 verbose #1990 > > │ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
00:00:23 verbose #1991 > > │ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
00:00:23 verbose #1992 > > │ B)</span></summary><div><div>📄 <a │
00:00:23 verbose #1993 > > │ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
00:00:23 verbose #1994 > > │ B)</span></div></div></details><div>📄 <a │
00:00:23 verbose #1995 > > │ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
00:00:23 verbose #1996 > > │ B)</span></div></div></details><div>📄 <a │
00:00:23 verbose #1997 > > │ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
00:00:23 verbose #1998 > > │ B)</span></div></div></details><div>📄 <a │
00:00:23 verbose #1999 > > │ href="_.root/file.txt">file.txt</a><span> (4.00 │
00:00:23 verbose #2000 > > │ B)</span></div></div></details></div> │
00:00:23 verbose #2001 > > │ </body> │
00:00:23 verbose #2002 > > │ </html> │
00:00:23 verbose #2003 > > │ " │
00:00:23 verbose #2004 > > │ │
00:00:23 verbose #2005 > > │ │
00:00:23 verbose #2006 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #2007 > >
00:00:23 verbose #2008 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #2009 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #2010 > > │ ## Arguments │
00:00:23 verbose #2011 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #2012 > >
00:00:23 verbose #2013 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #2014 > > [[<RequireQualifiedAccess>]]
00:00:23 verbose #2015 > > type Arguments =
00:00:23 verbose #2016 > > | [[<Argu.ArguAttributes.ExactlyOnce>]] Dir of string
00:00:23 verbose #2017 > > | [[<Argu.ArguAttributes.ExactlyOnce>]] Html of string
00:00:23 verbose #2018 > >
00:00:23 verbose #2019 > > interface Argu.IArgParserTemplate with
00:00:23 verbose #2020 > > member s.Usage =
00:00:23 verbose #2021 > > match s with
00:00:23 verbose #2022 > > | Dir _ -> nameof Dir
00:00:23 verbose #2023 > > | Html _ -> nameof Html
00:00:23 verbose #2024 > >
00:00:23 verbose #2025 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #2026 > > //// test
00:00:23 verbose #2027 > >
00:00:23 verbose #2028 > > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:00:23 verbose #2029 > >
00:00:23 verbose #2030 > > ╭─[ 109.51ms - return value ]──────────────────────────────────────────────────╮
00:00:23 verbose #2031 > > │ "USAGE: dotnet-repl [--help] --dir <string> --html <string> │
00:00:23 verbose #2032 > > │ │
00:00:23 verbose #2033 > > │ OPTIONS: │
00:00:23 verbose #2034 > > │ │
00:00:23 verbose #2035 > > │ --dir <string> Dir │
00:00:23 verbose #2036 > > │ --html <string> Html │
00:00:23 verbose #2037 > > │ --help display this list of options. │
00:00:23 verbose #2038 > > │ " │
00:00:23 verbose #2039 > > │ │
00:00:23 verbose #2040 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #2041 > >
00:00:23 verbose #2042 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #2043 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #2044 > > │ ## main │
00:00:23 verbose #2045 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #2046 > >
00:00:23 verbose #2047 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #2048 > > let main args =
00:00:23 verbose #2049 > > let argsMap = args |> Runtime.parseArgsMap<Arguments>
00:00:23 verbose #2050 > >
00:00:23 verbose #2051 > > let dir =
00:00:23 verbose #2052 > > match argsMap.[[nameof Arguments.Dir]] with
00:00:23 verbose #2053 > > | [[ Arguments.Dir dir ]] -> Some dir
00:00:23 verbose #2054 > > | _ -> None
00:00:23 verbose #2055 > > |> Option.get
00:00:23 verbose #2056 > >
00:00:23 verbose #2057 > > let htmlPath =
00:00:23 verbose #2058 > > match argsMap.[[nameof Arguments.Html]] with
00:00:23 verbose #2059 > > | [[ Arguments.Html html ]] -> Some html
00:00:23 verbose #2060 > > | _ -> None
00:00:23 verbose #2061 > > |> Option.get
00:00:23 verbose #2062 > >
00:00:23 verbose #2063 > > let fileSystem = scanDirectory true dir dir
00:00:23 verbose #2064 > > let html = generateHtmlForFileSystem fileSystem
00:00:23 verbose #2065 > >
00:00:23 verbose #2066 > > html |> SpiralFileSystem.write_all_text_async htmlPath
00:00:23 verbose #2067 > > |> Async.runWithTimeout 30000
00:00:23 verbose #2068 > > |> function
00:00:23 verbose #2069 > > | Some () -> 0
00:00:23 verbose #2070 > > | None -> 1
00:00:23 verbose #2071 > >
00:00:23 verbose #2072 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #2073 > > //// test
00:00:23 verbose #2074 > >
00:00:23 verbose #2075 > > let args =
00:00:23 verbose #2076 > > System.Environment.GetEnvironmentVariable "ARGS"
00:00:23 verbose #2077 > > |> SpiralRuntime.split_args
00:00:23 verbose #2078 > > |> Result.toArray
00:00:23 verbose #2079 > > |> Array.collect id
00:00:23 verbose #2080 > >
00:00:23 verbose #2081 > > match args with
00:00:23 verbose #2082 > > | [[||]] -> 0
00:00:23 verbose #2083 > > | args -> if main args = 0 then 0 else failwith "main failed"
00:00:23 verbose #2084 > >
00:00:23 verbose #2085 > > ╭─[ 83.57ms - return value ]───────────────────────────────────────────────────╮
00:00:23 verbose #2086 > > │ <div class="dni-plaintext"><pre>0 │
00:00:23 verbose #2087 > > │ </pre></div><style> │
00:00:23 verbose #2088 > > │ .dni-code-hint { │
00:00:23 verbose #2089 > > │ font-style: italic; │
00:00:23 verbose #2090 > > │ overflow: hidden; │
00:00:23 verbose #2091 > > │ white-space: nowrap; │
00:00:23 verbose #2092 > > │ } │
00:00:23 verbose #2093 > > │ .dni-treeview { │
00:00:23 verbose #2094 > > │ white-space: nowrap; │
00:00:23 verbose #2095 > > │ } │
00:00:23 verbose #2096 > > │ .dni-treeview td { │
00:00:23 verbose #2097 > > │ vertical-align: top; │
00:00:23 verbose #2098 > > │ text-align: start; │
00:00:23 verbose #2099 > > │ } │
00:00:23 verbose #2100 > > │ details.dni-treeview { │
00:00:23 verbose #2101 > > │ padding-left: 1em; │
00:00:23 verbose #2102 > > │ } │
00:00:23 verbose #2103 > > │ table td { │
00:00:23 verbose #2104 > > │ text-align: start; │
00:00:23 verbose #2105 > > │ } │
00:00:23 verbose #2106 > > │ table tr { │
00:00:23 verbose #2107 > > │ vertical-align: top; │
00:00:23 verbose #2108 > > │ margin: 0em 0px; │
00:00:23 verbose #2109 > > │ } │
00:00:23 verbose #2110 > > │ table tr td pre │
00:00:23 verbose #2111 > > │ { │
00:00:23 verbose #2112 > > │ vertical-align: top !important; │
00:00:23 verbose #2113 > > │ margin: 0em 0px !important; │
00:00:23 verbose #2114 > > │ } │
00:00:23 verbose #2115 > > │ table th { │
00:00:23 verbose #2116 > > │ text-align: start; │
00:00:23 verbose #2117 > > │ } │
00:00:23 verbose #2118 > > │ </style> │
00:00:23 verbose #2119 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #2120 > 00:00:21 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 72433
00:00:24 verbose #2121 > 00:00:21 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:26 verbose #2122 > 00:00:23 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.ipynb to html
00:00:26 verbose #2123 > 00:00:23 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:26 verbose #2124 > 00:00:23 verbose #7 ! validate(nb)
00:00:27 verbose #2125 > 00:00:25 verbose #8 ! [NbConvertApp] Writing 309931 bytes to c:\home\git\polyglot\apps\dir-tree-html\DirTreeHtml.dib.html
00:00:27 verbose #2126 > 00:00:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 669
00:00:27 verbose #2127 > 00:00:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 669
00:00:27 verbose #2128 > 00:00:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/dir-tree-html/DirTreeHtml.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:28 verbose #2129 > 00:00:26 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:28 verbose #2130 > 00:00:26 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:29 verbose #2131 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 73161
00:00:29 debug #2132 runtime.execute_with_options_async / exit_code: 0 / output.Length: 79729
00:00:29 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path DirTreeHtml.dib
00:00:29 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:00:29 debug #7 async.run_with_timeout_async / timeout: 100
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]
#endif
type reqwest_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]
#endif
type reqwest_RequestBuilder = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]
#endif
type reqwest_Response = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]
#endif
type Func0<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]
#endif
type Func0<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]
#endif
type Box<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]
#endif
type Dyn<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Send")>]
#endif
type Send<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]
#endif
type Fn<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]
#endif
type FnUnit = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]
#endif
type FnOnce<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]
#endif
type ActionFn<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]
#endif
type ActionFn2<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]
#endif
type Impl<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]
#endif
type Mut<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("&$0")>]
#endif
type Ref<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("$0 + $1")>]
#endif
type LifetimeJoin<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("'static")>]
#endif
type StaticLifetime = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("$0")>]
#endif
type LifetimeRef<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("$0 $1")>]
#endif
type Lifetime<'T, 'U> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>]
#endif
type MutCell<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>]
#endif
type std_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::borrow::Cow<$0>")>]
#endif
type std_borrow_Cow<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>]
#endif
type std_cell_RefCell<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>]
#endif
type std_pin_Pin<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>]
#endif
type std_rc_Rc<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>]
#endif
type std_rc_Weak<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::collections::HashMap<$0, $1>")>]
#endif
type std_collections_HashMap<'K, 'V> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::collections::BTreeMap<$0, $1>")>]
#endif
type std_collections_BTreeMap<'K, 'V> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("[$0]")>]
#endif
type Slice<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type Slice'<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("Vec<$0>")>]
#endif
type Vec<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("str")>]
#endif
type Str = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]
#endif
type base64_DecodeError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]
#endif
type borsh_io_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("encoding_rs::Encoding")>]
#endif
type encoding_rs_Encoding = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]
#endif
type js_sys_JsString = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]
#endif
type serde_json_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]
#endif
type serde_json_Value = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]
#endif
type serde_wasm_bindgen_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]
#endif
type std_ffi_OsStr = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>]
#endif
type std_ffi_OsString = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fmt::Display<$0>")>]
#endif
type std_fmt_Display<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>]
#endif
type std_str_Utf8Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::string::FromUtf8Error")>]
#endif
type std_string_FromUtf8Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>]
#endif
type std_string_String = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::slice::Windows<$0>")>]
#endif
type std_slice_Windows<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Regex")>]
#endif
type regex_Regex = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Captures<$0>")>]
#endif
type regex_Captures<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::CaptureMatches")>]
#endif
type regex_CaptureMatches = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::CaptureNames")>]
#endif
type regex_CaptureNames = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Match")>]
#endif
type regex_Match = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("regex::Error")>]
#endif
type regex_Error = class end
module State = let mutable trace_state = None
type IOsEnviron = abstract environ: x: unit -> obj
type [<Struct>] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and Mut3 = {mutable l0 : (string -> unit)}
and [<Struct>] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [<Struct>] US2 =
| US2_0 of f0_0 : US0
| US2_1
and [<Struct>] US3 =
| US3_0 of f0_0 : string
| US3_1
and [<Struct>] US4 =
| US4_0 of f0_0 : bool
| US4_1
and [<Struct>] US5 =
| US5_0 of f0_0 : bool
| US5_1 of f1_0 : exn
and [<Struct>] US6 =
| US6_0 of f0_0 : bool
| US6_1 of f1_0 : exn
and [<Struct>] US7 =
| US7_0 of f0_0 : int32
| US7_1
let rec method0 () : string =
let v0 : string = "TRACE_LEVEL"
v0
and method2 () : string =
let v0 : string = ""
v0
and method1 (v0 : string) : string =
let v1 : bool = true
let mutable _v1 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = "std::env::var(&*$0)"
let v3 : Result<std_string_String, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr v0 v2
let v4 : string = "true; let _result = $0.map(|x| { //"
let v5 : bool = Fable.Core.RustInterop.emitRustExpr v3 v4
let v6 : string = "x"
let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v6
let v8 : string = "fable_library_rust::String_::fromString($0)"
let v9 : string = Fable.Core.RustInterop.emitRustExpr v7 v8
let v10 : string = "true; $0 })"
let v11 : bool = Fable.Core.RustInterop.emitRustExpr v9 v10
let v12 : string = "_result"
let v13 : Result<string, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr () v12
let v14 : string = method2()
let v15 : string = "$0.unwrap_or($1)"
let v16 : string = Fable.Core.RustInterop.emitRustExpr struct (v13, v14) v15
v16
#endif
#if FABLE_COMPILER_RUST && WASM
let v17 : string = "std::env::var(&*$0)"
let v18 : Result<std_string_String, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr v0 v17
let v19 : string = "true; let _result = $0.map(|x| { //"
let v20 : bool = Fable.Core.RustInterop.emitRustExpr v18 v19
let v21 : string = "x"
let v22 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v21
let v23 : string = "fable_library_rust::String_::fromString($0)"
let v24 : string = Fable.Core.RustInterop.emitRustExpr v22 v23
let v25 : string = "true; $0 })"
let v26 : bool = Fable.Core.RustInterop.emitRustExpr v24 v25
let v27 : string = "_result"
let v28 : Result<string, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr () v27
let v29 : string = method2()
let v30 : string = "$0.unwrap_or($1)"
let v31 : string = Fable.Core.RustInterop.emitRustExpr struct (v28, v29) v30
v31
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v32 : string = "std::env::var(&*$0)"
let v33 : Result<std_string_String, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr v0 v32
let v34 : string = "true; let _result = $0.map(|x| { //"
let v35 : bool = Fable.Core.RustInterop.emitRustExpr v33 v34
let v36 : string = "x"
let v37 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v36
let v38 : string = "fable_library_rust::String_::fromString($0)"
let v39 : string = Fable.Core.RustInterop.emitRustExpr v37 v38
let v40 : string = "true; $0 })"
let v41 : bool = Fable.Core.RustInterop.emitRustExpr v39 v40
let v42 : string = "_result"
let v43 : Result<string, std_env_VarError> = Fable.Core.RustInterop.emitRustExpr () v42
let v44 : string = method2()
let v45 : string = "$0.unwrap_or($1)"
let v46 : string = Fable.Core.RustInterop.emitRustExpr struct (v43, v44) v45
v46
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v47 : string = "process.env[$0] ?? \"\""
let v48 : string = Fable.Core.JsInterop.emitJsExpr v0 v47
v48
#endif
#if FABLE_COMPILER_PYTHON
let v49 : string = "os"
let v50 : IOsEnviron = Fable.Core.PyInterop.importAll v49
let v51 : string = "v50.environ"
let v52 : obj = Fable.Core.PyInterop.emitPyExpr () v51
let v53 : string = "v52.get($0)"
let v54 : string = Fable.Core.PyInterop.emitPyExpr v0 v53
v54
#endif
#else
let v55 : (string -> string) = System.Environment.GetEnvironmentVariable
let v56 : string = v55 v0
let mutable _v56 = None
#if !FABLE_COMPILER && !WASM && !CONTRACT
let v57 : (string -> string option) = Option.ofObj
let v58 : string option = v57 v56
v58
#else
Some v56
#endif
|> fun x -> _v56 <- Some x
let v59 : string option = match _v56 with Some x -> x | None -> failwith "optionm'.of_obj / _v56=None"
let v60 : US3 option = None
let _v60 = ref v60
match v59 with
| Some x -> (
(fun () ->
(fun () ->
let v61 : string = x
let v62 : US3 = US3_0(v61)
v62
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v60.Value <- x
let v63 : US3 option = _v60.Value
let v64 : US3 = US3_1
let v65 : US3 = v63 |> Option.defaultValue v64
let v69 : string =
match v65 with
| US3_1 -> (* None *)
let v67 : string = ""
v67
| US3_0(v66) -> (* Some *)
v66
v69
#endif
|> fun x -> _v1 <- Some x
let v70 : string = match _v1 with Some x -> x | None -> failwith "base.run_target / _v1=None"
v70
and method3 () : string =
let v0 : string = "AUTOMATION"
v0
and closure1 () (v0 : string) : unit =
()
and closure0 () (v0 : US0) : struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3) =
let v1 : bool = true
let mutable _v1 : struct (US1 * US2) option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = method0()
let v3 : string = method1(v2)
let v5 : bool = "Verbose" = v3
let v9 : US2 =
if v5 then
let v6 : US0 = US0_0
US2_0(v6)
else
US2_1
let v54 : US2 =
match v9 with
| US2_1 -> (* None *)
let v13 : bool = "Debug" = v3
let v17 : US2 =
if v13 then
let v14 : US0 = US0_1
US2_0(v14)
else
US2_1
match v17 with
| US2_1 -> (* None *)
let v21 : bool = "Info" = v3
let v25 : US2 =
if v21 then
let v22 : US0 = US0_2
US2_0(v22)
else
US2_1
match v25 with
| US2_1 -> (* None *)
let v29 : bool = "Warning" = v3
let v33 : US2 =
if v29 then
let v30 : US0 = US0_3
US2_0(v30)
else
US2_1
match v33 with
| US2_1 -> (* None *)
let v37 : bool = "Critical" = v3
let v41 : US2 =
if v37 then
let v38 : US0 = US0_4
US2_0(v38)
else
US2_1
match v41 with
| US2_1 -> (* None *)
US2_1
| US2_0(v42) -> (* Some *)
US2_0(v42)
| US2_0(v34) -> (* Some *)
US2_0(v34)
| US2_0(v26) -> (* Some *)
US2_0(v26)
| US2_0(v18) -> (* Some *)
US2_0(v18)
| US2_0(v10) -> (* Some *)
US2_0(v10)
let v55 : string = method3()
let v56 : string = method1(v55)
let v58 : bool = v56 = "True"
let v64 : US1 =
if v58 then
let v59 : System.DateTime = System.DateTime.Now
let v60 : (System.DateTime -> int64) = _.Ticks
let v61 : int64 = v60 v59
US1_0(v61)
else
US1_1
struct (v64, v54)
#endif
#if FABLE_COMPILER_RUST && WASM
let v65 : US1 = US1_1
let v66 : US2 = US2_1
struct (v65, v66)
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v67 : US1 = US1_1
let v68 : US2 = US2_1
struct (v67, v68)
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v69 : string = method0()
let v70 : string = method1(v69)
let v72 : bool = "Verbose" = v70
let v76 : US2 =
if v72 then
let v73 : US0 = US0_0
US2_0(v73)
else
US2_1
let v121 : US2 =
match v76 with
| US2_1 -> (* None *)
let v80 : bool = "Debug" = v70
let v84 : US2 =
if v80 then
let v81 : US0 = US0_1
US2_0(v81)
else
US2_1
match v84 with
| US2_1 -> (* None *)
let v88 : bool = "Info" = v70
let v92 : US2 =
if v88 then
let v89 : US0 = US0_2
US2_0(v89)
else
US2_1
match v92 with
| US2_1 -> (* None *)
let v96 : bool = "Warning" = v70
let v100 : US2 =
if v96 then
let v97 : US0 = US0_3
US2_0(v97)
else
US2_1
match v100 with
| US2_1 -> (* None *)
let v104 : bool = "Critical" = v70
let v108 : US2 =
if v104 then
let v105 : US0 = US0_4
US2_0(v105)
else
US2_1
match v108 with
| US2_1 -> (* None *)
US2_1
| US2_0(v109) -> (* Some *)
US2_0(v109)
| US2_0(v101) -> (* Some *)
US2_0(v101)
| US2_0(v93) -> (* Some *)
US2_0(v93)
| US2_0(v85) -> (* Some *)
US2_0(v85)
| US2_0(v77) -> (* Some *)
US2_0(v77)
let v122 : string = method3()
let v123 : string = method1(v122)
let v125 : bool = v123 = "True"
let v131 : US1 =
if v125 then
let v126 : System.DateTime = System.DateTime.Now
let v127 : (System.DateTime -> int64) = _.Ticks
let v128 : int64 = v127 v126
US1_0(v128)
else
US1_1
struct (v131, v121)
#endif
#if FABLE_COMPILER_PYTHON
let v132 : string = method0()
let v133 : string = method1(v132)
let v135 : bool = "Verbose" = v133
let v139 : US2 =
if v135 then
let v136 : US0 = US0_0
US2_0(v136)
else
US2_1
let v184 : US2 =
match v139 with
| US2_1 -> (* None *)
let v143 : bool = "Debug" = v133
let v147 : US2 =
if v143 then
let v144 : US0 = US0_1
US2_0(v144)
else
US2_1
match v147 with
| US2_1 -> (* None *)
let v151 : bool = "Info" = v133
let v155 : US2 =
if v151 then
let v152 : US0 = US0_2
US2_0(v152)
else
US2_1
match v155 with
| US2_1 -> (* None *)
let v159 : bool = "Warning" = v133
let v163 : US2 =
if v159 then
let v160 : US0 = US0_3
US2_0(v160)
else
US2_1
match v163 with
| US2_1 -> (* None *)
let v167 : bool = "Critical" = v133
let v171 : US2 =
if v167 then
let v168 : US0 = US0_4
US2_0(v168)
else
US2_1
match v171 with
| US2_1 -> (* None *)
US2_1
| US2_0(v172) -> (* Some *)
US2_0(v172)
| US2_0(v164) -> (* Some *)
US2_0(v164)
| US2_0(v156) -> (* Some *)
US2_0(v156)
| US2_0(v148) -> (* Some *)
US2_0(v148)
| US2_0(v140) -> (* Some *)
US2_0(v140)
let v185 : string = method3()
let v186 : string = method1(v185)
let v188 : bool = v186 = "True"
let v194 : US1 =
if v188 then
let v189 : System.DateTime = System.DateTime.Now
let v190 : (System.DateTime -> int64) = _.Ticks
let v191 : int64 = v190 v189
US1_0(v191)
else
US1_1
struct (v194, v184)
#endif
#else
let v195 : string = method0()
let v196 : string = method1(v195)
let v198 : bool = "Verbose" = v196
let v202 : US2 =
if v198 then
let v199 : US0 = US0_0
US2_0(v199)
else
US2_1
let v247 : US2 =
match v202 with
| US2_1 -> (* None *)
let v206 : bool = "Debug" = v196
let v210 : US2 =
if v206 then
let v207 : US0 = US0_1
US2_0(v207)
else
US2_1
match v210 with
| US2_1 -> (* None *)
let v214 : bool = "Info" = v196
let v218 : US2 =
if v214 then
let v215 : US0 = US0_2
US2_0(v215)
else
US2_1
match v218 with
| US2_1 -> (* None *)
let v222 : bool = "Warning" = v196
let v226 : US2 =
if v222 then
let v223 : US0 = US0_3
US2_0(v223)
else
US2_1
match v226 with
| US2_1 -> (* None *)
let v230 : bool = "Critical" = v196
let v234 : US2 =
if v230 then
let v231 : US0 = US0_4
US2_0(v231)
else
US2_1
match v234 with
| US2_1 -> (* None *)
US2_1
| US2_0(v235) -> (* Some *)
US2_0(v235)
| US2_0(v227) -> (* Some *)
US2_0(v227)
| US2_0(v219) -> (* Some *)
US2_0(v219)
| US2_0(v211) -> (* Some *)
US2_0(v211)
| US2_0(v203) -> (* Some *)
US2_0(v203)
let v248 : string = method3()
let v249 : string = method1(v248)
let v251 : bool = v249 = "True"
let v257 : US1 =
if v251 then
let v252 : System.DateTime = System.DateTime.Now
let v253 : (System.DateTime -> int64) = _.Ticks
let v254 : int64 = v253 v252
US1_0(v254)
else
US1_1
struct (v257, v247)
#endif
|> fun x -> _v1 <- Some x
let struct (v258 : US1, v259 : US2) = match _v1 with Some x -> x | None -> failwith "base.run_target / _v1=None"
let v260 : Mut1 = {l0 = true} : Mut1
let v261 : Mut0 = {l0 = 0L} : Mut0
let v264 : US0 =
match v259 with
| US2_1 -> (* None *)
v0
| US2_0(v262) -> (* Some *)
v262
let v265 : Mut2 = {l0 = v264} : Mut2
let v266 : (string -> unit) = closure1()
let v267 : Mut3 = {l0 = v266} : Mut3
let v272 : int64 option =
match v258 with
| US1_1 -> (* None *)
let v270 : int64 option = None
v270
| US1_0(v268) -> (* Some *)
let v269 : int64 option = Some v268
v269
struct (v261, v260, v265, v272, v267)
and closure4 (v0 : int32, v1 : string) () : string =
let v2 : string = $"networking.test_port_open / port: {v0} / ex: {v1}"
v2
and closure5 () () : string =
let v0 : string = ""
v0
and method5 () : string =
let v0 : string = "hh:mm:ss"
v0
and method6 () : string =
let v0 : string = ""
v0
and method7 () : string =
let v0 : string = "HH:mm:ss"
v0
and closure6 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : string =
let v3 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v4 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v3 v4 |> Some
let struct (v5 : Mut0, v6 : Mut1, v7 : Mut2, v8 : int64 option, v9 : Mut3) = State.trace_state.Value
let v10 : bool = true
let mutable _v10 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v11 : US1 option = None
let _v11 = ref v11
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v12 : int64 = x
let v13 : US1 = US1_0(v12)
v13
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v11.Value <- x
let v14 : US1 option = _v11.Value
let v15 : US1 = US1_1
let v16 : US1 = v14 |> Option.defaultValue v15
let v35 : System.DateTime =
match v16 with
| US1_1 -> (* None *)
let v33 : System.DateTime = System.DateTime.Now
v33
| US1_0(v17) -> (* Some *)
let v18 : System.DateTime = System.DateTime.Now
let v19 : (System.DateTime -> int64) = _.Ticks
let v20 : int64 = v19 v18
let v21 : int64 = v20 - v17
let v22 : (int64 -> System.TimeSpan) = System.TimeSpan
let v23 : System.TimeSpan = v22 v21
let v24 : (System.TimeSpan -> int32) = _.Hours
let v25 : int32 = v24 v23
let v26 : (System.TimeSpan -> int32) = _.Minutes
let v27 : int32 = v26 v23
let v28 : (System.TimeSpan -> int32) = _.Seconds
let v29 : int32 = v28 v23
let v30 : (System.TimeSpan -> int32) = _.Milliseconds
let v31 : int32 = v30 v23
let v32 : System.DateTime = System.DateTime (1, 1, 1, v25, v27, v29, v31)
v32
let v36 : string = method5()
let v37 : string = v35.ToString v36
v37
#endif
#if FABLE_COMPILER_RUST && WASM
let v38 : US1 option = None
let _v38 = ref v38
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v39 : int64 = x
let v40 : US1 = US1_0(v39)
v40
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v38.Value <- x
let v41 : US1 option = _v38.Value
let v42 : US1 = US1_1
let v43 : US1 = v41 |> Option.defaultValue v42
let v62 : System.DateTime =
match v43 with
| US1_1 -> (* None *)
let v60 : System.DateTime = System.DateTime.Now
v60
| US1_0(v44) -> (* Some *)
let v45 : System.DateTime = System.DateTime.Now
let v46 : (System.DateTime -> int64) = _.Ticks
let v47 : int64 = v46 v45
let v48 : int64 = v47 - v44
let v49 : (int64 -> System.TimeSpan) = System.TimeSpan
let v50 : System.TimeSpan = v49 v48
let v51 : (System.TimeSpan -> int32) = _.Hours
let v52 : int32 = v51 v50
let v53 : (System.TimeSpan -> int32) = _.Minutes
let v54 : int32 = v53 v50
let v55 : (System.TimeSpan -> int32) = _.Seconds
let v56 : int32 = v55 v50
let v57 : (System.TimeSpan -> int32) = _.Milliseconds
let v58 : int32 = v57 v50
let v59 : System.DateTime = System.DateTime (1, 1, 1, v52, v54, v56, v58)
v59
let v63 : string = method5()
let v64 : string = v62.ToString v63
v64
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v65 : string = method6()
v65
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v66 : US1 option = None
let _v66 = ref v66
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v67 : int64 = x
let v68 : US1 = US1_0(v67)
v68
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v66.Value <- x
let v69 : US1 option = _v66.Value
let v70 : US1 = US1_1
let v71 : US1 = v69 |> Option.defaultValue v70
let v90 : System.DateTime =
match v71 with
| US1_1 -> (* None *)
let v88 : System.DateTime = System.DateTime.Now
v88
| US1_0(v72) -> (* Some *)
let v73 : System.DateTime = System.DateTime.Now
let v74 : (System.DateTime -> int64) = _.Ticks
let v75 : int64 = v74 v73
let v76 : int64 = v75 - v72
let v77 : (int64 -> System.TimeSpan) = System.TimeSpan
let v78 : System.TimeSpan = v77 v76
let v79 : (System.TimeSpan -> int32) = _.Hours
let v80 : int32 = v79 v78
let v81 : (System.TimeSpan -> int32) = _.Minutes
let v82 : int32 = v81 v78
let v83 : (System.TimeSpan -> int32) = _.Seconds
let v84 : int32 = v83 v78
let v85 : (System.TimeSpan -> int32) = _.Milliseconds
let v86 : int32 = v85 v78
let v87 : System.DateTime = System.DateTime (1, 1, 1, v80, v82, v84, v86)
v87
let v91 : string = method7()
let v92 : string = v90.ToString v91
v92
#endif
#if FABLE_COMPILER_PYTHON
let v93 : US1 option = None
let _v93 = ref v93
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v94 : int64 = x
let v95 : US1 = US1_0(v94)
v95
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v93.Value <- x
let v96 : US1 option = _v93.Value
let v97 : US1 = US1_1
let v98 : US1 = v96 |> Option.defaultValue v97
let v117 : System.DateTime =
match v98 with
| US1_1 -> (* None *)
let v115 : System.DateTime = System.DateTime.Now
v115
| US1_0(v99) -> (* Some *)
let v100 : System.DateTime = System.DateTime.Now
let v101 : (System.DateTime -> int64) = _.Ticks
let v102 : int64 = v101 v100
let v103 : int64 = v102 - v99
let v104 : (int64 -> System.TimeSpan) = System.TimeSpan
let v105 : System.TimeSpan = v104 v103
let v106 : (System.TimeSpan -> int32) = _.Hours
let v107 : int32 = v106 v105
let v108 : (System.TimeSpan -> int32) = _.Minutes
let v109 : int32 = v108 v105
let v110 : (System.TimeSpan -> int32) = _.Seconds
let v111 : int32 = v110 v105
let v112 : (System.TimeSpan -> int32) = _.Milliseconds
let v113 : int32 = v112 v105
let v114 : System.DateTime = System.DateTime (1, 1, 1, v107, v109, v111, v113)
v114
let v118 : string = method7()
let v119 : string = v117.ToString v118
v119
#endif
#else
let v120 : US1 option = None
let _v120 = ref v120
match v8 with
| Some x -> (
(fun () ->
(fun () ->
let v121 : int64 = x
let v122 : US1 = US1_0(v121)
v122
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v120.Value <- x
let v123 : US1 option = _v120.Value
let v124 : US1 = US1_1
let v125 : US1 = v123 |> Option.defaultValue v124
let v144 : System.DateTime =
match v125 with
| US1_1 -> (* None *)
let v142 : System.DateTime = System.DateTime.Now
v142
| US1_0(v126) -> (* Some *)
let v127 : System.DateTime = System.DateTime.Now
let v128 : (System.DateTime -> int64) = _.Ticks
let v129 : int64 = v128 v127
let v130 : int64 = v129 - v126
let v131 : (int64 -> System.TimeSpan) = System.TimeSpan
let v132 : System.TimeSpan = v131 v130
let v133 : (System.TimeSpan -> int32) = _.Hours
let v134 : int32 = v133 v132
let v135 : (System.TimeSpan -> int32) = _.Minutes
let v136 : int32 = v135 v132
let v137 : (System.TimeSpan -> int32) = _.Seconds
let v138 : int32 = v137 v132
let v139 : (System.TimeSpan -> int32) = _.Milliseconds
let v140 : int32 = v139 v132
let v141 : System.DateTime = System.DateTime (1, 1, 1, v134, v136, v138, v140)
v141
let v145 : string = method7()
let v146 : string = v144.ToString v145
v146
#endif
|> fun x -> _v10 <- Some x
let v147 : string = match _v10 with Some x -> x | None -> failwith "base.run_target / _v10=None"
let v150 : bool =
match v0 with
| US0_0 -> (* Verbose *)
true
| _ ->
false
let v154 : US3 =
if v150 then
let v151 : string = "Verbose"
US3_0(v151)
else
US3_1
let v203 : US3 =
match v154 with
| US3_1 -> (* None *)
let v159 : bool =
match v0 with
| US0_1 -> (* Debug *)
true
| _ ->
false
let v163 : US3 =
if v159 then
let v160 : string = "Debug"
US3_0(v160)
else
US3_1
match v163 with
| US3_1 -> (* None *)
let v168 : bool =
match v0 with
| US0_2 -> (* Info *)
true
| _ ->
false
let v172 : US3 =
if v168 then
let v169 : string = "Info"
US3_0(v169)
else
US3_1
match v172 with
| US3_1 -> (* None *)
let v177 : bool =
match v0 with
| US0_3 -> (* Warning *)
true
| _ ->
false
let v181 : US3 =
if v177 then
let v178 : string = "Warning"
US3_0(v178)
else
US3_1
match v181 with
| US3_1 -> (* None *)
let v186 : bool =
match v0 with
| US0_4 -> (* Critical *)
true
| _ ->
false
let v190 : US3 =
if v186 then
let v187 : string = "Critical"
US3_0(v187)
else
US3_1
match v190 with
| US3_1 -> (* None *)
US3_1
| US3_0(v191) -> (* Some *)
US3_0(v191)
| US3_0(v182) -> (* Some *)
US3_0(v182)
| US3_0(v173) -> (* Some *)
US3_0(v173)
| US3_0(v164) -> (* Some *)
US3_0(v164)
| US3_0(v155) -> (* Some *)
US3_0(v155)
let v207 : string =
match v203 with
| US3_1 -> (* None *)
failwith<string> "Option does not have a value."
| US3_0(v204) -> (* Some *)
v204
let v208 : (unit -> string) = v207.ToLower
let v209 : string = v208 ()
let v210 : string = v209.PadLeft (7, ' ')
let v211 : bool = true
let mutable _v211 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v226 : Ref<Str> =
match v0 with
| US0_4 -> (* Critical *)
let v220 : string = "inline_colorization::color_bright_red"
let v221 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v220
v221
| US0_1 -> (* Debug *)
let v214 : string = "inline_colorization::color_bright_blue"
let v215 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v214
v215
| US0_2 -> (* Info *)
let v216 : string = "inline_colorization::color_bright_green"
let v217 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v216
v217
| US0_0 -> (* Verbose *)
let v212 : string = "inline_colorization::color_bright_black"
let v213 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v212
v213
| US0_3 -> (* Warning *)
let v218 : string = "inline_colorization::color_yellow"
let v219 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v218
v219
let v227 : string = "&*$0"
let v228 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v210 v227
let v229 : string = "inline_colorization::color_reset"
let v230 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v229
let v231 : string = "\"{v226}{v228}{v230}\""
let v232 : string = @$"format!(" + v231 + ")"
let v233 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v232
let v234 : string = "fable_library_rust::String_::fromString($0)"
let v235 : string = Fable.Core.RustInterop.emitRustExpr v233 v234
v235
#endif
#if FABLE_COMPILER_RUST && WASM
let v250 : Ref<Str> =
match v0 with
| US0_4 -> (* Critical *)
let v244 : string = "inline_colorization::color_bright_red"
let v245 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v244
v245
| US0_1 -> (* Debug *)
let v238 : string = "inline_colorization::color_bright_blue"
let v239 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v238
v239
| US0_2 -> (* Info *)
let v240 : string = "inline_colorization::color_bright_green"
let v241 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v240
v241
| US0_0 -> (* Verbose *)
let v236 : string = "inline_colorization::color_bright_black"
let v237 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v236
v237
| US0_3 -> (* Warning *)
let v242 : string = "inline_colorization::color_yellow"
let v243 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v242
v243
let v251 : string = "&*$0"
let v252 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v210 v251
let v253 : string = "inline_colorization::color_reset"
let v254 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v253
let v255 : string = "\"{v250}{v252}{v254}\""
let v256 : string = @$"format!(" + v255 + ")"
let v257 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v256
let v258 : string = "fable_library_rust::String_::fromString($0)"
let v259 : string = Fable.Core.RustInterop.emitRustExpr v257 v258
v259
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v274 : Ref<Str> =
match v0 with
| US0_4 -> (* Critical *)
let v268 : string = "inline_colorization::color_bright_red"
let v269 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v268
v269
| US0_1 -> (* Debug *)
let v262 : string = "inline_colorization::color_bright_blue"
let v263 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v262
v263
| US0_2 -> (* Info *)
let v264 : string = "inline_colorization::color_bright_green"
let v265 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v264
v265
| US0_0 -> (* Verbose *)
let v260 : string = "inline_colorization::color_bright_black"
let v261 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v260
v261
| US0_3 -> (* Warning *)
let v266 : string = "inline_colorization::color_yellow"
let v267 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v266
v267
let v275 : string = "&*$0"
let v276 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v210 v275
let v277 : string = "inline_colorization::color_reset"
let v278 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr () v277
let v279 : string = "\"{v274}{v276}{v278}\""
let v280 : string = @$"format!(" + v279 + ")"
let v281 : std_string_String = Fable.Core.RustInterop.emitRustExpr () v280
let v282 : string = "fable_library_rust::String_::fromString($0)"
let v283 : string = Fable.Core.RustInterop.emitRustExpr v281 v282
v283
#endif
#if FABLE_COMPILER_TYPESCRIPT
v210
#endif
#if FABLE_COMPILER_PYTHON
v210
#endif
#else
v210
#endif
|> fun x -> _v211 <- Some x
let v284 : string = match _v211 with Some x -> x | None -> failwith "base.run_target / _v211=None"
let v285 : int64 = v5.l0
let v286 : string = $"{v147} {v284} #{v285} %s{v1 ()} / %s{v2 ()}"
let v287 : (char []) = [||]
let v288 : string = v286.TrimStart v287
let v289 : (char []) = [|' '; '/'|]
let v290 : string = v288.TrimEnd v289
v290
and method8 (v0 : US0, v1 : (unit -> string)) : unit =
let v2 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v3 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v2 v3 |> Some
let struct (v4 : Mut0, v5 : Mut1, v6 : Mut2, v7 : int64 option, v8 : Mut3) = State.trace_state.Value
let v9 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v2 v9 |> Some
let struct (v10 : Mut0, v11 : Mut1, v12 : Mut2, v13 : int64 option, v14 : Mut3) = State.trace_state.Value
let v15 : US0 = v12.l0
let v16 : bool = v11.l0
let v17 : bool = v16 = false
let v21 : bool =
if v17 then
false
else
let v18 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; US0_4, 4 ] |> Map |> Map.find v0
let v19 : int32 = [ US0_0, 0; US0_1, 1; US0_2, 2; US0_3, 3; US0_4, 4 ] |> Map |> Map.find v15
let v20 : bool = v18 >= v19
v20
if v21 then
let v22 : int64 = v4.l0
let v23 : int64 = v22 + 1L
v4.l0 <- v23
let v24 : string = $"%s{v1 ()}"
let v25 : bool = true
let mutable _v25 : unit option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v26 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v26
()
#endif
#if FABLE_COMPILER_RUST && WASM
let v27 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v27
()
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v28 : string = @"println!(""{}"", $0)"
Fable.Core.RustInterop.emitRustExpr v24 v28
()
#endif
#if FABLE_COMPILER_TYPESCRIPT
System.Console.WriteLine v24
()
#endif
#if FABLE_COMPILER_PYTHON
System.Console.WriteLine v24
()
#endif
#else
System.Console.WriteLine v24
()
#endif
|> fun x -> _v25 <- Some x
match _v25 with Some x -> x | None -> failwith "base.run_target / _v25=None"
let v29 : (string -> unit) = v8.l0
v29 v24
and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
let v3 : (unit -> string) = closure6(v0, v1, v2)
method8(v0, v3)
and closure3 (v0 : string) (v1 : int32) : Async<bool> =
let v2 : bool = true
let mutable _v2 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v3 : Async<bool> = null |> unbox<Async<bool>>
v3
#endif
#if FABLE_COMPILER_RUST && WASM
let v4 : Async<bool> = null |> unbox<Async<bool>>
v4
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v5 : Async<bool> = null |> unbox<Async<bool>>
v5
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v6 : Async<bool> = null |> unbox<Async<bool>>
v6
#endif
#if FABLE_COMPILER_PYTHON
let v7 : Async<bool> = null |> unbox<Async<bool>>
v7
#endif
#else
let v8 : Async<bool> option = None
let mutable _v8 = v8
async {
let v9 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v9 = v9
let v10 : System.Threading.CancellationToken = v9
let v11 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v11 = v11
let v12 : System.Net.Sockets.TcpClient = v11
try
let v13 : System.Threading.Tasks.ValueTask = v12.ConnectAsync (v0, v1, v10)
let v14 : (unit -> System.Threading.Tasks.Task) = v13.AsTask
let v15 : System.Threading.Tasks.Task = v14 ()
let v16 : bool = true
let mutable _v16 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v17 : Async<unit> = null |> unbox<Async<unit>>
v17
#endif
#if FABLE_COMPILER_RUST && WASM
let v18 : Async<unit> = null |> unbox<Async<unit>>
v18
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v19 : Async<unit> = null |> unbox<Async<unit>>
v19
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v20 : Async<unit> = null |> unbox<Async<unit>>
v20
#endif
#if FABLE_COMPILER_PYTHON
let v21 : Async<unit> = null |> unbox<Async<unit>>
v21
#endif
#else
let v22 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v23 : Async<unit> = v22 v15
v23
#endif
|> fun x -> _v16 <- Some x
let v24 : Async<unit> = match _v16 with Some x -> x | None -> failwith "base.run_target / _v16=None"
do! v24
return true
with ex ->
let v25 : exn = ex
let v26 : bool = true
let mutable _v26 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v27 : string = $"%A{v25}"
v27
#endif
#if FABLE_COMPILER_RUST && WASM
let v28 : string = $"%A{v25}"
v28
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v29 : string = $"%A{v25}"
v29
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v30 : string = $"%A{v25}"
v30
#endif
#if FABLE_COMPILER_PYTHON
let v31 : string = $"%A{v25}"
v31
#endif
#else
let v32 : string = $"{v25.GetType ()}: {v25.Message}"
v32
#endif
|> fun x -> _v26 <- Some x
let v33 : string = match _v26 with Some x -> x | None -> failwith "base.run_target / _v26=None"
let v34 : US0 = US0_0
let v35 : (unit -> string) = closure4(v1, v33)
let v36 : (unit -> string) = closure5()
method4(v34, v35, v36)
return false
(*
let v37 : bool = *)
}
|> fun x -> _v8 <- Some x
let v38 : Async<bool> = match _v8 with Some x -> x | None -> failwith "async.new_async_unit / _v8=None"
v38
#endif
|> fun x -> _v2 <- Some x
let v39 : Async<bool> = match _v2 with Some x -> x | None -> failwith "base.run_target / _v2=None"
v39
and closure2 () (v0 : string) : (int32 -> Async<bool>) =
closure3(v0)
and closure10 () (v0 : bool) : US5 =
US5_0(v0)
and closure11 () (v0 : exn) : US5 =
US5_1(v0)
and closure12 () () : string =
let v0 : string = "async.run_with_timeout_async"
v0
and closure13 (v0 : int32) () : string =
let v1 : (unit -> string) = closure5()
let v2 : string = $"timeout: {v0} / {v1 ()}"
v2
and closure14 (v0 : string) () : string =
let v1 : string = $"async.run_with_timeout_async** / ex: {v0}"
v1
and closure9 (v0 : int32, v1 : string) (v2 : int32) : Async<bool> =
let v3 : bool = true
let mutable _v3 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v4 : Async<bool> = null |> unbox<Async<bool>>
v4
#endif
#if FABLE_COMPILER_RUST && WASM
let v5 : Async<bool> = null |> unbox<Async<bool>>
v5
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v6 : Async<bool> = null |> unbox<Async<bool>>
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : Async<bool> = null |> unbox<Async<bool>>
v7
#endif
#if FABLE_COMPILER_PYTHON
let v8 : Async<bool> = null |> unbox<Async<bool>>
v8
#endif
#else
let v9 : Async<bool> option = None
let mutable _v9 = v9
async {
let v10 : bool = true
let mutable _v10 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v11 : Async<bool> = null |> unbox<Async<bool>>
v11
#endif
#if FABLE_COMPILER_RUST && WASM
let v12 : Async<bool> = null |> unbox<Async<bool>>
v12
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v13 : Async<bool> = null |> unbox<Async<bool>>
v13
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v14 : Async<bool> = null |> unbox<Async<bool>>
v14
#endif
#if FABLE_COMPILER_PYTHON
let v15 : Async<bool> = null |> unbox<Async<bool>>
v15
#endif
#else
let v16 : Async<bool> option = None
let mutable _v16 = v16
async {
let v17 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v17 = v17
let v18 : System.Threading.CancellationToken = v17
let v19 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v19 = v19
let v20 : System.Net.Sockets.TcpClient = v19
try
let v21 : System.Threading.Tasks.ValueTask = v20.ConnectAsync (v1, v2, v18)
let v22 : (unit -> System.Threading.Tasks.Task) = v21.AsTask
let v23 : System.Threading.Tasks.Task = v22 ()
let v24 : bool = true
let mutable _v24 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v25 : Async<unit> = null |> unbox<Async<unit>>
v25
#endif
#if FABLE_COMPILER_RUST && WASM
let v26 : Async<unit> = null |> unbox<Async<unit>>
v26
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v27 : Async<unit> = null |> unbox<Async<unit>>
v27
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v28 : Async<unit> = null |> unbox<Async<unit>>
v28
#endif
#if FABLE_COMPILER_PYTHON
let v29 : Async<unit> = null |> unbox<Async<unit>>
v29
#endif
#else
let v30 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v31 : Async<unit> = v30 v23
v31
#endif
|> fun x -> _v24 <- Some x
let v32 : Async<unit> = match _v24 with Some x -> x | None -> failwith "base.run_target / _v24=None"
do! v32
return true
with ex ->
let v33 : exn = ex
let v34 : bool = true
let mutable _v34 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v35 : string = $"%A{v33}"
v35
#endif
#if FABLE_COMPILER_RUST && WASM
let v36 : string = $"%A{v33}"
v36
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v37 : string = $"%A{v33}"
v37
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v38 : string = $"%A{v33}"
v38
#endif
#if FABLE_COMPILER_PYTHON
let v39 : string = $"%A{v33}"
v39
#endif
#else
let v40 : string = $"{v33.GetType ()}: {v33.Message}"
v40
#endif
|> fun x -> _v34 <- Some x
let v41 : string = match _v34 with Some x -> x | None -> failwith "base.run_target / _v34=None"
let v42 : US0 = US0_0
let v43 : (unit -> string) = closure4(v2, v41)
let v44 : (unit -> string) = closure5()
method4(v42, v43, v44)
return false
(*
let v45 : bool = *)
}
|> fun x -> _v16 <- Some x
let v46 : Async<bool> = match _v16 with Some x -> x | None -> failwith "async.new_async_unit / _v16=None"
v46
#endif
|> fun x -> _v10 <- Some x
let v47 : Async<bool> = match _v10 with Some x -> x | None -> failwith "base.run_target / _v10=None"
let v48 : bool = true
let mutable _v48 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v49 : Async<US4> = null |> unbox<Async<US4>>
v49
#endif
#if FABLE_COMPILER_RUST && WASM
let v50 : Async<US4> = null |> unbox<Async<US4>>
v50
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v51 : Async<US4> = null |> unbox<Async<US4>>
v51
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v52 : Async<US4> = null |> unbox<Async<US4>>
v52
#endif
#if FABLE_COMPILER_PYTHON
let v53 : Async<US4> = null |> unbox<Async<US4>>
v53
#endif
#else
let v54 : bool = true
let mutable _v54 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v55 : Async<US4> = null |> unbox<Async<US4>>
v55
#endif
#if FABLE_COMPILER_RUST && WASM
let v56 : Async<US4> = null |> unbox<Async<US4>>
v56
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v57 : Async<US4> = null |> unbox<Async<US4>>
v57
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v58 : Async<US4> = null |> unbox<Async<US4>>
v58
#endif
#if FABLE_COMPILER_PYTHON
let v59 : Async<US4> = null |> unbox<Async<US4>>
v59
#endif
#else
let v60 : Async<US4> option = None
let mutable _v60 = v60
async {
let v61 : bool = true
let mutable _v61 : Async<Async<bool>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v62 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v62
#endif
#if FABLE_COMPILER_RUST && WASM
let v63 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v63
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v64 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v64
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v65 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v65
#endif
#if FABLE_COMPILER_PYTHON
let v66 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v66
#endif
#else
let v67 : Async<Async<bool>> = Async.StartChild (v47, v0)
v67
#endif
|> fun x -> _v61 <- Some x
let v68 : Async<Async<bool>> = match _v61 with Some x -> x | None -> failwith "base.run_target / _v61=None"
let! v68 = v68
let v69 : Async<bool> = v68
let v70 : bool = true
let mutable _v70 : Async<Choice<bool, exn>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v71 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v71
#endif
#if FABLE_COMPILER_RUST && WASM
let v72 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v72
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v73 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v73
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v74 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v74
#endif
#if FABLE_COMPILER_PYTHON
let v75 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v75
#endif
#else
let v76 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch
let v77 : Async<Choice<bool, exn>> = v76 v69
v77
#endif
|> fun x -> _v70 <- Some x
let v78 : Async<Choice<bool, exn>> = match _v70 with Some x -> x | None -> failwith "base.run_target / _v70=None"
let v79 : bool = true
let mutable _v79 : Async<US5> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v80 : Async<US5> = null |> unbox<Async<US5>>
v80
#endif
#if FABLE_COMPILER_RUST && WASM
let v81 : Async<US5> = null |> unbox<Async<US5>>
v81
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v82 : Async<US5> = null |> unbox<Async<US5>>
v82
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v83 : Async<US5> = null |> unbox<Async<US5>>
v83
#endif
#if FABLE_COMPILER_PYTHON
let v84 : Async<US5> = null |> unbox<Async<US5>>
v84
#endif
#else
let v85 : Async<US5> option = None
let mutable _v85 = v85
async {
let! v78 = v78
let v86 : Choice<bool, exn> = v78
let v87 : bool = true
let mutable _v87 : US5 option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v88 : US5 = null |> unbox<US5>
v88
#endif
#if FABLE_COMPILER_RUST && WASM
let v89 : US5 = null |> unbox<US5>
v89
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v90 : US5 = null |> unbox<US5>
v90
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v91 : US5 = null |> unbox<US5>
v91
#endif
#if FABLE_COMPILER_PYTHON
let v92 : US5 = null |> unbox<US5>
v92
#endif
#else
let v93 : (bool -> US5) = closure10()
let v94 : (exn -> US5) = closure11()
let v95 : US5 = match v86 with Choice1Of2 x -> v93 x | Choice2Of2 x -> v94 x
v95
#endif
|> fun x -> _v87 <- Some x
let v96 : US5 = match _v87 with Some x -> x | None -> failwith "base.run_target / _v87=None"
return v96
}
|> fun x -> _v85 <- Some x
let v97 : Async<US5> = match _v85 with Some x -> x | None -> failwith "async.new_async_unit / _v85=None"
v97
#endif
|> fun x -> _v79 <- Some x
let v98 : Async<US5> = match _v79 with Some x -> x | None -> failwith "base.run_target / _v79=None"
let v99 : bool = true
let mutable _v99 : Async<US6> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v100 : Async<US6> = null |> unbox<Async<US6>>
v100
#endif
#if FABLE_COMPILER_RUST && WASM
let v101 : Async<US6> = null |> unbox<Async<US6>>
v101
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v102 : Async<US6> = null |> unbox<Async<US6>>
v102
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v103 : Async<US6> = null |> unbox<Async<US6>>
v103
#endif
#if FABLE_COMPILER_PYTHON
let v104 : Async<US6> = null |> unbox<Async<US6>>
v104
#endif
#else
let v105 : Async<US6> option = None
let mutable _v105 = v105
async {
let! v98 = v98
let v106 : US5 = v98
let v112 : US6 =
match v106 with
| US5_0(v107) -> (* Choice1Of2 *)
US6_0(v107)
| US5_1(v109) -> (* Choice2Of2 *)
US6_1(v109)
return v112
}
|> fun x -> _v105 <- Some x
let v113 : Async<US6> = match _v105 with Some x -> x | None -> failwith "async.new_async_unit / _v105=None"
v113
#endif
|> fun x -> _v99 <- Some x
let v114 : Async<US6> = match _v99 with Some x -> x | None -> failwith "base.run_target / _v99=None"
let v115 : bool = true
let mutable _v115 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v116 : Async<US4> = null |> unbox<Async<US4>>
v116
#endif
#if FABLE_COMPILER_RUST && WASM
let v117 : Async<US4> = null |> unbox<Async<US4>>
v117
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v118 : Async<US4> = null |> unbox<Async<US4>>
v118
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v119 : Async<US4> = null |> unbox<Async<US4>>
v119
#endif
#if FABLE_COMPILER_PYTHON
let v120 : Async<US4> = null |> unbox<Async<US4>>
v120
#endif
#else
let v121 : Async<US4> option = None
let mutable _v121 = v121
async {
let! v114 = v114
let v122 : US6 = v114
let v147 : US4 =
match v122 with
| US6_1(v125) -> (* Error *)
let v126 : string = $"%A{v125}"
let v127 : string = "System.TimeoutException"
let v128 : bool = v126.Contains v127
if v128 then
let v129 : US0 = US0_1
let v130 : (unit -> string) = closure12()
let v131 : (unit -> string) = closure13(v0)
method4(v129, v130, v131)
US4_1
else
let v133 : bool = true
let mutable _v133 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v134 : string = $"%A{v125}"
v134
#endif
#if FABLE_COMPILER_RUST && WASM
let v135 : string = $"%A{v125}"
v135
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v136 : string = $"%A{v125}"
v136
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v137 : string = $"%A{v125}"
v137
#endif
#if FABLE_COMPILER_PYTHON
let v138 : string = $"%A{v125}"
v138
#endif
#else
let v139 : string = $"{v125.GetType ()}: {v125.Message}"
v139
#endif
|> fun x -> _v133 <- Some x
let v140 : string = match _v133 with Some x -> x | None -> failwith "base.run_target / _v133=None"
let v141 : US0 = US0_4
let v142 : (unit -> string) = closure14(v140)
let v143 : (unit -> string) = closure13(v0)
method4(v141, v142, v143)
US4_1
| US6_0(v123) -> (* Ok *)
US4_0(v123)
return v147
}
|> fun x -> _v121 <- Some x
let v148 : Async<US4> = match _v121 with Some x -> x | None -> failwith "async.new_async_unit / _v121=None"
v148
#endif
|> fun x -> _v115 <- Some x
let v149 : Async<US4> = match _v115 with Some x -> x | None -> failwith "base.run_target / _v115=None"
return! v149
}
|> fun x -> _v60 <- Some x
let v150 : Async<US4> = match _v60 with Some x -> x | None -> failwith "async.new_async_unit / _v60=None"
v150
#endif
|> fun x -> _v54 <- Some x
let v151 : Async<US4> = match _v54 with Some x -> x | None -> failwith "base.run_target / _v54=None"
v151
#endif
|> fun x -> _v48 <- Some x
let v152 : Async<US4> = match _v48 with Some x -> x | None -> failwith "base.run_target / _v48=None"
let! v152 = v152
let v153 : US4 = v152
let v156 : bool =
match v153 with
| US4_1 -> (* None *)
false
| US4_0(v154) -> (* Some *)
v154
return v156
}
|> fun x -> _v9 <- Some x
let v157 : Async<bool> = match _v9 with Some x -> x | None -> failwith "async.new_async_unit / _v9=None"
v157
#endif
|> fun x -> _v3 <- Some x
let v158 : Async<bool> = match _v3 with Some x -> x | None -> failwith "base.run_target / _v3=None"
v158
and closure8 (v0 : int32) (v1 : string) : (int32 -> Async<bool>) =
closure9(v0, v1)
and closure7 () (v0 : int32) : (string -> (int32 -> Async<bool>)) =
closure8(v0)
and closure19 () () : string =
let v0 : string = "networking.wait_for_port_access"
v0
and closure20 (v0 : int32 option, v1 : bool, v2 : int32, v3 : int64) () : string =
let v4 : (unit -> string) = closure5()
let v5 : string = $"port: {v2} / retry: {v3} / timeout: %A{v0} / status: {v1} / {v4 ()}"
v5
and method9 (v0 : int32 option, v1 : bool, v2 : string, v3 : int32, v4 : int64) : Async<int64> =
let v5 : bool = true
let mutable _v5 : Async<int64> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v6 : Async<int64> = null |> unbox<Async<int64>>
v6
#endif
#if FABLE_COMPILER_RUST && WASM
let v7 : Async<int64> = null |> unbox<Async<int64>>
v7
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v8 : Async<int64> = null |> unbox<Async<int64>>
v8
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v9 : Async<int64> = null |> unbox<Async<int64>>
v9
#endif
#if FABLE_COMPILER_PYTHON
let v10 : Async<int64> = null |> unbox<Async<int64>>
v10
#endif
#else
let v11 : Async<int64> option = None
let mutable _v11 = v11
async {
let v12 : US7 option = None
let _v12 = ref v12
match v0 with
| Some x -> (
(fun () ->
(fun () ->
let v13 : int32 = x
let v14 : US7 = US7_0(v13)
v14
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v12.Value <- x
let v15 : US7 option = _v12.Value
let v16 : US7 = US7_1
let v17 : US7 = v15 |> Option.defaultValue v16
let v214 : Async<bool> =
match v17 with
| US7_1 -> (* None *)
let v18 : bool = true
let mutable _v18 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v19 : Async<bool> = null |> unbox<Async<bool>>
v19
#endif
#if FABLE_COMPILER_RUST && WASM
let v20 : Async<bool> = null |> unbox<Async<bool>>
v20
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v21 : Async<bool> = null |> unbox<Async<bool>>
v21
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v22 : Async<bool> = null |> unbox<Async<bool>>
v22
#endif
#if FABLE_COMPILER_PYTHON
let v23 : Async<bool> = null |> unbox<Async<bool>>
v23
#endif
#else
let v24 : Async<bool> option = None
let mutable _v24 = v24
async {
let v25 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v25 = v25
let v26 : System.Threading.CancellationToken = v25
let v27 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v27 = v27
let v28 : System.Net.Sockets.TcpClient = v27
try
let v29 : System.Threading.Tasks.ValueTask = v28.ConnectAsync (v2, v3, v26)
let v30 : (unit -> System.Threading.Tasks.Task) = v29.AsTask
let v31 : System.Threading.Tasks.Task = v30 ()
let v32 : bool = true
let mutable _v32 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v33 : Async<unit> = null |> unbox<Async<unit>>
v33
#endif
#if FABLE_COMPILER_RUST && WASM
let v34 : Async<unit> = null |> unbox<Async<unit>>
v34
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v35 : Async<unit> = null |> unbox<Async<unit>>
v35
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v36 : Async<unit> = null |> unbox<Async<unit>>
v36
#endif
#if FABLE_COMPILER_PYTHON
let v37 : Async<unit> = null |> unbox<Async<unit>>
v37
#endif
#else
let v38 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v39 : Async<unit> = v38 v31
v39
#endif
|> fun x -> _v32 <- Some x
let v40 : Async<unit> = match _v32 with Some x -> x | None -> failwith "base.run_target / _v32=None"
do! v40
return true
with ex ->
let v41 : exn = ex
let v42 : bool = true
let mutable _v42 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v43 : string = $"%A{v41}"
v43
#endif
#if FABLE_COMPILER_RUST && WASM
let v44 : string = $"%A{v41}"
v44
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v45 : string = $"%A{v41}"
v45
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v46 : string = $"%A{v41}"
v46
#endif
#if FABLE_COMPILER_PYTHON
let v47 : string = $"%A{v41}"
v47
#endif
#else
let v48 : string = $"{v41.GetType ()}: {v41.Message}"
v48
#endif
|> fun x -> _v42 <- Some x
let v49 : string = match _v42 with Some x -> x | None -> failwith "base.run_target / _v42=None"
let v50 : US0 = US0_0
let v51 : (unit -> string) = closure4(v3, v49)
let v52 : (unit -> string) = closure5()
method4(v50, v51, v52)
return false
(*
let v53 : bool = *)
}
|> fun x -> _v24 <- Some x
let v54 : Async<bool> = match _v24 with Some x -> x | None -> failwith "async.new_async_unit / _v24=None"
v54
#endif
|> fun x -> _v18 <- Some x
let v55 : Async<bool> = match _v18 with Some x -> x | None -> failwith "base.run_target / _v18=None"
v55
| US7_0(v56) -> (* Some *)
let v57 : bool = true
let mutable _v57 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v58 : Async<bool> = null |> unbox<Async<bool>>
v58
#endif
#if FABLE_COMPILER_RUST && WASM
let v59 : Async<bool> = null |> unbox<Async<bool>>
v59
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v60 : Async<bool> = null |> unbox<Async<bool>>
v60
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v61 : Async<bool> = null |> unbox<Async<bool>>
v61
#endif
#if FABLE_COMPILER_PYTHON
let v62 : Async<bool> = null |> unbox<Async<bool>>
v62
#endif
#else
let v63 : Async<bool> option = None
let mutable _v63 = v63
async {
let v64 : bool = true
let mutable _v64 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v65 : Async<bool> = null |> unbox<Async<bool>>
v65
#endif
#if FABLE_COMPILER_RUST && WASM
let v66 : Async<bool> = null |> unbox<Async<bool>>
v66
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v67 : Async<bool> = null |> unbox<Async<bool>>
v67
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v68 : Async<bool> = null |> unbox<Async<bool>>
v68
#endif
#if FABLE_COMPILER_PYTHON
let v69 : Async<bool> = null |> unbox<Async<bool>>
v69
#endif
#else
let v70 : Async<bool> option = None
let mutable _v70 = v70
async {
let v71 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v71 = v71
let v72 : System.Threading.CancellationToken = v71
let v73 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v73 = v73
let v74 : System.Net.Sockets.TcpClient = v73
try
let v75 : System.Threading.Tasks.ValueTask = v74.ConnectAsync (v2, v3, v72)
let v76 : (unit -> System.Threading.Tasks.Task) = v75.AsTask
let v77 : System.Threading.Tasks.Task = v76 ()
let v78 : bool = true
let mutable _v78 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v79 : Async<unit> = null |> unbox<Async<unit>>
v79
#endif
#if FABLE_COMPILER_RUST && WASM
let v80 : Async<unit> = null |> unbox<Async<unit>>
v80
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v81 : Async<unit> = null |> unbox<Async<unit>>
v81
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v82 : Async<unit> = null |> unbox<Async<unit>>
v82
#endif
#if FABLE_COMPILER_PYTHON
let v83 : Async<unit> = null |> unbox<Async<unit>>
v83
#endif
#else
let v84 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v85 : Async<unit> = v84 v77
v85
#endif
|> fun x -> _v78 <- Some x
let v86 : Async<unit> = match _v78 with Some x -> x | None -> failwith "base.run_target / _v78=None"
do! v86
return true
with ex ->
let v87 : exn = ex
let v88 : bool = true
let mutable _v88 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v89 : string = $"%A{v87}"
v89
#endif
#if FABLE_COMPILER_RUST && WASM
let v90 : string = $"%A{v87}"
v90
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v91 : string = $"%A{v87}"
v91
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v92 : string = $"%A{v87}"
v92
#endif
#if FABLE_COMPILER_PYTHON
let v93 : string = $"%A{v87}"
v93
#endif
#else
let v94 : string = $"{v87.GetType ()}: {v87.Message}"
v94
#endif
|> fun x -> _v88 <- Some x
let v95 : string = match _v88 with Some x -> x | None -> failwith "base.run_target / _v88=None"
let v96 : US0 = US0_0
let v97 : (unit -> string) = closure4(v3, v95)
let v98 : (unit -> string) = closure5()
method4(v96, v97, v98)
return false
(*
let v99 : bool = *)
}
|> fun x -> _v70 <- Some x
let v100 : Async<bool> = match _v70 with Some x -> x | None -> failwith "async.new_async_unit / _v70=None"
v100
#endif
|> fun x -> _v64 <- Some x
let v101 : Async<bool> = match _v64 with Some x -> x | None -> failwith "base.run_target / _v64=None"
let v102 : bool = true
let mutable _v102 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v103 : Async<US4> = null |> unbox<Async<US4>>
v103
#endif
#if FABLE_COMPILER_RUST && WASM
let v104 : Async<US4> = null |> unbox<Async<US4>>
v104
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v105 : Async<US4> = null |> unbox<Async<US4>>
v105
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v106 : Async<US4> = null |> unbox<Async<US4>>
v106
#endif
#if FABLE_COMPILER_PYTHON
let v107 : Async<US4> = null |> unbox<Async<US4>>
v107
#endif
#else
let v108 : bool = true
let mutable _v108 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v109 : Async<US4> = null |> unbox<Async<US4>>
v109
#endif
#if FABLE_COMPILER_RUST && WASM
let v110 : Async<US4> = null |> unbox<Async<US4>>
v110
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v111 : Async<US4> = null |> unbox<Async<US4>>
v111
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v112 : Async<US4> = null |> unbox<Async<US4>>
v112
#endif
#if FABLE_COMPILER_PYTHON
let v113 : Async<US4> = null |> unbox<Async<US4>>
v113
#endif
#else
let v114 : Async<US4> option = None
let mutable _v114 = v114
async {
let v115 : bool = true
let mutable _v115 : Async<Async<bool>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v116 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v116
#endif
#if FABLE_COMPILER_RUST && WASM
let v117 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v117
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v118 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v118
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v119 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v119
#endif
#if FABLE_COMPILER_PYTHON
let v120 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v120
#endif
#else
let v121 : Async<Async<bool>> = Async.StartChild (v101, v56)
v121
#endif
|> fun x -> _v115 <- Some x
let v122 : Async<Async<bool>> = match _v115 with Some x -> x | None -> failwith "base.run_target / _v115=None"
let! v122 = v122
let v123 : Async<bool> = v122
let v124 : bool = true
let mutable _v124 : Async<Choice<bool, exn>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v125 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v125
#endif
#if FABLE_COMPILER_RUST && WASM
let v126 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v126
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v127 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v127
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v128 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v128
#endif
#if FABLE_COMPILER_PYTHON
let v129 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v129
#endif
#else
let v130 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch
let v131 : Async<Choice<bool, exn>> = v130 v123
v131
#endif
|> fun x -> _v124 <- Some x
let v132 : Async<Choice<bool, exn>> = match _v124 with Some x -> x | None -> failwith "base.run_target / _v124=None"
let v133 : bool = true
let mutable _v133 : Async<US5> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v134 : Async<US5> = null |> unbox<Async<US5>>
v134
#endif
#if FABLE_COMPILER_RUST && WASM
let v135 : Async<US5> = null |> unbox<Async<US5>>
v135
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v136 : Async<US5> = null |> unbox<Async<US5>>
v136
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v137 : Async<US5> = null |> unbox<Async<US5>>
v137
#endif
#if FABLE_COMPILER_PYTHON
let v138 : Async<US5> = null |> unbox<Async<US5>>
v138
#endif
#else
let v139 : Async<US5> option = None
let mutable _v139 = v139
async {
let! v132 = v132
let v140 : Choice<bool, exn> = v132
let v141 : bool = true
let mutable _v141 : US5 option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v142 : US5 = null |> unbox<US5>
v142
#endif
#if FABLE_COMPILER_RUST && WASM
let v143 : US5 = null |> unbox<US5>
v143
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v144 : US5 = null |> unbox<US5>
v144
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v145 : US5 = null |> unbox<US5>
v145
#endif
#if FABLE_COMPILER_PYTHON
let v146 : US5 = null |> unbox<US5>
v146
#endif
#else
let v147 : (bool -> US5) = closure10()
let v148 : (exn -> US5) = closure11()
let v149 : US5 = match v140 with Choice1Of2 x -> v147 x | Choice2Of2 x -> v148 x
v149
#endif
|> fun x -> _v141 <- Some x
let v150 : US5 = match _v141 with Some x -> x | None -> failwith "base.run_target / _v141=None"
return v150
}
|> fun x -> _v139 <- Some x
let v151 : Async<US5> = match _v139 with Some x -> x | None -> failwith "async.new_async_unit / _v139=None"
v151
#endif
|> fun x -> _v133 <- Some x
let v152 : Async<US5> = match _v133 with Some x -> x | None -> failwith "base.run_target / _v133=None"
let v153 : bool = true
let mutable _v153 : Async<US6> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v154 : Async<US6> = null |> unbox<Async<US6>>
v154
#endif
#if FABLE_COMPILER_RUST && WASM
let v155 : Async<US6> = null |> unbox<Async<US6>>
v155
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v156 : Async<US6> = null |> unbox<Async<US6>>
v156
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v157 : Async<US6> = null |> unbox<Async<US6>>
v157
#endif
#if FABLE_COMPILER_PYTHON
let v158 : Async<US6> = null |> unbox<Async<US6>>
v158
#endif
#else
let v159 : Async<US6> option = None
let mutable _v159 = v159
async {
let! v152 = v152
let v160 : US5 = v152
let v166 : US6 =
match v160 with
| US5_0(v161) -> (* Choice1Of2 *)
US6_0(v161)
| US5_1(v163) -> (* Choice2Of2 *)
US6_1(v163)
return v166
}
|> fun x -> _v159 <- Some x
let v167 : Async<US6> = match _v159 with Some x -> x | None -> failwith "async.new_async_unit / _v159=None"
v167
#endif
|> fun x -> _v153 <- Some x
let v168 : Async<US6> = match _v153 with Some x -> x | None -> failwith "base.run_target / _v153=None"
let v169 : bool = true
let mutable _v169 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v170 : Async<US4> = null |> unbox<Async<US4>>
v170
#endif
#if FABLE_COMPILER_RUST && WASM
let v171 : Async<US4> = null |> unbox<Async<US4>>
v171
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v172 : Async<US4> = null |> unbox<Async<US4>>
v172
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v173 : Async<US4> = null |> unbox<Async<US4>>
v173
#endif
#if FABLE_COMPILER_PYTHON
let v174 : Async<US4> = null |> unbox<Async<US4>>
v174
#endif
#else
let v175 : Async<US4> option = None
let mutable _v175 = v175
async {
let! v168 = v168
let v176 : US6 = v168
let v201 : US4 =
match v176 with
| US6_1(v179) -> (* Error *)
let v180 : string = $"%A{v179}"
let v181 : string = "System.TimeoutException"
let v182 : bool = v180.Contains v181
if v182 then
let v183 : US0 = US0_1
let v184 : (unit -> string) = closure12()
let v185 : (unit -> string) = closure13(v56)
method4(v183, v184, v185)
US4_1
else
let v187 : bool = true
let mutable _v187 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v188 : string = $"%A{v179}"
v188
#endif
#if FABLE_COMPILER_RUST && WASM
let v189 : string = $"%A{v179}"
v189
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v190 : string = $"%A{v179}"
v190
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v191 : string = $"%A{v179}"
v191
#endif
#if FABLE_COMPILER_PYTHON
let v192 : string = $"%A{v179}"
v192
#endif
#else
let v193 : string = $"{v179.GetType ()}: {v179.Message}"
v193
#endif
|> fun x -> _v187 <- Some x
let v194 : string = match _v187 with Some x -> x | None -> failwith "base.run_target / _v187=None"
let v195 : US0 = US0_4
let v196 : (unit -> string) = closure14(v194)
let v197 : (unit -> string) = closure13(v56)
method4(v195, v196, v197)
US4_1
| US6_0(v177) -> (* Ok *)
US4_0(v177)
return v201
}
|> fun x -> _v175 <- Some x
let v202 : Async<US4> = match _v175 with Some x -> x | None -> failwith "async.new_async_unit / _v175=None"
v202
#endif
|> fun x -> _v169 <- Some x
let v203 : Async<US4> = match _v169 with Some x -> x | None -> failwith "base.run_target / _v169=None"
return! v203
}
|> fun x -> _v114 <- Some x
let v204 : Async<US4> = match _v114 with Some x -> x | None -> failwith "async.new_async_unit / _v114=None"
v204
#endif
|> fun x -> _v108 <- Some x
let v205 : Async<US4> = match _v108 with Some x -> x | None -> failwith "base.run_target / _v108=None"
v205
#endif
|> fun x -> _v102 <- Some x
let v206 : Async<US4> = match _v102 with Some x -> x | None -> failwith "base.run_target / _v102=None"
let! v206 = v206
let v207 : US4 = v206
let v210 : bool =
match v207 with
| US4_1 -> (* None *)
false
| US4_0(v208) -> (* Some *)
v208
return v210
}
|> fun x -> _v63 <- Some x
let v211 : Async<bool> = match _v63 with Some x -> x | None -> failwith "async.new_async_unit / _v63=None"
v211
#endif
|> fun x -> _v57 <- Some x
let v212 : Async<bool> = match _v57 with Some x -> x | None -> failwith "base.run_target / _v57=None"
v212
let! v214 = v214
let v215 : bool = v214
let v216 : bool = v215 = v1
if v216 then
return v4
(*
()
else
*) else
let v217 : int64 = v4 % 100L
let v218 : bool = v217 = 0L
if v218 then
let v219 : US0 = US0_0
let v220 : (unit -> string) = closure19()
let v221 : (unit -> string) = closure20(v0, v1, v3, v4)
method4(v219, v220, v221)
let v222 : bool = true
let mutable _v222 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v223 : Async<unit> = null |> unbox<Async<unit>>
v223
#endif
#if FABLE_COMPILER_RUST && WASM
let v224 : Async<unit> = null |> unbox<Async<unit>>
v224
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v225 : Async<unit> = null |> unbox<Async<unit>>
v225
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v226 : Async<unit> = null |> unbox<Async<unit>>
v226
#endif
#if FABLE_COMPILER_PYTHON
let v227 : Async<unit> = null |> unbox<Async<unit>>
v227
#endif
#else
let v228 : (int32 -> Async<unit>) = Async.Sleep
let v229 : Async<unit> = v228 10
v229
#endif
|> fun x -> _v222 <- Some x
let v230 : Async<unit> = match _v222 with Some x -> x | None -> failwith "base.run_target / _v222=None"
do! v230
let v231 : int64 = v4 + 1L
let v232 : Async<int64> = method9(v0, v1, v2, v3, v231)
return! v232
(*
()
*)
}
|> fun x -> _v11 <- Some x
let v233 : Async<int64> = match _v11 with Some x -> x | None -> failwith "async.new_async_unit / _v11=None"
v233
#endif
|> fun x -> _v5 <- Some x
let v234 : Async<int64> = match _v5 with Some x -> x | None -> failwith "base.run_target / _v5=None"
v234
and closure18 (v0 : int32 option, v1 : bool, v2 : string) (v3 : int32) : Async<int64> =
let v4 : int64 = 0L
method9(v0, v1, v2, v3, v4)
and closure17 (v0 : int32 option, v1 : bool) (v2 : string) : (int32 -> Async<int64>) =
closure18(v0, v1, v2)
and closure16 (v0 : int32 option) (v1 : bool) : (string -> (int32 -> Async<int64>)) =
closure17(v0, v1)
and closure15 () (v0 : int32 option) : (bool -> (string -> (int32 -> Async<int64>))) =
closure16(v0)
and method10 (v0 : int32 option, v1 : string, v2 : int32) : Async<int32> =
let v3 : bool = true
let mutable _v3 : Async<int32> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v4 : Async<int32> = null |> unbox<Async<int32>>
v4
#endif
#if FABLE_COMPILER_RUST && WASM
let v5 : Async<int32> = null |> unbox<Async<int32>>
v5
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v6 : Async<int32> = null |> unbox<Async<int32>>
v6
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v7 : Async<int32> = null |> unbox<Async<int32>>
v7
#endif
#if FABLE_COMPILER_PYTHON
let v8 : Async<int32> = null |> unbox<Async<int32>>
v8
#endif
#else
let v9 : Async<int32> option = None
let mutable _v9 = v9
async {
let v10 : US7 option = None
let _v10 = ref v10
match v0 with
| Some x -> (
(fun () ->
(fun () ->
let v11 : int32 = x
let v12 : US7 = US7_0(v11)
v12
)
|> fun x -> x () |> Some
) () ) | None -> None
|> fun x -> _v10.Value <- x
let v13 : US7 option = _v10.Value
let v14 : US7 = US7_1
let v15 : US7 = v13 |> Option.defaultValue v14
let v212 : Async<bool> =
match v15 with
| US7_1 -> (* None *)
let v16 : bool = true
let mutable _v16 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v17 : Async<bool> = null |> unbox<Async<bool>>
v17
#endif
#if FABLE_COMPILER_RUST && WASM
let v18 : Async<bool> = null |> unbox<Async<bool>>
v18
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v19 : Async<bool> = null |> unbox<Async<bool>>
v19
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v20 : Async<bool> = null |> unbox<Async<bool>>
v20
#endif
#if FABLE_COMPILER_PYTHON
let v21 : Async<bool> = null |> unbox<Async<bool>>
v21
#endif
#else
let v22 : Async<bool> option = None
let mutable _v22 = v22
async {
let v23 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v23 = v23
let v24 : System.Threading.CancellationToken = v23
let v25 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v25 = v25
let v26 : System.Net.Sockets.TcpClient = v25
try
let v27 : System.Threading.Tasks.ValueTask = v26.ConnectAsync (v1, v2, v24)
let v28 : (unit -> System.Threading.Tasks.Task) = v27.AsTask
let v29 : System.Threading.Tasks.Task = v28 ()
let v30 : bool = true
let mutable _v30 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v31 : Async<unit> = null |> unbox<Async<unit>>
v31
#endif
#if FABLE_COMPILER_RUST && WASM
let v32 : Async<unit> = null |> unbox<Async<unit>>
v32
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v33 : Async<unit> = null |> unbox<Async<unit>>
v33
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v34 : Async<unit> = null |> unbox<Async<unit>>
v34
#endif
#if FABLE_COMPILER_PYTHON
let v35 : Async<unit> = null |> unbox<Async<unit>>
v35
#endif
#else
let v36 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v37 : Async<unit> = v36 v29
v37
#endif
|> fun x -> _v30 <- Some x
let v38 : Async<unit> = match _v30 with Some x -> x | None -> failwith "base.run_target / _v30=None"
do! v38
return true
with ex ->
let v39 : exn = ex
let v40 : bool = true
let mutable _v40 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v41 : string = $"%A{v39}"
v41
#endif
#if FABLE_COMPILER_RUST && WASM
let v42 : string = $"%A{v39}"
v42
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v43 : string = $"%A{v39}"
v43
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v44 : string = $"%A{v39}"
v44
#endif
#if FABLE_COMPILER_PYTHON
let v45 : string = $"%A{v39}"
v45
#endif
#else
let v46 : string = $"{v39.GetType ()}: {v39.Message}"
v46
#endif
|> fun x -> _v40 <- Some x
let v47 : string = match _v40 with Some x -> x | None -> failwith "base.run_target / _v40=None"
let v48 : US0 = US0_0
let v49 : (unit -> string) = closure4(v2, v47)
let v50 : (unit -> string) = closure5()
method4(v48, v49, v50)
return false
(*
let v51 : bool = *)
}
|> fun x -> _v22 <- Some x
let v52 : Async<bool> = match _v22 with Some x -> x | None -> failwith "async.new_async_unit / _v22=None"
v52
#endif
|> fun x -> _v16 <- Some x
let v53 : Async<bool> = match _v16 with Some x -> x | None -> failwith "base.run_target / _v16=None"
v53
| US7_0(v54) -> (* Some *)
let v55 : bool = true
let mutable _v55 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v56 : Async<bool> = null |> unbox<Async<bool>>
v56
#endif
#if FABLE_COMPILER_RUST && WASM
let v57 : Async<bool> = null |> unbox<Async<bool>>
v57
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v58 : Async<bool> = null |> unbox<Async<bool>>
v58
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v59 : Async<bool> = null |> unbox<Async<bool>>
v59
#endif
#if FABLE_COMPILER_PYTHON
let v60 : Async<bool> = null |> unbox<Async<bool>>
v60
#endif
#else
let v61 : Async<bool> option = None
let mutable _v61 = v61
async {
let v62 : bool = true
let mutable _v62 : Async<bool> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v63 : Async<bool> = null |> unbox<Async<bool>>
v63
#endif
#if FABLE_COMPILER_RUST && WASM
let v64 : Async<bool> = null |> unbox<Async<bool>>
v64
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v65 : Async<bool> = null |> unbox<Async<bool>>
v65
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v66 : Async<bool> = null |> unbox<Async<bool>>
v66
#endif
#if FABLE_COMPILER_PYTHON
let v67 : Async<bool> = null |> unbox<Async<bool>>
v67
#endif
#else
let v68 : Async<bool> option = None
let mutable _v68 = v68
async {
let v69 : Async<System.Threading.CancellationToken> = Async.CancellationToken
let! v69 = v69
let v70 : System.Threading.CancellationToken = v69
let v71 : System.Net.Sockets.TcpClient = new System.Net.Sockets.TcpClient ()
use v71 = v71
let v72 : System.Net.Sockets.TcpClient = v71
try
let v73 : System.Threading.Tasks.ValueTask = v72.ConnectAsync (v1, v2, v70)
let v74 : (unit -> System.Threading.Tasks.Task) = v73.AsTask
let v75 : System.Threading.Tasks.Task = v74 ()
let v76 : bool = true
let mutable _v76 : Async<unit> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v77 : Async<unit> = null |> unbox<Async<unit>>
v77
#endif
#if FABLE_COMPILER_RUST && WASM
let v78 : Async<unit> = null |> unbox<Async<unit>>
v78
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v79 : Async<unit> = null |> unbox<Async<unit>>
v79
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v80 : Async<unit> = null |> unbox<Async<unit>>
v80
#endif
#if FABLE_COMPILER_PYTHON
let v81 : Async<unit> = null |> unbox<Async<unit>>
v81
#endif
#else
let v82 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask
let v83 : Async<unit> = v82 v75
v83
#endif
|> fun x -> _v76 <- Some x
let v84 : Async<unit> = match _v76 with Some x -> x | None -> failwith "base.run_target / _v76=None"
do! v84
return true
with ex ->
let v85 : exn = ex
let v86 : bool = true
let mutable _v86 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v87 : string = $"%A{v85}"
v87
#endif
#if FABLE_COMPILER_RUST && WASM
let v88 : string = $"%A{v85}"
v88
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v89 : string = $"%A{v85}"
v89
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v90 : string = $"%A{v85}"
v90
#endif
#if FABLE_COMPILER_PYTHON
let v91 : string = $"%A{v85}"
v91
#endif
#else
let v92 : string = $"{v85.GetType ()}: {v85.Message}"
v92
#endif
|> fun x -> _v86 <- Some x
let v93 : string = match _v86 with Some x -> x | None -> failwith "base.run_target / _v86=None"
let v94 : US0 = US0_0
let v95 : (unit -> string) = closure4(v2, v93)
let v96 : (unit -> string) = closure5()
method4(v94, v95, v96)
return false
(*
let v97 : bool = *)
}
|> fun x -> _v68 <- Some x
let v98 : Async<bool> = match _v68 with Some x -> x | None -> failwith "async.new_async_unit / _v68=None"
v98
#endif
|> fun x -> _v62 <- Some x
let v99 : Async<bool> = match _v62 with Some x -> x | None -> failwith "base.run_target / _v62=None"
let v100 : bool = true
let mutable _v100 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v101 : Async<US4> = null |> unbox<Async<US4>>
v101
#endif
#if FABLE_COMPILER_RUST && WASM
let v102 : Async<US4> = null |> unbox<Async<US4>>
v102
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v103 : Async<US4> = null |> unbox<Async<US4>>
v103
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v104 : Async<US4> = null |> unbox<Async<US4>>
v104
#endif
#if FABLE_COMPILER_PYTHON
let v105 : Async<US4> = null |> unbox<Async<US4>>
v105
#endif
#else
let v106 : bool = true
let mutable _v106 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v107 : Async<US4> = null |> unbox<Async<US4>>
v107
#endif
#if FABLE_COMPILER_RUST && WASM
let v108 : Async<US4> = null |> unbox<Async<US4>>
v108
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v109 : Async<US4> = null |> unbox<Async<US4>>
v109
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v110 : Async<US4> = null |> unbox<Async<US4>>
v110
#endif
#if FABLE_COMPILER_PYTHON
let v111 : Async<US4> = null |> unbox<Async<US4>>
v111
#endif
#else
let v112 : Async<US4> option = None
let mutable _v112 = v112
async {
let v113 : bool = true
let mutable _v113 : Async<Async<bool>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v114 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v114
#endif
#if FABLE_COMPILER_RUST && WASM
let v115 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v115
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v116 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v116
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v117 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v117
#endif
#if FABLE_COMPILER_PYTHON
let v118 : Async<Async<bool>> = null |> unbox<Async<Async<bool>>>
v118
#endif
#else
let v119 : Async<Async<bool>> = Async.StartChild (v99, v54)
v119
#endif
|> fun x -> _v113 <- Some x
let v120 : Async<Async<bool>> = match _v113 with Some x -> x | None -> failwith "base.run_target / _v113=None"
let! v120 = v120
let v121 : Async<bool> = v120
let v122 : bool = true
let mutable _v122 : Async<Choice<bool, exn>> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v123 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v123
#endif
#if FABLE_COMPILER_RUST && WASM
let v124 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v124
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v125 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v125
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v126 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v126
#endif
#if FABLE_COMPILER_PYTHON
let v127 : Async<Choice<bool, exn>> = null |> unbox<Async<Choice<bool, exn>>>
v127
#endif
#else
let v128 : (Async<bool> -> Async<Choice<bool, exn>>) = Async.Catch
let v129 : Async<Choice<bool, exn>> = v128 v121
v129
#endif
|> fun x -> _v122 <- Some x
let v130 : Async<Choice<bool, exn>> = match _v122 with Some x -> x | None -> failwith "base.run_target / _v122=None"
let v131 : bool = true
let mutable _v131 : Async<US5> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v132 : Async<US5> = null |> unbox<Async<US5>>
v132
#endif
#if FABLE_COMPILER_RUST && WASM
let v133 : Async<US5> = null |> unbox<Async<US5>>
v133
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v134 : Async<US5> = null |> unbox<Async<US5>>
v134
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v135 : Async<US5> = null |> unbox<Async<US5>>
v135
#endif
#if FABLE_COMPILER_PYTHON
let v136 : Async<US5> = null |> unbox<Async<US5>>
v136
#endif
#else
let v137 : Async<US5> option = None
let mutable _v137 = v137
async {
let! v130 = v130
let v138 : Choice<bool, exn> = v130
let v139 : bool = true
let mutable _v139 : US5 option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v140 : US5 = null |> unbox<US5>
v140
#endif
#if FABLE_COMPILER_RUST && WASM
let v141 : US5 = null |> unbox<US5>
v141
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v142 : US5 = null |> unbox<US5>
v142
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v143 : US5 = null |> unbox<US5>
v143
#endif
#if FABLE_COMPILER_PYTHON
let v144 : US5 = null |> unbox<US5>
v144
#endif
#else
let v145 : (bool -> US5) = closure10()
let v146 : (exn -> US5) = closure11()
let v147 : US5 = match v138 with Choice1Of2 x -> v145 x | Choice2Of2 x -> v146 x
v147
#endif
|> fun x -> _v139 <- Some x
let v148 : US5 = match _v139 with Some x -> x | None -> failwith "base.run_target / _v139=None"
return v148
}
|> fun x -> _v137 <- Some x
let v149 : Async<US5> = match _v137 with Some x -> x | None -> failwith "async.new_async_unit / _v137=None"
v149
#endif
|> fun x -> _v131 <- Some x
let v150 : Async<US5> = match _v131 with Some x -> x | None -> failwith "base.run_target / _v131=None"
let v151 : bool = true
let mutable _v151 : Async<US6> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v152 : Async<US6> = null |> unbox<Async<US6>>
v152
#endif
#if FABLE_COMPILER_RUST && WASM
let v153 : Async<US6> = null |> unbox<Async<US6>>
v153
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v154 : Async<US6> = null |> unbox<Async<US6>>
v154
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v155 : Async<US6> = null |> unbox<Async<US6>>
v155
#endif
#if FABLE_COMPILER_PYTHON
let v156 : Async<US6> = null |> unbox<Async<US6>>
v156
#endif
#else
let v157 : Async<US6> option = None
let mutable _v157 = v157
async {
let! v150 = v150
let v158 : US5 = v150
let v164 : US6 =
match v158 with
| US5_0(v159) -> (* Choice1Of2 *)
US6_0(v159)
| US5_1(v161) -> (* Choice2Of2 *)
US6_1(v161)
return v164
}
|> fun x -> _v157 <- Some x
let v165 : Async<US6> = match _v157 with Some x -> x | None -> failwith "async.new_async_unit / _v157=None"
v165
#endif
|> fun x -> _v151 <- Some x
let v166 : Async<US6> = match _v151 with Some x -> x | None -> failwith "base.run_target / _v151=None"
let v167 : bool = true
let mutable _v167 : Async<US4> option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v168 : Async<US4> = null |> unbox<Async<US4>>
v168
#endif
#if FABLE_COMPILER_RUST && WASM
let v169 : Async<US4> = null |> unbox<Async<US4>>
v169
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v170 : Async<US4> = null |> unbox<Async<US4>>
v170
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v171 : Async<US4> = null |> unbox<Async<US4>>
v171
#endif
#if FABLE_COMPILER_PYTHON
let v172 : Async<US4> = null |> unbox<Async<US4>>
v172
#endif
#else
let v173 : Async<US4> option = None
let mutable _v173 = v173
async {
let! v166 = v166
let v174 : US6 = v166
let v199 : US4 =
match v174 with
| US6_1(v177) -> (* Error *)
let v178 : string = $"%A{v177}"
let v179 : string = "System.TimeoutException"
let v180 : bool = v178.Contains v179
if v180 then
let v181 : US0 = US0_1
let v182 : (unit -> string) = closure12()
let v183 : (unit -> string) = closure13(v54)
method4(v181, v182, v183)
US4_1
else
let v185 : bool = true
let mutable _v185 : string option = None
#if FABLE_COMPILER || WASM || CONTRACT
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v186 : string = $"%A{v177}"
v186
#endif
#if FABLE_COMPILER_RUST && WASM
let v187 : string = $"%A{v177}"
v187
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v188 : string = $"%A{v177}"
v188
#endif
#if FABLE_COMPILER_TYPESCRIPT
let v189 : string = $"%A{v177}"
v189
#endif
#if FABLE_COMPILER_PYTHON
let v190 : string = $"%A{v177}"
v190
#endif
#else
let v191 : string = $"{v177.GetType ()}: {v177.Message}"
v191
#endif
|> fun x -> _v185 <- Some x
let v192 : string = match _v185 with Some x -> x | None -> failwith "base.run_target / _v185=None"
let v193 : US0 = US0_4
let v194 : (unit -> string) = closure14(v192)
let v195 : (unit -> string) = closure13(v54)
method4(v193, v194, v195)
US4_1
| US6_0(v175) -> (* Ok *)
US4_0(v175)
return v199
}
|> fun x -> _v173 <- Some x
let v200 : Async<US4> = match _v173 with Some x -> x | None -> failwith "async.new_async_unit / _v173=None"
v200
#endif
|> fun x -> _v167 <- Some x
let v201 : Async<US4> = match _v167 with Some x -> x | None -> failwith "base.run_target / _v167=None"
return! v201
}
|> fun x -> _v112 <- Some x
let v202 : Async<US4> = match _v112 with Some x -> x | None -> failwith "async.new_async_unit / _v112=None"
v202
#endif
|> fun x -> _v106 <- Some x
let v203 : Async<US4> = match _v106 with Some x -> x | None -> failwith "base.run_target / _v106=None"
v203
#endif
|> fun x -> _v100 <- Some x
let v204 : Async<US4> = match _v100 with Some x -> x | None -> failwith "base.run_target / _v100=None"
let! v204 = v204
let v205 : US4 = v204
let v208 : bool =
match v205 with
| US4_1 -> (* None *)
false
| US4_0(v206) -> (* Some *)
v206
return v208
}
|> fun x -> _v61 <- Some x
let v209 : Async<bool> = match _v61 with Some x -> x | None -> failwith "async.new_async_unit / _v61=None"
v209
#endif
|> fun x -> _v55 <- Some x
let v210 : Async<bool> = match _v55 with Some x -> x | None -> failwith "base.run_target / _v55=None"
v210
let! v212 = v212
let v213 : bool = v212
let v214 : bool = v213 = false
if v214 then
return v2
(*
()
else
*) else
let v215 : int32 = v2 + 1
let v216 : Async<int32> = method10(v0, v1, v215)
return! v216
(*
()
*)
}
|> fun x -> _v9 <- Some x
let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith "async.new_async_unit / _v9=None"
v217
#endif
|> fun x -> _v3 <- Some x
let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith "base.run_target / _v3=None"
v218
and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
method10(v0, v1, v2)
and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
closure23(v0, v1)
and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
closure22(v0)
let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (string -> (int32 -> Async<bool>)) = closure2()
let test_port_open x = v2 x
let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
let test_port_open_timeout x = v3 x
let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) = closure15()
let wait_for_port_access x = v4 x
let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
let get_available_port x = v5 x
()
00:00:00 debug #1 writeDibCode / output: Fs / path: DirTreeHtml.dib
00:00:00 debug #2 parseDibCode / output: Fs / file: DirTreeHtml.dib
00:00:00 debug #1 persistCodeProject / packages: [Argu; Falco.Markup; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DirTreeHtml / hash: / code.Length: 4638
00:00:00 debug #2 buildProject / fullPath: C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime linux-x64",
[||], None, None, true,
Some "C:\home\git\polyglot\target\Builder\DirTreeHtml")
00:00:00 verbose #2 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 verbose #3 > Determining projects to restore...
00:00:02 verbose #4 > Restored C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj (in 507 ms).
00:00:02 verbose #5 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:14 verbose #6 > DirTreeHtml -> C:\home\git\polyglot\target\Builder\DirTreeHtml\bin\Release\net9.0\linux-x64\DirTreeHtml.dll
00:00:15 verbose #7 > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:15 debug #8 runtime.execute_with_options_async / exit_code: 0 / output.Length: 703
00:00:15 debug #9 runtime.execute_with_options_async / options: struct (None,
"dotnet publish "C:\home\git\polyglot\target/Builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime win-x64",
[||], None, None, true,
Some "C:\home\git\polyglot\target\Builder\DirTreeHtml")
00:00:16 verbose #10 > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:16 verbose #11 > Determining projects to restore...
00:00:17 verbose #12 > Restored C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj (in 409 ms).
00:00:17 verbose #13 > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\Builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:28 verbose #14 > DirTreeHtml -> C:\home\git\polyglot\target\Builder\DirTreeHtml\bin\Release\net9.0\win-x64\DirTreeHtml.dll
00:00:32 verbose #15 > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:32 debug #16 runtime.execute_with_options_async / exit_code: 0 / output.Length: 701
In [ ]:
{ pwsh ../lib/spiral/build.ps1 -sequential 1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:02 debug #6 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path sm'.dib --retries 3",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "sm'.dib", "--retries", "3"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/sm'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/sm'.dib" --output-path "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:05 verbose #10 > >
00:00:05 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #13 > > │ # sm' │
00:00:05 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #15 > >
00:00:05 verbose #16 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 verbose #17 > > //// test
00:00:05 verbose #18 > >
00:00:05 verbose #19 > > open testing
00:00:05 verbose #20 > >
00:00:05 verbose #21 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:05 verbose #22 > > #r
00:00:05 verbose #23 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #24 > > otNet.Interactive.Spiral.dll"
00:00:05 verbose #25 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:05 verbose #26 > > #r
00:00:05 verbose #27 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:05 verbose #28 > > otNet.Interactive.dll"
00:00:05 verbose #29 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:10 verbose #30 > >
00:00:10 verbose #31 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #32 > > open rust_operators
00:00:10 verbose #33 > >
00:00:10 verbose #34 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #35 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #36 > > │ ## types │
00:00:10 verbose #37 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #38 > >
00:00:10 verbose #39 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #40 > > inl types () =
00:00:10 verbose #41 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #42 > > Fable.Core.Emit(\"str\")>]]\n#endif\ntype Str = class end"
00:00:10 verbose #43 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #44 > > Fable.Core.Emit(\"base64::DecodeError\")>]]\n#endif\ntype base64_DecodeError =
00:00:10 verbose #45 > > class end"
00:00:10 verbose #46 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #47 > > Fable.Core.Emit(\"borsh::io::Error\")>]]\n#endif\ntype borsh_io_Error = class
00:00:10 verbose #48 > > end"
00:00:10 verbose #49 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #50 > > Fable.Core.Emit(\"encoding_rs::Encoding\")>]]\n#endif\ntype encoding_rs_Encoding
00:00:10 verbose #51 > > = class end"
00:00:10 verbose #52 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #53 > > Fable.Core.Emit(\"js_sys::JsString\")>]]\n#endif\ntype js_sys_JsString = class
00:00:10 verbose #54 > > end"
00:00:10 verbose #55 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #56 > > Fable.Core.Emit(\"serde_json::Error\")>]]\n#endif\ntype serde_json_Error = class
00:00:10 verbose #57 > > end"
00:00:10 verbose #58 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #59 > > Fable.Core.Emit(\"serde_json::Value\")>]]\n#endif\ntype serde_json_Value = class
00:00:10 verbose #60 > > end"
00:00:10 verbose #61 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #62 > > Fable.Core.Emit(\"serde_wasm_bindgen::Error\")>]]\n#endif\ntype
00:00:10 verbose #63 > > serde_wasm_bindgen_Error = class end"
00:00:10 verbose #64 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #65 > > Fable.Core.Emit(\"std::ffi::OsStr\")>]]\n#endif\ntype std_ffi_OsStr = class end"
00:00:10 verbose #66 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #67 > > Fable.Core.Emit(\"std::ffi::OsString\")>]]\n#endif\ntype std_ffi_OsString =
00:00:10 verbose #68 > > class end"
00:00:10 verbose #69 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #70 > > Fable.Core.Emit(\"std::fmt::Display<$0>\")>]]\n#endif\ntype std_fmt_Display<'T>
00:00:10 verbose #71 > > = class end"
00:00:10 verbose #72 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #73 > > Fable.Core.Emit(\"std::str::Utf8Error\")>]]\n#endif\ntype std_str_Utf8Error =
00:00:10 verbose #74 > > class end"
00:00:10 verbose #75 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #76 > > Fable.Core.Emit(\"std::string::FromUtf8Error\")>]]\n#endif\ntype
00:00:10 verbose #77 > > std_string_FromUtf8Error = class end"
00:00:10 verbose #78 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #79 > > Fable.Core.Emit(\"std::string::String\")>]]\n#endif\ntype std_string_String =
00:00:10 verbose #80 > > class end"
00:00:10 verbose #81 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #82 > > Fable.Core.Emit(\"std::slice::Windows<$0>\")>]]\n#endif\ntype
00:00:10 verbose #83 > > std_slice_Windows<'T> = class end"
00:00:10 verbose #84 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #85 > > Fable.Core.Emit(\"regex::Regex\")>]]\n#endif\ntype regex_Regex = class end"
00:00:10 verbose #86 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #87 > > Fable.Core.Emit(\"regex::Captures<$0>\")>]]\n#endif\ntype regex_Captures<'T> =
00:00:10 verbose #88 > > class end"
00:00:10 verbose #89 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #90 > > Fable.Core.Emit(\"regex::CaptureMatches\")>]]\n#endif\ntype regex_CaptureMatches
00:00:10 verbose #91 > > = class end"
00:00:10 verbose #92 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #93 > > Fable.Core.Emit(\"regex::CaptureNames\")>]]\n#endif\ntype regex_CaptureNames =
00:00:10 verbose #94 > > class end"
00:00:10 verbose #95 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #96 > > Fable.Core.Emit(\"regex::Match\")>]]\n#endif\ntype regex_Match = class end"
00:00:10 verbose #97 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:10 verbose #98 > > Fable.Core.Emit(\"regex::Error\")>]]\n#endif\ntype regex_Error = class end"
00:00:10 verbose #99 > >
00:00:10 verbose #100 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #101 > > inl types () =
00:00:10 verbose #102 > > backend_switch {
00:00:10 verbose #103 > > Fsharp = fun () =>
00:00:10 verbose #104 > > rust.types ()
00:00:10 verbose #105 > > mapm.types ()
00:00:10 verbose #106 > > am'.types ()
00:00:10 verbose #107 > > types ()
00:00:10 verbose #108 > > Python = fun () => ()
00:00:10 verbose #109 > > }
00:00:10 verbose #110 > >
00:00:10 verbose #111 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #112 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #113 > > │ ## symbol_to_string │
00:00:10 verbose #114 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #115 > >
00:00:10 verbose #116 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #117 > > inl symbol_to_string forall t {symbol}. (x : t) : string =
00:00:10 verbose #118 > > !!!!SymbolToString(x)
00:00:10 verbose #119 > >
00:00:10 verbose #120 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #121 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #122 > > │ ## fsharp │
00:00:10 verbose #123 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #124 > >
00:00:10 verbose #125 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #126 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #127 > > │ ### format_debug │
00:00:10 verbose #128 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #129 > >
00:00:10 verbose #130 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #131 > > inl format_debug x : string =
00:00:10 verbose #132 > > backend_switch {
00:00:10 verbose #133 > > Fsharp = fun () => $'$"%A{!x}"' : string
00:00:10 verbose #134 > > Python = fun () => $'f"{!x}"' : string
00:00:10 verbose #135 > > }
00:00:10 verbose #136 > >
00:00:10 verbose #137 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #138 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #139 > > │ ### contains │
00:00:10 verbose #140 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #141 > >
00:00:10 verbose #142 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #143 > > inl contains (value : string) (s : string) : bool =
00:00:10 verbose #144 > > backend_switch {
00:00:10 verbose #145 > > Fsharp = fun () => $'!s.Contains !value ' : bool
00:00:10 verbose #146 > > Python = fun () => $'!value in !s ' : bool
00:00:10 verbose #147 > > }
00:00:10 verbose #148 > >
00:00:10 verbose #149 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #150 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #151 > > │ ### ends_with │
00:00:10 verbose #152 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #153 > >
00:00:10 verbose #154 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #155 > > inl ends_with (value : string) (s : string) : bool =
00:00:10 verbose #156 > > $'!s.EndsWith !value '
00:00:10 verbose #157 > >
00:00:10 verbose #158 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #159 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #160 > > │ ### last_index_of │
00:00:10 verbose #161 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #162 > >
00:00:10 verbose #163 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #164 > > inl last_index_of (search : string) (s : string) : i32 =
00:00:10 verbose #165 > > $'!s.LastIndexOf !search '
00:00:10 verbose #166 > >
00:00:10 verbose #167 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #168 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #169 > > │ ### index_of │
00:00:10 verbose #170 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #171 > >
00:00:10 verbose #172 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #173 > > inl index_of (search : string) (s : string) : i32 =
00:00:10 verbose #174 > > $'!s.IndexOf !search '
00:00:10 verbose #175 > >
00:00:10 verbose #176 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:10 verbose #177 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:10 verbose #178 > > │ ### pad_left │
00:00:10 verbose #179 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 verbose #180 > >
00:00:10 verbose #181 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 verbose #182 > > inl pad_left (total_width : i32) (padding_char : char) (s : string) : string =
00:00:10 verbose #183 > > $'!s.PadLeft (!total_width, !padding_char)'
00:00:11 verbose #184 > >
00:00:11 verbose #185 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #186 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #187 > > │ ### pad_right │
00:00:11 verbose #188 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #189 > >
00:00:11 verbose #190 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #191 > > inl pad_right (total_width : i32) (padding_char : char) (s : string) : string =
00:00:11 verbose #192 > > $'!s.PadRight (!total_width, !padding_char)'
00:00:11 verbose #193 > >
00:00:11 verbose #194 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #195 > > //// test
00:00:11 verbose #196 > >
00:00:11 verbose #197 > > "123"
00:00:11 verbose #198 > > |> pad_right 6 ' '
00:00:11 verbose #199 > > |> _assert_eq "123 "
00:00:11 verbose #200 > >
00:00:11 verbose #201 > > ╭─[ 932.61ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 verbose #202 > > │ assert_eq / actual: "123 " / expected: "123 " │
00:00:11 verbose #203 > > │ │
00:00:11 verbose #204 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #205 > >
00:00:11 verbose #206 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #207 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #208 > > │ ### replicate │
00:00:11 verbose #209 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #210 > >
00:00:11 verbose #211 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #212 > > inl replicate (n : i32) (s : string) : string =
00:00:11 verbose #213 > > s |> $'String.replicate' n
00:00:12 verbose #214 > >
00:00:12 verbose #215 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #216 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #217 > > │ ### starts_with │
00:00:12 verbose #218 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #219 > >
00:00:12 verbose #220 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #221 > > inl starts_with (value : string) (s : string) : bool =
00:00:12 verbose #222 > > $'!s.StartsWith !value '
00:00:12 verbose #223 > >
00:00:12 verbose #224 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #225 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #226 > > │ ### is_white_space │
00:00:12 verbose #227 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #228 > >
00:00:12 verbose #229 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #230 > > inl is_white_space (c : char) : bool =
00:00:12 verbose #231 > > c |> $'System.Char.IsWhiteSpace'
00:00:12 verbose #232 > >
00:00:12 verbose #233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #235 > > │ ### substring │
00:00:12 verbose #236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #237 > >
00:00:12 verbose #238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #239 > > inl substring (start : i32) (len : i32) (str : string) : string =
00:00:12 verbose #240 > > $'!str.Substring (!start, !len)'
00:00:12 verbose #241 > >
00:00:12 verbose #242 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #243 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #244 > > │ ### to_lower │
00:00:12 verbose #245 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #246 > >
00:00:12 verbose #247 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #248 > > inl to_lower (input : string) : string =
00:00:12 verbose #249 > > $'!input.ToLower' ()
00:00:12 verbose #250 > >
00:00:12 verbose #251 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #252 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #253 > > │ ### to_upper │
00:00:12 verbose #254 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #255 > >
00:00:12 verbose #256 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #257 > > inl to_upper (input : string) : string =
00:00:12 verbose #258 > > $'!input.ToUpper' ()
00:00:12 verbose #259 > >
00:00:12 verbose #260 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #261 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #262 > > │ ### char_to_upper │
00:00:12 verbose #263 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #264 > >
00:00:12 verbose #265 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #266 > > inl char_to_upper (input : char) : char =
00:00:12 verbose #267 > > $'System.Char.ToUpper !input '
00:00:12 verbose #268 > >
00:00:12 verbose #269 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #270 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #271 > > │ ## string_builder │
00:00:12 verbose #272 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #273 > >
00:00:12 verbose #274 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #275 > > nominal string_builder = $'System.Text.StringBuilder'
00:00:12 verbose #276 > >
00:00:12 verbose #277 > > inl string_builder (initial : string) : string_builder =
00:00:12 verbose #278 > > initial |> $'`string_builder '
00:00:12 verbose #279 > >
00:00:12 verbose #280 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #281 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #282 > > │ ## builder_append │
00:00:12 verbose #283 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #284 > >
00:00:12 verbose #285 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #286 > > inl builder_append (item : string) (sb : string_builder) : string_builder =
00:00:12 verbose #287 > > ($'!sb.Append' item : string_builder) |> ignore
00:00:12 verbose #288 > > sb
00:00:12 verbose #289 > >
00:00:12 verbose #290 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #291 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #292 > > │ ## builder_replace │
00:00:12 verbose #293 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #294 > >
00:00:12 verbose #295 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #296 > > inl builder_replace (old : string) (new : string) (sb : string_builder) :
00:00:12 verbose #297 > > string_builder =
00:00:12 verbose #298 > > ($'!sb.Replace (!old, !new)' : string_builder) |> ignore
00:00:12 verbose #299 > > sb
00:00:12 verbose #300 > >
00:00:12 verbose #301 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #302 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #303 > > │ ## builder_insert │
00:00:12 verbose #304 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #305 > >
00:00:12 verbose #306 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #307 > > inl builder_insert (n : i32) (s : string) (sb : string_builder) : string_builder
00:00:12 verbose #308 > > =
00:00:12 verbose #309 > > ($'!sb.Insert (!n, !s)' : string_builder) |> ignore
00:00:12 verbose #310 > > sb
00:00:12 verbose #311 > >
00:00:12 verbose #312 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #313 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #314 > > │ ## builder_clear │
00:00:12 verbose #315 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #316 > >
00:00:12 verbose #317 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #318 > > inl builder_clear (sb : string_builder) : string_builder =
00:00:12 verbose #319 > > ($'!sb.Clear' () : string_builder) |> ignore
00:00:12 verbose #320 > > sb
00:00:12 verbose #321 > >
00:00:12 verbose #322 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #323 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #324 > > │ ### trim │
00:00:12 verbose #325 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #326 > >
00:00:12 verbose #327 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #328 > > inl trim (input : string) : string =
00:00:12 verbose #329 > > $'!input.Trim' ()
00:00:12 verbose #330 > >
00:00:12 verbose #331 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #332 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #333 > > │ ### trim_end │
00:00:12 verbose #334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #335 > >
00:00:12 verbose #336 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #337 > > inl trim_end (trim_chars : array_base char) (input : string) : string =
00:00:12 verbose #338 > > $'!input.TrimEnd !trim_chars '
00:00:12 verbose #339 > >
00:00:12 verbose #340 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #341 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #342 > > │ ### trim_start │
00:00:12 verbose #343 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #344 > >
00:00:12 verbose #345 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #346 > > inl trim_start (trim_chars : array_base char) (input : string) : string =
00:00:12 verbose #347 > > $'!input.TrimStart !trim_chars '
00:00:12 verbose #348 > >
00:00:12 verbose #349 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #350 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #351 > > │ ### length │
00:00:12 verbose #352 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #353 > >
00:00:12 verbose #354 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #355 > > inl length forall dim {int}. (input : string) : dim =
00:00:12 verbose #356 > > input |> sm.length
00:00:12 verbose #357 > >
00:00:12 verbose #358 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #359 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #360 > > │ ### length' │
00:00:12 verbose #361 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #362 > >
00:00:12 verbose #363 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #364 > > inl length' forall dim. (input : string) : dim =
00:00:12 verbose #365 > > input |> $'String.length'
00:00:12 verbose #366 > >
00:00:12 verbose #367 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #368 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #369 > > │ ### is_empty │
00:00:12 verbose #370 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #371 > >
00:00:12 verbose #372 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #373 > > inl is_empty (input : string) : bool =
00:00:12 verbose #374 > > length input = 0i32
00:00:12 verbose #375 > >
00:00:12 verbose #376 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #377 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #378 > > │ ### slice │
00:00:12 verbose #379 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #380 > >
00:00:12 verbose #381 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #382 > > inl slice from to s : string =
00:00:12 verbose #383 > > sm.slice s { from to }
00:00:12 verbose #384 > >
00:00:12 verbose #385 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #386 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #387 > > │ ### range │
00:00:12 verbose #388 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #389 > >
00:00:12 verbose #390 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #391 > > inl range forall t. (start : am'.range t) (end : am'.range t) s =
00:00:12 verbose #392 > > inl start, end =
00:00:12 verbose #393 > > match start, end with
00:00:12 verbose #394 > > | Start start, End fn =>
00:00:12 verbose #395 > > start, s |> length' |> fn
00:00:12 verbose #396 > > | End start_fn, End end_fn =>
00:00:12 verbose #397 > > inl len = s |> length'
00:00:12 verbose #398 > > start_fn len, end_fn len
00:00:12 verbose #399 > > s |> slice (start |> i32) (end |> i32)
00:00:12 verbose #400 > >
00:00:12 verbose #401 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #402 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #403 > > │ ### obj_to_string │
00:00:12 verbose #404 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #405 > >
00:00:12 verbose #406 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #407 > > inl obj_to_string x : string =
00:00:12 verbose #408 > > x |> $'_.ToString()'
00:00:12 verbose #409 > >
00:00:12 verbose #410 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #411 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #412 > > │ ### to_string any │
00:00:12 verbose #413 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #414 > >
00:00:12 verbose #415 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #416 > > instance to_string any =
00:00:12 verbose #417 > > obj_to_string
00:00:12 verbose #418 > >
00:00:12 verbose #419 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #420 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #421 > > │ ### format_exception │
00:00:12 verbose #422 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #423 > >
00:00:12 verbose #424 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #425 > > inl format_exception (ex : exn) : string =
00:00:12 verbose #426 > > run_target function
00:00:12 verbose #427 > > | Fsharp (Native) => fun () => $'$"{!ex.GetType ()}: {!ex.Message}"'
00:00:12 verbose #428 > > | _ => fun () => ex |> format_debug
00:00:12 verbose #429 > >
00:00:12 verbose #430 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #431 > > //// test
00:00:12 verbose #432 > >
00:00:12 verbose #433 > > fun () => failwith "test"
00:00:12 verbose #434 > > |> _throws
00:00:12 verbose #435 > > |> optionm.map format_exception
00:00:12 verbose #436 > > |> _assert_eq (Some "System.Exception: test")
00:00:13 verbose #437 > >
00:00:13 verbose #438 > > ╭─[ 612.47ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 verbose #439 > > │ assert_eq / actual: US1_0 "System.Exception: test" / expected: US1_0 │
00:00:13 verbose #440 > > │ "System.Exception: test" │
00:00:13 verbose #441 > > │ │
00:00:13 verbose #442 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #443 > >
00:00:13 verbose #444 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #445 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #446 > > │ ### replace │
00:00:13 verbose #447 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #448 > >
00:00:13 verbose #449 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #450 > > inl replace (old_value : string) (new_value : string) (s : string) : string =
00:00:13 verbose #451 > > $'!s.Replace (!old_value, !new_value)'
00:00:13 verbose #452 > >
00:00:13 verbose #453 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 verbose #454 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 verbose #455 > > │ ### concat_array_trailing │
00:00:13 verbose #456 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 verbose #457 > >
00:00:13 verbose #458 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #459 > > inl concat_array_trailing (separator : string) (input : a i32 string) =
00:00:13 verbose #460 > > ("", input)
00:00:13 verbose #461 > > ||> am.fold fun acc (x : string) =>
00:00:13 verbose #462 > > $'!acc + !x + !separator + ""'
00:00:13 verbose #463 > >
00:00:13 verbose #464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 verbose #465 > > //// test
00:00:13 verbose #466 > > ///! rust
00:00:13 verbose #467 > >
00:00:13 verbose #468 > > ;[[
00:00:13 verbose #469 > > "1"
00:00:13 verbose #470 > > "2"
00:00:13 verbose #471 > > "3"
00:00:13 verbose #472 > > ]]
00:00:13 verbose #473 > > |> fun x =>
00:00:13 verbose #474 > > inl code = (a x : _ i32 _) |> concat_array_trailing "\n"
00:00:13 verbose #475 > > code
00:00:13 verbose #476 > > |> _assert_eq "1\n2\n3\n"
00:00:23 verbose #477 > >
00:00:23 verbose #478 > > ╭─[ 10.57s - return value ]────────────────────────────────────────────────────╮
00:00:23 verbose #479 > > │ assert_eq / actual: "1 │
00:00:23 verbose #480 > > │ 2 │
00:00:23 verbose #481 > > │ 3 │
00:00:23 verbose #482 > > │ " / expected: "1 │
00:00:23 verbose #483 > > │ 2 │
00:00:23 verbose #484 > > │ 3 │
00:00:23 verbose #485 > > │ " │
00:00:23 verbose #486 > > │ │
00:00:23 verbose #487 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #488 > >
00:00:23 verbose #489 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:23 verbose #490 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:23 verbose #491 > > │ ### concat_list_trailing │
00:00:23 verbose #492 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:23 verbose #493 > >
00:00:23 verbose #494 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #495 > > inl concat_list_trailing separator input =
00:00:23 verbose #496 > > ("", input)
00:00:23 verbose #497 > > ||> listm.fold fun acc (x : string) =>
00:00:23 verbose #498 > > $'!acc + !x + !separator + ""'
00:00:23 verbose #499 > >
00:00:23 verbose #500 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:23 verbose #501 > > //// test
00:00:23 verbose #502 > > ///! rust
00:00:23 verbose #503 > >
00:00:23 verbose #504 > > [[
00:00:23 verbose #505 > > "1"
00:00:23 verbose #506 > > "2"
00:00:23 verbose #507 > > "3"
00:00:23 verbose #508 > > ]]
00:00:23 verbose #509 > > |> fun x =>
00:00:23 verbose #510 > > inl code = (x : _) |> concat_list_trailing "\n"
00:00:23 verbose #511 > > code
00:00:23 verbose #512 > > |> _assert_eq "1\n2\n3\n"
00:00:26 verbose #513 > >
00:00:26 verbose #514 > > ╭─[ 2.87s - return value ]─────────────────────────────────────────────────────╮
00:00:26 verbose #515 > > │ assert_eq / actual: "1 │
00:00:26 verbose #516 > > │ 2 │
00:00:26 verbose #517 > > │ 3 │
00:00:26 verbose #518 > > │ " / expected: "1 │
00:00:26 verbose #519 > > │ 2 │
00:00:26 verbose #520 > > │ 3 │
00:00:26 verbose #521 > > │ " │
00:00:26 verbose #522 > > │ │
00:00:26 verbose #523 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #524 > >
00:00:26 verbose #525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:26 verbose #526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:26 verbose #527 > > │ ### concat_list_heap_trailing │
00:00:26 verbose #528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 verbose #529 > >
00:00:26 verbose #530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:26 verbose #531 > > inl concat_list_heap_trailing separator input =
00:00:26 verbose #532 > > inl separator = join separator
00:00:26 verbose #533 > > inl separator = separator
00:00:26 verbose #534 > > ("", input)
00:00:26 verbose #535 > > ||> listm.fold fun acc (x : string) =>
00:00:26 verbose #536 > > $'$"{!acc}{!x}{!separator}"'
00:00:26 verbose #537 > >
00:00:26 verbose #538 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:26 verbose #539 > > //// test
00:00:26 verbose #540 > > ///! rust
00:00:26 verbose #541 > >
00:00:26 verbose #542 > > types ()
00:00:26 verbose #543 > >
00:00:26 verbose #544 > > [[
00:00:26 verbose #545 > > "1"
00:00:26 verbose #546 > > "2"
00:00:26 verbose #547 > > "3"
00:00:26 verbose #548 > > ]]
00:00:26 verbose #549 > > |> fun x =>
00:00:26 verbose #550 > > inl code = (x : _) |> concat_list_heap_trailing "\n"
00:00:26 verbose #551 > > code
00:00:26 verbose #552 > > |> _assert_eq "1\n2\n3\n"
00:00:29 verbose #553 > >
00:00:29 verbose #554 > > ╭─[ 2.68s - return value ]─────────────────────────────────────────────────────╮
00:00:29 verbose #555 > > │ assert_eq / actual: "1 │
00:00:29 verbose #556 > > │ 2 │
00:00:29 verbose #557 > > │ 3 │
00:00:29 verbose #558 > > │ " / expected: "1 │
00:00:29 verbose #559 > > │ 2 │
00:00:29 verbose #560 > > │ 3 │
00:00:29 verbose #561 > > │ " │
00:00:29 verbose #562 > > │ │
00:00:29 verbose #563 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #564 > >
00:00:29 verbose #565 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #566 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #567 > > │ ### concat │
00:00:29 verbose #568 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #569 > >
00:00:29 verbose #570 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #571 > > inl concat (a : string) (b : seq.seq' string) : string =
00:00:29 verbose #572 > > b |> $'String.concat' a
00:00:29 verbose #573 > >
00:00:29 verbose #574 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #575 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #576 > > │ ### ellipsis │
00:00:29 verbose #577 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #578 > >
00:00:29 verbose #579 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #580 > > inl ellipsis (max : i32) (s : string) =
00:00:29 verbose #581 > > if sm.length s <= max
00:00:29 verbose #582 > > then s
00:00:29 verbose #583 > > else s |> slice 0 (max - 1) |> fun x => $'!x + "..."'
00:00:29 verbose #584 > >
00:00:29 verbose #585 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #586 > > //// test
00:00:29 verbose #587 > >
00:00:29 verbose #588 > > "12345"
00:00:29 verbose #589 > > |> ellipsis 2
00:00:29 verbose #590 > > |> _assert_eq "12..."
00:00:29 verbose #591 > >
00:00:29 verbose #592 > > "12345"
00:00:29 verbose #593 > > |> ellipsis 4
00:00:29 verbose #594 > > |> _assert_eq "1234..."
00:00:29 verbose #595 > >
00:00:29 verbose #596 > > ╭─[ 121.72ms - stdout ]────────────────────────────────────────────────────────╮
00:00:29 verbose #597 > > │ assert_eq / actual: "12..." / expected: "12..." │
00:00:29 verbose #598 > > │ assert_eq / actual: "1234..." / expected: "1234..." │
00:00:29 verbose #599 > > │ │
00:00:29 verbose #600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #601 > >
00:00:29 verbose #602 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #603 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #604 > > │ ### ellipsis_end │
00:00:29 verbose #605 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #606 > >
00:00:29 verbose #607 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #608 > > let ellipsis_end (max : i64) (s : string) =
00:00:29 verbose #609 > > inl len = sm.length s
00:00:29 verbose #610 > > if len <= max
00:00:29 verbose #611 > > then s
00:00:29 verbose #612 > > else
00:00:29 verbose #613 > > inl half = f64 max / 2
00:00:29 verbose #614 > > inl start_half = half |> math.ceil |> i64
00:00:29 verbose #615 > > inl end_half = half |> math.floor |> i64
00:00:29 verbose #616 > > inl start = s |> slice 0 (start_half - 1)
00:00:29 verbose #617 > > inl end = s |> slice (len - end_half) (len - 1)
00:00:29 verbose #618 > > (a ;[[start; "..."; end]] : _ i32 _)
00:00:29 verbose #619 > > |> seq.of_array
00:00:29 verbose #620 > > |> concat ""
00:00:29 verbose #621 > >
00:00:29 verbose #622 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #623 > > //// test
00:00:29 verbose #624 > >
00:00:29 verbose #625 > > "12345"
00:00:29 verbose #626 > > |> ellipsis_end 2
00:00:29 verbose #627 > > |> _assert_eq "1...5"
00:00:29 verbose #628 > >
00:00:29 verbose #629 > > "12345"
00:00:29 verbose #630 > > |> ellipsis_end 3
00:00:29 verbose #631 > > |> _assert_eq "12...5"
00:00:29 verbose #632 > >
00:00:29 verbose #633 > > "1234567"
00:00:29 verbose #634 > > |> ellipsis_end 4
00:00:29 verbose #635 > > |> _assert_eq "12...67"
00:00:29 verbose #636 > >
00:00:29 verbose #637 > > ╭─[ 266.54ms - stdout ]────────────────────────────────────────────────────────╮
00:00:29 verbose #638 > > │ assert_eq / actual: "1...5" / expected: "1...5" │
00:00:29 verbose #639 > > │ assert_eq / actual: "12...5" / expected: "12...5" │
00:00:29 verbose #640 > > │ assert_eq / actual: "12...67" / expected: "12...67" │
00:00:29 verbose #641 > > │ │
00:00:29 verbose #642 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #643 > >
00:00:29 verbose #644 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #645 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #646 > > │ ### format_ellipsis │
00:00:29 verbose #647 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #648 > >
00:00:29 verbose #649 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #650 > > inl format_ellipsis s =
00:00:29 verbose #651 > > s
00:00:29 verbose #652 > > |> format_debug
00:00:29 verbose #653 > > |> ellipsis_end 400
00:00:29 verbose #654 > >
00:00:29 verbose #655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #657 > > │ ### split │
00:00:29 verbose #658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #659 > >
00:00:29 verbose #660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #661 > > inl split (separator : string) (str : string) : array_base string =
00:00:29 verbose #662 > > $'!str.Split !separator '
00:00:29 verbose #663 > >
00:00:29 verbose #664 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #665 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #666 > > │ ### split_string │
00:00:29 verbose #667 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #668 > >
00:00:29 verbose #669 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #670 > > inl split_string (separator : array_base string) (str : string) : array_base
00:00:29 verbose #671 > > string =
00:00:29 verbose #672 > > run_target function
00:00:29 verbose #673 > > | Fsharp (Native) => fun () => $'!str.Split (!separator,
00:00:29 verbose #674 > > System.StringSplitOptions.None)'
00:00:29 verbose #675 > > | _ => fun () => str |> split ((a separator : _ i32 _) |> seq.of_array
00:00:29 verbose #676 > > |> concat (join ""))
00:00:29 verbose #677 > >
00:00:29 verbose #678 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #679 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #680 > > │ ### join' │
00:00:29 verbose #681 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #682 > >
00:00:29 verbose #683 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:29 verbose #684 > > inl join' (concat : string) (s : a i32 string) : string =
00:00:29 verbose #685 > > $'System.String.Join (!concat, !s)'
00:00:30 verbose #686 > >
00:00:30 verbose #687 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #688 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #689 > > │ ### index │
00:00:30 verbose #690 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #691 > >
00:00:30 verbose #692 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #693 > > inl index i (str : string) : char =
00:00:30 verbose #694 > > sm.index str i
00:00:30 verbose #695 > >
00:00:30 verbose #696 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #697 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #698 > > │ ### to_char_array │
00:00:30 verbose #699 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #700 > >
00:00:30 verbose #701 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #702 > > inl to_char_array (str : string) : a i32 char =
00:00:30 verbose #703 > > am.init (str |> sm.length) (fun i => str |> index i)
00:00:30 verbose #704 > >
00:00:30 verbose #705 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #706 > > //// test
00:00:30 verbose #707 > >
00:00:30 verbose #708 > > "abc"
00:00:30 verbose #709 > > |> to_char_array
00:00:30 verbose #710 > > |> _assert_eq (a ;[[ 'a'; 'b'; 'c' ]])
00:00:30 verbose #711 > >
00:00:30 verbose #712 > > ╭─[ 137.22ms - stdout ]────────────────────────────────────────────────────────╮
00:00:30 verbose #713 > > │ assert_eq / actual: [|'a'; 'b'; 'c'|] / expected: [|'a'; 'b'; 'c'|] │
00:00:30 verbose #714 > > │ │
00:00:30 verbose #715 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #716 > >
00:00:30 verbose #717 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #718 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #719 > > │ ### to_char_list │
00:00:30 verbose #720 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #721 > >
00:00:30 verbose #722 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #723 > > inl to_char_list (str : string) : list char =
00:00:30 verbose #724 > > listm.init (str |> sm.length) (fun (i : i64) => str |> index i)
00:00:30 verbose #725 > >
00:00:30 verbose #726 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #727 > > //// test
00:00:30 verbose #728 > >
00:00:30 verbose #729 > > "abc"
00:00:30 verbose #730 > > |> to_char_list
00:00:30 verbose #731 > > |> _assert_eq [[ 'a'; 'b'; 'c' ]]
00:00:30 verbose #732 > >
00:00:30 verbose #733 > > ╭─[ 67.94ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:30 verbose #734 > > │ assert_eq / actual: UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) / expected: │
00:00:30 verbose #735 > > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) │
00:00:30 verbose #736 > > │ │
00:00:30 verbose #737 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #738 > >
00:00:30 verbose #739 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #740 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #741 > > │ ### encoding │
00:00:30 verbose #742 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #743 > >
00:00:30 verbose #744 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #745 > > nominal encoding = $'System.Text.Encoding'
00:00:30 verbose #746 > >
00:00:30 verbose #747 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #748 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #749 > > │ ### encoding_utf8 │
00:00:30 verbose #750 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #751 > >
00:00:30 verbose #752 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #753 > > inl encoding_utf8 () : encoding =
00:00:30 verbose #754 > > $'`encoding.UTF8'
00:00:30 verbose #755 > >
00:00:30 verbose #756 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #757 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #758 > > │ ### utf8_get_bytes │
00:00:30 verbose #759 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #760 > >
00:00:30 verbose #761 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #762 > > inl utf8_get_bytes (s : string) : a i32 u8 =
00:00:30 verbose #763 > > s |> (encoding_utf8 () |> $'_.GetBytes')
00:00:30 verbose #764 > >
00:00:30 verbose #765 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #766 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #767 > > │ ### byte_to_string │
00:00:30 verbose #768 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #769 > >
00:00:30 verbose #770 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #771 > > inl byte_to_string (format : string) (x : u8) : string =
00:00:30 verbose #772 > > $'!x.ToString' format
00:00:30 verbose #773 > >
00:00:30 verbose #774 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #775 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #776 > > │ ## rust │
00:00:30 verbose #777 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #778 > >
00:00:30 verbose #779 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #780 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #781 > > │ ### display │
00:00:30 verbose #782 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #783 > >
00:00:30 verbose #784 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #785 > > nominal display t = $'std_fmt_Display<`t>'
00:00:30 verbose #786 > >
00:00:30 verbose #787 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #788 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #789 > > │ ### str │
00:00:30 verbose #790 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #791 > >
00:00:30 verbose #792 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #793 > > nominal str = $'Str'
00:00:30 verbose #794 > >
00:00:30 verbose #795 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #796 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #797 > > │ ### base64_decode_error │
00:00:30 verbose #798 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #799 > >
00:00:30 verbose #800 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #801 > > nominal base64_decode_error = $'base64_DecodeError'
00:00:30 verbose #802 > >
00:00:30 verbose #803 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #804 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #805 > > │ ### borsh_io_error │
00:00:30 verbose #806 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #807 > >
00:00:30 verbose #808 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #809 > > nominal borsh_io_error = $'borsh_io_Error'
00:00:30 verbose #810 > >
00:00:30 verbose #811 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #812 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #813 > > │ ### utf8_error │
00:00:30 verbose #814 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #815 > >
00:00:30 verbose #816 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #817 > > nominal utf8_error = $'std_str_Utf8Error'
00:00:30 verbose #818 > >
00:00:30 verbose #819 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #820 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #821 > > │ ### from_utf8_error │
00:00:30 verbose #822 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #823 > >
00:00:30 verbose #824 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #825 > > nominal from_utf8_error = $'std_string_FromUtf8Error'
00:00:30 verbose #826 > >
00:00:30 verbose #827 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #828 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #829 > > │ ### json_value │
00:00:30 verbose #830 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #831 > >
00:00:30 verbose #832 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #833 > > nominal json_value = $'serde_json_Value'
00:00:30 verbose #834 > >
00:00:30 verbose #835 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #836 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #837 > > │ ### json_error │
00:00:30 verbose #838 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #839 > >
00:00:30 verbose #840 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #841 > > nominal json_error = $'serde_json_Error'
00:00:30 verbose #842 > >
00:00:30 verbose #843 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #844 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #845 > > │ ### serde_wasm_bindgen_error │
00:00:30 verbose #846 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #847 > >
00:00:30 verbose #848 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #849 > > nominal serde_wasm_bindgen_error = $'serde_wasm_bindgen_Error'
00:00:30 verbose #850 > >
00:00:30 verbose #851 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #852 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #853 > > │ ### js_string │
00:00:30 verbose #854 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #855 > >
00:00:30 verbose #856 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #857 > > nominal js_string = $'js_sys_JsString'
00:00:30 verbose #858 > >
00:00:30 verbose #859 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #860 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #861 > > │ ### os_str │
00:00:30 verbose #862 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #863 > >
00:00:30 verbose #864 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #865 > > nominal os_str = $'std_ffi_OsStr'
00:00:30 verbose #866 > >
00:00:30 verbose #867 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #868 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #869 > > │ ### os_string │
00:00:30 verbose #870 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #871 > >
00:00:30 verbose #872 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #873 > > nominal os_string = $'std_ffi_OsString'
00:00:30 verbose #874 > >
00:00:30 verbose #875 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #876 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #877 > > │ ### std_string │
00:00:30 verbose #878 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #879 > >
00:00:30 verbose #880 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #881 > > nominal std_string = $'std_string_String'
00:00:30 verbose #882 > >
00:00:30 verbose #883 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #884 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #885 > > │ ### raw_string_literal │
00:00:30 verbose #886 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #887 > >
00:00:30 verbose #888 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #889 > > inl raw_string_literal (s : string) : rust.ref' str =
00:00:30 verbose #890 > > !\($'"r#\\"" + !s + "\\"#"')
00:00:30 verbose #891 > >
00:00:30 verbose #892 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #893 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #894 > > │ ### raw_string_literal_static │
00:00:30 verbose #895 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #896 > >
00:00:30 verbose #897 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #898 > > inl raw_string_literal_static (s : string) : rust.static_ref str =
00:00:30 verbose #899 > > !\($'"r#\\"" + !s + "\\"#"')
00:00:30 verbose #900 > >
00:00:30 verbose #901 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #902 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #903 > > │ ### (~#) │
00:00:30 verbose #904 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #905 > >
00:00:30 verbose #906 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #907 > > inl (~#) s =
00:00:30 verbose #908 > > s |> raw_string_literal
00:00:30 verbose #909 > >
00:00:30 verbose #910 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #911 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #912 > > │ ### (~##) │
00:00:30 verbose #913 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #914 > >
00:00:30 verbose #915 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #916 > > inl (~##) s =
00:00:30 verbose #917 > > s |> raw_string_literal_static
00:00:30 verbose #918 > >
00:00:30 verbose #919 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #920 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #921 > > │ ### include_str │
00:00:30 verbose #922 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #923 > >
00:00:30 verbose #924 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #925 > > inl include_str (path : string) : rust.ref' str =
00:00:30 verbose #926 > > !\($'"include_str\!(\\\"" + !path + "\\\")"')
00:00:30 verbose #927 > >
00:00:30 verbose #928 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #929 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #930 > > │ ### as_str │
00:00:30 verbose #931 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #932 > >
00:00:30 verbose #933 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #934 > > inl as_str (s : string) : rust.ref' str =
00:00:30 verbose #935 > > // !\\(s, $'"fable_library_rust::String_::LrcStr::as_str(&$0)"')
00:00:30 verbose #936 > > !\\(s, $'"&*$0"')
00:00:30 verbose #937 > >
00:00:30 verbose #938 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #939 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #940 > > │ ### from_std_string │
00:00:30 verbose #941 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #942 > >
00:00:30 verbose #943 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #944 > > inl from_std_string (str : std_string) : string =
00:00:30 verbose #945 > > !\\(str, $'"fable_library_rust::String_::fromString($0)"')
00:00:30 verbose #946 > >
00:00:30 verbose #947 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #948 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #949 > > │ ### ref_to_std_string │
00:00:30 verbose #950 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #951 > >
00:00:30 verbose #952 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #953 > > inl ref_to_std_string (str : rust.ref' str) : std_string =
00:00:30 verbose #954 > > !\\(str, $'"String::from($0)"')
00:00:30 verbose #955 > >
00:00:30 verbose #956 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #957 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #958 > > │ ### cow_to_std_string │
00:00:30 verbose #959 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #960 > >
00:00:30 verbose #961 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #962 > > inl cow_to_std_string (str : rust.cow str) : std_string =
00:00:30 verbose #963 > > !\\(str, $'"String::from($0)"')
00:00:30 verbose #964 > >
00:00:30 verbose #965 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #966 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #967 > > │ ### to_std_string │
00:00:30 verbose #968 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #969 > >
00:00:30 verbose #970 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #971 > > inl to_std_string (s : string) : std_string =
00:00:30 verbose #972 > > s |> as_str |> ref_to_std_string
00:00:30 verbose #973 > >
00:00:30 verbose #974 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #975 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #976 > > │ ### as_str_std │
00:00:30 verbose #977 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #978 > >
00:00:30 verbose #979 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #980 > > inl as_str_std (s : std_string) : rust.ref' str =
00:00:30 verbose #981 > > !\\(s, $'"$0.as_str()"')
00:00:30 verbose #982 > >
00:00:30 verbose #983 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #984 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #985 > > │ ### into_boxed_str │
00:00:30 verbose #986 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #987 > >
00:00:30 verbose #988 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #989 > > inl into_boxed_str (s : std_string) : rust.box str =
00:00:30 verbose #990 > > !\\(s, $'"$0.into_boxed_str()"')
00:00:30 verbose #991 > >
00:00:30 verbose #992 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #993 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #994 > > │ ### os_string_as_ref │
00:00:30 verbose #995 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #996 > >
00:00:30 verbose #997 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #998 > > inl os_string_as_ref (s : os_string) : rust.ref' os_str =
00:00:30 verbose #999 > > !\\(s, $'"$0.as_ref()"')
00:00:30 verbose #1000 > >
00:00:30 verbose #1001 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #1002 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #1003 > > │ ### to_os_string │
00:00:30 verbose #1004 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #1005 > >
00:00:30 verbose #1006 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #1007 > > inl to_os_string (s : rust.ref' os_str) : os_string =
00:00:30 verbose #1008 > > !\\(s, $'"$0.to_os_string()"')
00:00:30 verbose #1009 > >
00:00:30 verbose #1010 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 verbose #1011 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 verbose #1012 > > │ ### os_to_str │
00:00:30 verbose #1013 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 verbose #1014 > >
00:00:30 verbose #1015 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:30 verbose #1016 > > inl os_to_str (s : os_string) : optionm'.option' (rust.ref' str) =
00:00:30 verbose #1017 > > !\\(s, $'"$0.to_str()"')
00:00:31 verbose #1018 > >
00:00:31 verbose #1019 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1020 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1021 > > │ ### from_os_str_ref │
00:00:31 verbose #1022 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1023 > >
00:00:31 verbose #1024 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1025 > > inl from_os_str_ref s =
00:00:31 verbose #1026 > > s
00:00:31 verbose #1027 > > |> to_os_string
00:00:31 verbose #1028 > > |> os_to_str
00:00:31 verbose #1029 > > |> optionm'.unwrap
00:00:31 verbose #1030 > > |> ref_to_std_string
00:00:31 verbose #1031 > > |> from_std_string
00:00:31 verbose #1032 > >
00:00:31 verbose #1033 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1034 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1035 > > │ ### format_custom' │
00:00:31 verbose #1036 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1037 > >
00:00:31 verbose #1038 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1039 > > inl format_custom' (format : string) x : std_string =
00:00:31 verbose #1040 > > run_target function
00:00:31 verbose #1041 > > | Rust _ => fun () =>
00:00:31 verbose #1042 > > !\\(x, $'"format\!(\\\"" + !format + "\\\", $0)"')
00:00:31 verbose #1043 > > | _ => fun () => null ()
00:00:31 verbose #1044 > >
00:00:31 verbose #1045 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1046 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1047 > > │ ### format' │
00:00:31 verbose #1048 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1049 > >
00:00:31 verbose #1050 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1051 > > inl format' x : std_string =
00:00:31 verbose #1052 > > run_target function
00:00:31 verbose #1053 > > | Rust _ => fun () =>
00:00:31 verbose #1054 > > !\\(x, $'"format\!(\\\"{}\\\", $0)"')
00:00:31 verbose #1055 > > | _ => fun () => null ()
00:00:31 verbose #1056 > >
00:00:31 verbose #1057 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1058 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1059 > > │ ### format_debug' │
00:00:31 verbose #1060 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1061 > >
00:00:31 verbose #1062 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1063 > > inl format_debug' x : std_string =
00:00:31 verbose #1064 > > run_target function
00:00:31 verbose #1065 > > | Rust _ => fun () =>
00:00:31 verbose #1066 > > !\\(x, $'"format\!(\\\"{:?}\\\", $0)"')
00:00:31 verbose #1067 > > | _ => fun () => null ()
00:00:31 verbose #1068 > >
00:00:31 verbose #1069 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1070 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1071 > > │ ### format_pretty' │
00:00:31 verbose #1072 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1073 > >
00:00:31 verbose #1074 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1075 > > inl format_pretty' x : std_string =
00:00:31 verbose #1076 > > run_target function
00:00:31 verbose #1077 > > | Rust _ => fun () =>
00:00:31 verbose #1078 > > !\\(x, $'"format\!(\\\"{:#?}\\\", $0)"')
00:00:31 verbose #1079 > > | _ => fun () => null ()
00:00:31 verbose #1080 > >
00:00:31 verbose #1081 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1082 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1083 > > │ ### format_hex' │
00:00:31 verbose #1084 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1085 > >
00:00:31 verbose #1086 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1087 > > inl format_hex' x : std_string =
00:00:31 verbose #1088 > > !\\(x, $'"format\!(\\\"{:02x}\\\", $0)"')
00:00:31 verbose #1089 > >
00:00:31 verbose #1090 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1091 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1092 > > │ ### format'' │
00:00:31 verbose #1093 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1094 > >
00:00:31 verbose #1095 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1096 > > inl format'' (format : string) : std_string =
00:00:31 verbose #1097 > > !\($'@@$"format\!(" + !format + ")"')
00:00:31 verbose #1098 > >
00:00:31 verbose #1099 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1100 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1101 > > │ ### regex │
00:00:31 verbose #1102 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1103 > >
00:00:31 verbose #1104 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1105 > > nominal regex = $'regex_Regex'
00:00:31 verbose #1106 > >
00:00:31 verbose #1107 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1108 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1109 > > │ ### regex_error │
00:00:31 verbose #1110 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1111 > >
00:00:31 verbose #1112 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1113 > > nominal regex_error = $'regex_Error'
00:00:31 verbose #1114 > >
00:00:31 verbose #1115 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1116 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1117 > > │ ### new_regex │
00:00:31 verbose #1118 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1119 > >
00:00:31 verbose #1120 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1121 > > inl new_regex (pattern : string) : resultm.result' regex regex_error =
00:00:31 verbose #1122 > > !\\(pattern, $'$"regex::Regex::new(&$0)"')
00:00:31 verbose #1123 > >
00:00:31 verbose #1124 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1125 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1126 > > │ ### captures │
00:00:31 verbose #1127 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1128 > >
00:00:31 verbose #1129 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1130 > > nominal regex_captures t = $'regex_Captures<`t>'
00:00:31 verbose #1131 > >
00:00:31 verbose #1132 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1133 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1134 > > │ ### regex_capture_matches │
00:00:31 verbose #1135 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1136 > >
00:00:31 verbose #1137 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1138 > > nominal regex_capture_matches = $'regex_CaptureMatches'
00:00:31 verbose #1139 > >
00:00:31 verbose #1140 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1141 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1142 > > │ ### regex_capture_names │
00:00:31 verbose #1143 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1144 > >
00:00:31 verbose #1145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1146 > > nominal regex_capture_names = $'regex_CaptureNames'
00:00:31 verbose #1147 > >
00:00:31 verbose #1148 > > inl regex_capture_names (regex : regex) : regex_capture_names =
00:00:31 verbose #1149 > > !\\(regex, $'$"$0.capture_names()"')
00:00:31 verbose #1150 > >
00:00:31 verbose #1151 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1152 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1153 > > │ ### match' │
00:00:31 verbose #1154 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1155 > >
00:00:31 verbose #1156 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1157 > > nominal match' = $'regex_Match'
00:00:31 verbose #1158 > >
00:00:31 verbose #1159 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1160 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1161 > > │ ### regex_captures_iter │
00:00:31 verbose #1162 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1163 > >
00:00:31 verbose #1164 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1165 > > inl regex_captures_iter (s : rust.static_ref (rust.mut' std_string)) (regex :
00:00:31 verbose #1166 > > regex) : regex_capture_matches =
00:00:31 verbose #1167 > > !\($'$"!regex.captures_iter(!s)"')
00:00:31 verbose #1168 > >
00:00:31 verbose #1169 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #1170 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #1171 > > │ ### regex_captures │
00:00:31 verbose #1172 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #1173 > >
00:00:31 verbose #1174 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1175 > > inl regex_captures (s : string) (regex : regex) : am'.vec (mapm.hash_map string
00:00:31 verbose #1176 > > string) =
00:00:31 verbose #1177 > > // inl s = join s
00:00:31 verbose #1178 > > // !\\(regex, $'$"$0.captures_iter(&*!s).map(|caps|
00:00:31 verbose #1179 > > $0.capture_names().map(|x| x.and_then(|n| Some((n,
00:00:31 verbose #1180 > > caps.name(n)?.as_str())))).flatten().collect()).collect()"')
00:00:31 verbose #1181 > >
00:00:31 verbose #1182 > > inl s = s |> to_std_string
00:00:31 verbose #1183 > > fun () =>
00:00:31 verbose #1184 > > inl matches =
00:00:31 verbose #1185 > > inl s = s |> rust.new_box |> rust.box_leak
00:00:31 verbose #1186 > > regex |> regex_captures_iter s
00:00:31 verbose #1187 > >
00:00:31 verbose #1188 > > (!\($'"true; let _result : Vec<_> = !matches.map(|x| { //"') : bool) |>
00:00:31 verbose #1189 > > ignore
00:00:31 verbose #1190 > >
00:00:31 verbose #1191 > > inl fn (match' : rust.static_ref (rust.mut' (regex_captures
00:00:31 verbose #1192 > > rust.static_lifetime))) : mapm.hash_map string string =
00:00:31 verbose #1193 > >
00:00:31 verbose #1194 > > inl names = regex |> regex_capture_names
00:00:31 verbose #1195 > >
00:00:31 verbose #1196 > > (!\($'"true; let _result : std::collections::HashMap<_, _> =
00:00:31 verbose #1197 > > !names.map(|x| { //"') : bool) |> ignore
00:00:31 verbose #1198 > >
00:00:31 verbose #1199 > > inl fn (n : string) : pair string string =
00:00:31 verbose #1200 > > inl n' = n |> rust.clone
00:00:31 verbose #1201 > >
00:00:31 verbose #1202 > > new_pair n' !\\(n, $'$"!match'.name(&$0).map(|x|
00:00:31 verbose #1203 > > x.as_str()).unwrap_or(\\\"\\\").to_string().into()"')
00:00:31 verbose #1204 > >
00:00:31 verbose #1205 > > (!\\(fn !\($'"x.unwrap_or(\\\"\\\").to_string().into()"'), $'"true;
00:00:31 verbose #1206 > > $0 }).map(|x| std::sync::Arc::try_unwrap(x).unwrap_or_else(|x|
00:00:31 verbose #1207 > > (*x).clone())).collect()"') : bool) |> ignore
00:00:31 verbose #1208 > >
00:00:31 verbose #1209 > > !\($'"_result"')
00:00:31 verbose #1210 > >
00:00:31 verbose #1211 > > inl x =
00:00:31 verbose #1212 > > !\($'$"x"')
00:00:31 verbose #1213 > > |> rust.new_box
00:00:31 verbose #1214 > > |> rust.box_leak
00:00:31 verbose #1215 > >
00:00:31 verbose #1216 > > (!\\(fn x, $'"true; $0 }).collect::<Vec<_>>()"') : bool) |> ignore
00:00:31 verbose #1217 > >
00:00:31 verbose #1218 > > !\($'"_result"')
00:00:31 verbose #1219 > >
00:00:31 verbose #1220 > > |> rust.capture_move
00:00:31 verbose #1221 > >
00:00:31 verbose #1222 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:31 verbose #1223 > > //// test
00:00:31 verbose #1224 > > ///! rust -d regex
00:00:31 verbose #1225 > >
00:00:31 verbose #1226 > > types ()
00:00:31 verbose #1227 > > "fable-library-ts\\.(?<a>[[\\d.]]+)$"
00:00:31 verbose #1228 > > |> new_regex
00:00:31 verbose #1229 > > |> resultm.unwrap'
00:00:31 verbose #1230 > > |> regex_captures "fable_modules/fable-library-ts.4.17.0"
00:00:31 verbose #1231 > > |> am'.vec_map (mapm.to_vec >> am'.vec_sort_by_key id)
00:00:31 verbose #1232 > > |> sm'.format_debug
00:00:31 verbose #1233 > > |> _assert_eq (
00:00:31 verbose #1234 > > ;[[
00:00:31 verbose #1235 > > ;[[ "", ""; "a", "4.17.0" ]]
00:00:31 verbose #1236 > > |> am'.to_vec
00:00:31 verbose #1237 > > ]]
00:00:31 verbose #1238 > > |> am'.to_vec
00:00:31 verbose #1239 > > |> sm'.format_debug
00:00:31 verbose #1240 > > )
00:00:35 verbose #1241 > >
00:00:35 verbose #1242 > > ╭─[ 4.32s - return value ]─────────────────────────────────────────────────────╮
00:00:35 verbose #1243 > > │ assert_eq / actual: "[[("", ""), ("a", "4.17.0")]]" / expected: "[[("", ""), │
00:00:35 verbose #1244 > > │ ("a", "4.17.0")]]" │
00:00:35 verbose #1245 > > │ │
00:00:35 verbose #1246 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1247 > >
00:00:35 verbose #1248 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1249 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1250 > > │ ### replace_regex' │
00:00:35 verbose #1251 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1252 > >
00:00:35 verbose #1253 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1254 > > inl replace_regex' (pattern : string) (replacement : a i32 string) (s : string)
00:00:35 verbose #1255 > > : string =
00:00:35 verbose #1256 > > run_target function
00:00:35 verbose #1257 > > | Rust (Native) => fun () =>
00:00:35 verbose #1258 > > inl s = join s
00:00:35 verbose #1259 > > inl replacement = join replacement
00:00:35 verbose #1260 > > inl regex = pattern |> new_regex |> resultm.unwrap'
00:00:35 verbose #1261 > > !\\((regex, #s, replacement), $'$"$0.replace_all($1, &*$2)"')
00:00:35 verbose #1262 > > |> cow_to_std_string
00:00:35 verbose #1263 > > |> from_std_string
00:00:35 verbose #1264 > > | _ => fun () => null ()
00:00:35 verbose #1265 > >
00:00:35 verbose #1266 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1267 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1268 > > │ ### serialize │
00:00:35 verbose #1269 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1270 > >
00:00:35 verbose #1271 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1272 > > inl serialize forall t. (x : t) : resultm.result' std_string json_error =
00:00:35 verbose #1273 > > !\($'"serde_json::to_string(&!x)"')
00:00:35 verbose #1274 > >
00:00:35 verbose #1275 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1276 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1277 > > │ ### deserialize │
00:00:35 verbose #1278 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1279 > >
00:00:35 verbose #1280 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1281 > > inl deserialize forall t. (json : string) : resultm.result' t std_string =
00:00:35 verbose #1282 > > inl json = join json
00:00:35 verbose #1283 > > inl json = json |> as_str
00:00:35 verbose #1284 > > !\($'"serde_json::from_str(&!json)"')
00:00:35 verbose #1285 > > |> resultm.map_error' fun (x : json_error) => x |> format'
00:00:35 verbose #1286 > >
00:00:35 verbose #1287 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1288 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1289 > > │ ### borsh_deserialize │
00:00:35 verbose #1290 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1291 > >
00:00:35 verbose #1292 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1293 > > inl borsh_deserialize forall t. (data : array_base u8) : resultm.result' t
00:00:35 verbose #1294 > > std_string =
00:00:35 verbose #1295 > > inl data = data |> am'.as_slice
00:00:35 verbose #1296 > > (!\($'"true; let mut !data = !data"') : bool) |> ignore
00:00:35 verbose #1297 > > inl result = !\($'"borsh::BorshDeserialize::deserialize(&mut !data)"')
00:00:35 verbose #1298 > > result
00:00:35 verbose #1299 > > |> resultm.map_error' fun (x : borsh_io_error) => x |> format'
00:00:35 verbose #1300 > >
00:00:35 verbose #1301 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1302 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1303 > > │ ### deserialize_vec │
00:00:35 verbose #1304 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1305 > >
00:00:35 verbose #1306 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1307 > > inl deserialize_vec (value : json_value) : resultm.result' (am'.vec u8)
00:00:35 verbose #1308 > > std_string =
00:00:35 verbose #1309 > > inl value = join value
00:00:35 verbose #1310 > > !\($'"serde_json::from_value(!value)"')
00:00:35 verbose #1311 > > |> resultm.map_error' fun (x : json_error) => x |> format'
00:00:35 verbose #1312 > >
00:00:35 verbose #1313 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1314 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1315 > > │ ### encode_uri_component │
00:00:35 verbose #1316 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1317 > >
00:00:35 verbose #1318 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1319 > > inl encode_uri_component (s : std_string) : js_string =
00:00:35 verbose #1320 > > !\($'"js_sys::encode_uri_component(&!s)"')
00:00:35 verbose #1321 > >
00:00:35 verbose #1322 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1323 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1324 > > │ ### strip_prefix │
00:00:35 verbose #1325 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1326 > >
00:00:35 verbose #1327 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1328 > > inl strip_prefix (prefix : char) (s : std_string) : optionm'.option' (rust.ref'
00:00:35 verbose #1329 > > str) =
00:00:35 verbose #1330 > > inl s = join s
00:00:35 verbose #1331 > > !\($'"!s.strip_prefix(!prefix)"')
00:00:35 verbose #1332 > >
00:00:35 verbose #1333 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1334 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1335 > > │ ### str_from_utf8 │
00:00:35 verbose #1336 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1337 > >
00:00:35 verbose #1338 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1339 > > inl str_from_utf8 (bytes : rust.ref' (am'.slice u8)) : resultm.result'
00:00:35 verbose #1340 > > (rust.ref' str) utf8_error =
00:00:35 verbose #1341 > > !\($'"std::str::from_utf8(!bytes)"')
00:00:35 verbose #1342 > >
00:00:35 verbose #1343 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1344 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1345 > > │ ### string_from_utf8 │
00:00:35 verbose #1346 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1347 > >
00:00:35 verbose #1348 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1349 > > inl string_from_utf8 (bytes : am'.vec u8) : resultm.result' std_string
00:00:35 verbose #1350 > > from_utf8_error =
00:00:35 verbose #1351 > > !\($'"std::string::String::from_utf8(!bytes)"')
00:00:35 verbose #1352 > >
00:00:35 verbose #1353 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #1354 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #1355 > > │ ### base64_decode │
00:00:35 verbose #1356 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #1357 > >
00:00:35 verbose #1358 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 verbose #1359 > > inl base64_decode (s : std_string) : result std_string std_string =
00:00:35 verbose #1360 > > fun () =>
00:00:35 verbose #1361 > > inl s = join s
00:00:35 verbose #1362 > > inl bytes : resultm.result' (am'.vec u8) base64_decode_error =
00:00:35 verbose #1363 > >
00:00:35 verbose #1364 > > !\($'"base64::Engine::decode(&base64::engine::general_purpose::STANDARD, !s)"')
00:00:35 verbose #1365 > > bytes
00:00:35 verbose #1366 > > |> resultm.map_error' format'
00:00:35 verbose #1367 > > |> resultm.try'
00:00:35 verbose #1368 > > |> string_from_utf8
00:00:35 verbose #1369 > > |> resultm.map_error' format'
00:00:35 verbose #1370 > > |> fun x =>
00:00:35 verbose #1371 > > join x ()
00:00:35 verbose #1372 > > |> resultm.unbox
00:00:36 verbose #1373 > >
00:00:36 verbose #1374 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1375 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1376 > > │ ### encoding' │
00:00:36 verbose #1377 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1378 > >
00:00:36 verbose #1379 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1380 > > nominal encoding' = $'encoding_rs_Encoding'
00:00:36 verbose #1381 > >
00:00:36 verbose #1382 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1383 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1384 > > │ ### encoding_utf8' │
00:00:36 verbose #1385 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1386 > >
00:00:36 verbose #1387 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1388 > > inl encoding_utf8' () : rust.ref' encoding' =
00:00:36 verbose #1389 > > !\($'"encoding_rs::UTF_8"')
00:00:36 verbose #1390 > >
00:00:36 verbose #1391 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1392 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1393 > > │ ### encoding_1252 │
00:00:36 verbose #1394 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1395 > >
00:00:36 verbose #1396 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1397 > > inl encoding_1252' () : rust.ref' encoding' =
00:00:36 verbose #1398 > > !\($'"encoding_rs::WINDOWS_1252"')
00:00:36 verbose #1399 > >
00:00:36 verbose #1400 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1401 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1402 > > │ ### encoding_encode │
00:00:36 verbose #1403 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1404 > >
00:00:36 verbose #1405 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1406 > > inl encoding_encode' (encoding : rust.ref' encoding') (text : string) : rust.cow
00:00:36 verbose #1407 > > (am'.slice u8) =
00:00:36 verbose #1408 > > !\\((encoding, text), $'"$0.encode(&*$1).0"')
00:00:36 verbose #1409 > >
00:00:36 verbose #1410 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1411 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1412 > > │ ### utf8_decode │
00:00:36 verbose #1413 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1414 > >
00:00:36 verbose #1415 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1416 > > inl utf8_decode (data : am'.vec u8) : resultm.result' std_string (rust.cow str)
00:00:36 verbose #1417 > > =
00:00:36 verbose #1418 > > !\($'$"encoding::Encoding::decode(encoding::all::UTF_8, &!data,
00:00:36 verbose #1419 > > encoding::DecoderTrap::Replace)"')
00:00:36 verbose #1420 > >
00:00:36 verbose #1421 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1422 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1423 > > │ ### windows │
00:00:36 verbose #1424 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1425 > >
00:00:36 verbose #1426 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1427 > > nominal windows t = $'std_slice_Windows<`t>'
00:00:36 verbose #1428 > >
00:00:36 verbose #1429 > > inl windows (len : unativeint) (source : am'.vec u8) : windows u8 =
00:00:36 verbose #1430 > > inl source = source |> rust.new_box |> rust.box_leak
00:00:36 verbose #1431 > > // inl source' = source |> rust.clone
00:00:36 verbose #1432 > > inl result = !\\(len, $'"<[[_]]>::windows(!source, $0)"')
00:00:36 verbose #1433 > > // source |> rust.drop
00:00:36 verbose #1434 > > result
00:00:36 verbose #1435 > >
00:00:36 verbose #1436 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1437 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1438 > > │ ### any │
00:00:36 verbose #1439 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1440 > >
00:00:36 verbose #1441 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1442 > > inl any forall t. (fn : string -> bool) (source : windows t) : bool =
00:00:36 verbose #1443 > > (!\($'"true; let mut !source = !source"') : bool) |> ignore
00:00:36 verbose #1444 > > inl fn' x =
00:00:36 verbose #1445 > > x
00:00:36 verbose #1446 > > |> str_from_utf8
00:00:36 verbose #1447 > > |> resultm.unwrap_or' #""
00:00:36 verbose #1448 > > |> ref_to_std_string
00:00:36 verbose #1449 > > |> from_std_string
00:00:36 verbose #1450 > > |> fn
00:00:36 verbose #1451 > > !\\(fn', $'"!source.any(move |x| $0(x))"')
00:00:36 verbose #1452 > >
00:00:36 verbose #1453 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1454 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1455 > > │ ### slice_contains │
00:00:36 verbose #1456 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1457 > >
00:00:36 verbose #1458 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1459 > > inl slice_contains (text : string) (source : am'.vec u8) : bool =
00:00:36 verbose #1460 > > fun () =>
00:00:36 verbose #1461 > > inl source = join source
00:00:36 verbose #1462 > > source
00:00:36 verbose #1463 > > |> windows (text |> length |> (fun x => x : i32) |> convert)
00:00:36 verbose #1464 > > |> any ((=.) text)
00:00:36 verbose #1465 > > |> fun x => join x ()
00:00:36 verbose #1466 > >
00:00:36 verbose #1467 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1468 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1469 > > │ ### as_bytes │
00:00:36 verbose #1470 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1471 > >
00:00:36 verbose #1472 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1473 > > inl as_bytes (text : string) : rust.ref' (am'.slice u8) =
00:00:36 verbose #1474 > > inl text = join text
00:00:36 verbose #1475 > > !\($'"!text.as_bytes()"')
00:00:36 verbose #1476 > >
00:00:36 verbose #1477 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1478 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1479 > > │ ## python │
00:00:36 verbose #1480 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1481 > >
00:00:36 verbose #1482 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1483 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1484 > > │ ### encode_utf8 │
00:00:36 verbose #1485 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1486 > >
00:00:36 verbose #1487 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1488 > > inl encode_utf8 (s : string) : string =
00:00:36 verbose #1489 > > open py_operators
00:00:36 verbose #1490 > > inl encoding = "utf-8"
00:00:36 verbose #1491 > > !\\((s, encoding), $'"$0.encode($1)"')
00:00:36 verbose #1492 > >
00:00:36 verbose #1493 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1494 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1495 > > │ ## target │
00:00:36 verbose #1496 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1497 > >
00:00:36 verbose #1498 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1499 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1500 > > │ ### to_string result t u │
00:00:36 verbose #1501 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1502 > >
00:00:36 verbose #1503 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1504 > > instance to_string result t u = fun x =>
00:00:36 verbose #1505 > > real
00:00:36 verbose #1506 > > open rust
00:00:36 verbose #1507 > > typecase (t * u) with
00:00:36 verbose #1508 > > | string * string =>
00:00:36 verbose #1509 > > match x with
00:00:36 verbose #1510 > > | Ok x => x
00:00:36 verbose #1511 > > | Error x => $'"sm\'.to_string result / Error: " + !x + ""' : string
00:00:36 verbose #1512 > > | std_string * std_string =>
00:00:36 verbose #1513 > > match x with
00:00:36 verbose #1514 > > | Ok x => from_std_string x
00:00:36 verbose #1515 > > | Error x => $'"sm\'.to_string result / Error: " + string !x + ""' :
00:00:36 verbose #1516 > > string
00:00:36 verbose #1517 > > | _ => obj_to_string `u x
00:00:36 verbose #1518 > >
00:00:36 verbose #1519 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:36 verbose #1520 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:36 verbose #1521 > > │ ### replace_regex │
00:00:36 verbose #1522 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1523 > >
00:00:36 verbose #1524 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1525 > > inl replace_regex (pattern : string) (replacement : string) (s : string) :
00:00:36 verbose #1526 > > string =
00:00:36 verbose #1527 > > inl replacement = join replacement
00:00:36 verbose #1528 > > run_target function
00:00:36 verbose #1529 > > | Fsharp (Native) => fun () =>
00:00:36 verbose #1530 > > inl pattern = join pattern
00:00:36 verbose #1531 > > $'System.Text.RegularExpressions.Regex.Replace (!s, !pattern,
00:00:36 verbose #1532 > > !replacement)'
00:00:36 verbose #1533 > > | Rust (Native) => fun () =>
00:00:36 verbose #1534 > > inl s = join s
00:00:36 verbose #1535 > > inl regex = pattern |> new_regex |> resultm.unwrap'
00:00:36 verbose #1536 > > !\\((regex, s, replacement), $'$"$0.replace_all(&$1, &*$2)"')
00:00:36 verbose #1537 > > |> cow_to_std_string
00:00:36 verbose #1538 > > |> from_std_string
00:00:36 verbose #1539 > > | _ => fun () => null ()
00:00:36 verbose #1540 > >
00:00:36 verbose #1541 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1542 > > //// test
00:00:36 verbose #1543 > >
00:00:36 verbose #1544 > > " 123"
00:00:36 verbose #1545 > > |> replace_regex "\\s\\w2" ""
00:00:36 verbose #1546 > > |> _assert_eq "3"
00:00:36 verbose #1547 > >
00:00:36 verbose #1548 > > ╭─[ 50.90ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:36 verbose #1549 > > │ assert_eq / actual: "3" / expected: "3" │
00:00:36 verbose #1550 > > │ │
00:00:36 verbose #1551 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:36 verbose #1552 > >
00:00:36 verbose #1553 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:36 verbose #1554 > > //// test
00:00:36 verbose #1555 > > ///! rust -d regex
00:00:36 verbose #1556 > >
00:00:36 verbose #1557 > > types ()
00:00:36 verbose #1558 > > " 123"
00:00:36 verbose #1559 > > |> replace_regex "\\s\\w2" ""
00:00:36 verbose #1560 > > |> _assert_eq "3"
00:00:39 verbose #1561 > >
00:00:39 verbose #1562 > > ╭─[ 3.57s - return value ]─────────────────────────────────────────────────────╮
00:00:39 verbose #1563 > > │ assert_eq / actual: "3" / expected: "3" │
00:00:39 verbose #1564 > > │ │
00:00:39 verbose #1565 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:39 verbose #1566 > >
00:00:39 verbose #1567 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:39 verbose #1568 > > //// test
00:00:39 verbose #1569 > > ///! rust -d regex
00:00:39 verbose #1570 > >
00:00:39 verbose #1571 > > types ()
00:00:39 verbose #1572 > > " let main args =\n ()\n"
00:00:39 verbose #1573 > > |> replace_regex $'@@"(?P<a> *)(?P<b>let\\s+main\\s+.*?\\s*=)"'
00:00:39 verbose #1574 > > "$a[[<EntryPoint>]]\n$a$b"
00:00:39 verbose #1575 > > |> _assert_eq " [[<EntryPoint>]]\n let main args =\n ()\n"
00:00:43 verbose #1576 > >
00:00:43 verbose #1577 > > ╭─[ 3.45s - return value ]─────────────────────────────────────────────────────╮
00:00:43 verbose #1578 > > │ assert_eq / actual: " [<EntryPoint>] │
00:00:43 verbose #1579 > > │ let main args = │
00:00:43 verbose #1580 > > │ () │
00:00:43 verbose #1581 > > │ " / expected: " [<EntryPoint>] │
00:00:43 verbose #1582 > > │ let main args = │
00:00:43 verbose #1583 > > │ () │
00:00:43 verbose #1584 > > │ " │
00:00:43 verbose #1585 > > │ │
00:00:43 verbose #1586 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1587 > >
00:00:43 verbose #1588 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1589 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1590 > > │ ### write_all_text │
00:00:43 verbose #1591 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1592 > >
00:00:43 verbose #1593 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1594 > > inl write_all_text (path : string) (text : string) : () =
00:00:43 verbose #1595 > > run_target function
00:00:43 verbose #1596 > > | Fsharp (Native) => fun () =>
00:00:43 verbose #1597 > > inl text = join text
00:00:43 verbose #1598 > > $'System.IO.File.WriteAllText (!path, !text)'
00:00:43 verbose #1599 > > | Rust (Native) => fun () =>
00:00:43 verbose #1600 > > open rust_operators
00:00:43 verbose #1601 > > !\\((path, text), $'"std::fs::write(&*$0, &*$1).unwrap()"')
00:00:43 verbose #1602 > > | _ => fun () => null ()
00:00:43 verbose #1603 > >
00:00:43 verbose #1604 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1605 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1606 > > │ ## main │
00:00:43 verbose #1607 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1608 > >
00:00:43 verbose #1609 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1610 > > inl main () =
00:00:43 verbose #1611 > > types ()
00:00:43 verbose #1612 > > $'let contains x = !contains x' : ()
00:00:43 verbose #1613 > > $'let ends_with x = !ends_with x' : ()
00:00:43 verbose #1614 > > $'let pad_left x = !pad_left x' : ()
00:00:43 verbose #1615 > > $'let pad_right x = !pad_right x' : ()
00:00:43 verbose #1616 > > $'let replace x = !replace x' : ()
00:00:43 verbose #1617 > > $'let replace_regex x = !replace_regex x' : ()
00:00:43 verbose #1618 > > inl slice (a : i32) (b : i32) c = slice a b c
00:00:43 verbose #1619 > > $'let slice x = !slice x' : ()
00:00:43 verbose #1620 > > $'let split x = !split x' : ()
00:00:43 verbose #1621 > > $'let split_string x = !split_string x' : ()
00:00:43 verbose #1622 > > $'let starts_with x = !starts_with x' : ()
00:00:43 verbose #1623 > > $'let substring x = !substring x' : ()
00:00:43 verbose #1624 > > $'let to_lower x = !to_lower x' : ()
00:00:43 verbose #1625 > > $'let to_upper x = !to_upper x' : ()
00:00:43 verbose #1626 > > $'let trim x = !trim x' : ()
00:00:43 verbose #1627 > > $'let trim_end x = !trim_end x' : ()
00:00:43 verbose #1628 > > $'let trim_start x = !trim_start x' : ()
00:00:43 verbose #1629 > > $'let ellipsis x = !ellipsis x' : ()
00:00:43 verbose #1630 > > $'let ellipsis_end x = !ellipsis_end x' : ()
00:00:43 verbose #1631 > > $'let format_exception x = !format_exception x' : ()
00:00:43 verbose #1632 > > $'let concat_array_trailing x = !concat_array_trailing x' : ()
00:00:43 verbose #1633 > > inl concat a (b : seq.seq' string) = concat a b
00:00:43 verbose #1634 > > $'let concat x = !concat x' : ()
00:00:43 verbose #1635 > > $'let join\' x = !join' x' : ()
00:00:43 verbose #1636 > > $'let to_char_array x = !to_char_array x' : ()
00:00:43 verbose #1637 > >
00:00:43 verbose #1638 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 verbose #1639 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 verbose #1640 > > │ ## to_string std_string │
00:00:43 verbose #1641 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 verbose #1642 > >
00:00:43 verbose #1643 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 verbose #1644 > > open rust
00:00:43 verbose #1645 > > instance to_string std_string = from_std_string
00:00:44 verbose #1646 > 00:00:41 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 81077
00:00:44 verbose #1647 > 00:00:41 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:46 verbose #1648 > 00:00:43 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/sm'.dib.ipynb to html
00:00:46 verbose #1649 > 00:00:43 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:46 verbose #1650 > 00:00:43 verbose #7 ! validate(nb)
00:00:49 verbose #1651 > 00:00:46 verbose #8 ! [NbConvertApp] Writing 516797 bytes to c:\home\git\polyglot\lib\spiral\sm'.dib.html
00:00:49 verbose #1652 > 00:00:46 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:00:49 verbose #1653 > 00:00:46 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:00:49 verbose #1654 > 00:00:46 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/sm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/sm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:50 verbose #1655 > 00:00:47 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:50 verbose #1656 > 00:00:47 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:51 verbose #1657 > 00:00:48 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 81773
00:00:51 debug #1658 runtime.execute_with_options_async / exit_code: 0 / output.Length: 87277
00:00:51 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path sm'.dib --retries 3
00:00:51 debug #1659 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path rust.dib --retries 3",
[||], None, None, true, None)
00:00:51 verbose #1660 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "rust.dib", "--retries", "3"])
00:00:51 verbose #1661 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/rust.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/rust.dib" --output-path "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:53 verbose #1662 > >
00:00:53 verbose #1663 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 verbose #1664 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 verbose #1665 > > │ # rust │
00:00:53 verbose #1666 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 verbose #1667 > >
00:00:53 verbose #1668 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 verbose #1669 > > //// test
00:00:53 verbose #1670 > >
00:00:53 verbose #1671 > > open testing
00:00:53 verbose #1672 > >
00:00:53 verbose #1673 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:53 verbose #1674 > > #r
00:00:53 verbose #1675 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:53 verbose #1676 > > otNet.Interactive.Spiral.dll"
00:00:53 verbose #1677 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:53 verbose #1678 > > #r
00:00:53 verbose #1679 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:53 verbose #1680 > > otNet.Interactive.dll"
00:00:53 verbose #1681 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:58 verbose #1682 > >
00:00:58 verbose #1683 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1684 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1685 > > │ ## types │
00:00:58 verbose #1686 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1687 > >
00:00:58 verbose #1688 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1689 > > inl types () =
00:00:58 verbose #1690 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1691 > > Fable.Core.Emit(\"core::any::Any\")>]]\n#endif\ntype core_any_Any = class end"
00:00:58 verbose #1692 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1693 > > Fable.Core.Emit(\"_\")>]]\n#endif\ntype core_ops_Try<'T> = class end"
00:00:58 verbose #1694 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1695 > > Fable.Core.Emit(\"Func0<$0>\")>]]\n#endif\ntype Func0<'T> = class end"
00:00:58 verbose #1696 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"Func1<$0,
00:00:58 verbose #1697 > > $1>\")>]]\n#endif\ntype Func0<'T, 'U> = class end"
00:00:58 verbose #1698 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1699 > > Fable.Core.Emit(\"Box<$0>\")>]]\n#endif\ntype Box<'T> = class end"
00:00:58 verbose #1700 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"dyn
00:00:58 verbose #1701 > > $0\")>]]\n#endif\ntype Dyn<'T> = class end"
00:00:58 verbose #1702 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1703 > > Fable.Core.Emit(\"Send\")>]]\n#endif\ntype Send<'T> = class end"
00:00:58 verbose #1704 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn() ->
00:00:58 verbose #1705 > > $0\")>]]\n#endif\ntype Fn<'T> = class end"
00:00:58 verbose #1706 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1707 > > Fable.Core.Emit(\"Fn()\")>]]\n#endif\ntype FnUnit = class end"
00:00:58 verbose #1708 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"FnOnce()
00:00:58 verbose #1709 > > -> $0\")>]]\n#endif\ntype FnOnce<'T> = class end"
00:00:58 verbose #1710 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1711 > > Fable.Core.Emit(\"Fn($0)\")>]]\n#endif\ntype ActionFn<'T> = class end"
00:00:58 verbose #1712 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn($0,
00:00:58 verbose #1713 > > $1)\")>]]\n#endif\ntype ActionFn2<'T, 'U> = class end"
00:00:58 verbose #1714 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"impl
00:00:58 verbose #1715 > > $0\")>]]\n#endif\ntype Impl<'T> = class end"
00:00:58 verbose #1716 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"mut
00:00:58 verbose #1717 > > $0\")>]]\n#endif\ntype Mut<'T> = class end"
00:00:58 verbose #1718 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1719 > > Fable.Core.Emit(\"&$0\")>]]\n#endif\ntype Ref<'T> = class end"
00:00:58 verbose #1720 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"$0 +
00:00:58 verbose #1721 > > $1\")>]]\n#endif\ntype LifetimeJoin<'T, 'U> = class end"
00:00:58 verbose #1722 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1723 > > Fable.Core.Emit(\"'static\")>]]\n#endif\ntype StaticLifetime = class end"
00:00:58 verbose #1724 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1725 > > Fable.Core.Emit(\"$0\")>]]\n#endif\ntype LifetimeRef<'T> = class end"
00:00:58 verbose #1726 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase; Fable.Core.Emit(\"$0
00:00:58 verbose #1727 > > $1\")>]]\n#endif\ntype Lifetime<'T, 'U> = class end"
00:00:58 verbose #1728 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1729 > > Fable.Core.Emit(\"MutCell<$0>\")>]]\n#endif\ntype MutCell<'T> = class end"
00:00:58 verbose #1730 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1731 > > Fable.Core.Emit(\"std::any::Any\")>]]\n#endif\ntype std_any_Any = class end"
00:00:58 verbose #1732 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1733 > > Fable.Core.Emit(\"std::borrow::Cow<$0>\")>]]\n#endif\ntype std_borrow_Cow<'T> =
00:00:58 verbose #1734 > > class end"
00:00:58 verbose #1735 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1736 > > Fable.Core.Emit(\"std::cell::RefCell<$0>\")>]]\n#endif\ntype
00:00:58 verbose #1737 > > std_cell_RefCell<'T> = class end"
00:00:58 verbose #1738 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1739 > > Fable.Core.Emit(\"std::pin::Pin<$0>\")>]]\n#endif\ntype std_pin_Pin<'T> = class
00:00:58 verbose #1740 > > end"
00:00:58 verbose #1741 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1742 > > Fable.Core.Emit(\"std::rc::Rc<$0>\")>]]\n#endif\ntype std_rc_Rc<'T> = class end"
00:00:58 verbose #1743 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:00:58 verbose #1744 > > Fable.Core.Emit(\"std::rc::Weak<$0>\")>]]\n#endif\ntype std_rc_Weak<'T> = class
00:00:58 verbose #1745 > > end"
00:00:58 verbose #1746 > >
00:00:58 verbose #1747 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1748 > > inl types () =
00:00:58 verbose #1749 > > backend_switch {
00:00:58 verbose #1750 > > Fsharp = fun () =>
00:00:58 verbose #1751 > > types ()
00:00:58 verbose #1752 > > Python = fun () => ()
00:00:58 verbose #1753 > > }
00:00:58 verbose #1754 > >
00:00:58 verbose #1755 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1756 > > nominal unit = $'unit'
00:00:58 verbose #1757 > > nominal any = $'core_any_Any'
00:00:58 verbose #1758 > > nominal try t = $'core_ops_Try<`t>'
00:00:58 verbose #1759 > > nominal cow t = $'std_borrow_Cow<`t>'
00:00:58 verbose #1760 > > nominal ref_cell t = $'std_cell_RefCell<`t>'
00:00:58 verbose #1761 > > nominal rc t = $'std_rc_Rc<`t>'
00:00:58 verbose #1762 > > nominal lifetime_join' (t : * -> *) u = $'LifetimeRef<`(t u)>'
00:00:58 verbose #1763 > > nominal lifetime_join t u = $'LifetimeJoin<`t, `u>'
00:00:58 verbose #1764 > > nominal lifetime t u = $'Lifetime<`t, `u>'
00:00:58 verbose #1765 > > nominal static_lifetime = $'StaticLifetime'
00:00:58 verbose #1766 > > nominal ref t = $'Ref<`t>'
00:00:58 verbose #1767 > > nominal static_ref t = ref (lifetime static_lifetime t)
00:00:58 verbose #1768 > > nominal weak_rc t = $'std_rc_Weak<`t>'
00:00:58 verbose #1769 > > nominal box t = $'Box<`t>'
00:00:58 verbose #1770 > > nominal mut_cell t = $'MutCell<`t>'
00:00:58 verbose #1771 > > nominal pin t = $'std_pin_Pin<`t>'
00:00:58 verbose #1772 > > nominal dyn' t = $'Dyn<`t>'
00:00:58 verbose #1773 > > nominal fn' t = $'Fn<`t>'
00:00:58 verbose #1774 > > nominal action_fn t = $'ActionFn<`t>'
00:00:58 verbose #1775 > > nominal action_fn2 t u = $'ActionFn2<`t, `u>'
00:00:58 verbose #1776 > > nominal fn_once t = $'FnOnce<`t>'
00:00:58 verbose #1777 > > nominal fn_unit = $'FnUnit'
00:00:58 verbose #1778 > > nominal func0 t = $'Func0<`t>'
00:00:58 verbose #1779 > > nominal func1 t u =
00:00:58 verbose #1780 > > `(
00:00:58 verbose #1781 > > typecase t with
00:00:58 verbose #1782 > > | () => `func0 `u
00:00:58 verbose #1783 > > | _ => $'' : $'Func0<`t, `u>'
00:00:58 verbose #1784 > > )
00:00:58 verbose #1785 > > nominal impl t = $'Impl<`t>'
00:00:58 verbose #1786 > > nominal mut' t = $'Mut<`t>'
00:00:58 verbose #1787 > > nominal ref' t = $'Ref<`t>'
00:00:58 verbose #1788 > > nominal send t = lifetime_join t $'Send<`t>'
00:00:58 verbose #1789 > >
00:00:58 verbose #1790 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1791 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1792 > > │ ## emit_expr │
00:00:58 verbose #1793 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1794 > >
00:00:58 verbose #1795 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1796 > > inl emit_expr forall a t. (args : a) (code : string) : t =
00:00:58 verbose #1797 > > real
00:00:58 verbose #1798 > > $'Fable.Core.RustInterop.emitRustExpr !args !code ' : t
00:00:58 verbose #1799 > >
00:00:58 verbose #1800 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1801 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1802 > > │ ## (~!\\) │
00:00:58 verbose #1803 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1804 > >
00:00:58 verbose #1805 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1806 > > inl (~!\) forall t. (code : string) : t =
00:00:58 verbose #1807 > > emit_expr () code
00:00:58 verbose #1808 > >
00:00:58 verbose #1809 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1810 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1811 > > │ ## (~!\\\\) │
00:00:58 verbose #1812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1813 > >
00:00:58 verbose #1814 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1815 > > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:00:58 verbose #1816 > > emit_expr args code
00:00:58 verbose #1817 > >
00:00:58 verbose #1818 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1819 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1820 > > │ ## emit │
00:00:58 verbose #1821 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1822 > >
00:00:58 verbose #1823 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1824 > > inl emit forall t. (x : t) : t =
00:00:58 verbose #1825 > > !\\(x, $'"$0"')
00:00:58 verbose #1826 > >
00:00:58 verbose #1827 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1828 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1829 > > │ ## emit' │
00:00:58 verbose #1830 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1831 > >
00:00:58 verbose #1832 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1833 > > inl emit' forall t. (x : t) : t =
00:00:58 verbose #1834 > > !\\(x, $'"let !x = $0"')
00:00:58 verbose #1835 > > x
00:00:58 verbose #1836 > >
00:00:58 verbose #1837 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1838 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1839 > > │ ## clone │
00:00:58 verbose #1840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1841 > >
00:00:58 verbose #1842 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1843 > > inl clone forall t. (x : t) : t =
00:00:58 verbose #1844 > > !\\(x, $'"$0.clone()"')
00:00:58 verbose #1845 > >
00:00:58 verbose #1846 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1847 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1848 > > │ ## dbg │
00:00:58 verbose #1849 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1850 > >
00:00:58 verbose #1851 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1852 > > inl dbg forall t. (x : t) : t =
00:00:58 verbose #1853 > > !\\(x, $'"dbg\!($0)"')
00:00:58 verbose #1854 > >
00:00:58 verbose #1855 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1856 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1857 > > │ ## new_box │
00:00:58 verbose #1858 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1859 > >
00:00:58 verbose #1860 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1861 > > inl new_box forall t. (x : t) : box t =
00:00:58 verbose #1862 > > !\\(x, $'"Box::new($0)"')
00:00:58 verbose #1863 > >
00:00:58 verbose #1864 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1865 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1866 > > │ ## new_rc │
00:00:58 verbose #1867 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1868 > >
00:00:58 verbose #1869 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1870 > > inl new_rc forall t. (x : t) : rc t =
00:00:58 verbose #1871 > > !\\(x, $'"std::rc::Rc::new($0)"')
00:00:58 verbose #1872 > >
00:00:58 verbose #1873 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1874 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1875 > > │ ## rc_clone │
00:00:58 verbose #1876 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1877 > >
00:00:58 verbose #1878 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1879 > > inl rc_clone forall t. (x : rc t) : rc t =
00:00:58 verbose #1880 > > !\\(x, $'"std::rc::Rc::clone(&$0)"')
00:00:58 verbose #1881 > >
00:00:58 verbose #1882 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1883 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1884 > > │ ## rc_unwrap_or_clone │
00:00:58 verbose #1885 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1886 > >
00:00:58 verbose #1887 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1888 > > inl rc_unwrap_or_clone forall t. (x : rc t) : t =
00:00:58 verbose #1889 > > !\\(x, $'"std::rc::Rc::unwrap_or_clone($0)"')
00:00:58 verbose #1890 > >
00:00:58 verbose #1891 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1892 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1893 > > │ ## rc_downgrade │
00:00:58 verbose #1894 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1895 > >
00:00:58 verbose #1896 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1897 > > inl rc_downgrade forall t. (x : rc t) : weak_rc t =
00:00:58 verbose #1898 > > inl x = join x
00:00:58 verbose #1899 > > !\($'"std::rc::Rc::downgrade(&!x)"')
00:00:58 verbose #1900 > >
00:00:58 verbose #1901 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1902 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1903 > > │ ## new_ref_cell │
00:00:58 verbose #1904 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1905 > >
00:00:58 verbose #1906 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1907 > > inl new_ref_cell forall t. (x : t) : ref_cell t =
00:00:58 verbose #1908 > > inl x = join x
00:00:58 verbose #1909 > > !\($'"std::cell::RefCell::new(!x)"')
00:00:58 verbose #1910 > >
00:00:58 verbose #1911 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1912 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1913 > > │ ## ref_cell_borrow │
00:00:58 verbose #1914 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1915 > >
00:00:58 verbose #1916 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1917 > > inl ref_cell_borrow forall t. (x : rc (ref_cell t)) : t =
00:00:58 verbose #1918 > > inl x = join x
00:00:58 verbose #1919 > > !\($'"*std::cell::RefCell::borrow(&std::rc::Rc::clone(&!x))"')
00:00:58 verbose #1920 > >
00:00:58 verbose #1921 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1922 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1923 > > │ ## ref_cell_borrow_mut │
00:00:58 verbose #1924 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1925 > >
00:00:58 verbose #1926 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1927 > > inl ref_cell_borrow_mut forall t. (x : rc (ref_cell t)) : mut' t =
00:00:58 verbose #1928 > > inl x = join x
00:00:58 verbose #1929 > > !\($'"*std::cell::RefCell::borrow_mut(&std::rc::Rc::clone(&!x))"')
00:00:58 verbose #1930 > >
00:00:58 verbose #1931 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1932 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1933 > > │ ## to_mut │
00:00:58 verbose #1934 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1935 > >
00:00:58 verbose #1936 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1937 > > inl to_mut forall t. (x : t) : t =
00:00:58 verbose #1938 > > (!\($'"true; // 1"') : bool) |> ignore
00:00:58 verbose #1939 > > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:00:58 verbose #1940 > > (!\($'"true; !x"') : bool) |> ignore
00:00:58 verbose #1941 > > !\($'"!x"')
00:00:58 verbose #1942 > > // inl result = !\($'"!x"') : mut' t
00:00:58 verbose #1943 > > // !\($'"!result"')
00:00:58 verbose #1944 > > // inl result = !\($'"*/ // a"') : mut' t
00:00:58 verbose #1945 > > // inl result = !\($'"!x"') : mut' t
00:00:58 verbose #1946 > > // result |> fun x => $'!x |> unbox // b'
00:00:58 verbose #1947 > >
00:00:58 verbose #1948 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1949 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1950 > > │ ## ref_map │
00:00:58 verbose #1951 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1952 > >
00:00:58 verbose #1953 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1954 > > inl ref_map forall t u. (fn : t -> u) (x : ref' t) : ref' u =
00:00:58 verbose #1955 > > !\($'"!fn(!x)"')
00:00:58 verbose #1956 > >
00:00:58 verbose #1957 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1958 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1959 > > │ ## ref_invoke │
00:00:58 verbose #1960 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1961 > >
00:00:58 verbose #1962 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1963 > > inl ref_invoke forall t u. (fn : t -> u) (ref : ref' t) : u =
00:00:58 verbose #1964 > > !\\(fn, $'"$0(!ref.clone())"')
00:00:58 verbose #1965 > >
00:00:58 verbose #1966 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1967 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1968 > > │ ## cow_as_ref │
00:00:58 verbose #1969 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1970 > >
00:00:58 verbose #1971 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1972 > > inl cow_as_ref forall t. (s : cow t) : ref' t =
00:00:58 verbose #1973 > > !\\(s, $'"$0.as_ref()"')
00:00:58 verbose #1974 > >
00:00:58 verbose #1975 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1976 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1977 > > │ ## from_mut │
00:00:58 verbose #1978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1979 > >
00:00:58 verbose #1980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1981 > > inl from_mut forall t. (x : mut' t) : t =
00:00:58 verbose #1982 > > !\($'"!x"')
00:00:58 verbose #1983 > >
00:00:58 verbose #1984 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1985 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1986 > > │ ## box_fn │
00:00:58 verbose #1987 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1988 > >
00:00:58 verbose #1989 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #1990 > > inl box_fn forall t. (x : () -> ()) : box t =
00:00:58 verbose #1991 > > inl x = join x
00:00:58 verbose #1992 > > !\($'"Box::new(move || !x())"')
00:00:58 verbose #1993 > >
00:00:58 verbose #1994 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #1995 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #1996 > > │ ## box_pin │
00:00:58 verbose #1997 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #1998 > >
00:00:58 verbose #1999 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2000 > > inl box_pin forall t. (x : t) : pin (box t) =
00:00:58 verbose #2001 > > inl x = join x
00:00:58 verbose #2002 > > !\($'"Box::pin(!x)"')
00:00:58 verbose #2003 > >
00:00:58 verbose #2004 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2005 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2006 > > │ ## to_ref │
00:00:58 verbose #2007 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2008 > >
00:00:58 verbose #2009 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2010 > > inl to_ref forall t. (x : t) : ref' t =
00:00:58 verbose #2011 > > !\\(x, $'"&$0"')
00:00:58 verbose #2012 > >
00:00:58 verbose #2013 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2014 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2015 > > │ ## deref │
00:00:58 verbose #2016 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2017 > >
00:00:58 verbose #2018 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2019 > > inl deref forall t. (ref : ref' t) : t =
00:00:58 verbose #2020 > > !\\(ref, $'"*$0"')
00:00:58 verbose #2021 > >
00:00:58 verbose #2022 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2023 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2024 > > │ ## ops_deref │
00:00:58 verbose #2025 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2026 > >
00:00:58 verbose #2027 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2028 > > inl ops_deref forall t. (ref : t) : t =
00:00:58 verbose #2029 > > inl ref = join ref
00:00:58 verbose #2030 > > !\($'"core::ops::Deref::deref(&!ref)"')
00:00:58 verbose #2031 > >
00:00:58 verbose #2032 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2033 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2034 > > │ ## func0_invoke │
00:00:58 verbose #2035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2036 > >
00:00:58 verbose #2037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2038 > > inl func0_invoke forall t. (x : func0 t) : t =
00:00:58 verbose #2039 > > !\\(x, $'"$0()"')
00:00:58 verbose #2040 > >
00:00:58 verbose #2041 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2042 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2043 > > │ ## func0_move │
00:00:58 verbose #2044 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2045 > >
00:00:58 verbose #2046 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2047 > > inl func0_move forall t. (fn : func0 t) : t =
00:00:58 verbose #2048 > > inl fn = join fn
00:00:58 verbose #2049 > > !\($'"(move || !fn())()"')
00:00:58 verbose #2050 > >
00:00:58 verbose #2051 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2052 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2053 > > │ ## move │
00:00:58 verbose #2054 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2055 > >
00:00:58 verbose #2056 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2057 > > inl move forall t. (fn : () -> t) : func0 t =
00:00:58 verbose #2058 > > !\\(fn, $'"Func0::new(move || $0())"')
00:00:58 verbose #2059 > >
00:00:58 verbose #2060 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2061 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2062 > > │ ## to_static_ref_unbox │
00:00:58 verbose #2063 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2064 > >
00:00:58 verbose #2065 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2066 > > inl to_static_ref_unbox forall t. (x : ref' t) : static_ref t =
00:00:58 verbose #2067 > > x |> unbox
00:00:58 verbose #2068 > >
00:00:58 verbose #2069 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2070 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2071 > > │ ## from_static_ref_unbox │
00:00:58 verbose #2072 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2073 > >
00:00:58 verbose #2074 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2075 > > inl from_static_ref_unbox forall t. (x : static_ref t) : ref' t =
00:00:58 verbose #2076 > > x |> unbox
00:00:58 verbose #2077 > >
00:00:58 verbose #2078 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2079 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2080 > > │ ## box_leak │
00:00:58 verbose #2081 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2082 > >
00:00:58 verbose #2083 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2084 > > inl box_leak forall t. (x : box t) : static_ref (mut' t) =
00:00:58 verbose #2085 > > !\\(x, $'"Box::leak($0)"')
00:00:58 verbose #2086 > >
00:00:58 verbose #2087 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2088 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2089 > > │ ## drop │
00:00:58 verbose #2090 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2091 > >
00:00:58 verbose #2092 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2093 > > inl drop forall t. (x : t) : () =
00:00:58 verbose #2094 > > !\\(x, $'"drop($0)"')
00:00:58 verbose #2095 > >
00:00:58 verbose #2096 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 verbose #2097 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 verbose #2098 > > │ ## break │
00:00:58 verbose #2099 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 verbose #2100 > >
00:00:58 verbose #2101 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 verbose #2102 > > inl break () : () =
00:00:58 verbose #2103 > > (!\($'"true; break"') : bool) |> ignore
00:00:59 verbose #2104 > >
00:00:59 verbose #2105 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #2106 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #2107 > > │ ## fix_closure' │
00:00:59 verbose #2108 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2109 > >
00:00:59 verbose #2110 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2111 > > inl fix_closure' (depth : u8 * u8) x =
00:00:59 verbose #2112 > > inl rec loop text (acc : string) n : string =
00:00:59 verbose #2113 > > if n <= 0
00:00:59 verbose #2114 > > then acc
00:00:59 verbose #2115 > > else loop text (acc +. text) (n - 1)
00:00:59 verbose #2116 > > inl a = depth |> fst |> loop "}" ""
00:00:59 verbose #2117 > > inl b = depth |> snd |> loop "{" ""
00:00:59 verbose #2118 > > $'"!x " + !a + "); " + !b + " //"'
00:00:59 verbose #2119 > >
00:00:59 verbose #2120 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2121 > > //// test
00:00:59 verbose #2122 > >
00:00:59 verbose #2123 > > fix_closure' (3, 2) 0i32
00:00:59 verbose #2124 > > |> _assert_eq "0 }}}); {{ //"
00:00:59 verbose #2125 > >
00:00:59 verbose #2126 > > ╭─[ 735.23ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 verbose #2127 > > │ assert_eq / actual: "0 }}}); {{ //" / expected: "0 }}}); {{ //" │
00:00:59 verbose #2128 > > │ │
00:00:59 verbose #2129 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2130 > >
00:00:59 verbose #2131 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2132 > > //// test
00:00:59 verbose #2133 > >
00:00:59 verbose #2134 > > fix_closure' (0, 0) ()
00:00:59 verbose #2135 > > |> _assert_eq "() ); //"
00:00:59 verbose #2136 > >
00:00:59 verbose #2137 > > ╭─[ 42.44ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:59 verbose #2138 > > │ assert_eq / actual: "() ); //" / expected: "() ); //" │
00:00:59 verbose #2139 > > │ │
00:00:59 verbose #2140 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2141 > >
00:00:59 verbose #2142 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #2143 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #2144 > > │ ## fix_closure │
00:00:59 verbose #2145 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2146 > >
00:00:59 verbose #2147 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2148 > > inl fix_closure depth x =
00:00:59 verbose #2149 > > inl code = fix_closure' depth x
00:00:59 verbose #2150 > > !\code
00:00:59 verbose #2151 > >
00:00:59 verbose #2152 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #2153 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #2154 > > │ ## loop │
00:00:59 verbose #2155 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2156 > >
00:00:59 verbose #2157 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2158 > > inl loop (depth : i32) (fn : () -> ()) : () =
00:00:59 verbose #2159 > > (!\($'"true; loop { // rust.loop"') : bool) |> ignore
00:00:59 verbose #2160 > > fn ()
00:00:59 verbose #2161 > >
00:00:59 verbose #2162 > > listm.init depth id
00:00:59 verbose #2163 > > |> listm.iter fun n =>
00:00:59 verbose #2164 > > (!\($'"true; } // rust.loop"') : bool) |> ignore
00:00:59 verbose #2165 > >
00:00:59 verbose #2166 > > (!\($'"true; } // rust.loop"') : bool) |> ignore
00:00:59 verbose #2167 > >
00:00:59 verbose #2168 > > listm.init depth id
00:00:59 verbose #2169 > > |> listm.iter fun n =>
00:00:59 verbose #2170 > > (!\($'"true; { // rust.loop"') : bool) |> ignore
00:00:59 verbose #2171 > >
00:00:59 verbose #2172 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #2173 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #2174 > > │ ## run_tests │
00:00:59 verbose #2175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2176 > >
00:00:59 verbose #2177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2178 > > inl run_tests tests =
00:00:59 verbose #2179 > > (!\($'"true; () //"') : bool) |> ignore
00:00:59 verbose #2180 > >
00:00:59 verbose #2181 > > tests
00:00:59 verbose #2182 > > |> listm.iter fun name, fn =>
00:00:59 verbose #2183 > > !\($'"} /* /*"')
00:00:59 verbose #2184 > > (!\($'$"*/ #[[test]] fn " + !name + "() { //"') : bool) |> ignore
00:00:59 verbose #2185 > > fn name |> ignore
00:00:59 verbose #2186 > >
00:00:59 verbose #2187 > > tests
00:00:59 verbose #2188 > > |> listm.iter fun name, fn =>
00:00:59 verbose #2189 > > !\($'"{ //"') : ()
00:00:59 verbose #2190 > >
00:00:59 verbose #2191 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #2192 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #2193 > > │ ## capture │
00:00:59 verbose #2194 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2195 > >
00:00:59 verbose #2196 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2197 > > inl capture forall t. (fn : () -> t) : t =
00:00:59 verbose #2198 > > (!\($'"true; let _result = (|| { //"') : bool) |> ignore
00:00:59 verbose #2199 > > (!\\(fn (), $'"true; $0 })()"') : bool) |> ignore
00:00:59 verbose #2200 > > !\($'"_result"')
00:00:59 verbose #2201 > >
00:00:59 verbose #2202 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 verbose #2203 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 verbose #2204 > > │ ## capture_move │
00:00:59 verbose #2205 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 verbose #2206 > >
00:00:59 verbose #2207 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 verbose #2208 > > inl capture_move forall t. (fn : () -> t) : t =
00:00:59 verbose #2209 > > (!\($'"true; let _result = (move || { //"') : bool) |> ignore
00:00:59 verbose #2210 > > (!\\(fn (), $'"true; $0 })()"') : bool) |> ignore
00:00:59 verbose #2211 > > !\($'"_result"')
00:01:00 verbose #2212 > 00:00:08 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 27371
00:01:00 verbose #2213 > 00:00:08 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/rust.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:02 verbose #2214 > 00:00:11 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/rust.dib.ipynb to html
00:01:02 verbose #2215 > 00:00:11 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:02 verbose #2216 > 00:00:11 verbose #7 ! validate(nb)
00:01:04 verbose #2217 > 00:00:13 verbose #8 ! [NbConvertApp] Writing 363842 bytes to c:\home\git\polyglot\lib\spiral\rust.dib.html
00:01:05 verbose #2218 > 00:00:13 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:01:05 verbose #2219 > 00:00:13 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:01:05 verbose #2220 > 00:00:13 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/rust.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/rust.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:06 verbose #2221 > 00:00:15 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:06 verbose #2222 > 00:00:15 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:06 verbose #2223 > 00:00:15 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 28069
00:01:06 debug #2224 runtime.execute_with_options_async / exit_code: 0 / output.Length: 31408
00:01:06 debug #4 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path rust.dib --retries 3
00:01:06 debug #2225 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path testing.dib --retries 3",
[||], None, None, true, None)
00:01:06 verbose #2226 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "testing.dib", "--retries", "3"])
00:01:06 verbose #2227 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/testing.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/testing.dib" --output-path "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:09 verbose #2228 > >
00:01:09 verbose #2229 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:09 verbose #2230 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:09 verbose #2231 > > │ # testing │
00:01:09 verbose #2232 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #2233 > >
00:01:09 verbose #2234 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:09 verbose #2235 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:09 verbose #2236 > > │ ## __expect │
00:01:09 verbose #2237 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:09 verbose #2238 > >
00:01:09 verbose #2239 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:09 verbose #2240 > > inl __expect fn log name b a =
00:01:09 verbose #2241 > > inl result = fn a b
00:01:09 verbose #2242 > > inl result =
00:01:09 verbose #2243 > > result || join result
00:01:09 verbose #2244 > > if log |> not
00:01:09 verbose #2245 > > then "__expect"
00:01:09 verbose #2246 > > else
00:01:09 verbose #2247 > > inl text =
00:01:09 verbose #2248 > > backend_switch {
00:01:09 verbose #2249 > > Fsharp = fun () => $'$"{!name} / actual: %A{!a} / expected:
00:01:09 verbose #2250 > > %A{!b}"' : string
00:01:09 verbose #2251 > > Python = fun () => $'f"{!name} / actual: {!a} / expected: {!b}"'
00:01:09 verbose #2252 > > : string
00:01:09 verbose #2253 > > }
00:01:09 verbose #2254 > > text |> console.write_line
00:01:09 verbose #2255 > > text
00:01:09 verbose #2256 > > |> assert result
00:01:09 verbose #2257 > >
00:01:09 verbose #2258 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:01:09 verbose #2259 > > #r
00:01:09 verbose #2260 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:09 verbose #2261 > > otNet.Interactive.Spiral.dll"
00:01:09 verbose #2262 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:01:09 verbose #2263 > > #r
00:01:09 verbose #2264 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:09 verbose #2265 > > otNet.Interactive.dll"
00:01:09 verbose #2266 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:14 verbose #2267 > >
00:01:14 verbose #2268 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:14 verbose #2269 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:14 verbose #2270 > > │ ## __assert_approx_eq │
00:01:14 verbose #2271 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:14 verbose #2272 > >
00:01:14 verbose #2273 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:14 verbose #2274 > > inl __assert_approx_eq log e b a = __expect (fun a b => abs (b - a) < (e |>
00:01:14 verbose #2275 > > optionm.defaultWith 0.00000001)) log "assert_approx_eq" b a
00:01:14 verbose #2276 > > inl _assert_approx_eq e b a = __assert_approx_eq true e b a
00:01:14 verbose #2277 > >
00:01:14 verbose #2278 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:14 verbose #2279 > > //// test
00:01:14 verbose #2280 > > ///! fsharp
00:01:14 verbose #2281 > > ///! cuda
00:01:14 verbose #2282 > > ///! rust
00:01:14 verbose #2283 > > ///! typescript
00:01:14 verbose #2284 > > ///! python
00:01:14 verbose #2285 > >
00:01:14 verbose #2286 > > 12.345f64
00:01:14 verbose #2287 > > |> _assert_approx_eq (Some 0.0001f64) 12.345f64
00:01:21 verbose #2288 > >
00:01:21 verbose #2289 > > ╭─[ 6.77s - return value ]─────────────────────────────────────────────────────╮
00:01:21 verbose #2290 > > │ .py output (Cuda): │
00:01:21 verbose #2291 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:01:21 verbose #2292 > > │ │
00:01:21 verbose #2293 > > │ .rs output: │
00:01:21 verbose #2294 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:01:21 verbose #2295 > > │ │
00:01:21 verbose #2296 > > │ .ts output: │
00:01:21 verbose #2297 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:01:21 verbose #2298 > > │ │
00:01:21 verbose #2299 > > │ .py output: │
00:01:21 verbose #2300 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:01:21 verbose #2301 > > │ │
00:01:21 verbose #2302 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2303 > >
00:01:21 verbose #2304 > > ╭─[ 6.78s - stdout ]───────────────────────────────────────────────────────────╮
00:01:21 verbose #2305 > > │ .fsx output: │
00:01:21 verbose #2306 > > │ assert_approx_eq / actual: 12.345 / expected: 12.345 │
00:01:21 verbose #2307 > > │ │
00:01:21 verbose #2308 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2309 > >
00:01:21 verbose #2310 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2311 > > //// test
00:01:21 verbose #2312 > >
00:01:21 verbose #2313 > > 1f64
00:01:21 verbose #2314 > > |> _assert_approx_eq (Some 3) 2
00:01:21 verbose #2315 > >
00:01:21 verbose #2316 > > ╭─[ 38.41ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:21 verbose #2317 > > │ assert_approx_eq / actual: 1.0 / expected: 2.0 │
00:01:21 verbose #2318 > > │ │
00:01:21 verbose #2319 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2320 > >
00:01:21 verbose #2321 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2322 > > //// test
00:01:21 verbose #2323 > >
00:01:21 verbose #2324 > > (dyn 1f64)
00:01:21 verbose #2325 > > |> _assert_approx_eq (Some 3) 2
00:01:21 verbose #2326 > >
00:01:21 verbose #2327 > > ╭─[ 256.61ms - stdout ]────────────────────────────────────────────────────────╮
00:01:21 verbose #2328 > > │ assert_approx_eq / actual: 1.0 / expected: 2.0 │
00:01:21 verbose #2329 > > │ │
00:01:21 verbose #2330 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2331 > >
00:01:21 verbose #2332 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2333 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2334 > > │ ## __assert_eq │
00:01:21 verbose #2335 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2336 > >
00:01:21 verbose #2337 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2338 > > inl __assert_eq log b a = __expect (=) log "assert_eq" b a
00:01:21 verbose #2339 > > inl _assert_eq b a = __assert_eq true b a
00:01:21 verbose #2340 > >
00:01:21 verbose #2341 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2342 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2343 > > │ ## __assert_eq │
00:01:21 verbose #2344 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2345 > >
00:01:21 verbose #2346 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2347 > > inl __assert_eq' log b a = __expect (=.) log "assert_eq'" b a
00:01:21 verbose #2348 > > inl _assert_eq' b a = __assert_eq' true b a
00:01:21 verbose #2349 > >
00:01:21 verbose #2350 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2351 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2352 > > │ ## __assert_ne │
00:01:21 verbose #2353 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2354 > >
00:01:21 verbose #2355 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2356 > > inl __assert_ne log b a = __expect (<>.) log "assert_ne" b a
00:01:21 verbose #2357 > > inl _assert_ne b a = __assert_ne true b a
00:01:21 verbose #2358 > >
00:01:21 verbose #2359 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2360 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2361 > > │ ## __assert_gt │
00:01:21 verbose #2362 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2363 > >
00:01:21 verbose #2364 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2365 > > inl __assert_gt log b a = __expect (>) log "assert_gt" b a
00:01:21 verbose #2366 > > inl _assert_gt b a = __assert_gt true b a
00:01:21 verbose #2367 > >
00:01:21 verbose #2368 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2369 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2370 > > │ ## __assert_ge │
00:01:21 verbose #2371 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2372 > >
00:01:21 verbose #2373 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2374 > > inl __assert_ge log b a = __expect (>=) log "assert_ge" b a
00:01:21 verbose #2375 > > inl _assert_ge b a = __assert_ge true b a
00:01:21 verbose #2376 > >
00:01:21 verbose #2377 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2378 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2379 > > │ ## __assert_lt │
00:01:21 verbose #2380 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2381 > >
00:01:21 verbose #2382 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2383 > > inl __assert_lt log b a = __expect (<) log "assert_lt" b a
00:01:21 verbose #2384 > > inl _assert_lt b a = __assert_lt true b a
00:01:21 verbose #2385 > >
00:01:21 verbose #2386 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2387 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2388 > > │ ## __assert_le │
00:01:21 verbose #2389 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2390 > >
00:01:21 verbose #2391 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2392 > > inl __assert_le log b a = __expect (<=) log "assert_le" b a
00:01:21 verbose #2393 > > inl _assert_le b a = __assert_le true b a
00:01:21 verbose #2394 > >
00:01:21 verbose #2395 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2396 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2397 > > │ ## __assert_string_contains │
00:01:21 verbose #2398 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2399 > >
00:01:21 verbose #2400 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2401 > > inl __assert_string_contains log b a = __expect sm'.contains log
00:01:21 verbose #2402 > > "assert_string_contains" a b
00:01:21 verbose #2403 > > inl _assert_string_contains b a = __assert_string_contains true b a
00:01:21 verbose #2404 > >
00:01:21 verbose #2405 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 verbose #2406 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 verbose #2407 > > │ ## __assert_contains │
00:01:21 verbose #2408 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 verbose #2409 > >
00:01:21 verbose #2410 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2411 > > inl __assert_contains forall t. log (b : t) a =
00:01:21 verbose #2412 > > __expect
00:01:21 verbose #2413 > > fun a b =>
00:01:21 verbose #2414 > > a
00:01:21 verbose #2415 > > |> $'List.ofSeq'
00:01:21 verbose #2416 > > |> fun x => x : listm'.list' t
00:01:21 verbose #2417 > > |> $'List.tryFind' ((=) b)
00:01:21 verbose #2418 > > |> optionm'.unbox
00:01:21 verbose #2419 > > |> fun (x : _ t) => x <> None
00:01:21 verbose #2420 > > log "assert_contains" b a
00:01:21 verbose #2421 > > inl _assert_contains b a = __assert_contains true b a
00:01:21 verbose #2422 > >
00:01:21 verbose #2423 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:21 verbose #2424 > > //// test
00:01:21 verbose #2425 > >
00:01:21 verbose #2426 > > "abcd"
00:01:21 verbose #2427 > > |> _assert_contains 'b'
00:01:22 verbose #2428 > >
00:01:22 verbose #2429 > > ╭─[ 686.92ms - stdout ]────────────────────────────────────────────────────────╮
00:01:22 verbose #2430 > > │ assert_contains / actual: "abcd" / expected: 'b' │
00:01:22 verbose #2431 > > │ │
00:01:22 verbose #2432 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #2433 > >
00:01:22 verbose #2434 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #2435 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #2436 > > │ ## __assert_between │
00:01:22 verbose #2437 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #2438 > >
00:01:22 verbose #2439 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #2440 > > inl __assert_between log a b actual =
00:01:22 verbose #2441 > > inl assert_between actual (a, b) =
00:01:22 verbose #2442 > > __assert_ge false a actual
00:01:22 verbose #2443 > > __assert_le false b actual
00:01:22 verbose #2444 > > true
00:01:22 verbose #2445 > > __expect assert_between log "assert_between" (a, b) actual
00:01:22 verbose #2446 > > inl _assert_between a b actual = __assert_between true a b actual
00:01:22 verbose #2447 > >
00:01:22 verbose #2448 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #2449 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #2450 > > │ ## _throws │
00:01:22 verbose #2451 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #2452 > >
00:01:22 verbose #2453 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #2454 > > inl _throws (fn : () -> ()) : option exn =
00:01:22 verbose #2455 > > inl none = None : option exn
00:01:22 verbose #2456 > > inl some (s : exn) = Some s
00:01:22 verbose #2457 > > $'try !fn (); !none with ex -> ex |> !some '
00:01:22 verbose #2458 > >
00:01:22 verbose #2459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 verbose #2460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 verbose #2461 > > │ ## print_and_return │
00:01:22 verbose #2462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 verbose #2463 > >
00:01:22 verbose #2464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 verbose #2465 > > inl print_and_return x =
00:01:22 verbose #2466 > > $'printfn $"print_and_return / x: {!x}"'
00:01:22 verbose #2467 > > x
00:01:22 verbose #2468 > 00:00:15 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 11979
00:01:22 verbose #2469 > 00:00:15 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/testing.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:25 verbose #2470 > 00:00:19 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/testing.dib.ipynb to html
00:01:25 verbose #2471 > 00:00:19 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:25 verbose #2472 > 00:00:19 verbose #7 ! validate(nb)
00:01:27 verbose #2473 > 00:00:20 verbose #8 ! [NbConvertApp] Writing 303514 bytes to c:\home\git\polyglot\lib\spiral\testing.dib.html
00:01:27 verbose #2474 > 00:00:20 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:01:27 verbose #2475 > 00:00:20 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:01:27 verbose #2476 > 00:00:20 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/testing.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/testing.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:28 verbose #2477 > 00:00:22 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:28 verbose #2478 > 00:00:22 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:29 verbose #2479 > 00:00:22 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 12683
00:01:29 debug #2480 runtime.execute_with_options_async / exit_code: 0 / output.Length: 15429
00:01:29 debug #5 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path testing.dib --retries 3
00:01:29 debug #2481 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path guid.dib --retries 3",
[||], None, None, true, None)
00:01:29 verbose #2482 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "guid.dib", "--retries", "3"])
00:01:29 verbose #2483 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/guid.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/guid.dib" --output-path "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:32 verbose #2484 > >
00:01:32 verbose #2485 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:32 verbose #2486 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:32 verbose #2487 > > │ # guid │
00:01:32 verbose #2488 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:32 verbose #2489 > >
00:01:32 verbose #2490 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:32 verbose #2491 > > //// test
00:01:32 verbose #2492 > >
00:01:32 verbose #2493 > > open testing
00:01:32 verbose #2494 > >
00:01:32 verbose #2495 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:01:32 verbose #2496 > > #r
00:01:32 verbose #2497 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:32 verbose #2498 > > otNet.Interactive.Spiral.dll"
00:01:32 verbose #2499 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:01:32 verbose #2500 > > #r
00:01:32 verbose #2501 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:32 verbose #2502 > > otNet.Interactive.dll"
00:01:32 verbose #2503 > > open type Microsoft.DotNet.Interactive.Kernel
00:01:38 verbose #2504 > >
00:01:38 verbose #2505 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #2506 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #2507 > > │ ## guid │
00:01:38 verbose #2508 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #2509 > >
00:01:38 verbose #2510 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2511 > > nominal guid = $'System.Guid'
00:01:38 verbose #2512 > >
00:01:38 verbose #2513 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #2514 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #2515 > > │ ## new_guid │
00:01:38 verbose #2516 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #2517 > >
00:01:38 verbose #2518 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2519 > > inl new_guid (x : string) : guid =
00:01:38 verbose #2520 > > x |> convert
00:01:38 verbose #2521 > >
00:01:38 verbose #2522 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #2523 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #2524 > > │ ## new_raw_guid │
00:01:38 verbose #2525 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #2526 > >
00:01:38 verbose #2527 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2528 > > inl new_raw_guid () : guid =
00:01:38 verbose #2529 > > $'System.Guid.NewGuid' ()
00:01:38 verbose #2530 > >
00:01:38 verbose #2531 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:38 verbose #2532 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:38 verbose #2533 > > │ ## hash_guid │
00:01:38 verbose #2534 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:38 verbose #2535 > >
00:01:38 verbose #2536 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2537 > > type hash_guid = guid
00:01:38 verbose #2538 > >
00:01:38 verbose #2539 > > let hash_guid (~hash : string) : hash_guid =
00:01:38 verbose #2540 > > run_target function
00:01:38 verbose #2541 > > | Rust (Contract) => fun () => null ()
00:01:38 verbose #2542 > > | _ => fun () =>
00:01:38 verbose #2543 > > inl hash = hash |> sm'.pad_left 32i32 '0'
00:01:38 verbose #2544 > > $'`hash_guid
00:01:38 verbose #2545 > > $"{!hash.[[0..7]]}-{!hash.[[8..11]]}-{!hash.[[12..15]]}-{!hash.[[16..19]]}-{!has
00:01:38 verbose #2546 > > h.[[20..31]]}"'
00:01:38 verbose #2547 > >
00:01:38 verbose #2548 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:38 verbose #2549 > > //// test
00:01:38 verbose #2550 > >
00:01:38 verbose #2551 > > ""
00:01:38 verbose #2552 > > |> hash_guid
00:01:38 verbose #2553 > > |> _assert_eq' (new_guid "00000000-0000-0000-0000-000000000000")
00:01:38 verbose #2554 > >
00:01:38 verbose #2555 > > "123456789012345678901234567890123"
00:01:38 verbose #2556 > > |> hash_guid
00:01:38 verbose #2557 > > |> _assert_eq' (new_guid "12345678-9012-3456-7890-123456789012")
00:01:40 verbose #2558 > >
00:01:40 verbose #2559 > > ╭─[ 1.12s - stdout ]───────────────────────────────────────────────────────────╮
00:01:40 verbose #2560 > > │ assert_eq' / actual: 00000000-0000-0000-0000-000000000000 / expected: │
00:01:40 verbose #2561 > > │ 00000000-0000-0000-0000-000000000000 │
00:01:40 verbose #2562 > > │ assert_eq' / actual: 12345678-9012-3456-7890-123456789012 / expected: │
00:01:40 verbose #2563 > > │ 12345678-9012-3456-7890-123456789012 │
00:01:40 verbose #2564 > > │ │
00:01:40 verbose #2565 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 verbose #2566 > >
00:01:40 verbose #2567 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 verbose #2568 > > //// test
00:01:40 verbose #2569 > > ///! rust
00:01:40 verbose #2570 > > ///! typescript
00:01:40 verbose #2571 > > ///! python
00:01:40 verbose #2572 > >
00:01:40 verbose #2573 > > ""
00:01:40 verbose #2574 > > |> hash_guid
00:01:40 verbose #2575 > > |> _assert_eq' (new_guid "00000000-0000-0000-0000-000000000000")
00:01:40 verbose #2576 > >
00:01:40 verbose #2577 > > "123456789012345678901234567890123"
00:01:40 verbose #2578 > > |> hash_guid
00:01:40 verbose #2579 > > |> _assert_eq' (new_guid "12345678-9012-3456-7890-123456789012")
00:01:44 verbose #2580 > >
00:01:44 verbose #2581 > > ╭─[ 4.50s - return value ]─────────────────────────────────────────────────────╮
00:01:44 verbose #2582 > > │ .rs output: │
00:01:44 verbose #2583 > > │ assert_eq' / actual: Guid(00000000-0000-0000-0000-000000000000) / expected: │
00:01:44 verbose #2584 > > │ Guid(00000000-0000-0000-0000-000000000000) │
00:01:44 verbose #2585 > > │ assert_eq' / actual: Guid(12345678-9012-3456-7890-123456789012) / expected: │
00:01:44 verbose #2586 > > │ Guid(12345678-9012-3456-7890-123456789012) │
00:01:44 verbose #2587 > > │ │
00:01:44 verbose #2588 > > │ .ts output: │
00:01:44 verbose #2589 > > │ assert_eq' / actual: 00000000-0000-0000-0000-000000000000 / expected: │
00:01:44 verbose #2590 > > │ 00000000-0000-0000-0000-000000000000 │
00:01:44 verbose #2591 > > │ assert_eq' / actual: 12345678-9012-3456-7890-123456789012 / expected: │
00:01:44 verbose #2592 > > │ 12345678-9012-3456-7890-123456789012 │
00:01:44 verbose #2593 > > │ │
00:01:44 verbose #2594 > > │ .py output: │
00:01:44 verbose #2595 > > │ assert_eq' / actual: 00000000-0000-0000-0000-000000000000 / expected: │
00:01:44 verbose #2596 > > │ 00000000-0000-0000-0000-000000000000 │
00:01:44 verbose #2597 > > │ assert_eq' / actual: 12345678-9012-3456-7890-123456789012 / expected: │
00:01:44 verbose #2598 > > │ 12345678-9012-3456-7890-123456789012 │
00:01:44 verbose #2599 > > │ │
00:01:44 verbose #2600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 verbose #2601 > >
00:01:44 verbose #2602 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 verbose #2603 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 verbose #2604 > > │ ## main │
00:01:44 verbose #2605 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 verbose #2606 > >
00:01:44 verbose #2607 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 verbose #2608 > > inl main () =
00:01:44 verbose #2609 > > $'let new_guid x = !new_guid x' : ()
00:01:44 verbose #2610 > > $'let hash_guid x = !hash_guid x' : ()
00:01:44 verbose #2611 > > $'let new_raw_guid x = !new_raw_guid x' : ()
00:01:44 verbose #2612 > 00:00:15 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 6311
00:01:44 verbose #2613 > 00:00:15 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/guid.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:48 verbose #2614 > 00:00:18 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/guid.dib.ipynb to html
00:01:48 verbose #2615 > 00:00:18 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:48 verbose #2616 > 00:00:18 verbose #7 ! validate(nb)
00:01:50 verbose #2617 > 00:00:20 verbose #8 ! [NbConvertApp] Writing 282999 bytes to c:\home\git\polyglot\lib\spiral\guid.dib.html
00:01:50 verbose #2618 > 00:00:21 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:01:50 verbose #2619 > 00:00:21 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:01:50 verbose #2620 > 00:00:21 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/guid.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/guid.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:52 verbose #2621 > 00:00:23 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:52 verbose #2622 > 00:00:23 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:53 verbose #2623 > 00:00:23 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 7009
00:01:53 debug #2624 runtime.execute_with_options_async / exit_code: 0 / output.Length: 9502
00:01:53 debug #6 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path guid.dib --retries 3
00:01:53 debug #2625 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path async.dib --retries 3",
[||], None, None, true, None)
00:01:53 verbose #2626 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "async.dib", "--retries", "3"])
00:01:53 verbose #2627 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/async.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/async.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/async.dib" --output-path "c:/home/git/polyglot/lib/spiral/async.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:01:58 verbose #2628 > >
00:01:58 verbose #2629 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:58 verbose #2630 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:58 verbose #2631 > > │ # async │
00:01:58 verbose #2632 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:58 verbose #2633 > >
00:01:58 verbose #2634 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:58 verbose #2635 > > //// test
00:01:58 verbose #2636 > >
00:01:58 verbose #2637 > > open testing
00:01:58 verbose #2638 > >
00:01:58 verbose #2639 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:01:58 verbose #2640 > > #r
00:01:58 verbose #2641 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:58 verbose #2642 > > otNet.Interactive.Spiral.dll"
00:01:58 verbose #2643 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:01:58 verbose #2644 > > #r
00:01:58 verbose #2645 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:58 verbose #2646 > > otNet.Interactive.dll"
00:01:58 verbose #2647 > > open type Microsoft.DotNet.Interactive.Kernel
00:02:04 verbose #2648 > >
00:02:04 verbose #2649 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2650 > > open rust_operators
00:02:04 verbose #2651 > >
00:02:04 verbose #2652 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2653 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2654 > > │ ## types │
00:02:04 verbose #2655 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2656 > >
00:02:04 verbose #2657 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2658 > > inl types () =
00:02:04 verbose #2659 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2660 > > Fable.Core.Emit(\"futures::future::JoinAll<$0>\")>]]\n#endif\ntype
00:02:04 verbose #2661 > > futures_future_JoinAll<'T> = class end"
00:02:04 verbose #2662 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2663 > > Fable.Core.Emit(\"futures::future::TryJoinAll<$0>\")>]]\n#endif\ntype
00:02:04 verbose #2664 > > futures_future_TryJoinAll<'T> = class end"
00:02:04 verbose #2665 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2666 > > Fable.Core.Emit(\"rayon::iter::Map<$0, _>\")>]]\n#endif\ntype rayon_iter_Map<'T>
00:02:04 verbose #2667 > > = class end"
00:02:04 verbose #2668 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2669 > > Fable.Core.Emit(\"rayon::vec::IntoIter<$0>\")>]]\n#endif\ntype
00:02:04 verbose #2670 > > rayon_vec_IntoIter<'T> = class end"
00:02:04 verbose #2671 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2672 > > Fable.Core.Emit(\"std::future::Future<Output = $0>\")>]]\n#endif\ntype
00:02:04 verbose #2673 > > std_future_Future<'T> = class end"
00:02:04 verbose #2674 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2675 > > Fable.Core.Emit(\"tokio::prelude::stream::Fuse<$0>\")>]]\n#endif\ntype
00:02:04 verbose #2676 > > futures_future_Fuse<'T> = class end"
00:02:04 verbose #2677 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2678 > > Fable.Core.Emit(\"tokio::task::JoinHandle<$0>\")>]]\n#endif\ntype
00:02:04 verbose #2679 > > tokio_task_JoinHandle<'T> = class end"
00:02:04 verbose #2680 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:04 verbose #2681 > > Fable.Core.Emit(\"tokio_stream::StreamExt\")>]]\n#endif\ntype
00:02:04 verbose #2682 > > tokio_stream_StreamExt = class end"
00:02:04 verbose #2683 > >
00:02:04 verbose #2684 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2685 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2686 > > │ ## async │
00:02:04 verbose #2687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2688 > >
00:02:04 verbose #2689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2690 > > nominal async t = $'Async<`t>'
00:02:04 verbose #2691 > >
00:02:04 verbose #2692 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2693 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2694 > > │ ## task │
00:02:04 verbose #2695 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2696 > >
00:02:04 verbose #2697 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2698 > > nominal task t =
00:02:04 verbose #2699 > > `(
00:02:04 verbose #2700 > > typecase t with
00:02:04 verbose #2701 > > | () => $'' : $'System.Threading.Tasks.Task'
00:02:04 verbose #2702 > > | _ => $'' : $'System.Threading.Tasks.Task<`t>'
00:02:04 verbose #2703 > > )
00:02:04 verbose #2704 > >
00:02:04 verbose #2705 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2706 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2707 > > │ ## future │
00:02:04 verbose #2708 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2709 > >
00:02:04 verbose #2710 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2711 > > nominal future t = $'std_future_Future<`t>'
00:02:04 verbose #2712 > >
00:02:04 verbose #2713 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2714 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2715 > > │ ## future_pin │
00:02:04 verbose #2716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2717 > >
00:02:04 verbose #2718 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2719 > > type future_pin t = rust.pin (rust.box (rust.dyn' (future t)))
00:02:04 verbose #2720 > >
00:02:04 verbose #2721 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2722 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2723 > > │ ## future_pin_send │
00:02:04 verbose #2724 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2725 > >
00:02:04 verbose #2726 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2727 > > type future_pin_send t = rust.pin (rust.box (rust.send (rust.dyn' (future t))))
00:02:04 verbose #2728 > >
00:02:04 verbose #2729 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2730 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2731 > > │ ## block_on │
00:02:04 verbose #2732 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2733 > >
00:02:04 verbose #2734 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2735 > > inl block_on forall t. (fn : future_pin t) : t =
00:02:04 verbose #2736 > > inl runtime : infer =
00:02:04 verbose #2737 > >
00:02:04 verbose #2738 > > !\($'$"tokio::runtime::Builder::new_multi_thread().enable_all().build().unwrap()
00:02:04 verbose #2739 > > "')
00:02:04 verbose #2740 > > !\\(fn, $'"!runtime.handle().block_on($0)"')
00:02:04 verbose #2741 > >
00:02:04 verbose #2742 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2743 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2744 > > │ ## block_on' │
00:02:04 verbose #2745 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2746 > >
00:02:04 verbose #2747 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2748 > > inl block_on' forall t. (fn : future_pin t) : t =
00:02:04 verbose #2749 > > !\\(fn, $'"futures_lite::future::block_on($0)"')
00:02:04 verbose #2750 > >
00:02:04 verbose #2751 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2752 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2753 > > │ ## block_on'' │
00:02:04 verbose #2754 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2755 > >
00:02:04 verbose #2756 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2757 > > inl block_on'' forall t. (fn : future_pin t) : t =
00:02:04 verbose #2758 > > !\\(fn, $'"futures::executor::block_on($0)"')
00:02:04 verbose #2759 > >
00:02:04 verbose #2760 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2761 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2762 > > │ ## block_on''' │
00:02:04 verbose #2763 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2764 > >
00:02:04 verbose #2765 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2766 > > inl block_on''' forall t. (fn : future_pin t) : t =
00:02:04 verbose #2767 > > !\\(fn, $'"async_std::task::block_on($0)"')
00:02:04 verbose #2768 > >
00:02:04 verbose #2769 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2770 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2771 > > │ ## block_on_send │
00:02:04 verbose #2772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2773 > >
00:02:04 verbose #2774 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2775 > > inl block_on_send forall t. (fn : future_pin_send t) : t =
00:02:04 verbose #2776 > > !\($'"tokio::runtime::block_on(!fn)"')
00:02:04 verbose #2777 > >
00:02:04 verbose #2778 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2779 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2780 > > │ ## stream_ext │
00:02:04 verbose #2781 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2782 > >
00:02:04 verbose #2783 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2784 > > nominal stream_ext = $'tokio_stream_StreamExt'
00:02:04 verbose #2785 > >
00:02:04 verbose #2786 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2787 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2788 > > │ ## join_handle │
00:02:04 verbose #2789 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2790 > >
00:02:04 verbose #2791 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2792 > > nominal join_handle t = $'tokio_task_JoinHandle<`t>'
00:02:04 verbose #2793 > >
00:02:04 verbose #2794 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2795 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2796 > > │ ## spawn │
00:02:04 verbose #2797 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2798 > >
00:02:04 verbose #2799 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2800 > > inl spawn forall t. (fn : future_pin_send t) : join_handle t =
00:02:04 verbose #2801 > > !\($'"tokio::runtime::spawn(!fn)"')
00:02:04 verbose #2802 > >
00:02:04 verbose #2803 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2804 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2805 > > │ ## try_join_all │
00:02:04 verbose #2806 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2807 > >
00:02:04 verbose #2808 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2809 > > nominal try_join_all t = $'futures_future_TryJoinAll<`t>'
00:02:04 verbose #2810 > >
00:02:04 verbose #2811 > > inl try_join_all forall t. (x : am'.vec (future_pin (resultm.result' t
00:02:04 verbose #2812 > > sm'.std_string))) : try_join_all (future_pin (resultm.result' t sm'.std_string))
00:02:04 verbose #2813 > > =
00:02:04 verbose #2814 > > inl x = join x
00:02:04 verbose #2815 > > !\($'"futures::future::try_join_all(!x)"')
00:02:04 verbose #2816 > >
00:02:04 verbose #2817 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2818 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2819 > > │ ## fuse │
00:02:04 verbose #2820 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2821 > >
00:02:04 verbose #2822 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2823 > > nominal fuse t = $'futures_future_Fuse<`t>'
00:02:04 verbose #2824 > >
00:02:04 verbose #2825 > > inl future_fuse forall t. (x : future_pin t) : fuse (future_pin t) =
00:02:04 verbose #2826 > > !\($'"futures::future::FutureExt::fuse(!x)"')
00:02:04 verbose #2827 > >
00:02:04 verbose #2828 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2829 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2830 > > │ ## join_all │
00:02:04 verbose #2831 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2832 > >
00:02:04 verbose #2833 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2834 > > nominal join_all t = $'futures_future_JoinAll<`t>'
00:02:04 verbose #2835 > >
00:02:04 verbose #2836 > > inl join_all forall t. (x : am'.vec (future_pin t)) : join_all (future_pin t) =
00:02:04 verbose #2837 > > inl x = join x
00:02:04 verbose #2838 > > !\($'"futures::future::join_all(!x)"')
00:02:04 verbose #2839 > >
00:02:04 verbose #2840 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2841 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2842 > > │ ## join_all_send │
00:02:04 verbose #2843 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2844 > >
00:02:04 verbose #2845 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2846 > > inl join_all_send forall t. (x : am'.vec (future_pin_send t)) : join_all
00:02:04 verbose #2847 > > (future_pin_send t) =
00:02:04 verbose #2848 > > inl x = join x
00:02:04 verbose #2849 > > !\($'"futures::future::join_all(!x)"')
00:02:04 verbose #2850 > >
00:02:04 verbose #2851 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2852 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2853 > > │ ## await_handle │
00:02:04 verbose #2854 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2855 > >
00:02:04 verbose #2856 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2857 > > inl await_handle forall t. (x : join_handle t) : t =
00:02:04 verbose #2858 > > !\($'"!x.await"')
00:02:04 verbose #2859 > >
00:02:04 verbose #2860 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2861 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2862 > > │ ## await_all │
00:02:04 verbose #2863 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2864 > >
00:02:04 verbose #2865 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2866 > > inl await_all forall t. (x : join_all (future_pin t)) : am'.vec t =
00:02:04 verbose #2867 > > !\($'"!x.await"')
00:02:04 verbose #2868 > >
00:02:04 verbose #2869 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2870 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2871 > > │ ## await_all_send │
00:02:04 verbose #2872 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2873 > >
00:02:04 verbose #2874 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2875 > > inl await_all_send forall t. (x : join_all (future_pin_send t)) : am'.vec t =
00:02:04 verbose #2876 > > !\($'"!x.await"')
00:02:04 verbose #2877 > >
00:02:04 verbose #2878 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2879 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2880 > > │ ## try_await_all │
00:02:04 verbose #2881 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2882 > >
00:02:04 verbose #2883 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2884 > > inl try_await_all forall t. (x : try_join_all (future_pin (resultm.result' t
00:02:04 verbose #2885 > > sm'.std_string))) : resultm.result' (am'.vec t) sm'.std_string =
00:02:04 verbose #2886 > > !\($'"!x.await"')
00:02:04 verbose #2887 > >
00:02:04 verbose #2888 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2889 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2890 > > │ ## try_await_all_send │
00:02:04 verbose #2891 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2892 > >
00:02:04 verbose #2893 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2894 > > inl try_await_all_send forall t. (x : try_join_all (future_pin_send
00:02:04 verbose #2895 > > (resultm.result' t sm'.std_string))) : resultm.result' (am'.vec t)
00:02:04 verbose #2896 > > sm'.std_string =
00:02:04 verbose #2897 > > !\($'"!x.await"')
00:02:04 verbose #2898 > >
00:02:04 verbose #2899 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2900 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2901 > > │ ## await │
00:02:04 verbose #2902 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2903 > >
00:02:04 verbose #2904 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2905 > > inl await forall t. (x : future_pin t) : t =
00:02:04 verbose #2906 > > !\($'"!x.await"')
00:02:04 verbose #2907 > >
00:02:04 verbose #2908 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2909 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2910 > > │ ## await │
00:02:04 verbose #2911 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2912 > >
00:02:04 verbose #2913 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2914 > > inl await_send forall t. (x : future_pin_send t) : t =
00:02:04 verbose #2915 > > !\($'"!x.await"')
00:02:04 verbose #2916 > >
00:02:04 verbose #2917 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2918 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2919 > > │ ## into_iter │
00:02:04 verbose #2920 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2921 > >
00:02:04 verbose #2922 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2923 > > nominal into_iter t = $'rayon_vec_IntoIter<`t>'
00:02:04 verbose #2924 > >
00:02:04 verbose #2925 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2926 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2927 > > │ ## into_par_iter │
00:02:04 verbose #2928 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2929 > >
00:02:04 verbose #2930 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2931 > > inl into_par_iter forall t. (x : am'.vec t) : into_iter t =
00:02:04 verbose #2932 > > !\($'"rayon::iter::IntoParallelIterator::into_par_iter(!x)"')
00:02:04 verbose #2933 > >
00:02:04 verbose #2934 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 verbose #2935 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 verbose #2936 > > │ ## par_iter │
00:02:04 verbose #2937 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 verbose #2938 > >
00:02:04 verbose #2939 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 verbose #2940 > > inl par_iter forall t. (x : am'.vec t) : into_iter t =
00:02:04 verbose #2941 > > !\($'"rayon::iter::IntoParallelIterator::par_iter(!x)"')
00:02:05 verbose #2942 > >
00:02:05 verbose #2943 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #2944 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #2945 > > │ ## iter_map │
00:02:05 verbose #2946 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #2947 > >
00:02:05 verbose #2948 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #2949 > > nominal iter_map t u = $'rayon_iter_Map<`t>'
00:02:05 verbose #2950 > >
00:02:05 verbose #2951 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #2952 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #2953 > > │ ## par_map │
00:02:05 verbose #2954 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #2955 > >
00:02:05 verbose #2956 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #2957 > > inl par_map forall t u. (fn : t -> u) (ar : into_iter t) : iter_map (into_iter
00:02:05 verbose #2958 > > t) u =
00:02:05 verbose #2959 > > !\\((ar, fn), $'"rayon::iter::ParallelIterator::map($0, |x| $1(x))"')
00:02:05 verbose #2960 > >
00:02:05 verbose #2961 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #2962 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #2963 > > │ ## par_collect │
00:02:05 verbose #2964 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #2965 > >
00:02:05 verbose #2966 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #2967 > > inl par_collect forall t u. (iter : iter_map (into_iter t) u) : am'.vec u =
00:02:05 verbose #2968 > > !\\(iter, $'"rayon::iter::ParallelIterator::collect($0)"')
00:02:05 verbose #2969 > >
00:02:05 verbose #2970 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #2971 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #2972 > > │ ## try_join_all_iter │
00:02:05 verbose #2973 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #2974 > >
00:02:05 verbose #2975 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #2976 > > inl try_join_all_iter forall t. (x : am'.vec (future_pin_send (resultm.result' t
00:02:05 verbose #2977 > > sm'.std_string))) : try_join_all (future_pin_send (resultm.result' t
00:02:05 verbose #2978 > > sm'.std_string)) =
00:02:05 verbose #2979 > > inl x = join x
00:02:05 verbose #2980 > > !\($'"futures::future::try_join_all(!x)"')
00:02:05 verbose #2981 > >
00:02:05 verbose #2982 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #2983 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #2984 > > │ ## new_future │
00:02:05 verbose #2985 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #2986 > >
00:02:05 verbose #2987 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #2988 > > inl new_future forall t. (x : () -> t) : future_pin t =
00:02:05 verbose #2989 > > join
00:02:05 verbose #2990 > > !\($'"{Box::pin(async { //"')
00:02:05 verbose #2991 > > x () |> fun x => join $'!x '
00:02:05 verbose #2992 > > !\($'"}}) //"')
00:02:05 verbose #2993 > >
00:02:05 verbose #2994 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #2995 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #2996 > > │ ## new_future_move │
00:02:05 verbose #2997 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #2998 > >
00:02:05 verbose #2999 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3000 > > inl new_future_move forall t. (x : () -> t) : future_pin t =
00:02:05 verbose #3001 > > join
00:02:05 verbose #3002 > > !\($'"{Box::pin(async move { //"')
00:02:05 verbose #3003 > > x () |> fun x => join $'!x '
00:02:05 verbose #3004 > > !\($'"}}) //"')
00:02:05 verbose #3005 > >
00:02:05 verbose #3006 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3007 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3008 > > │ ## future_init │
00:02:05 verbose #3009 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3010 > >
00:02:05 verbose #3011 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3012 > > inl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:02:05 verbose #3013 > > future_pin t =
00:02:05 verbose #3014 > > // join
00:02:05 verbose #3015 > > // if flag = 1
00:02:05 verbose #3016 > > // then new_future_move x
00:02:05 verbose #3017 > > // else new_future x
00:02:05 verbose #3018 > > if flag = 1
00:02:05 verbose #3019 > > then !\($'"let __result = Box::pin(async move { //"')
00:02:05 verbose #3020 > > else !\($'"let __result = Box::pin(async { //"')
00:02:05 verbose #3021 > >
00:02:05 verbose #3022 > > let x' = x ()
00:02:05 verbose #3023 > > inl x' = join x'
00:02:05 verbose #3024 > >
00:02:05 verbose #3025 > > x' |> rust.fix_closure depth
00:02:05 verbose #3026 > >
00:02:05 verbose #3027 > > !\($'"__result"')
00:02:05 verbose #3028 > >
00:02:05 verbose #3029 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3030 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3031 > > │ ## future_init_send │
00:02:05 verbose #3032 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3033 > >
00:02:05 verbose #3034 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3035 > > inl future_init_send forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:02:05 verbose #3036 > > future_pin_send t =
00:02:05 verbose #3037 > > // join
00:02:05 verbose #3038 > > // if flag = 1
00:02:05 verbose #3039 > > // then new_future_move x
00:02:05 verbose #3040 > > // else new_future x
00:02:05 verbose #3041 > > join
00:02:05 verbose #3042 > > if flag = 1
00:02:05 verbose #3043 > > then !\($'"let __result = Box::pin(async move { //"')
00:02:05 verbose #3044 > > else !\($'"let __result = Box::pin(async { //"')
00:02:05 verbose #3045 > >
00:02:05 verbose #3046 > > let x' = x ()
00:02:05 verbose #3047 > > inl x' = join x'
00:02:05 verbose #3048 > >
00:02:05 verbose #3049 > > x' |> rust.fix_closure depth
00:02:05 verbose #3050 > >
00:02:05 verbose #3051 > > !\($'"__result"')
00:02:05 verbose #3052 > >
00:02:05 verbose #3053 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3054 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3055 > > │ ## new_future_move_init │
00:02:05 verbose #3056 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3057 > >
00:02:05 verbose #3058 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3059 > > inl new_future_move_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t)
00:02:05 verbose #3060 > > : future_pin t =
00:02:05 verbose #3061 > > future_init depth flag x
00:02:05 verbose #3062 > > // join
00:02:05 verbose #3063 > > // !\($'"{Box::pin(async move { //"')
00:02:05 verbose #3064 > > // inl x' = x () |> fun x => join $'!x '
00:02:05 verbose #3065 > >
00:02:05 verbose #3066 > > // inl depth = depth |> fst
00:02:05 verbose #3067 > > // if depth = 1
00:02:05 verbose #3068 > > // then !\($'"!x' })"')
00:02:05 verbose #3069 > > // elif depth = 2
00:02:05 verbose #3070 > > // then !\($'"!x' }})"')
00:02:05 verbose #3071 > > // elif depth = 3
00:02:05 verbose #3072 > > // then !\($'"!x' }}})"')
00:02:05 verbose #3073 > > // elif depth = 4
00:02:05 verbose #3074 > > // then !\($'"!x' }}}})"')
00:02:05 verbose #3075 > >
00:02:05 verbose #3076 > > // !\($'"// 1"')
00:02:05 verbose #3077 > >
00:02:05 verbose #3078 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3079 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3080 > > │ ## new_async_unit │
00:02:05 verbose #3081 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3082 > >
00:02:05 verbose #3083 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3084 > > inl new_async_unit forall t. (fn : () -> ()) : async t =
00:02:05 verbose #3085 > > run_target function
00:02:05 verbose #3086 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3087 > > inl result : optionm'.option' (async t) = optionm'.none' ()
00:02:05 verbose #3088 > > $'let mutable _!result = !result '
00:02:05 verbose #3089 > > $'async {'
00:02:05 verbose #3090 > > fn ()
00:02:05 verbose #3091 > > $'}'
00:02:05 verbose #3092 > > $'|> fun x -> _!result <- Some x'
00:02:05 verbose #3093 > > $'match _!result with Some x -> x | None -> failwith
00:02:05 verbose #3094 > > "async.new_async_unit / _!result=None"'
00:02:05 verbose #3095 > > | _ => fun () => null ()
00:02:05 verbose #3096 > >
00:02:05 verbose #3097 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3098 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3099 > > │ ## new_async │
00:02:05 verbose #3100 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3101 > >
00:02:05 verbose #3102 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3103 > > inl new_async forall t. (fn : () -> t) : async t =
00:02:05 verbose #3104 > > new_async_unit (fn >> ignore)
00:02:05 verbose #3105 > >
00:02:05 verbose #3106 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3107 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3108 > > │ ## new_task │
00:02:05 verbose #3109 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3110 > >
00:02:05 verbose #3111 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3112 > > inl new_task forall t. (fn : () -> t) : task t =
00:02:05 verbose #3113 > > run_target function
00:02:05 verbose #3114 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3115 > > inl result : optionm'.option' (task t) = optionm'.none' ()
00:02:05 verbose #3116 > > $'let mutable _!result = !result '
00:02:05 verbose #3117 > > $'task {'
00:02:05 verbose #3118 > > fn () |> ignore
00:02:05 verbose #3119 > > $'}'
00:02:05 verbose #3120 > > $'|> fun x -> _!result <- Some x'
00:02:05 verbose #3121 > > $'match _!result with Some x -> x | None -> failwith "async.new_task
00:02:05 verbose #3122 > > / _!result=None"'
00:02:05 verbose #3123 > > | _ => fun () => null ()
00:02:05 verbose #3124 > >
00:02:05 verbose #3125 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3126 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3127 > > │ ## await_task │
00:02:05 verbose #3128 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3129 > >
00:02:05 verbose #3130 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3131 > > inl await_task forall t. (a : task t) : async t =
00:02:05 verbose #3132 > > run_target function
00:02:05 verbose #3133 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3134 > > a |> $'Async.AwaitTask'
00:02:05 verbose #3135 > > | _ => fun () => null ()
00:02:05 verbose #3136 > >
00:02:05 verbose #3137 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3138 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3139 > > │ ## ignore │
00:02:05 verbose #3140 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3141 > >
00:02:05 verbose #3142 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3143 > > inl ignore forall t. (a : async t) : async () =
00:02:05 verbose #3144 > > run_target function
00:02:05 verbose #3145 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3146 > > a |> $'Async.Ignore'
00:02:05 verbose #3147 > > | _ => fun () => null ()
00:02:05 verbose #3148 > >
00:02:05 verbose #3149 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3150 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3151 > > │ ## run_synchronously │
00:02:05 verbose #3152 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3153 > >
00:02:05 verbose #3154 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3155 > > inl run_synchronously forall t. (a : async t) : t =
00:02:05 verbose #3156 > > run_target function
00:02:05 verbose #3157 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3158 > > a |> $'Async.RunSynchronously'
00:02:05 verbose #3159 > > | _ => fun () => null ()
00:02:05 verbose #3160 > >
00:02:05 verbose #3161 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3162 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3163 > > │ ## start │
00:02:05 verbose #3164 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3165 > >
00:02:05 verbose #3166 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3167 > > inl start (a : async ()) : () =
00:02:05 verbose #3168 > > run_target function
00:02:05 verbose #3169 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3170 > > a |> $'Async.Start'
00:02:05 verbose #3171 > > | _ => fun () => null ()
00:02:05 verbose #3172 > >
00:02:05 verbose #3173 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3174 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3175 > > │ ## start_child │
00:02:05 verbose #3176 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3177 > >
00:02:05 verbose #3178 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3179 > > inl start_child forall t. (a : async t) : async (async t) =
00:02:05 verbose #3180 > > run_target function
00:02:05 verbose #3181 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3182 > > a |> $'Async.StartChild'
00:02:05 verbose #3183 > > | _ => fun () => null ()
00:02:05 verbose #3184 > >
00:02:05 verbose #3185 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3186 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3187 > > │ ## start_child_timeout │
00:02:05 verbose #3188 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3189 > >
00:02:05 verbose #3190 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3191 > > inl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async
00:02:05 verbose #3192 > > t) =
00:02:05 verbose #3193 > > run_target function
00:02:05 verbose #3194 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3195 > > $'Async.StartChild (!a, !timeout)'
00:02:05 verbose #3196 > > | _ => fun () => null ()
00:02:05 verbose #3197 > >
00:02:05 verbose #3198 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3199 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3200 > > │ ## start_immediate │
00:02:05 verbose #3201 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3202 > >
00:02:05 verbose #3203 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3204 > > inl start_immediate forall t. (a : async t) : () =
00:02:05 verbose #3205 > > run_target function
00:02:05 verbose #3206 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3207 > > a |> $'Async.StartImmediate'
00:02:05 verbose #3208 > > | _ => fun () => null ()
00:02:05 verbose #3209 > >
00:02:05 verbose #3210 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3211 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3212 > > │ ## task_canceled_exception │
00:02:05 verbose #3213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3214 > >
00:02:05 verbose #3215 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3216 > > nominal task_canceled_exception =
00:02:05 verbose #3217 > > $'System.Threading.Tasks.TaskCanceledException'
00:02:05 verbose #3218 > >
00:02:05 verbose #3219 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3220 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3221 > > │ ## sleep │
00:02:05 verbose #3222 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3223 > >
00:02:05 verbose #3224 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3225 > > inl sleep (ms : i32) : async () =
00:02:05 verbose #3226 > > run_target function
00:02:05 verbose #3227 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3228 > > ms |> $'Async.Sleep'
00:02:05 verbose #3229 > > | _ => fun () => null ()
00:02:05 verbose #3230 > >
00:02:05 verbose #3231 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3232 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3233 > > │ ## do │
00:02:05 verbose #3234 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3235 > >
00:02:05 verbose #3236 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3237 > > inl do (a : async ()) : () =
00:02:05 verbose #3238 > > $'do\! !a '
00:02:05 verbose #3239 > >
00:02:05 verbose #3240 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3241 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3242 > > │ ## let' │
00:02:05 verbose #3243 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3244 > >
00:02:05 verbose #3245 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3246 > > inl let' forall t. (a : async t) : t =
00:02:05 verbose #3247 > > $'let\! !a = !a '
00:02:05 verbose #3248 > > $'!a '
00:02:05 verbose #3249 > >
00:02:05 verbose #3250 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3251 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3252 > > │ ## return_await │
00:02:05 verbose #3253 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3254 > >
00:02:05 verbose #3255 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3256 > > inl return_await forall t. (a : async t) : () =
00:02:05 verbose #3257 > > $'return\! !a '
00:02:05 verbose #3258 > >
00:02:05 verbose #3259 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3260 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3261 > > │ ## return_await' │
00:02:05 verbose #3262 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3263 > >
00:02:05 verbose #3264 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3265 > > inl return_await' forall t. (a : async t) : t =
00:02:05 verbose #3266 > > $'return\! !a '
00:02:05 verbose #3267 > >
00:02:05 verbose #3268 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3269 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3270 > > │ ## map │
00:02:05 verbose #3271 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3272 > >
00:02:05 verbose #3273 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3274 > > inl map forall t u. (fn : t -> u) (a : async t) : async u =
00:02:05 verbose #3275 > > fun () =>
00:02:05 verbose #3276 > > inl x = a |> let'
00:02:05 verbose #3277 > > fn x |> return
00:02:05 verbose #3278 > > |> new_async_unit
00:02:05 verbose #3279 > >
00:02:05 verbose #3280 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3281 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3282 > > │ ## choice │
00:02:05 verbose #3283 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3284 > >
00:02:05 verbose #3285 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3286 > > union choice t1 t2 =
00:02:05 verbose #3287 > > | Choice1Of2 : t1
00:02:05 verbose #3288 > > | Choice2Of2 : t2
00:02:05 verbose #3289 > >
00:02:05 verbose #3290 > > nominal choice' t1 t2 = $'Choice<`t1, `t2>'
00:02:05 verbose #3291 > >
00:02:05 verbose #3292 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3293 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3294 > > │ ## choice_unbox │
00:02:05 verbose #3295 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3296 > >
00:02:05 verbose #3297 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3298 > > inl choice_unbox forall t1 t2. (choice : choice' t1 t2) : choice t1 t2 =
00:02:05 verbose #3299 > > run_target function
00:02:05 verbose #3300 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3301 > > inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x
00:02:05 verbose #3302 > > inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x
00:02:05 verbose #3303 > > $'match !choice with Choice1Of2 x -> !choice1Of2 x | Choice2Of2 x ->
00:02:05 verbose #3304 > > !choice2Of2 x'
00:02:05 verbose #3305 > > | _ => fun () => null ()
00:02:05 verbose #3306 > >
00:02:05 verbose #3307 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3308 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3309 > > │ ## catch' │
00:02:05 verbose #3310 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3311 > >
00:02:05 verbose #3312 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3313 > > inl catch' forall t e. (a : async t) : async (choice' t e) =
00:02:05 verbose #3314 > > run_target function
00:02:05 verbose #3315 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3316 > > a |> $'Async.Catch'
00:02:05 verbose #3317 > > | _ => fun () => null ()
00:02:05 verbose #3318 > >
00:02:05 verbose #3319 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3320 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3321 > > │ ## catch │
00:02:05 verbose #3322 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3323 > >
00:02:05 verbose #3324 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3325 > > inl catch forall t e. (a : async t) : async (result t e) =
00:02:05 verbose #3326 > > a
00:02:05 verbose #3327 > > |> catch'
00:02:05 verbose #3328 > > |> map choice_unbox
00:02:05 verbose #3329 > > |> map function
00:02:05 verbose #3330 > > | Choice1Of2 result => Ok result
00:02:05 verbose #3331 > > | Choice2Of2 ex => Error ex
00:02:05 verbose #3332 > >
00:02:05 verbose #3333 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 verbose #3334 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 verbose #3335 > > │ ## run_with_timeout_async │
00:02:05 verbose #3336 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 verbose #3337 > >
00:02:05 verbose #3338 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 verbose #3339 > > inl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async
00:02:05 verbose #3340 > > (option t) =
00:02:05 verbose #3341 > > run_target function
00:02:05 verbose #3342 > > | Fsharp (Native) => fun () =>
00:02:05 verbose #3343 > > fun () =>
00:02:05 verbose #3344 > > inl _locals () = $'$"timeout: {!timeout} / {!_locals ()}"'
00:02:05 verbose #3345 > > inl child = fn |> start_child_timeout timeout |> let'
00:02:05 verbose #3346 > > child
00:02:05 verbose #3347 > > |> catch
00:02:05 verbose #3348 > > |> map function
00:02:05 verbose #3349 > > | Ok result => Some result
00:02:05 verbose #3350 > > | Error ex when ex |> sm'.format_debug |> sm'.contains
00:02:05 verbose #3351 > > "System.TimeoutException" =>
00:02:05 verbose #3352 > > trace Debug (fun () =>
00:02:05 verbose #3353 > > $'"async.run_with_timeout_async"') _locals
00:02:05 verbose #3354 > > None
00:02:05 verbose #3355 > > | Error (ex : exn) =>
00:02:05 verbose #3356 > > inl ex = ex |> sm'.format_exception
00:02:05 verbose #3357 > > trace Critical (fun () =>
00:02:05 verbose #3358 > > $'$"async.run_with_timeout_async** / ex: {!ex}"') _locals
00:02:05 verbose #3359 > > None
00:02:05 verbose #3360 > > |> return_await
00:02:05 verbose #3361 > > |> new_async_unit
00:02:05 verbose #3362 > > | _ => fun () => null ()
00:02:06 verbose #3363 > >
00:02:06 verbose #3364 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3365 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3366 > > │ ## run_with_timeout │
00:02:06 verbose #3367 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3368 > >
00:02:06 verbose #3369 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3370 > > inl run_with_timeout timeout fn =
00:02:06 verbose #3371 > > fn
00:02:06 verbose #3372 > > |> run_with_timeout_async timeout
00:02:06 verbose #3373 > > |> run_synchronously
00:02:06 verbose #3374 > >
00:02:06 verbose #3375 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3376 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3377 > > │ ## cancellation_token │
00:02:06 verbose #3378 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3379 > >
00:02:06 verbose #3380 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3381 > > inl cancellation_token () : async threading.cancellation_token =
00:02:06 verbose #3382 > > $'Async.CancellationToken'
00:02:06 verbose #3383 > >
00:02:06 verbose #3384 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3385 > > inl default_cancellation_token () : threading.cancellation_token =
00:02:06 verbose #3386 > > $'Async.DefaultCancellationToken'
00:02:06 verbose #3387 > >
00:02:06 verbose #3388 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3389 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3390 > > │ ## merge_cancellation_token_with_default_async │
00:02:06 verbose #3391 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3392 > >
00:02:06 verbose #3393 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3394 > > inl merge_cancellation_token_with_default_async
00:02:06 verbose #3395 > > (token : threading.cancellation_token)
00:02:06 verbose #3396 > > : async threading.cancellation_token
00:02:06 verbose #3397 > > =
00:02:06 verbose #3398 > > run_target function
00:02:06 verbose #3399 > > | Fsharp (Native) => fun () =>
00:02:06 verbose #3400 > > fun () =>
00:02:06 verbose #3401 > > inl ct = cancellation_token () |> let'
00:02:06 verbose #3402 > > inl dct = default_cancellation_token ()
00:02:06 verbose #3403 > > inl cts = threading.create_linked_token_source ;[[ ct; dct;
00:02:06 verbose #3404 > > token ]]
00:02:06 verbose #3405 > > cts |> threading.cancellation_source_token |> return
00:02:06 verbose #3406 > > |> new_async_unit
00:02:06 verbose #3407 > > | _ => fun () => null ()
00:02:06 verbose #3408 > >
00:02:06 verbose #3409 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3410 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3411 > > │ ## with_trace_level │
00:02:06 verbose #3412 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3413 > >
00:02:06 verbose #3414 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3415 > > inl with_trace_level forall t. level fn : _ t = new_async fun () =>
00:02:06 verbose #3416 > > inl trace_state = get_trace_state_or_init None
00:02:06 verbose #3417 > > inl old_trace_level = *trace_state.level
00:02:06 verbose #3418 > > inl trace_level = trace_state.level
00:02:06 verbose #3419 > > try_finally
00:02:06 verbose #3420 > > fun () =>
00:02:06 verbose #3421 > > trace_level <- level
00:02:06 verbose #3422 > > fn |> return_await
00:02:06 verbose #3423 > > fun () =>
00:02:06 verbose #3424 > > trace_level <- old_trace_level
00:02:06 verbose #3425 > >
00:02:06 verbose #3426 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3427 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3428 > > │ ## value_task │
00:02:06 verbose #3429 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3430 > >
00:02:06 verbose #3431 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3432 > > nominal value_task = $'System.Threading.Tasks.ValueTask'
00:02:06 verbose #3433 > >
00:02:06 verbose #3434 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3435 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3436 > > │ ## value_task_as_task │
00:02:06 verbose #3437 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3438 > >
00:02:06 verbose #3439 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3440 > > inl value_task_as_task (task : value_task) : task () =
00:02:06 verbose #3441 > > $'!task.AsTask' ()
00:02:06 verbose #3442 > >
00:02:06 verbose #3443 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3444 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3445 > > │ ## await_value_task_unit │
00:02:06 verbose #3446 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3447 > >
00:02:06 verbose #3448 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3449 > > inl await_value_task_unit (task : value_task) : async () =
00:02:06 verbose #3450 > > task |> value_task_as_task |> await_task
00:02:06 verbose #3451 > >
00:02:06 verbose #3452 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:06 verbose #3453 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:06 verbose #3454 > > │ ## main │
00:02:06 verbose #3455 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:06 verbose #3456 > >
00:02:06 verbose #3457 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:06 verbose #3458 > > inl main () =
00:02:06 verbose #3459 > > types ()
00:02:06 verbose #3460 > > $'let merge_cancellation_token_with_default_async x =
00:02:06 verbose #3461 > > !merge_cancellation_token_with_default_async x' : ()
00:02:08 verbose #3462 > 00:00:14 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 41486
00:02:08 verbose #3463 > 00:00:14 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/async.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/async.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:02:11 verbose #3464 > 00:00:18 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/async.dib.ipynb to html
00:02:11 verbose #3465 > 00:00:18 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:11 verbose #3466 > 00:00:18 verbose #7 ! validate(nb)
00:02:14 verbose #3467 > 00:00:20 verbose #8 ! [NbConvertApp] Writing 403512 bytes to c:\home\git\polyglot\lib\spiral\async.dib.html
00:02:14 verbose #3468 > 00:00:20 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641
00:02:14 verbose #3469 > 00:00:20 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641
00:02:14 verbose #3470 > 00:00:20 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/async.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/async.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:02:15 verbose #3471 > 00:00:22 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:02:15 verbose #3472 > 00:00:22 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:02:16 verbose #3473 > 00:00:22 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 42186
00:02:16 debug #3474 runtime.execute_with_options_async / exit_code: 0 / output.Length: 46102
00:02:16 debug #7 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path async.dib --retries 3
00:02:16 debug #3475 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path runtime.dib --retries 3",
[||], None, None, true, None)
00:02:16 verbose #3476 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "runtime.dib", "--retries", "3"])
00:02:16 verbose #3477 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/runtime.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/runtime.dib" --output-path "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:02:19 verbose #3478 > >
00:02:19 verbose #3479 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:19 verbose #3480 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:19 verbose #3481 > > │ # runtime │
00:02:19 verbose #3482 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:19 verbose #3483 > >
00:02:19 verbose #3484 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:19 verbose #3485 > > open rust_operators
00:02:19 verbose #3486 > > open sm'_operators
00:02:19 verbose #3487 > >
00:02:19 verbose #3488 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:02:19 verbose #3489 > > #r
00:02:19 verbose #3490 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:19 verbose #3491 > > otNet.Interactive.Spiral.dll"
00:02:19 verbose #3492 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:02:19 verbose #3493 > > #r
00:02:19 verbose #3494 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:19 verbose #3495 > > otNet.Interactive.dll"
00:02:19 verbose #3496 > > open type Microsoft.DotNet.Interactive.Kernel
00:02:25 verbose #3497 > >
00:02:25 verbose #3498 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3499 > > //// test
00:02:25 verbose #3500 > >
00:02:25 verbose #3501 > > open testing
00:02:25 verbose #3502 > > open file_system_operators
00:02:25 verbose #3503 > >
00:02:25 verbose #3504 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3505 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3506 > > │ ## types │
00:02:25 verbose #3507 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3508 > >
00:02:25 verbose #3509 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3510 > > inl types () =
00:02:25 verbose #3511 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3512 > > Fable.Core.Emit(\"clap::Arg\")>]]\n#endif\ntype clap_Arg = class end"
00:02:25 verbose #3513 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3514 > > Fable.Core.Emit(\"clap::ArgAction\")>]]\n#endif\ntype clap_ArgAction = class
00:02:25 verbose #3515 > > end"
00:02:25 verbose #3516 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3517 > > Fable.Core.Emit(\"clap::Command\")>]]\n#endif\ntype clap_Command = class end"
00:02:25 verbose #3518 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3519 > > Fable.Core.Emit(\"clap::ArgMatches\")>]]\n#endif\ntype clap_ArgMatches = class
00:02:25 verbose #3520 > > end"
00:02:25 verbose #3521 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3522 > > Fable.Core.Emit(\"clap::builder::ValueRange\")>]]\n#endif\ntype
00:02:25 verbose #3523 > > clap_builder_ValueRange = class end"
00:02:25 verbose #3524 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3525 > > Fable.Core.Emit(\"clap::builder::ValueParser\")>]]\n#endif\ntype
00:02:25 verbose #3526 > > clap_builder_ValueParser = class end"
00:02:25 verbose #3527 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3528 > > Fable.Core.Emit(\"clap::builder::PossibleValue\")>]]\n#endif\ntype
00:02:25 verbose #3529 > > clap_builder_PossibleValue = class end"
00:02:25 verbose #3530 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3531 > > Fable.Core.Emit(\"std::process::Child\")>]]\n#endif\ntype std_process_Child =
00:02:25 verbose #3532 > > class end"
00:02:25 verbose #3533 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3534 > > Fable.Core.Emit(\"std::process::ChildStderr\")>]]\n#endif\ntype
00:02:25 verbose #3535 > > std_process_ChildStderr = class end"
00:02:25 verbose #3536 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3537 > > Fable.Core.Emit(\"std::process::ChildStdout\")>]]\n#endif\ntype
00:02:25 verbose #3538 > > std_process_ChildStdout = class end"
00:02:25 verbose #3539 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3540 > > Fable.Core.Emit(\"std::process::ChildStdin\")>]]\n#endif\ntype
00:02:25 verbose #3541 > > std_process_ChildStdin = class end"
00:02:25 verbose #3542 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3543 > > Fable.Core.Emit(\"std::process::Command\")>]]\n#endif\ntype std_process_Command
00:02:25 verbose #3544 > > = class end"
00:02:25 verbose #3545 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3546 > > Fable.Core.Emit(\"std::process::ExitStatus\")>]]\n#endif\ntype
00:02:25 verbose #3547 > > std_process_ExitStatus = class end"
00:02:25 verbose #3548 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3549 > > Fable.Core.Emit(\"std::process::Output\")>]]\n#endif\ntype std_process_Output =
00:02:25 verbose #3550 > > class end"
00:02:25 verbose #3551 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:02:25 verbose #3552 > > Fable.Core.Emit(\"std::process::Stdio\")>]]\n#endif\ntype std_process_Stdio =
00:02:25 verbose #3553 > > class end"
00:02:25 verbose #3554 > >
00:02:25 verbose #3555 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3556 > > inl types () =
00:02:25 verbose #3557 > > types ()
00:02:25 verbose #3558 > > am'.types ()
00:02:25 verbose #3559 > > async.types ()
00:02:25 verbose #3560 > > env.types ()
00:02:25 verbose #3561 > > rust.types ()
00:02:25 verbose #3562 > > seq.types ()
00:02:25 verbose #3563 > > sm'.types ()
00:02:25 verbose #3564 > > threading.types ()
00:02:25 verbose #3565 > >
00:02:25 verbose #3566 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3567 > > //// test
00:02:25 verbose #3568 > >
00:02:25 verbose #3569 > > inl types () =
00:02:25 verbose #3570 > > file_system.types ()
00:02:25 verbose #3571 > > types ()
00:02:25 verbose #3572 > >
00:02:25 verbose #3573 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3574 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3575 > > │ ## process_child │
00:02:25 verbose #3576 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3577 > >
00:02:25 verbose #3578 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3579 > > nominal process_child = $'std_process_Child'
00:02:25 verbose #3580 > >
00:02:25 verbose #3581 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3582 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3583 > > │ ## process_child_stderr │
00:02:25 verbose #3584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3585 > >
00:02:25 verbose #3586 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3587 > > nominal process_child_stderr = $'std_process_ChildStderr'
00:02:25 verbose #3588 > >
00:02:25 verbose #3589 > > inl process_child_stderr
00:02:25 verbose #3590 > > (child : rust.ref' (rust.mut' process_child))
00:02:25 verbose #3591 > > : rust.ref' (rust.mut' (optionm'.option' process_child_stderr))
00:02:25 verbose #3592 > > =
00:02:25 verbose #3593 > > !\($'"&mut !child.stderr"')
00:02:25 verbose #3594 > >
00:02:25 verbose #3595 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3596 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3597 > > │ ## process_child_stdout │
00:02:25 verbose #3598 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3599 > >
00:02:25 verbose #3600 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3601 > > nominal process_child_stdout = $'std_process_ChildStdout'
00:02:25 verbose #3602 > >
00:02:25 verbose #3603 > > inl process_child_stdout
00:02:25 verbose #3604 > > (child : rust.ref' (rust.mut' process_child))
00:02:25 verbose #3605 > > : rust.ref' (rust.mut' (optionm'.option' process_child_stdout))
00:02:25 verbose #3606 > > =
00:02:25 verbose #3607 > > !\($'"&mut !child.stdout"')
00:02:25 verbose #3608 > >
00:02:25 verbose #3609 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3610 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3611 > > │ ## process_child_stdin │
00:02:25 verbose #3612 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3613 > >
00:02:25 verbose #3614 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3615 > > nominal process_child_stdin = $'std_process_ChildStdin'
00:02:25 verbose #3616 > >
00:02:25 verbose #3617 > > inl process_child_stdin
00:02:25 verbose #3618 > > (child : rust.ref' (rust.mut' process_child))
00:02:25 verbose #3619 > > : rust.ref' (rust.mut' (optionm'.option' process_child_stdin))
00:02:25 verbose #3620 > > =
00:02:25 verbose #3621 > > !\\(child, $'"&mut $0.stdin"')
00:02:25 verbose #3622 > >
00:02:25 verbose #3623 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3624 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3625 > > │ ## process_command │
00:02:25 verbose #3626 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3627 > >
00:02:25 verbose #3628 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3629 > > nominal process_command = $'std_process_Command'
00:02:25 verbose #3630 > >
00:02:25 verbose #3631 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3632 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3633 > > │ ## process_stdio │
00:02:25 verbose #3634 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3635 > >
00:02:25 verbose #3636 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3637 > > nominal process_stdio = $'std_process_Stdio'
00:02:25 verbose #3638 > >
00:02:25 verbose #3639 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3640 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3641 > > │ ## process_output │
00:02:25 verbose #3642 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3643 > >
00:02:25 verbose #3644 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3645 > > nominal process_output = $'std_process_Output'
00:02:25 verbose #3646 > >
00:02:25 verbose #3647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3649 > > │ ## process_exit_status │
00:02:25 verbose #3650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3651 > >
00:02:25 verbose #3652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3653 > > nominal process_exit_status = $'std_process_ExitStatus'
00:02:25 verbose #3654 > >
00:02:25 verbose #3655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3657 > > │ ## process_output_status │
00:02:25 verbose #3658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3659 > >
00:02:25 verbose #3660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3661 > > inl process_output_status (output : process_output) : process_exit_status =
00:02:25 verbose #3662 > > !\\(output, $'"$0.status"')
00:02:25 verbose #3663 > >
00:02:25 verbose #3664 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3665 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3666 > > │ ## process_exit_status_code │
00:02:25 verbose #3667 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3668 > >
00:02:25 verbose #3669 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3670 > > inl process_exit_status_code (status : process_exit_status) : optionm'.option'
00:02:25 verbose #3671 > > i32 =
00:02:25 verbose #3672 > > !\\(status, $'"$0.code()"')
00:02:25 verbose #3673 > >
00:02:25 verbose #3674 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3675 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3676 > > │ ## quoted │
00:02:25 verbose #3677 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3678 > >
00:02:25 verbose #3679 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3680 > > union quoted =
00:02:25 verbose #3681 > > | Quoted
00:02:25 verbose #3682 > > | NotQuoted
00:02:25 verbose #3683 > >
00:02:25 verbose #3684 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 verbose #3685 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 verbose #3686 > > │ ## split_command │
00:02:25 verbose #3687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 verbose #3688 > >
00:02:25 verbose #3689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3690 > > union command_parse_step =
00:02:25 verbose #3691 > > | Start
00:02:25 verbose #3692 > > | Path : quoted
00:02:25 verbose #3693 > > | Arguments
00:02:25 verbose #3694 > >
00:02:25 verbose #3695 > > let split_command (command : string) =
00:02:25 verbose #3696 > > let rec loop (path, args) (chars : list char) step =
00:02:25 verbose #3697 > > match step, chars with
00:02:25 verbose #3698 > > | _, (('"' | '\'') :: tail) when path = "" => loop (path, args) tail
00:02:25 verbose #3699 > > (Path Quoted)
00:02:25 verbose #3700 > > | Path (Quoted), (('"' | '\'') :: tail) => loop (path, args) tail (Path
00:02:25 verbose #3701 > > NotQuoted)
00:02:25 verbose #3702 > > | Path (Quoted), (' ' :: tail) => loop ($'$"{!path} "', args) tail (Path
00:02:25 verbose #3703 > > Quoted)
00:02:25 verbose #3704 > > | (Start | Path _), (' ' :: tail) => loop (path, args) tail Arguments
00:02:25 verbose #3705 > > | Arguments, (char :: tail) => loop (path, $'$"{!args}{!char}"') tail
00:02:25 verbose #3706 > > Arguments
00:02:25 verbose #3707 > > | _, (char :: tail) => loop ($'$"{!path}{!char}"', args) tail step
00:02:25 verbose #3708 > > | _ => path |> sm'.replace @"\" "/", args
00:02:25 verbose #3709 > > loop (join "", "") (command |> sm'.to_char_array |> am'.to_list' |>
00:02:25 verbose #3710 > > listm'.unbox) Start
00:02:25 verbose #3711 > >
00:02:25 verbose #3712 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 verbose #3713 > > //// test
00:02:25 verbose #3714 > >
00:02:25 verbose #3715 > > split_command ""
00:02:25 verbose #3716 > > |> _assert_eq ("", "")
00:02:25 verbose #3717 > >
00:02:25 verbose #3718 > > split_command "/a/b/c"
00:02:25 verbose #3719 > > |> _assert_eq ("/a/b/c", "")
00:02:25 verbose #3720 > >
00:02:25 verbose #3721 > > split_command "cat file.txt"
00:02:25 verbose #3722 > > |> _assert_eq ("cat", "file.txt")
00:02:25 verbose #3723 > >
00:02:25 verbose #3724 > > split_command $'"""..\\..\\file.exe file1.txt file2.txt"""'
00:02:25 verbose #3725 > > |> _assert_eq ("../../file.exe", "file1.txt file2.txt")
00:02:25 verbose #3726 > >
00:02:25 verbose #3727 > > split_command $'\@"c:\\dir\\file.exe ""file1.txt file2.txt"""'
00:02:25 verbose #3728 > > |> _assert_eq ("c:/dir/file.exe", $'\@"""file1.txt file2.txt"""')
00:02:25 verbose #3729 > >
00:02:25 verbose #3730 > > split_command $'\@"""..\\..\\dir name\\file.exe"" ""file 1.txt"" file2.txt"'
00:02:25 verbose #3731 > > |> _assert_eq ("../../dir name/file.exe", $'\@"""file 1.txt"" file2.txt"')
00:02:25 verbose #3732 > >
00:02:25 verbose #3733 > > split_command $'\@"""..\\..\\file 1.exe"" -c \\\\""echo 1\\\\"""'
00:02:25 verbose #3734 > > |> _assert_eq ("../../file 1.exe", $'\@"-c \\\\""echo 1\\\\"""')
00:02:25 verbose #3735 > >
00:02:25 verbose #3736 > > split_command $'\@"..\\..\\file 1.exe -c \\\\""echo 1\\\\"""'
00:02:25 verbose #3737 > > |> _assert_eq ("../../file", $'\@"1.exe -c \\\\""echo 1\\\\"""')
00:02:27 verbose #3738 > >
00:02:27 verbose #3739 > > ╭─[ 1.94s - stdout ]───────────────────────────────────────────────────────────╮
00:02:27 verbose #3740 > > │ assert_eq / actual: struct ("", "") / expected: struct ("", "") │
00:02:27 verbose #3741 > > │ assert_eq / actual: struct ("/a/b/c", "") / expected: struct ("/a/b/c", "") │
00:02:27 verbose #3742 > > │ assert_eq / actual: struct ("cat", "file.txt") / expected: struct ("cat", │
00:02:27 verbose #3743 > > │ "file.txt") │
00:02:27 verbose #3744 > > │ assert_eq / actual: struct ("../../file.exe", "file1.txt file2.txt") / │
00:02:27 verbose #3745 > > │ expected: struct ("../../file.exe", "file1.txt file2.txt") │
00:02:27 verbose #3746 > > │ assert_eq / actual: struct ("c:/dir/file.exe", ""file1.txt file2.txt"") / │
00:02:27 verbose #3747 > > │ expected: struct ("c:/dir/file.exe", ""file1.txt file2.txt"") │
00:02:27 verbose #3748 > > │ assert_eq / actual: struct ("../../dir name/file.exe", ""file 1.txt" │
00:02:27 verbose #3749 > > │ file2.txt") / expected: struct ("../../dir name/file.exe", ""file 1.txt" │
00:02:27 verbose #3750 > > │ file2.txt") │
00:02:27 verbose #3751 > > │ assert_eq / actual: struct ("../../file 1.exe", "-c \\"echo 1\\"") / │
00:02:27 verbose #3752 > > │ expected: struct ("../../file 1.exe", "-c \\"echo 1\\"") │
00:02:27 verbose #3753 > > │ assert_eq / actual: struct ("../../file", "1.exe -c \\"echo 1\\"") / │
00:02:27 verbose #3754 > > │ expected: struct ("../../file", "1.exe -c \\"echo 1\\"") │
00:02:27 verbose #3755 > > │ │
00:02:27 verbose #3756 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3757 > >
00:02:27 verbose #3758 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3759 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3760 > > │ ## process │
00:02:27 verbose #3761 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3762 > >
00:02:27 verbose #3763 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3764 > > nominal process = $'System.Diagnostics.Process'
00:02:27 verbose #3765 > >
00:02:27 verbose #3766 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3767 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3768 > > │ ## process_start_info │
00:02:27 verbose #3769 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3770 > >
00:02:27 verbose #3771 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3772 > > nominal process_start_info = $'System.Diagnostics.ProcessStartInfo'
00:02:27 verbose #3773 > >
00:02:27 verbose #3774 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3775 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3776 > > │ ## data_received_event_args │
00:02:27 verbose #3777 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3778 > >
00:02:27 verbose #3779 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3780 > > nominal data_received_event_args = $'System.Diagnostics.DataReceivedEventArgs'
00:02:27 verbose #3781 > >
00:02:27 verbose #3782 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3783 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3784 > > │ ## new_process │
00:02:27 verbose #3785 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3786 > >
00:02:27 verbose #3787 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3788 > > inl new_process (process_start_info : process_start_info) : process =
00:02:27 verbose #3789 > > $'new `process (StartInfo = !process_start_info)'
00:02:27 verbose #3790 > >
00:02:27 verbose #3791 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3792 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3793 > > │ ## process_start │
00:02:27 verbose #3794 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3795 > >
00:02:27 verbose #3796 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3797 > > inl process_start (process : process) : bool =
00:02:27 verbose #3798 > > $'!process.Start' ()
00:02:27 verbose #3799 > >
00:02:27 verbose #3800 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3801 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3802 > > │ ## process_exit_code │
00:02:27 verbose #3803 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3804 > >
00:02:27 verbose #3805 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3806 > > inl process_exit_code (process : process) : i32 =
00:02:27 verbose #3807 > > $'!process.ExitCode'
00:02:27 verbose #3808 > >
00:02:27 verbose #3809 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3810 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3811 > > │ ## process_id │
00:02:27 verbose #3812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3813 > >
00:02:27 verbose #3814 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3815 > > inl process_id (process : process) : i32 =
00:02:27 verbose #3816 > > $'!process.Id'
00:02:27 verbose #3817 > >
00:02:27 verbose #3818 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3819 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3820 > > │ ## process_has_exited │
00:02:27 verbose #3821 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3822 > >
00:02:27 verbose #3823 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3824 > > inl process_has_exited (process : process) : bool =
00:02:27 verbose #3825 > > run_target function
00:02:27 verbose #3826 > > | Fsharp (Native) => fun () =>
00:02:27 verbose #3827 > > $'!process.HasExited'
00:02:27 verbose #3828 > > | _ => fun () => null ()
00:02:27 verbose #3829 > >
00:02:27 verbose #3830 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3831 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3832 > > │ ## process_kill │
00:02:27 verbose #3833 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3834 > >
00:02:27 verbose #3835 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3836 > > inl process_kill (process : process) : () =
00:02:27 verbose #3837 > > run_target function
00:02:27 verbose #3838 > > | Fsharp (Native) => fun () =>
00:02:27 verbose #3839 > > $'!process.Kill' ()
00:02:27 verbose #3840 > > | _ => fun () => null ()
00:02:27 verbose #3841 > >
00:02:27 verbose #3842 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3843 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3844 > > │ ## process_begin_error_read_line │
00:02:27 verbose #3845 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3846 > >
00:02:27 verbose #3847 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3848 > > inl process_begin_error_read_line (process : process) : () =
00:02:27 verbose #3849 > > $'!process.BeginErrorReadLine' ()
00:02:27 verbose #3850 > >
00:02:27 verbose #3851 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3852 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3853 > > │ ## process_begin_output_read_line │
00:02:27 verbose #3854 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3855 > >
00:02:27 verbose #3856 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3857 > > inl process_begin_output_read_line (process : process) : () =
00:02:27 verbose #3858 > > $'!process.BeginOutputReadLine' ()
00:02:27 verbose #3859 > >
00:02:27 verbose #3860 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3861 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3862 > > │ ## process_add_output_data_received │
00:02:27 verbose #3863 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3864 > >
00:02:27 verbose #3865 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3866 > > inl process_add_output_data_received fn (process : process) : () =
00:02:27 verbose #3867 > > $'!process.OutputDataReceived.Add !fn '
00:02:27 verbose #3868 > >
00:02:27 verbose #3869 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3870 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3871 > > │ ## process_add_error_data_received │
00:02:27 verbose #3872 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3873 > >
00:02:27 verbose #3874 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3875 > > inl process_add_error_data_received fn (process : process) : () =
00:02:27 verbose #3876 > > $'!process.ErrorDataReceived.Add !fn '
00:02:27 verbose #3877 > >
00:02:27 verbose #3878 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3879 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3880 > > │ ## process_wait_for_exit_async │
00:02:27 verbose #3881 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3882 > >
00:02:27 verbose #3883 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3884 > > inl process_wait_for_exit_async (ct : threading.cancellation_token) (process :
00:02:27 verbose #3885 > > process) : async.task () =
00:02:27 verbose #3886 > > $'!process.WaitForExitAsync !ct '
00:02:27 verbose #3887 > >
00:02:27 verbose #3888 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3889 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3890 > > │ ## event_data │
00:02:27 verbose #3891 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3892 > >
00:02:27 verbose #3893 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3894 > > inl event_data (e : data_received_event_args) : string =
00:02:27 verbose #3895 > > $'!e.Data'
00:02:27 verbose #3896 > >
00:02:27 verbose #3897 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3898 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3899 > > │ ## execution_line │
00:02:27 verbose #3900 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3901 > >
00:02:27 verbose #3902 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3903 > > type execution_line =
00:02:27 verbose #3904 > > {
00:02:27 verbose #3905 > > process_id : int
00:02:27 verbose #3906 > > line : string
00:02:27 verbose #3907 > > error : bool
00:02:27 verbose #3908 > > }
00:02:27 verbose #3909 > >
00:02:27 verbose #3910 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3911 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3912 > > │ ## execution_options │
00:02:27 verbose #3913 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3914 > >
00:02:27 verbose #3915 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3916 > > type execution_options =
00:02:27 verbose #3917 > > {
00:02:27 verbose #3918 > > command : string
00:02:27 verbose #3919 > > cancellation_token : optionm'.option' threading.cancellation_token
00:02:27 verbose #3920 > > environment_variables : array_base (string * string)
00:02:27 verbose #3921 > > on_line : optionm'.option' (execution_line -> async.async ())
00:02:27 verbose #3922 > > stdin : optionm'.option' (threading.arc (threading.mutex
00:02:27 verbose #3923 > > process_child_stdin) -> ())
00:02:27 verbose #3924 > > trace : bool
00:02:27 verbose #3925 > > working_directory : optionm'.option' string
00:02:27 verbose #3926 > > }
00:02:27 verbose #3927 > >
00:02:27 verbose #3928 > > inl execution_options (fn : execution_options -> execution_options) :
00:02:27 verbose #3929 > > execution_options =
00:02:27 verbose #3930 > > {
00:02:27 verbose #3931 > > command = ""
00:02:27 verbose #3932 > > cancellation_token = None |> optionm'.box
00:02:27 verbose #3933 > > environment_variables = ;[[]]
00:02:27 verbose #3934 > > on_line = None |> optionm'.box
00:02:27 verbose #3935 > > stdin = None |> optionm'.box
00:02:27 verbose #3936 > > trace = true
00:02:27 verbose #3937 > > working_directory = None |> optionm'.box
00:02:27 verbose #3938 > > }
00:02:27 verbose #3939 > > |> fn
00:02:27 verbose #3940 > >
00:02:27 verbose #3941 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #3942 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #3943 > > │ ## execute_with_options_async │
00:02:27 verbose #3944 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #3945 > >
00:02:27 verbose #3946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #3947 > > let execute_with_options_async (options : execution_options) : _ (i32 * string)
00:02:27 verbose #3948 > > =
00:02:27 verbose #3949 > > run_target function
00:02:27 verbose #3950 > > | Fsharp (Native) => fun () =>
00:02:27 verbose #3951 > > fun () =>
00:02:27 verbose #3952 > > inl file_name, arguments = options.command |> split_command
00:02:27 verbose #3953 > > inl working_directory = options.working_directory |>
00:02:27 verbose #3954 > > optionm'.unbox |> optionm'.default_value ""
00:02:27 verbose #3955 > >
00:02:27 verbose #3956 > > trace Debug (fun () => $'$"runtime.execute_with_options_async
00:02:27 verbose #3957 > > options: %A{!options}"') (join _locals)
00:02:27 verbose #3958 > >
00:02:27 verbose #3959 > > inl utf8 = sm'.encoding_utf8 ()
00:02:27 verbose #3960 > > inl start_info : process_start_info =
00:02:27 verbose #3961 > > $'System.Diagnostics.ProcessStartInfo (Arguments = !arguments,
00:02:27 verbose #3962 > > StandardOutputEncoding = !utf8, WorkingDirectory = !working_directory, FileName
00:02:27 verbose #3963 > > = !file_name, CreateNoWindow = true, RedirectStandardError = true,
00:02:27 verbose #3964 > > RedirectStandardOutput = true, UseShellExecute = false)'
00:02:27 verbose #3965 > >
00:02:27 verbose #3966 > > (a options.environment_variables : _ i32 _)
00:02:27 verbose #3967 > > |> am.iter fun key, value =>
00:02:27 verbose #3968 > > $'!start_info.EnvironmentVariables.[[!key]] <- !value '
00:02:27 verbose #3969 > >
00:02:27 verbose #3970 > > inl proc = start_info |> new_process |> use
00:02:27 verbose #3971 > > inl output : _ string = threading.new_concurrent_stack ()
00:02:27 verbose #3972 > >
00:02:27 verbose #3973 > > inl event error (e : data_received_event_args) = async.new_async
00:02:27 verbose #3974 > > fun () =>
00:02:27 verbose #3975 > > inl data = e |> event_data
00:02:27 verbose #3976 > > if data <> null () then
00:02:27 verbose #3977 > > match options.on_line |> optionm'.unbox with
00:02:27 verbose #3978 > > | Some on_line =>
00:02:27 verbose #3979 > > on_line
00:02:27 verbose #3980 > > {
00:02:27 verbose #3981 > > process_id = proc |> process_id
00:02:27 verbose #3982 > > line = data
00:02:27 verbose #3983 > > error = error
00:02:27 verbose #3984 > > }
00:02:27 verbose #3985 > > |> async.do
00:02:27 verbose #3986 > > | None => ()
00:02:27 verbose #3987 > >
00:02:27 verbose #3988 > > inl text =
00:02:27 verbose #3989 > > if error
00:02:27 verbose #3990 > > then $'$"\! {!data}"'
00:02:27 verbose #3991 > > else $'$"> {!data}"'
00:02:27 verbose #3992 > > if options.trace
00:02:27 verbose #3993 > > then trace Verbose (fun () => text) _locals
00:02:27 verbose #3994 > > else text |> console.write_line
00:02:27 verbose #3995 > >
00:02:27 verbose #3996 > > inl l = if error then $'"\\u001b[[7;4m"' else ""
00:02:27 verbose #3997 > > inl r = if error then $'"\\u001b[[0m"' else ""
00:02:27 verbose #3998 > > output |> threading.concurrent_stack_push
00:02:27 verbose #3999 > > $'$"{!l}{!data}{!r}"'
00:02:27 verbose #4000 > >
00:02:27 verbose #4001 > > proc |> process_add_output_data_received (event false >>
00:02:27 verbose #4002 > > async.start_immediate)
00:02:27 verbose #4003 > > proc |> process_add_error_data_received (event true >>
00:02:27 verbose #4004 > > async.start_immediate)
00:02:27 verbose #4005 > >
00:02:27 verbose #4006 > > if proc |> process_start |> not
00:02:27 verbose #4007 > > then failwith $'$"runtime.execute_with_options_async
00:02:27 verbose #4008 > > process_start error"'
00:02:27 verbose #4009 > >
00:02:27 verbose #4010 > > proc |> process_begin_error_read_line
00:02:27 verbose #4011 > > proc |> process_begin_output_read_line
00:02:27 verbose #4012 > >
00:02:27 verbose #4013 > > inl ct =
00:02:27 verbose #4014 > > options.cancellation_token
00:02:27 verbose #4015 > > |> optionm'.unbox
00:02:27 verbose #4016 > > |> optionm'.default_with threading.token_none
00:02:27 verbose #4017 > > |> async.merge_cancellation_token_with_default_async
00:02:27 verbose #4018 > > |> async.let'
00:02:27 verbose #4019 > >
00:02:27 verbose #4020 > > ct |> threading.token_register fun () =>
00:02:27 verbose #4021 > > if proc |> process_has_exited |> not
00:02:27 verbose #4022 > > then proc |> process_kill
00:02:27 verbose #4023 > > |> use
00:02:27 verbose #4024 > > |> ignore
00:02:27 verbose #4025 > >
00:02:27 verbose #4026 > > inl exit_code : i32 =
00:02:27 verbose #4027 > > fun () =>
00:02:27 verbose #4028 > > try_unit
00:02:27 verbose #4029 > > fun () =>
00:02:27 verbose #4030 > > proc
00:02:27 verbose #4031 > > |> process_wait_for_exit_async ct
00:02:27 verbose #4032 > > |> async.await_task
00:02:27 verbose #4033 > > |> async.do
00:02:27 verbose #4034 > > proc |> process_exit_code |> return
00:02:27 verbose #4035 > > fun ex =>
00:02:27 verbose #4036 > > // with :?
00:02:27 verbose #4037 > > System.Threading.Tasks.TaskCanceledException as ex =>
00:02:27 verbose #4038 > > inl ex' = ex |> sm'.format_exception
00:02:27 verbose #4039 > > output |> threading.concurrent_stack_push ex'
00:02:27 verbose #4040 > > inl ex : async.task_canceled_exception = ex |>
00:02:27 verbose #4041 > > unbox
00:02:27 verbose #4042 > > trace Warning (fun () =>
00:02:27 verbose #4043 > > $'$"runtime.execute_with_options_async / WaitForExitAsync / ex: %A{!ex}"') (join
00:02:27 verbose #4044 > > _locals)
00:02:27 verbose #4045 > > (limit.min : i32) |> return
00:02:27 verbose #4046 > > |> async.new_async_unit
00:02:27 verbose #4047 > > |> async.let'
00:02:27 verbose #4048 > >
00:02:27 verbose #4049 > > inl output =
00:02:27 verbose #4050 > > output
00:02:27 verbose #4051 > > |> seq.rev''
00:02:27 verbose #4052 > > |> fun x => x : seq.seq' string
00:02:27 verbose #4053 > > |> sm'.concat "\n"
00:02:27 verbose #4054 > >
00:02:27 verbose #4055 > > trace Debug (fun () =>
00:02:27 verbose #4056 > > $'$"runtime.execute_with_options_async / exit_code:
00:02:27 verbose #4057 > > {!exit_code} / output.Length: {!output.Length}"'
00:02:27 verbose #4058 > > ) (join _locals)
00:02:27 verbose #4059 > >
00:02:27 verbose #4060 > > (exit_code, output) |> return
00:02:27 verbose #4061 > > |> async.new_async_unit
00:02:27 verbose #4062 > > | _ => fun () =>
00:02:27 verbose #4063 > > global "#if FABLE_COMPILER\n[[<CompilationRepresentation
00:02:27 verbose #4064 > > (CompilationRepresentationFlags.ModuleSuffix)>]]\nmodule System =\n module
00:02:27 verbose #4065 > > Diagnostics =\n type Process = unit\n type DataReceivedEventArgs =
00:02:27 verbose #4066 > > unit\n#endif"
00:02:27 verbose #4067 > > null ()
00:02:27 verbose #4068 > >
00:02:27 verbose #4069 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:27 verbose #4070 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:27 verbose #4071 > > │ ## execute_async │
00:02:27 verbose #4072 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:27 verbose #4073 > >
00:02:27 verbose #4074 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:27 verbose #4075 > > inl execute_async command =
00:02:27 verbose #4076 > > execution_options fun x => { x with
00:02:27 verbose #4077 > > command = command
00:02:27 verbose #4078 > > }
00:02:27 verbose #4079 > > |> execute_with_options_async
00:02:28 verbose #4080 > >
00:02:28 verbose #4081 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:28 verbose #4082 > > //// test
00:02:28 verbose #4083 > >
00:02:28 verbose #4084 > > types ()
00:02:28 verbose #4085 > >
00:02:28 verbose #4086 > > inl content = "╭─[[ 你好，世界！こんにちは世界！ ]]─╮"
00:02:28 verbose #4087 > > fun () =>
00:02:28 verbose #4088 > > inl file_name = "test.txt"
00:02:28 verbose #4089 > > inl temp_dir, disposable =
00:02:28 verbose #4090 > > (file_name, content)
00:02:28 verbose #4091 > > |> sm'.format_debug
00:02:28 verbose #4092 > > |> crypto.hash_text
00:02:28 verbose #4093 > > |> file_system.create_temp_dir'
00:02:28 verbose #4094 > > disposable |> use |> ignore
00:02:28 verbose #4095 > >
00:02:28 verbose #4096 > > inl path = temp_dir </> file_name
00:02:28 verbose #4097 > >
00:02:28 verbose #4098 > > inl exit_code, result = execute_async $'\@$"pwsh -c ""Get-Content
00:02:28 verbose #4099 > > {!path}"""' |> async.let'
00:02:28 verbose #4100 > > exit_code |> join _assert_eq 1
00:02:28 verbose #4101 > > result |> _assert_string_contains "not exist"
00:02:28 verbose #4102 > >
00:02:28 verbose #4103 > > content |> file_system.write_all_text_async path |> async.do
00:02:28 verbose #4104 > >
00:02:28 verbose #4105 > > execution_options fun x => { x with
00:02:28 verbose #4106 > > command = $'\@$"cat ""{!file_name}"""'
00:02:28 verbose #4107 > > working_directory = Some temp_dir |> optionm'.box
00:02:28 verbose #4108 > > }
00:02:28 verbose #4109 > > |> execute_with_options_async
00:02:28 verbose #4110 > > |> async.let'
00:02:28 verbose #4111 > > |> ignore
00:02:28 verbose #4112 > >
00:02:28 verbose #4113 > > execution_options fun x => { x with
00:02:28 verbose #4114 > > command = $'\@$"pwsh -c ""[[System.Console]]::OutputEncoding =
00:02:28 verbose #4115 > > [[System.Text.Encoding]]::UTF8; Get-Content {!file_name}"""'
00:02:28 verbose #4116 > > working_directory = Some temp_dir |> optionm'.box
00:02:28 verbose #4117 > > }
00:02:28 verbose #4118 > > |> execute_with_options_async
00:02:28 verbose #4119 > > |> async.return_await
00:02:28 verbose #4120 > > |> async.new_async_unit
00:02:28 verbose #4121 > > |> async.run_with_timeout 10000
00:02:28 verbose #4122 > > |> function
00:02:28 verbose #4123 > > | Some (exit_code, output) =>
00:02:28 verbose #4124 > > exit_code |> join _assert_eq 0i32
00:02:28 verbose #4125 > > output |> join _assert_eq content
00:02:28 verbose #4126 > > true
00:02:28 verbose #4127 > > | _ => false
00:02:28 verbose #4128 > > |> _assert_eq true
00:02:32 verbose #4129 > >
00:02:32 verbose #4130 > > ╭─[ 4.60s - stdout ]───────────────────────────────────────────────────────────╮
00:02:32 verbose #4131 > > │ 00:00:00 debug #1 runtime.execute_with_options_async / options: struct │
00:02:32 verbose #4132 > > │ (None, │
00:02:32 verbose #4133 > > │ "pwsh -c "Get-Content │
00:02:32 verbose #4134 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-81 │
00:02:32 verbose #4135 > > │ 3b-88ad-7791-7ce2871edce9\test.txt"", │
00:02:32 verbose #4136 > > │ [||], None, None, true, None) │
00:02:32 verbose #4137 > > │ 00:00:00 verbose #2 ! Get-Content: Cannot find path │
00:02:32 verbose #4138 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:02:32 verbose #4139 > > │ 13b-88ad-7791-7ce2871edce9\test.txt' because it does not exist. │
00:02:32 verbose #4140 > > │ 00:00:00 debug #3 runtime.execute_with_options_async / exit_code: 1 / │
00:02:32 verbose #4141 > > │ output.Length: 197 │
00:02:32 verbose #4142 > > │ assert_eq / actual: 1 / expected: 1 │
00:02:32 verbose #4143 > > │ assert_string_contains / actual: "not exist" / expected: "[ │
00:02:32 verbose #4144 > > │ 31;1mGet-Content: Cannot find path │
00:02:32 verbose #4145 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:02:32 verbose #4146 > > │ 13b-88ad-7791-7ce2871edce9\test.txt' because it does not exist." │
00:02:32 verbose #4147 > > │ 00:00:00 debug #4 runtime.execute_with_options_async / options: struct │
00:02:32 verbose #4148 > > │ (None, "cat "test.txt"", [||], None, None, true, │
00:02:32 verbose #4149 > > │ Some │
00:02:32 verbose #4150 > > │ │
00:02:32 verbose #4151 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:02:32 verbose #4152 > > │ 13b-88ad-7791-7ce2871edce9") │
00:02:32 verbose #4153 > > │ 00:00:01 verbose #5 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:02:32 verbose #4154 > > │ 00:00:01 debug #6 runtime.execute_with_options_async / exit_code: 0 / │
00:02:32 verbose #4155 > > │ output.Length: 22 │
00:02:32 verbose #4156 > > │ 00:00:01 debug #7 runtime.execute_with_options_async / options: struct │
00:02:32 verbose #4157 > > │ (None, │
00:02:32 verbose #4158 > > │ "pwsh -c "[System.Console]::OutputEncoding = [ │
00:02:32 verbose #4159 > > │ System.Text.Encoding]::UTF8; Get-Content test.txt"", │
00:02:32 verbose #4160 > > │ [||], None, None, true, │
00:02:32 verbose #4161 > > │ Some │
00:02:32 verbose #4162 > > │ │
00:02:32 verbose #4163 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\76793606-8 │
00:02:32 verbose #4164 > > │ 13b-88ad-7791-7ce2871edce9") │
00:02:32 verbose #4165 > > │ 00:00:01 verbose #8 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:02:32 verbose #4166 > > │ 00:00:01 debug #9 runtime.execute_with_options_async / exit_code: 0 / │
00:02:32 verbose #4167 > > │ output.Length: 22 │
00:02:32 verbose #4168 > > │ assert_eq / actual: 0 / expected: 0 │
00:02:32 verbose #4169 > > │ assert_eq / actual: "╭─[ 你好，世界！こんにちは世界！ ]─╮" / expected: "╭─[ │
00:02:32 verbose #4170 > > │ 你好，世界！こんにちは世界！ ]─╮" │
00:02:32 verbose #4171 > > │ assert_eq / actual: true / expected: true │
00:02:32 verbose #4172 > > │ │
00:02:32 verbose #4173 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 verbose #4174 > >
00:02:32 verbose #4175 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 verbose #4176 > > //// test
00:02:32 verbose #4177 > >
00:02:32 verbose #4178 > > file_system.types ()
00:02:32 verbose #4179 > > fun () =>
00:02:32 verbose #4180 > > inl file_name = "test.txt"
00:02:32 verbose #4181 > > inl text = "0"
00:02:32 verbose #4182 > >
00:02:32 verbose #4183 > > inl temp_dir, disposable =
00:02:32 verbose #4184 > > (file_name, text)
00:02:32 verbose #4185 > > |> sm'.format_debug
00:02:32 verbose #4186 > > |> crypto.hash_text
00:02:32 verbose #4187 > > |> file_system.create_temp_dir'
00:02:32 verbose #4188 > > disposable |> use |> ignore
00:02:32 verbose #4189 > > inl path = temp_dir </> file_name
00:02:32 verbose #4190 > > text |> file_system.write_all_text_async path |> async.do
00:02:32 verbose #4191 > >
00:02:32 verbose #4192 > > inl cts = threading.new_cancellation_token_source ()
00:02:32 verbose #4193 > > trace Debug (fun () => "1") _locals
00:02:32 verbose #4194 > > inl result =
00:02:32 verbose #4195 > > execution_options fun x => { x with
00:02:32 verbose #4196 > > command = $'\@$"pwsh -c ""Get-Content {!path}"""'
00:02:32 verbose #4197 > > cancellation_token = cts |> threading.cancellation_source_token |>
00:02:32 verbose #4198 > > Some |> optionm'.box
00:02:32 verbose #4199 > > }
00:02:32 verbose #4200 > > |> execute_with_options_async
00:02:32 verbose #4201 > > |> async.start_child
00:02:32 verbose #4202 > > |> async.let'
00:02:32 verbose #4203 > > trace Debug (fun () => "2") _locals
00:02:32 verbose #4204 > > async.sleep 100 |> async.do
00:02:32 verbose #4205 > > trace Debug (fun () => "3") _locals
00:02:32 verbose #4206 > > cts |> threading.cancellation_source_cancel
00:02:32 verbose #4207 > > trace Debug (fun () => "4") _locals
00:02:32 verbose #4208 > > inl exit_code, output = result |> async.let'
00:02:32 verbose #4209 > > trace Debug (fun () => "5") _locals
00:02:32 verbose #4210 > > (exit_code, output) |> return
00:02:32 verbose #4211 > > |> async.new_async_unit
00:02:32 verbose #4212 > > |> async.run_with_timeout 10000
00:02:32 verbose #4213 > > |> function
00:02:32 verbose #4214 > > | Some (exit_code, output) =>
00:02:32 verbose #4215 > > exit_code |> _assert_eq -2147483648i32
00:02:32 verbose #4216 > > output |> _assert_eq (join
00:02:32 verbose #4217 > > "System.Threading.Tasks.TaskCanceledException: A task was canceled.")
00:02:32 verbose #4218 > > true
00:02:32 verbose #4219 > > | _ => false
00:02:32 verbose #4220 > > |> _assert_eq true
00:02:34 verbose #4221 > >
00:02:34 verbose #4222 > > ╭─[ 2.32s - stdout ]───────────────────────────────────────────────────────────╮
00:02:34 verbose #4223 > > │ 00:00:00 debug #1 1 │
00:02:34 verbose #4224 > > │ 00:00:00 debug #2 2 │
00:02:34 verbose #4225 > > │ 00:00:00 debug #3 runtime.execute_with_options_async / options: struct │
00:02:34 verbose #4226 > > │ (Some System.Threading.CancellationToken, │
00:02:34 verbose #4227 > > │ "pwsh -c "Get-Content │
00:02:34 verbose #4228 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-01 │
00:02:34 verbose #4229 > > │ 6e-d959-8d21-02dc1c63c252\test.txt"", │
00:02:34 verbose #4230 > > │ [||], None, None, true, None) │
00:02:34 verbose #4231 > > │ 00:00:00 debug #4 3 │
00:02:34 verbose #4232 > > │ 00:00:00 debug #5 4 │
00:02:34 verbose #4233 > > │ 00:00:00 warning #6 runtime.execute_with_options_async / WaitForExitAsync / │
00:02:34 verbose #4234 > > │ ex: System.Threading.Tasks.TaskCanceledException: A task was canceled. │
00:02:34 verbose #4235 > > │ 00:00:00 debug #7 runtime.execute_with_options_async / exit_code: │
00:02:34 verbose #4236 > > │ -2147483648 / output.Length: 66 │
00:02:34 verbose #4237 > > │ 00:00:00 debug #8 5 │
00:02:34 verbose #4238 > > │ assert_eq / actual: -2147483648 / expected: -2147483648 │
00:02:34 verbose #4239 > > │ assert_eq / actual: "System.Threading.Tasks.TaskCanceledException: A task │
00:02:34 verbose #4240 > > │ was canceled." / expected: "System.Threading.Tasks.TaskCanceledException: A │
00:02:34 verbose #4241 > > │ task was canceled." │
00:02:34 verbose #4242 > > │ assert_eq / actual: true / expected: true │
00:02:34 verbose #4243 > > │ │
00:02:34 verbose #4244 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #4245 > >
00:02:34 verbose #4246 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 verbose #4247 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 verbose #4248 > > │ ## split_args │
00:02:34 verbose #4249 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 verbose #4250 > >
00:02:34 verbose #4251 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #4252 > > let split_args (args : string) : result (array_base string) string =
00:02:34 verbose #4253 > > open parsing
00:02:34 verbose #4254 > > inl esc = [[ '\\'; '`' ]]
00:02:34 verbose #4255 > > inl quotes = [[ '"' ]]
00:02:34 verbose #4256 > > inl special = esc ++ quotes
00:02:34 verbose #4257 > > inl p_esc_char c =
00:02:34 verbose #4258 > > p_char c >>. any_char () |>> fun c' => $'$"{!c}{!c'}"'
00:02:34 verbose #4259 > > inl p_word = special |> none_of |>> sm'.obj_to_string
00:02:34 verbose #4260 > > inl p_plain = special ++ [[ ' ' ]] |> none_of |> many1_chars
00:02:34 verbose #4261 > > inl p_text = p_word |> many1_strings
00:02:34 verbose #4262 > > inl p_esc = esc |> listm.map p_esc_char |> choice
00:02:34 verbose #4263 > > inl p_quoted = (p_word <|> p_esc) |> many |>> (listm'.box >> seq.of_list' >>
00:02:34 verbose #4264 > > sm'.concat "")
00:02:34 verbose #4265 > > inl p_quoted_all = p_quoted |> between (p_char '"') (p_char '"')
00:02:34 verbose #4266 > > inl p_esc_root = p_esc |>> (fun _ => "") >>. (p_word |> many) |>>
00:02:34 verbose #4267 > > (listm'.box >> seq.of_list' >> sm'.concat "")
00:02:34 verbose #4268 > > inl p_content = p_plain <|> p_quoted_all <|> p_esc_root
00:02:34 verbose #4269 > > inl p_args = spaces1 () |> sep_by p_content
00:02:34 verbose #4270 > > args
00:02:34 verbose #4271 > > |> optionm'.of_obj
00:02:34 verbose #4272 > > |> optionm'.default_value' ""
00:02:34 verbose #4273 > > |> parse p_args
00:02:34 verbose #4274 > > |> resultm.map fun x => (x |> fst |> listm'.box |> listm'.to_array' : _ i32
00:02:34 verbose #4275 > > _)
00:02:34 verbose #4276 > > |> resultm.map (fun (a x : _ i32 _) => x)
00:02:34 verbose #4277 > >
00:02:34 verbose #4278 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 verbose #4279 > > //// test
00:02:34 verbose #4280 > >
00:02:34 verbose #4281 > > [[
00:02:34 verbose #4282 > > "a b c",
00:02:34 verbose #4283 > > ;[[ "a"; "b"; "c" ]]
00:02:34 verbose #4284 > >
00:02:34 verbose #4285 > > "e f \"g h\" i",
00:02:34 verbose #4286 > > ;[[ "e"; "f"; "g h"; "i" ]]
00:02:34 verbose #4287 > >
00:02:34 verbose #4288 > > "\"j k\" \"l\" \"m\"",
00:02:34 verbose #4289 > > ;[[ "j k"; "l"; "m" ]]
00:02:34 verbose #4290 > >
00:02:34 verbose #4291 > > "s -t \"u \`\"v\`\" w\"",
00:02:34 verbose #4292 > > ;[[ "s"; "-t"; "u \`\"v\`\" w" ]]
00:02:34 verbose #4293 > >
00:02:34 verbose #4294 > > "n -o \"p \\\"q\\\" r\"",
00:02:34 verbose #4295 > > ;[[ "n"; "-o"; "p \\\"q\\\" r" ]]
00:02:34 verbose #4296 > >
00:02:34 verbose #4297 > > "r -s \"t \\\"u\\\"\"",
00:02:34 verbose #4298 > > ;[[ "r"; "-s"; "t \\\"u\\\"" ]]
00:02:34 verbose #4299 > >
00:02:34 verbose #4300 > > $'$"x -y \\\"$z -a \'(b=\\\\\\"c-id=)[[a-fA-F0-9]]{{8}}\', {{ \`$_[[1]] +
00:02:34 verbose #4301 > > \`$d++ }}\\\""',
00:02:34 verbose #4302 > > ;[[ "x"; "-y"; "$z -a '(b=\\\"c-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$d++ }"
00:02:34 verbose #4303 > > ]]
00:02:34 verbose #4304 > >
00:02:34 verbose #4305 > > "e -f \"$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }\"",
00:02:34 verbose #4306 > > ;[[ "e"; "-f"; "$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }"
00:02:34 verbose #4307 > > ]]
00:02:34 verbose #4308 > >
00:02:34 verbose #4309 > > $'$"--l \\\\\\"\'\'\' m \'\'\'\\\\\\" "',
00:02:34 verbose #4310 > > ;[[ "--l"; "''' m '''" ]]
00:02:34 verbose #4311 > >
00:02:34 verbose #4312 > > $'$"n --o --p q --r \\\"s:/t u/v.w\\\" --x \\\"y:/z.a\\\" --b c.d
00:02:34 verbose #4313 > > \\\"\\\\e{{f-g}}\\\" h.i \\\"j (k)\\\""',
00:02:34 verbose #4314 > > ;[[ "n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; "y:/z.a"; "--b";
00:02:34 verbose #4315 > > "c.d"; "\\e{f-g}"; "h.i"; "j (k)" ]]
00:02:34 verbose #4316 > >
00:02:34 verbose #4317 > > $'\@$"l ""m n:\\o.p"""',
00:02:34 verbose #4318 > > ;[[ "l"; "m n:\\o.p" ]]
00:02:34 verbose #4319 > > ]]
00:02:34 verbose #4320 > > |> listm.rev
00:02:34 verbose #4321 > > |> listm.map fun input, expected =>
00:02:34 verbose #4322 > > input
00:02:34 verbose #4323 > > |> split_args
00:02:34 verbose #4324 > > |> fun x =>
00:02:34 verbose #4325 > > try
00:02:34 verbose #4326 > > fun () =>
00:02:34 verbose #4327 > > ($'$"\ninput: {!input}"' : string)
00:02:34 verbose #4328 > > |> console.write_line
00:02:34 verbose #4329 > > x
00:02:34 verbose #4330 > > |> resultm.get
00:02:34 verbose #4331 > > |> _assert_eq' expected
00:02:34 verbose #4332 > > false
00:02:34 verbose #4333 > > fun ex =>
00:02:34 verbose #4334 > > ($'$"error / expected: %A{!expected} / ex: %A{!ex}"' : string)
00:02:34 verbose #4335 > > |> console.write_line
00:02:34 verbose #4336 > > Some true
00:02:34 verbose #4337 > > |> optionm.value
00:02:34 verbose #4338 > > |> listm'.filter id
00:02:34 verbose #4339 > > |> function
00:02:34 verbose #4340 > > | [[]] => ()
00:02:34 verbose #4341 > > | x => failwith $'$"{!x}"'
00:02:36 verbose #4342 > >
00:02:36 verbose #4343 > > ╭─[ 1.34s - stdout ]───────────────────────────────────────────────────────────╮
00:02:36 verbose #4344 > > │ │
00:02:36 verbose #4345 > > │ input: a b c │
00:02:36 verbose #4346 > > │ assert_eq' / actual: [|"a"; "b"; "c"|] / expected: [|"a"; "b"; "c"|] │
00:02:36 verbose #4347 > > │ │
00:02:36 verbose #4348 > > │ input: e f "g h" i │
00:02:36 verbose #4349 > > │ assert_eq' / actual: [|"e"; "f"; "g h"; "i"|] / expected: [|"e"; "f"; "g h"; │
00:02:36 verbose #4350 > > │ "i"|] │
00:02:36 verbose #4351 > > │ │
00:02:36 verbose #4352 > > │ input: "j k" "l" "m" │
00:02:36 verbose #4353 > > │ assert_eq' / actual: [|"j k"; "l"; "m"|] / expected: [|"j k"; "l"; "m"|] │
00:02:36 verbose #4354 > > │ │
00:02:36 verbose #4355 > > │ input: s -t "u `"v`" w" │
00:02:36 verbose #4356 > > │ assert_eq' / actual: [|"s"; "-t"; "u `"v`" w"|] / expected: [|"s"; "-t"; "u │
00:02:36 verbose #4357 > > │ `"v`" w"|] │
00:02:36 verbose #4358 > > │ │
00:02:36 verbose #4359 > > │ input: n -o "p \"q\" r" │
00:02:36 verbose #4360 > > │ assert_eq' / actual: [|"n"; "-o"; "p \"q\" r"|] / expected: [|"n"; "-o"; "p │
00:02:36 verbose #4361 > > │ \"q\" r"|] │
00:02:36 verbose #4362 > > │ │
00:02:36 verbose #4363 > > │ input: r -s "t \"u\"" │
00:02:36 verbose #4364 > > │ assert_eq' / actual: [|"r"; "-s"; "t \"u\""|] / expected: [|"r"; "-s"; "t │
00:02:36 verbose #4365 > > │ \"u\""|] │
00:02:36 verbose #4366 > > │ │
00:02:36 verbose #4367 > > │ input: x -y "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[1] + `$d++ }" │
00:02:36 verbose #4368 > > │ assert_eq' / actual: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[ │
00:02:36 verbose #4369 > > │ 1] + `$d++ }"|] / expected: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', │
00:02:36 verbose #4370 > > │ { `$_[1] + `$d++ }"|] │
00:02:36 verbose #4371 > > │ │
00:02:36 verbose #4372 > > │ input: e -f "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[1] + `$k++ }" │
00:02:36 verbose #4373 > > │ assert_eq' / actual: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[ │
00:02:36 verbose #4374 > > │ 1] + `$k++ }"|] / expected: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', │
00:02:36 verbose #4375 > > │ { `$_[1] + `$k++ }"|] │
00:02:36 verbose #4376 > > │ │
00:02:36 verbose #4377 > > │ input: --l \"''' m '''\" │
00:02:36 verbose #4378 > > │ assert_eq' / actual: [|"--l"; "''' m '''"|] / expected: [|"--l"; "''' m │
00:02:36 verbose #4379 > > │ '''"|] │
00:02:36 verbose #4380 > > │ │
00:02:36 verbose #4381 > > │ input: n --o --p q --r "s:/t u/v.w" --x "y:/z.a" --b c.d "\e{f-g}" h.i "j │
00:02:36 verbose #4382 > > │ (k)" │
00:02:36 verbose #4383 > > │ assert_eq' / actual: [|"n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; │
00:02:36 verbose #4384 > > │ "y:/z.a"; "--b"; "c.d"; │
00:02:36 verbose #4385 > > │ "\e{f-g}"; "h.i"; "j (k)"|] / expected: [|"n"; "--o"; "--p"; "q"; "--r"; │
00:02:36 verbose #4386 > > │ "s:/t u/v.w"; "--x"; "y:/z.a"; "--b"; "c.d"; │
00:02:36 verbose #4387 > > │ "\e{f-g}"; "h.i"; "j (k)"|] │
00:02:36 verbose #4388 > > │ │
00:02:36 verbose #4389 > > │ input: l "m n:\o.p" │
00:02:36 verbose #4390 > > │ assert_eq' / actual: [|"l"; "m n:\o.p"|] / expected: [|"l"; "m n:\o.p"|] │
00:02:36 verbose #4391 > > │ │
00:02:36 verbose #4392 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4393 > >
00:02:36 verbose #4394 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4395 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4396 > > │ ## stdin_write_all │
00:02:36 verbose #4397 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4398 > >
00:02:36 verbose #4399 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4400 > > inl stdin_write_all (stdin : threading.mutex_guard process_child_stdin) (text :
00:02:36 verbose #4401 > > string) : () =
00:02:36 verbose #4402 > > inl stream = text |> sm'.as_bytes
00:02:36 verbose #4403 > > inl stdin = join stdin
00:02:36 verbose #4404 > > (!\($'"true; let mut !stdin = !stdin"') : bool) |> ignore
00:02:36 verbose #4405 > > (!\\(stdin, $'"true; std::io::Write::write_all(&mut *$0,
00:02:36 verbose #4406 > > !stream).unwrap()"') : bool) |> ignore
00:02:36 verbose #4407 > >
00:02:36 verbose #4408 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4409 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4410 > > │ ## stdin_flush │
00:02:36 verbose #4411 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4412 > >
00:02:36 verbose #4413 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4414 > > inl stdin_flush (stdin : threading.mutex_guard process_child_stdin) : () =
00:02:36 verbose #4415 > > inl stdin = join stdin
00:02:36 verbose #4416 > > (!\($'"true; let mut !stdin = !stdin"') : bool) |> ignore
00:02:36 verbose #4417 > > (!\\(stdin, $'"true; std::io::Write::flush(&mut *$0).unwrap()"') : bool) |>
00:02:36 verbose #4418 > > ignore
00:02:36 verbose #4419 > >
00:02:36 verbose #4420 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4421 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4422 > > │ ## new_process_command │
00:02:36 verbose #4423 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4424 > >
00:02:36 verbose #4425 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4426 > > inl new_process_command (file_name : string) : process_command =
00:02:36 verbose #4427 > > !\\(file_name, $'"std::process::Command::new(&*$0)"')
00:02:36 verbose #4428 > >
00:02:36 verbose #4429 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4430 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4431 > > │ ## process_stdio_piped │
00:02:36 verbose #4432 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4433 > >
00:02:36 verbose #4434 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4435 > > inl process_stdio_piped () : process_stdio =
00:02:36 verbose #4436 > > !\($'"std::process::Stdio::piped()"')
00:02:36 verbose #4437 > >
00:02:36 verbose #4438 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4439 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4440 > > │ ## process_command_args │
00:02:36 verbose #4441 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4442 > >
00:02:36 verbose #4443 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4444 > > inl process_command_args (args : am'.vec sm'.std_string) (c : process_command) :
00:02:36 verbose #4445 > > rust.ref' (rust.mut' process_command) =
00:02:36 verbose #4446 > > (!\($'"true; let mut !c = !c"') : bool) |> ignore
00:02:36 verbose #4447 > > !\\((c, args), $'"std::process::Command::args(&mut $0, &*$1)"')
00:02:36 verbose #4448 > >
00:02:36 verbose #4449 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4450 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4451 > > │ ## process_command_stdout │
00:02:36 verbose #4452 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4453 > >
00:02:36 verbose #4454 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4455 > > inl process_command_stdout (stdio : process_stdio) (c : rust.ref' (rust.mut'
00:02:36 verbose #4456 > > process_command)) : rust.ref' (rust.mut' process_command) =
00:02:36 verbose #4457 > > !\\(c, $'"std::process::Command::stdout($0, std::process::Stdio::piped())"')
00:02:36 verbose #4458 > >
00:02:36 verbose #4459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4461 > > │ ## process_command_stderr │
00:02:36 verbose #4462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4463 > >
00:02:36 verbose #4464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4465 > > inl process_command_stderr (stdio : process_stdio) (c : rust.ref' (rust.mut'
00:02:36 verbose #4466 > > process_command)) : rust.ref' (rust.mut' process_command) =
00:02:36 verbose #4467 > > !\\(c, $'"std::process::Command::stderr($0, std::process::Stdio::piped())"')
00:02:36 verbose #4468 > >
00:02:36 verbose #4469 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4470 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4471 > > │ ## process_command_stdin │
00:02:36 verbose #4472 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4473 > >
00:02:36 verbose #4474 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4475 > > inl process_command_stdin (stdio : process_stdio) (c : rust.ref' (rust.mut'
00:02:36 verbose #4476 > > process_command)) : rust.ref' (rust.mut' process_command) =
00:02:36 verbose #4477 > > !\\(c, $'"std::process::Command::stdin($0, std::process::Stdio::piped())"')
00:02:36 verbose #4478 > >
00:02:36 verbose #4479 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4480 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4481 > > │ ## process_command_current_dir │
00:02:36 verbose #4482 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4483 > >
00:02:36 verbose #4484 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4485 > > inl process_command_current_dir
00:02:36 verbose #4486 > > (dir : string)
00:02:36 verbose #4487 > > (c : rust.ref' (rust.mut' process_command))
00:02:36 verbose #4488 > > : rust.ref' (rust.mut' process_command)
00:02:36 verbose #4489 > > =
00:02:36 verbose #4490 > > !\\(dir, $'"std::process::Command::current_dir(!c, &*$0)"')
00:02:36 verbose #4491 > >
00:02:36 verbose #4492 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4493 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4494 > > │ ## process_command_env │
00:02:36 verbose #4495 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4496 > >
00:02:36 verbose #4497 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4498 > > inl process_command_env
00:02:36 verbose #4499 > > (key : string)
00:02:36 verbose #4500 > > (value : string)
00:02:36 verbose #4501 > > (c : rust.ref' (rust.mut' process_command))
00:02:36 verbose #4502 > > : rust.ref' (rust.mut' process_command)
00:02:36 verbose #4503 > > =
00:02:36 verbose #4504 > > !\\((key, value), $'"std::process::Command::env(!c, &*$0, &*$1)"')
00:02:36 verbose #4505 > >
00:02:36 verbose #4506 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4507 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4508 > > │ ## process_command_spawn │
00:02:36 verbose #4509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4510 > >
00:02:36 verbose #4511 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4512 > > inl process_command_spawn
00:02:36 verbose #4513 > > (c : rust.ref' (rust.mut' process_command))
00:02:36 verbose #4514 > > : resultm.result' process_child stream.io_error
00:02:36 verbose #4515 > > =
00:02:36 verbose #4516 > > !\\(c, $'"std::process::Command::spawn($0)"')
00:02:36 verbose #4517 > >
00:02:36 verbose #4518 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4519 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4520 > > │ ## child_wait_with_output │
00:02:36 verbose #4521 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4522 > >
00:02:36 verbose #4523 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4524 > > inl child_wait_with_output
00:02:36 verbose #4525 > > (child : process_child)
00:02:36 verbose #4526 > > : resultm.result' process_output stream.io_error
00:02:36 verbose #4527 > > =
00:02:36 verbose #4528 > > !\\(child, $'"$0.wait_with_output()"')
00:02:36 verbose #4529 > >
00:02:36 verbose #4530 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4531 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4532 > > │ ## current_process_kill │
00:02:36 verbose #4533 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4534 > >
00:02:36 verbose #4535 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4536 > > inl current_process_kill () =
00:02:36 verbose #4537 > > run_target function
00:02:36 verbose #4538 > > | Fsharp (Native) => fun () =>
00:02:36 verbose #4539 > > inl fn () =
00:02:36 verbose #4540 > > run_target function
00:02:36 verbose #4541 > > | Fsharp (Native) => fun () =>
00:02:36 verbose #4542 > > trace Warning (fun () => "runtime.current_process_kill")
00:02:36 verbose #4543 > > _locals
00:02:36 verbose #4544 > > $'System.Threading.Thread.Sleep 2000'
00:02:36 verbose #4545 > > $'System.Environment.Exit 1'
00:02:36 verbose #4546 > > $'System.Diagnostics.Process.GetCurrentProcess().Kill
00:02:36 verbose #4547 > > ()' : ()
00:02:36 verbose #4548 > > | _ => fun () => null ()
00:02:36 verbose #4549 > > inl thread : threading.thread = $'new System.Threading.Thread (!fn)'
00:02:36 verbose #4550 > > thread |> $'_.Start()' : ()
00:02:36 verbose #4551 > > | _ => fun () => null ()
00:02:36 verbose #4552 > >
00:02:36 verbose #4553 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4554 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4555 > > │ ## stdio_line │
00:02:36 verbose #4556 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4557 > >
00:02:36 verbose #4558 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4559 > > inl stdio_line
00:02:36 verbose #4560 > > (stdio : result () ())
00:02:36 verbose #4561 > > (trace' : bool)
00:02:36 verbose #4562 > > (channel_sender : threading.arc (threading.mutex (threading.channel_sender
00:02:36 verbose #4563 > > sm'.std_string)))
00:02:36 verbose #4564 > > (line : resultm.result' sm'.std_string stream.io_error)
00:02:36 verbose #4565 > > : resultm.result' () sm'.std_string
00:02:36 verbose #4566 > > =
00:02:36 verbose #4567 > > inl highlight text =
00:02:36 verbose #4568 > > $'$"\\u001b[[4;7m{!text}\\u001b[[0m"'
00:02:36 verbose #4569 > > inl line =
00:02:36 verbose #4570 > > match
00:02:36 verbose #4571 > > line
00:02:36 verbose #4572 > > |> resultm.map_error' sm'.format'
00:02:36 verbose #4573 > > |> resultm.unbox'
00:02:36 verbose #4574 > > with
00:02:36 verbose #4575 > > | Ok line =>
00:02:36 verbose #4576 > > inl line =
00:02:36 verbose #4577 > > line
00:02:36 verbose #4578 > > |> sm'.from_std_string
00:02:36 verbose #4579 > > // |> sm'.as_bytes
00:02:36 verbose #4580 > > // |> am'.slice_to_vec
00:02:36 verbose #4581 > > |> sm'.encoding_encode' (sm'.encoding_utf8' ())
00:02:36 verbose #4582 > > |> rust.cow_as_ref
00:02:36 verbose #4583 > > |> sm'.str_from_utf8
00:02:36 verbose #4584 > > // |> sm'.utf8_decode
00:02:36 verbose #4585 > > |> resultm.unwrap'
00:02:36 verbose #4586 > > |> sm'.ref_to_std_string
00:02:36 verbose #4587 > > // String::from_utf8_lossy(line.as_bytes()).into()
00:02:36 verbose #4588 > > inl line_log = line |> sm'.from_std_string
00:02:36 verbose #4589 > > inl text =
00:02:36 verbose #4590 > > match stdio with
00:02:36 verbose #4591 > > | Ok () => $'$"> {!line_log}"'
00:02:36 verbose #4592 > > | Error () => $'$"\! {!line_log}"'
00:02:36 verbose #4593 > > if trace'
00:02:36 verbose #4594 > > then trace Verbose (fun () => text) _locals
00:02:36 verbose #4595 > > else text |> console.write_line
00:02:36 verbose #4596 > > match stdio with
00:02:36 verbose #4597 > > | Ok () => line
00:02:36 verbose #4598 > > | Error () => line |> highlight |> sm'.to_std_string
00:02:36 verbose #4599 > > | Error e =>
00:02:36 verbose #4600 > > trace Critical
00:02:36 verbose #4601 > > fun () => $'$"runtime.stdio_line"'
00:02:36 verbose #4602 > > fun () => $'$"e: {!e} / {!_locals ()}"'
00:02:36 verbose #4603 > > e |> highlight |> sm'.to_std_string
00:02:36 verbose #4604 > > channel_sender
00:02:36 verbose #4605 > > |> threading.arc_mutex_lock
00:02:36 verbose #4606 > > |> resultm.unwrap'
00:02:36 verbose #4607 > > |> threading.mutex_guard_ref
00:02:36 verbose #4608 > > |> threading.channel_send line
00:02:36 verbose #4609 > > |> resultm.map_error' sm'.format'
00:02:36 verbose #4610 > >
00:02:36 verbose #4611 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4612 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4613 > > │ ## execute_with_options │
00:02:36 verbose #4614 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4615 > >
00:02:36 verbose #4616 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4617 > > let execute_with_options (options : execution_options) : i32 * string =
00:02:36 verbose #4618 > > run_target function
00:02:36 verbose #4619 > > | Fsharp (Native) => fun () =>
00:02:36 verbose #4620 > > options |> execute_with_options_async |> async.run_synchronously
00:02:36 verbose #4621 > > | Rust (Native) => fun () =>
00:02:36 verbose #4622 > > inl command = join options.command
00:02:36 verbose #4623 > > inl file_name, arguments = command |> split_command
00:02:36 verbose #4624 > > inl arguments =
00:02:36 verbose #4625 > > arguments
00:02:36 verbose #4626 > > |> split_args
00:02:36 verbose #4627 > > |> resultm.get
00:02:36 verbose #4628 > > |> am'.to_vec
00:02:36 verbose #4629 > > |> am'.vec_map sm'.to_std_string
00:02:36 verbose #4630 > >
00:02:36 verbose #4631 > > trace Debug
00:02:36 verbose #4632 > > fun () => $'$"runtime.execute_with_options"'
00:02:36 verbose #4633 > > fun () =>
00:02:36 verbose #4634 > > $'$"file_name: {!file_name} / arguments: %A{!arguments}"'
00:02:36 verbose #4635 > > +. $'$" / options: %A{!options} / {!_locals ()}"'
00:02:36 verbose #4636 > >
00:02:36 verbose #4637 > > fun () =>
00:02:36 verbose #4638 > > fun () =>
00:02:36 verbose #4639 > > file_name
00:02:36 verbose #4640 > > |> new_process_command
00:02:36 verbose #4641 > > |> process_command_args arguments
00:02:36 verbose #4642 > > |> process_command_stdout (process_stdio_piped ())
00:02:36 verbose #4643 > > |> process_command_stderr (process_stdio_piped ())
00:02:36 verbose #4644 > > |> process_command_stdin (process_stdio_piped ())
00:02:36 verbose #4645 > > |> fun command =>
00:02:36 verbose #4646 > > match options.working_directory |> optionm'.unbox with
00:02:36 verbose #4647 > > | Some working_directory =>
00:02:36 verbose #4648 > > command
00:02:36 verbose #4649 > > |> process_command_current_dir working_directory
00:02:36 verbose #4650 > > | None => command
00:02:36 verbose #4651 > > |> fun command =>
00:02:36 verbose #4652 > > match options.environment_variables with
00:02:36 verbose #4653 > > | ;[[]] => command
00:02:36 verbose #4654 > > | vars =>
00:02:36 verbose #4655 > > (command, vars |> am'.to_vec)
00:02:36 verbose #4656 > > ||> am'.vec_fold' fun command (key, value) =>
00:02:36 verbose #4657 > > command |> process_command_env key value
00:02:36 verbose #4658 > > |> process_command_spawn
00:02:36 verbose #4659 > > |> resultm.map_error' sm'.format'
00:02:36 verbose #4660 > > |> resultm.map' (optionm'.some' >> threading.new_arc_mutex)
00:02:36 verbose #4661 > > |> resultm.unbox'
00:02:36 verbose #4662 > > |> function
00:02:36 verbose #4663 > > | Ok child =>
00:02:36 verbose #4664 > > inl stdout =
00:02:36 verbose #4665 > > fun () =>
00:02:36 verbose #4666 > > child
00:02:36 verbose #4667 > > |> threading.arc_mutex_lock
00:02:36 verbose #4668 > > |> resultm.unwrap'
00:02:36 verbose #4669 > > |> threading.mutex_guard_ref_mut
00:02:36 verbose #4670 > > |> optionm'.as_mut
00:02:36 verbose #4671 > > |> optionm'.unwrap
00:02:36 verbose #4672 > > |> process_child_stdout
00:02:36 verbose #4673 > > |> optionm'.take_ref_mut
00:02:36 verbose #4674 > > |> optionm'.unwrap
00:02:36 verbose #4675 > > |> rust.capture
00:02:36 verbose #4676 > >
00:02:36 verbose #4677 > > inl stderr =
00:02:36 verbose #4678 > > fun () =>
00:02:36 verbose #4679 > > child
00:02:36 verbose #4680 > > |> threading.arc_mutex_lock
00:02:36 verbose #4681 > > |> resultm.unwrap'
00:02:36 verbose #4682 > > |> threading.mutex_guard_ref_mut
00:02:36 verbose #4683 > > |> optionm'.as_mut
00:02:36 verbose #4684 > > |> optionm'.unwrap
00:02:36 verbose #4685 > > |> process_child_stderr
00:02:36 verbose #4686 > > |> optionm'.take_ref_mut
00:02:36 verbose #4687 > > |> optionm'.unwrap
00:02:36 verbose #4688 > > |> rust.capture
00:02:36 verbose #4689 > >
00:02:36 verbose #4690 > > inl stdin =
00:02:36 verbose #4691 > > fun () =>
00:02:36 verbose #4692 > > child
00:02:36 verbose #4693 > > |> threading.arc_mutex_lock
00:02:36 verbose #4694 > > |> resultm.unwrap'
00:02:36 verbose #4695 > > |> threading.mutex_guard_ref_mut
00:02:36 verbose #4696 > > |> optionm'.as_mut
00:02:36 verbose #4697 > > |> optionm'.unwrap
00:02:36 verbose #4698 > > |> process_child_stdin
00:02:36 verbose #4699 > > |> optionm'.take_ref_mut
00:02:36 verbose #4700 > > |> optionm'.unwrap
00:02:36 verbose #4701 > > |> optionm'.some'
00:02:36 verbose #4702 > > |> threading.new_arc_mutex
00:02:36 verbose #4703 > > |> rust.capture
00:02:36 verbose #4704 > >
00:02:36 verbose #4705 > > inl channel_sender, channel_receiver =
00:02:36 verbose #4706 > > threading.new_channel ()
00:02:36 verbose #4707 > > inl channel_sender'' = channel_sender |>
00:02:36 verbose #4708 > > threading.new_arc_mutex
00:02:36 verbose #4709 > > inl channel_sender' = channel_sender |>
00:02:36 verbose #4710 > > threading.new_arc_mutex
00:02:36 verbose #4711 > > inl channel_receiver' = channel_receiver |>
00:02:36 verbose #4712 > > threading.new_arc_mutex
00:02:36 verbose #4713 > >
00:02:36 verbose #4714 > > inl stdout_handle =
00:02:36 verbose #4715 > > fun () =>
00:02:36 verbose #4716 > > stdout
00:02:36 verbose #4717 > > |> stream.decode_reader_bytes_build
00:02:36 verbose #4718 > > |> stream.new_buf_reader
00:02:36 verbose #4719 > > |> stream.buf_read_lines
00:02:36 verbose #4720 > > |> iter.try_for_each fun lines =>
00:02:36 verbose #4721 > > inl channel_sender'' = channel_sender''
00:02:36 verbose #4722 > > |> rust.clone
00:02:36 verbose #4723 > > lines
00:02:36 verbose #4724 > > |> stdio_line (Ok ()) options.trace
00:02:36 verbose #4725 > > channel_sender''
00:02:36 verbose #4726 > > |> resultm.to_try
00:02:36 verbose #4727 > > |> threading.spawn (1, 0) 1
00:02:36 verbose #4728 > >
00:02:36 verbose #4729 > > inl stderr_handle =
00:02:36 verbose #4730 > > fun () =>
00:02:36 verbose #4731 > > stderr
00:02:36 verbose #4732 > > |> stream.decode_reader_bytes_build
00:02:36 verbose #4733 > > |> stream.new_buf_reader
00:02:36 verbose #4734 > > |> stream.buf_read_lines
00:02:36 verbose #4735 > > |> iter.try_for_each fun lines =>
00:02:36 verbose #4736 > > inl channel_sender' = channel_sender' |>
00:02:36 verbose #4737 > > rust.clone
00:02:36 verbose #4738 > > lines
00:02:36 verbose #4739 > > |> stdio_line (Error ()) options.trace
00:02:36 verbose #4740 > > channel_sender'
00:02:36 verbose #4741 > > |> resultm.to_try
00:02:36 verbose #4742 > > |> threading.spawn (1, 0) 1
00:02:36 verbose #4743 > >
00:02:36 verbose #4744 > > match options.stdin |> optionm'.unbox with
00:02:36 verbose #4745 > > | Some stdin' =>
00:02:36 verbose #4746 > > stdin
00:02:36 verbose #4747 > > |> threading.arc_mutex_lock
00:02:36 verbose #4748 > > |> resultm.unwrap'
00:02:36 verbose #4749 > > |> threading.mutex_guard_ref_mut
00:02:36 verbose #4750 > > |> optionm'.take_ref_mut
00:02:36 verbose #4751 > > |> optionm'.map' threading.new_arc_mutex
00:02:36 verbose #4752 > > |> optionm'.unbox
00:02:36 verbose #4753 > > |> function
00:02:36 verbose #4754 > > | Some stdin =>
00:02:36 verbose #4755 > > stdin |> stdin'
00:02:36 verbose #4756 > > stdin
00:02:36 verbose #4757 > > |> threading.arc_mutex_lock
00:02:36 verbose #4758 > > |> resultm.unwrap'
00:02:36 verbose #4759 > > |> stdin_flush
00:02:36 verbose #4760 > > | None => ()
00:02:36 verbose #4761 > > | None => ()
00:02:36 verbose #4762 > >
00:02:36 verbose #4763 > > inl output =
00:02:36 verbose #4764 > > child
00:02:36 verbose #4765 > > |> threading.arc_mutex_lock
00:02:36 verbose #4766 > > |> resultm.unwrap'
00:02:36 verbose #4767 > > |> threading.mutex_guard_ref_mut
00:02:36 verbose #4768 > > |> optionm'.take_ref_mut
00:02:36 verbose #4769 > > |> optionm'.unwrap
00:02:36 verbose #4770 > > |> child_wait_with_output
00:02:36 verbose #4771 > > |> resultm.map_error' sm'.format'
00:02:36 verbose #4772 > >
00:02:36 verbose #4773 > > [[ stdout_handle; stderr_handle ]]
00:02:36 verbose #4774 > > |> am'.new_vec
00:02:36 verbose #4775 > > |> am'.vec_for_each' (threading.join' >>
00:02:36 verbose #4776 > > resultm.unwrap' >> resultm.unwrap')
00:02:36 verbose #4777 > >
00:02:36 verbose #4778 > > match output |> resultm.unbox with
00:02:36 verbose #4779 > > | Ok output =>
00:02:36 verbose #4780 > > inl exit_code =
00:02:36 verbose #4781 > > output
00:02:36 verbose #4782 > > |> process_output_status
00:02:36 verbose #4783 > > |> process_exit_status_code
00:02:36 verbose #4784 > > |> optionm'.unbox
00:02:36 verbose #4785 > > match exit_code with
00:02:36 verbose #4786 > > | Some exit_code => exit_code, None, Some
00:02:36 verbose #4787 > > channel_receiver'
00:02:36 verbose #4788 > > | None =>
00:02:36 verbose #4789 > > -1,
00:02:36 verbose #4790 > > ("runtime.execute_with_options
00:02:36 verbose #4791 > > exit_code=None" |> sm'.to_std_string |> Some),
00:02:36 verbose #4792 > > Some channel_receiver'
00:02:36 verbose #4793 > > | Error error =>
00:02:36 verbose #4794 > > trace Critical
00:02:36 verbose #4795 > > fun () => $'$"runtime.execute_with_options
00:02:36 verbose #4796 > > output error"'
00:02:36 verbose #4797 > > fun () => $'$"error: {!error} / {!_locals
00:02:36 verbose #4798 > > ()}"'
00:02:36 verbose #4799 > > -2i32, error |> Some, None
00:02:36 verbose #4800 > > | Error error =>
00:02:36 verbose #4801 > > trace Critical
00:02:36 verbose #4802 > > fun () => $'$"runtime.execute_with_options
00:02:36 verbose #4803 > > child error"'
00:02:36 verbose #4804 > > fun () => $'$"error: {!error} / {!_locals ()}"'
00:02:36 verbose #4805 > > -1i32, error |> Some, None
00:02:36 verbose #4806 > > |> function
00:02:36 verbose #4807 > > | exit_code, std_trace, channel_receiver =>
00:02:36 verbose #4808 > > inl std_trace =
00:02:36 verbose #4809 > > channel_receiver
00:02:36 verbose #4810 > > |> optionm'.box
00:02:36 verbose #4811 > > |> optionm'.map' fun channel_receiver =>
00:02:36 verbose #4812 > > channel_receiver
00:02:36 verbose #4813 > > |> threading.arc_mutex_lock
00:02:36 verbose #4814 > > |> resultm.unwrap'
00:02:36 verbose #4815 > > |> iter.iter
00:02:36 verbose #4816 > > |> iter_collect''
00:02:36 verbose #4817 > > |> am'.vec_map sm'.from_std_string
00:02:36 verbose #4818 > > |> am'.from_vec
00:02:36 verbose #4819 > > |> fun x => x : _ i32 _
00:02:36 verbose #4820 > > |> seq.of_array
00:02:36 verbose #4821 > > |> sm'.concat "\n"
00:02:36 verbose #4822 > > |> optionm'.default_value' (
00:02:36 verbose #4823 > > std_trace
00:02:36 verbose #4824 > > |> optionm.map sm'.from_std_string
00:02:36 verbose #4825 > > |> optionm'.default_value ""
00:02:36 verbose #4826 > > )
00:02:36 verbose #4827 > > trace Verbose
00:02:36 verbose #4828 > > fun () => $'$"runtime.execute_with_options
00:02:36 verbose #4829 > > result"'
00:02:36 verbose #4830 > > fun () =>
00:02:36 verbose #4831 > > $'$"exit_code: {!exit_code}"'
00:02:36 verbose #4832 > > +. $'$" / std_trace.Length:
00:02:36 verbose #4833 > > {!std_trace.Length} / {!_locals ()}"'
00:02:36 verbose #4834 > > new_pair exit_code std_trace
00:02:36 verbose #4835 > > |> capture
00:02:36 verbose #4836 > > // |> async.future_init (3, 2) 1
00:02:36 verbose #4837 > > // |> async.block_on
00:02:36 verbose #4838 > > |> fun x => x ()
00:02:36 verbose #4839 > > |> from_pair
00:02:36 verbose #4840 > > | _ => fun () => null ()
00:02:36 verbose #4841 > >
00:02:36 verbose #4842 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4843 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4844 > > │ ### execute │
00:02:36 verbose #4845 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4846 > >
00:02:36 verbose #4847 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4848 > > inl execute command =
00:02:36 verbose #4849 > > execution_options fun x => { x with
00:02:36 verbose #4850 > > command = command
00:02:36 verbose #4851 > > }
00:02:36 verbose #4852 > > |> execute_with_options
00:02:36 verbose #4853 > >
00:02:36 verbose #4854 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 verbose #4855 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 verbose #4856 > > │ ### tests │
00:02:36 verbose #4857 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 verbose #4858 > >
00:02:36 verbose #4859 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 verbose #4860 > > //// test
00:02:36 verbose #4861 > > ///! rust -d chrono encoding_rs encoding_rs_io regex sha2
00:02:36 verbose #4862 > >
00:02:36 verbose #4863 > > types ()
00:02:36 verbose #4864 > >
00:02:36 verbose #4865 > > inl content = "╭─[[ 你好，世界！こんにちは世界！ ]]─╮"
00:02:36 verbose #4866 > >
00:02:36 verbose #4867 > > inl file_name = join "test.txt"
00:02:36 verbose #4868 > > inl temp_dir, disposable =
00:02:36 verbose #4869 > > (file_name, content)
00:02:36 verbose #4870 > > |> sm'.format_debug
00:02:36 verbose #4871 > > |> crypto.hash_text
00:02:36 verbose #4872 > > |> file_system.create_temp_dir'
00:02:36 verbose #4873 > > inl path = temp_dir </> file_name |> file_system.normalize_path
00:02:36 verbose #4874 > > inl exit_code, result =
00:02:36 verbose #4875 > > execute $'\@$"pwsh -c ""[[IO.File]]::ReadAllText(\'{!path}\')"""'
00:02:36 verbose #4876 > > exit_code |> _assert_eq 1
00:02:36 verbose #4877 > > result |> _assert_string_contains "not find file"
00:02:36 verbose #4878 > >
00:02:36 verbose #4879 > > content |> file_system.write_all_text path
00:02:36 verbose #4880 > >
00:02:36 verbose #4881 > > execution_options fun x => { x with
00:02:36 verbose #4882 > > command = $'\@$"cat ""{!file_name}"""'
00:02:36 verbose #4883 > > working_directory = Some temp_dir |> optionm'.box
00:02:36 verbose #4884 > > }
00:02:36 verbose #4885 > > |> execute_with_options
00:02:36 verbose #4886 > > |> ignore
00:02:36 verbose #4887 > >
00:02:36 verbose #4888 > > inl exit_code, output =
00:02:36 verbose #4889 > > execution_options fun x => { x with
00:02:36 verbose #4890 > > command = $'\@$"pwsh -c ""[[System.Console]]::OutputEncoding =
00:02:36 verbose #4891 > > [[System.Text.Encoding]]::UTF8; [[IO.File]]::ReadAllText(\'{!file_name}\')"""'
00:02:36 verbose #4892 > > working_directory = Some temp_dir |> optionm'.box
00:02:36 verbose #4893 > > }
00:02:36 verbose #4894 > > |> execute_with_options
00:02:36 verbose #4895 > >
00:02:36 verbose #4896 > > exit_code |> _assert_eq 0i32
00:02:36 verbose #4897 > > output |> _assert_eq content
00:02:36 verbose #4898 > >
00:02:36 verbose #4899 > > disposable |> use |> ignore
00:02:45 verbose #4900 > >
00:02:45 verbose #4901 > > ╭─[ 9.01s - return value ]─────────────────────────────────────────────────────╮
00:02:45 verbose #4902 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:02:45 verbose #4903 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_4452156f │
00:02:45 verbose #4904 > > │ 54b2e603eb9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388383\9242780b-ce0e-9155- │
00:02:45 verbose #4905 > > │ 5e07-f6ee5667aa16 │
00:02:45 verbose #4906 > > │ 00:00:00 debug #2 runtime.execute_with_options / file_name: pwsh / │
00:02:45 verbose #4907 > > │ arguments: ["-c", "[ │
00:02:45 verbose #4908 > > │ IO.File]::ReadAllText('c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/ │
00:02:45 verbose #4909 > > │ spiral_builder_4452156f54b2e603eb9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388 │
00:02:45 verbose #4910 > > │ 383/9242780b-ce0e-9155-5e07-f6ee5667aa16/test.txt')"] / options: (None, │
00:02:45 verbose #4911 > > │ "pwsh -c "[ │
00:02:45 verbose #4912 > > │ IO.File]::ReadAllText('c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/ │
00:02:45 verbose #4913 > > │ spiral_builder_4452156f54b2e603eb9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388 │
00:02:45 verbose #4914 > > │ 383/9242780b-ce0e-9155-5e07-f6ee5667aa16/test.txt')"", Array(MutCell([])), │
00:02:45 verbose #4915 > > │ None, None, true, None) │
00:02:45 verbose #4916 > > │ 00:00:00 verbose #3 ! MethodInvocationException: Exception │
00:02:45 verbose #4917 > > │ calling "ReadAllText" with "1" argument(s): "Could not find file │
00:02:45 verbose #4918 > > │ 'c:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_4452156 │
00:02:45 verbose #4919 > > │ f54b2e603eb9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388383\9242780b-ce0e-9155 │
00:02:45 verbose #4920 > > │ -5e07-f6ee5667aa16\test.txt'." │
00:02:45 verbose #4921 > > │ 00:00:00 verbose #4 runtime.execute_with_options / result / exit_code: │
00:02:45 verbose #4922 > > │ 1 / std_trace.Length: 312 │
00:02:45 verbose #4923 > > │ assert_eq / actual: 1 / expected: 1 │
00:02:45 verbose #4924 > > │ assert_string_contains / actual: "not find file" / expected: "[ │
00:02:45 verbose #4925 > > │ 31;1mMethodInvocationException: Exception calling "ReadAllText" with │
00:02:45 verbose #4926 > > │ "1" argument(s): "Could not find file │
00:02:45 verbose #4927 > > │ 'c:\Users\i574n\AppDat...create_temp_path_\spiral_builder_4452156f54b2e603eb │
00:02:45 verbose #4928 > > │ 9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388383\9242780b-ce0e-9155-5e07-f6ee5 │
00:02:45 verbose #4929 > > │ 667aa16\test.txt'."" │
00:02:45 verbose #4930 > > │ 00:00:00 debug #5 runtime.execute_with_options / file_name: cat / │
00:02:45 verbose #4931 > > │ arguments: ["test.txt"] / options: (None, "cat "test.txt"", Array(MutCell([ │
00:02:45 verbose #4932 > > │ ])), None, None, true, │
00:02:45 verbose #4933 > > │ Some("C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_44 │
00:02:45 verbose #4934 > > │ 52156f54b2e603eb9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388383\9242780b-ce0e │
00:02:45 verbose #4935 > > │ -9155-5e07-f6ee5667aa16")) │
00:02:45 verbose #4936 > > │ 00:00:00 verbose #6 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:02:45 verbose #4937 > > │ 00:00:00 verbose #7 runtime.execute_with_options / result / exit_code: │
00:02:45 verbose #4938 > > │ 0 / std_trace.Length: 22 │
00:02:45 verbose #4939 > > │ 00:00:00 debug #8 runtime.execute_with_options / file_name: pwsh / │
00:02:45 verbose #4940 > > │ arguments: ["-c", "[System.Console]::OutputEncoding = [ │
00:02:45 verbose #4941 > > │ System.Text.Encoding]::UTF8; [IO.File]::ReadAllText('test.txt')"] / options: │
00:02:45 verbose #4942 > > │ (None, "pwsh -c "[System.Console]::OutputEncoding = [ │
00:02:45 verbose #4943 > > │ System.Text.Encoding]::UTF8; [IO.File]::ReadAllText('test.txt')"", │
00:02:45 verbose #4944 > > │ Array(MutCell([])), None, None, true, │
00:02:45 verbose #4945 > > │ Some("C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_44 │
00:02:45 verbose #4946 > > │ 52156f54b2e603eb9a0b23e0a04d5919b6ffa2cd39336e9a5f86bade388383\9242780b-ce0e │
00:02:45 verbose #4947 > > │ -9155-5e07-f6ee5667aa16")) │
00:02:45 verbose #4948 > > │ 00:00:01 verbose #9 > ╭─[ 你好，世界！こんにちは世界！ ]─╮ │
00:02:45 verbose #4949 > > │ 00:00:01 verbose #10 runtime.execute_with_options / result / │
00:02:45 verbose #4950 > > │ exit_code: 0 / std_trace.Length: 22 │
00:02:45 verbose #4951 > > │ assert_eq / actual: 0 / expected: 0 │
00:02:45 verbose #4952 > > │ assert_eq / actual: "╭─[ 你好，世界！こんにちは世界！ ]─╮" / expected: "╭─[ │
00:02:45 verbose #4953 > > │ 你好，世界！こんにちは世界！ ]─╮" │
00:02:45 verbose #4954 > > │ │
00:02:45 verbose #4955 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 verbose #4956 > >
00:02:45 verbose #4957 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:45 verbose #4958 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:45 verbose #4959 > > │ ## command │
00:02:45 verbose #4960 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 verbose #4961 > >
00:02:45 verbose #4962 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:45 verbose #4963 > > nominal command = $'clap_Command'
00:02:45 verbose #4964 > >
00:02:45 verbose #4965 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:45 verbose #4966 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:45 verbose #4967 > > │ ## new_command │
00:02:45 verbose #4968 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 verbose #4969 > >
00:02:45 verbose #4970 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:45 verbose #4971 > > inl new_command (s : rust.static_ref sm'.str) : command =
00:02:45 verbose #4972 > > !\\(s, $'"clap::Command::new($0)"')
00:02:45 verbose #4973 > >
00:02:45 verbose #4974 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:45 verbose #4975 > > //// test
00:02:45 verbose #4976 > > ///! rust -d clap
00:02:45 verbose #4977 > >
00:02:45 verbose #4978 > > types ()
00:02:45 verbose #4979 > > ##"command"
00:02:45 verbose #4980 > > |> new_command
00:02:45 verbose #4981 > > |> sm'.format_pretty'
00:02:45 verbose #4982 > > |> sm'.from_std_string
00:02:45 verbose #4983 > > |> _assert_string_contains "\"command\""
00:02:50 verbose #4984 > >
00:02:50 verbose #4985 > > ╭─[ 4.12s - return value ]─────────────────────────────────────────────────────╮
00:02:50 verbose #4986 > > │ assert_string_contains / actual: ""command"" / expected: "Command { │
00:02:50 verbose #4987 > > │ name: "command", │
00:02:50 verbose #4988 > > │ long_flag: None, │
00:02:50 verbose #4989 > > │ short_flag: None, │
00:02:50 verbose #4990 > > │ display_name: None, │
00:02:50 verbose #4991 > > │ bin_name: None, │
00:02:50 verbose #4992 > > │ author: None, │
00:02:50 verbose #4993 > > │ version: None, │
00:02:50 verbose #4994 > > │ long_version: None, │
00:02:50 verbose #4995 > > │ about: None, │
00:02:50 verbose #4996 > > │ long_about: None, │
00:02:50 verbose #4997 > > │ before_help: None, │
00:02:50 verbose #4998 > > │ before_long_help: None, │
00:02:50 verbose #4999 > > │ after_help: None, │
00:02:50 verbose #5000 > > │ after_long_help: None, │
00:02:50 verbose #5001 > > │ aliases: [], │
00:02:50 verbose #5002 > > │ short_flag_aliases: [], │
00:02:50 verbose #5003 > > │ long_flag_aliases: [], │
00:02:50 verbose #5004 > > │ usage_str: None, │
00:02:50 verbose #5005 > > │ usage_name: None, │
00:02:50 verbose #5006 > > │ help_str: None, │
00:02:50 verbose #5007 > > │ disp_ord: None, │
00:02:50 verbose #5008 > > │ template: None, │
00:02:50 verbose #5009 > > │ settings: AppFlags( │
00:02:50 verbose #5010 > > │ 0, │
00:02:50 verbose #5011 > > │ ), │
00:02:50 verbose #5012 > > │ g_settings: AppFlags( │
00:02:50 verbose #5013 > > │ 0, │
00:02:50 verbose #5014 > > │ ), │
00:02:50 verbose #5015 > > │ args: MKeyMap { │
00:02:50 verbose #5016 > > │ args: [], │
00:02:50 verbose #5017 > > │ keys: [], │
00:02:50 verbose #5018 > > │ }, │
00:02:50 verbose #5019 > > │ subcommands: [], │
00:02:50 verbose #5020 > > │ groups: [], │
00:02:50 verbose #5021 > > │ current_help_heading: None, │
00:02:50 verbose #5022 > > │ current_disp_ord: Some( │
00:02:50 verbose #5023 > > │ 0, │
00:02:50 verbose #5024 > > │ ), │
00:02:50 verbose #5025 > > │ subcommand_value_name: None, │
00:02:50 verbose #5026 > > │ subcommand_heading: None, │
00:02:50 verbose #5027 > > │ external_value_parser: None, │
00:02:50 verbose #5028 > > │ long_help_exists: false, │
00:02:50 verbose #5029 > > │ deferred: None, │
00:02:50 verbose #5030 > > │ app_ext: Extensions { │
00:02:50 verbose #5031 > > │ extensions: FlatMap { │
00:02:50 verbose #5032 > > │ keys: [], │
00:02:50 verbose #5033 > > │ values: [], │
00:02:50 verbose #5034 > > │ }, │
00:02:50 verbose #5035 > > │ }, │
00:02:50 verbose #5036 > > │ }" │
00:02:50 verbose #5037 > > │ │
00:02:50 verbose #5038 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #5039 > >
00:02:50 verbose #5040 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #5041 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #5042 > > │ ## arg │
00:02:50 verbose #5043 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #5044 > >
00:02:50 verbose #5045 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #5046 > > nominal arg = $'clap_Arg'
00:02:50 verbose #5047 > >
00:02:50 verbose #5048 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:50 verbose #5049 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:50 verbose #5050 > > │ ## new_arg │
00:02:50 verbose #5051 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:50 verbose #5052 > >
00:02:50 verbose #5053 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #5054 > > inl new_arg (s : rust.static_ref sm'.str) : arg =
00:02:50 verbose #5055 > > !\\(s, $'"clap::Arg::new($0)"')
00:02:50 verbose #5056 > >
00:02:50 verbose #5057 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:50 verbose #5058 > > //// test
00:02:50 verbose #5059 > > ///! rust -d clap
00:02:50 verbose #5060 > >
00:02:50 verbose #5061 > > types ()
00:02:50 verbose #5062 > > ##"arg"
00:02:50 verbose #5063 > > |> new_arg
00:02:50 verbose #5064 > > |> sm'.format_pretty'
00:02:50 verbose #5065 > > |> sm'.from_std_string
00:02:50 verbose #5066 > > |> _assert_string_contains "\"arg\""
00:02:53 verbose #5067 > >
00:02:53 verbose #5068 > > ╭─[ 3.60s - return value ]─────────────────────────────────────────────────────╮
00:02:53 verbose #5069 > > │ assert_string_contains / actual: ""arg"" / expected: "Arg { │
00:02:53 verbose #5070 > > │ id: "arg", │
00:02:53 verbose #5071 > > │ help: None, │
00:02:53 verbose #5072 > > │ long_help: None, │
00:02:53 verbose #5073 > > │ action: None, │
00:02:53 verbose #5074 > > │ value_parser: None, │
00:02:53 verbose #5075 > > │ blacklist: [], │
00:02:53 verbose #5076 > > │ settings: ArgFlags( │
00:02:53 verbose #5077 > > │ 0, │
00:02:53 verbose #5078 > > │ ), │
00:02:53 verbose #5079 > > │ overrides: [], │
00:02:53 verbose #5080 > > │ groups: [], │
00:02:53 verbose #5081 > > │ requires: [], │
00:02:53 verbose #5082 > > │ r_ifs: [], │
00:02:53 verbose #5083 > > │ r_unless: [], │
00:02:53 verbose #5084 > > │ short: None, │
00:02:53 verbose #5085 > > │ long: None, │
00:02:53 verbose #5086 > > │ aliases: [], │
00:02:53 verbose #5087 > > │ short_aliases: [], │
00:02:53 verbose #5088 > > │ disp_ord: None, │
00:02:53 verbose #5089 > > │ val_names: [], │
00:02:53 verbose #5090 > > │ num_vals: None, │
00:02:53 verbose #5091 > > │ val_delim: None, │
00:02:53 verbose #5092 > > │ default_vals: [], │
00:02:53 verbose #5093 > > │ default_vals_ifs: [], │
00:02:53 verbose #5094 > > │ terminator: None, │
00:02:53 verbose #5095 > > │ index: None, │
00:02:53 verbose #5096 > > │ help_heading: None, │
00:02:53 verbose #5097 > > │ value_hint: None, │
00:02:53 verbose #5098 > > │ default_missing_vals: [], │
00:02:53 verbose #5099 > > │ }" │
00:02:53 verbose #5100 > > │ │
00:02:53 verbose #5101 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5102 > >
00:02:53 verbose #5103 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5104 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5105 > > │ ## command_arg │
00:02:53 verbose #5106 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5107 > >
00:02:53 verbose #5108 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5109 > > inl command_arg (arg : arg) (command : command) : command =
00:02:53 verbose #5110 > > !\\((command, arg), $'"clap::Command::arg($0, $1)"')
00:02:53 verbose #5111 > >
00:02:53 verbose #5112 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5113 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5114 > > │ ## arg_required │
00:02:53 verbose #5115 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5116 > >
00:02:53 verbose #5117 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5118 > > inl arg_required (value : bool) (arg : arg) : arg =
00:02:53 verbose #5119 > > !\\((arg, value), $'"$0.required($1)"')
00:02:53 verbose #5120 > >
00:02:53 verbose #5121 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5122 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5123 > > │ ## arg_short │
00:02:53 verbose #5124 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5125 > >
00:02:53 verbose #5126 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5127 > > inl arg_short (value : char) (arg : arg) : arg =
00:02:53 verbose #5128 > > !\\((arg, value), $'"$0.short($1)"')
00:02:53 verbose #5129 > >
00:02:53 verbose #5130 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5131 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5132 > > │ ## arg_long │
00:02:53 verbose #5133 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5134 > >
00:02:53 verbose #5135 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5136 > > inl arg_long (value : rust.static_ref sm'.str) (arg : arg) : arg =
00:02:53 verbose #5137 > > !\\((arg, value), $'"$0.long($1)"')
00:02:53 verbose #5138 > >
00:02:53 verbose #5139 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5140 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5141 > > │ ## arg_value_names │
00:02:53 verbose #5142 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5143 > >
00:02:53 verbose #5144 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5145 > > inl arg_value_names (values : array_base (rust.static_ref sm'.str)) (arg : arg)
00:02:53 verbose #5146 > > : arg =
00:02:53 verbose #5147 > > inl values = values |> am'.to_vec
00:02:53 verbose #5148 > > !\\((arg, values), $'"$0.value_names($1)"')
00:02:53 verbose #5149 > >
00:02:53 verbose #5150 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5151 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5152 > > │ ## arg_num_args │
00:02:53 verbose #5153 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5154 > >
00:02:53 verbose #5155 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5156 > > inl arg_num_args (value : i32) (arg : arg) : arg =
00:02:53 verbose #5157 > > !\\((arg, value), $'"$0.num_args($1)"')
00:02:53 verbose #5158 > >
00:02:53 verbose #5159 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5160 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5161 > > │ ## value_range │
00:02:53 verbose #5162 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5163 > >
00:02:53 verbose #5164 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5165 > > nominal value_range = $'clap_builder_ValueRange'
00:02:53 verbose #5166 > >
00:02:53 verbose #5167 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:53 verbose #5168 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:53 verbose #5169 > > │ ## new_value_range │
00:02:53 verbose #5170 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:53 verbose #5171 > >
00:02:53 verbose #5172 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:53 verbose #5173 > > inl new_value_range start end : value_range =
00:02:53 verbose #5174 > > inl len = 0i32 |> convert
00:02:53 verbose #5175 > > inl start, end =
00:02:53 verbose #5176 > > open am'
00:02:53 verbose #5177 > > match start, end with
00:02:53 verbose #5178 > > | Start start, End fn =>
00:02:53 verbose #5179 > > start, len |> fn
00:02:53 verbose #5180 > > | End start_fn, End end_fn =>
00:02:53 verbose #5181 > > start_fn len, end_fn len
00:02:53 verbose #5182 > > match start, end with
00:02:53 verbose #5183 > > | start, end when end =. len =>
00:02:53 verbose #5184 > > !\($'"clap::builder::ValueRange::new(!start..)"')
00:02:53 verbose #5185 > > | start, end => !\($'"clap::builder::ValueRange::new(!start..!end)"')
00:02:54 verbose #5186 > >
00:02:54 verbose #5187 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5188 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5189 > > │ ## arg_num_args_range │
00:02:54 verbose #5190 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5191 > >
00:02:54 verbose #5192 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5193 > > inl arg_num_args_range (value : value_range) (arg : arg) : arg =
00:02:54 verbose #5194 > > !\\((arg, value), $'"$0.num_args($1)"')
00:02:54 verbose #5195 > >
00:02:54 verbose #5196 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5197 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5198 > > │ ## arg_value_name │
00:02:54 verbose #5199 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5200 > >
00:02:54 verbose #5201 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5202 > > inl arg_value_name (value : string) (arg : arg) : arg =
00:02:54 verbose #5203 > > inl value = value |> sm'.as_str
00:02:54 verbose #5204 > > !\\((arg, value), $'"$0.value_name($1)"')
00:02:54 verbose #5205 > >
00:02:54 verbose #5206 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5207 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5208 > > │ ## value_parser │
00:02:54 verbose #5209 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5210 > >
00:02:54 verbose #5211 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5212 > > nominal value_parser = $'clap_builder_ValueParser'
00:02:54 verbose #5213 > >
00:02:54 verbose #5214 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5215 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5216 > > │ ## possible_value │
00:02:54 verbose #5217 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5218 > >
00:02:54 verbose #5219 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5220 > > nominal possible_value = $'clap_builder_PossibleValue'
00:02:54 verbose #5221 > >
00:02:54 verbose #5222 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5223 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5224 > > │ ## new_possible_value │
00:02:54 verbose #5225 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5226 > >
00:02:54 verbose #5227 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5228 > > inl new_possible_value forall t. (x : t) : possible_value =
00:02:54 verbose #5229 > > !\\(x, $'"clap::builder::PossibleValue::new(&**$0)"')
00:02:54 verbose #5230 > >
00:02:54 verbose #5231 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5232 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5233 > > │ ## value_parser_path_buf │
00:02:54 verbose #5234 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5235 > >
00:02:54 verbose #5236 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5237 > > inl value_parser_path_buf () : value_parser =
00:02:54 verbose #5238 > > !\($'"clap::value_parser\!(std::path::PathBuf)"')
00:02:54 verbose #5239 > >
00:02:54 verbose #5240 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5241 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5242 > > │ ## value_parser_expr │
00:02:54 verbose #5243 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5244 > >
00:02:54 verbose #5245 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5246 > > inl value_parser_expr (expr : string) : value_parser =
00:02:54 verbose #5247 > > !\($'"clap::value_parser\!(" + !expr + ").into()"')
00:02:54 verbose #5248 > >
00:02:54 verbose #5249 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5250 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5251 > > │ ## arg_value_parser │
00:02:54 verbose #5252 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5253 > >
00:02:54 verbose #5254 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5255 > > inl arg_value_parser (values : value_parser) (arg : arg) : arg =
00:02:54 verbose #5256 > > !\\((arg, values), $'"$0.value_parser($1)"')
00:02:54 verbose #5257 > >
00:02:54 verbose #5258 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5259 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5260 > > │ ## arg_action │
00:02:54 verbose #5261 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5262 > >
00:02:54 verbose #5263 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5264 > > nominal arg_action' = $'clap_ArgAction'
00:02:54 verbose #5265 > >
00:02:54 verbose #5266 > > union arg_action =
00:02:54 verbose #5267 > > | Set
00:02:54 verbose #5268 > > | Append
00:02:54 verbose #5269 > > | SetTrue
00:02:54 verbose #5270 > > | SetFalse
00:02:54 verbose #5271 > > | Count
00:02:54 verbose #5272 > > | Help
00:02:54 verbose #5273 > > | HelpShort
00:02:54 verbose #5274 > > | HelpLong
00:02:54 verbose #5275 > > | Version
00:02:54 verbose #5276 > >
00:02:54 verbose #5277 > > inl arg_action = function
00:02:54 verbose #5278 > > | Set => !\($'"clap::ArgAction::Set"') : arg_action'
00:02:54 verbose #5279 > > | Append => !\($'"clap::ArgAction::Append"') : arg_action'
00:02:54 verbose #5280 > > | SetTrue => !\($'"clap::ArgAction::SetTrue"') : arg_action'
00:02:54 verbose #5281 > > | SetFalse => !\($'"clap::ArgAction::SetFalse"') : arg_action'
00:02:54 verbose #5282 > > | Count => !\($'"clap::ArgAction::Count"') : arg_action'
00:02:54 verbose #5283 > > | Help => !\($'"clap::ArgAction::Help"') : arg_action'
00:02:54 verbose #5284 > > | HelpShort => !\($'"clap::ArgAction::HelpShort"') : arg_action'
00:02:54 verbose #5285 > > | HelpLong => !\($'"clap::ArgAction::HelpLong"') : arg_action'
00:02:54 verbose #5286 > > | Version => !\($'"clap::ArgAction::Version"') : arg_action'
00:02:54 verbose #5287 > >
00:02:54 verbose #5288 > > inl arg_action (value : arg_action) (arg : arg) : arg =
00:02:54 verbose #5289 > > inl value = value |> arg_action
00:02:54 verbose #5290 > > !\\((arg, value), $'"$0.action($1)"')
00:02:54 verbose #5291 > >
00:02:54 verbose #5292 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5293 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5294 > > │ ## arg_index │
00:02:54 verbose #5295 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5296 > >
00:02:54 verbose #5297 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5298 > > inl arg_index (value : i32) (arg : arg) : arg =
00:02:54 verbose #5299 > > !\\((arg, value), $'"$0.index($1)"')
00:02:54 verbose #5300 > >
00:02:54 verbose #5301 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5302 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5303 > > │ ## arg_matches │
00:02:54 verbose #5304 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5305 > >
00:02:54 verbose #5306 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5307 > > nominal arg_matches = $'clap_ArgMatches'
00:02:54 verbose #5308 > >
00:02:54 verbose #5309 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5310 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5311 > > │ ## command_get_matches │
00:02:54 verbose #5312 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5313 > >
00:02:54 verbose #5314 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5315 > > inl command_get_matches (command : command) : arg_matches =
00:02:54 verbose #5316 > > !\\(command, $'"clap::Command::get_matches($0)"')
00:02:54 verbose #5317 > >
00:02:54 verbose #5318 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5319 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5320 > > │ ## command_get_matches_from │
00:02:54 verbose #5321 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5322 > >
00:02:54 verbose #5323 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5324 > > inl command_get_matches_from (args : array_base string) (command : command) :
00:02:54 verbose #5325 > > arg_matches =
00:02:54 verbose #5326 > > inl args = args |> am'.to_vec |> am'.vec_map sm'.to_std_string
00:02:54 verbose #5327 > > !\\(command, $'"clap::Command::get_matches_from($0, !args)"')
00:02:54 verbose #5328 > >
00:02:54 verbose #5329 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5330 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5331 > > │ ## command_init_arg │
00:02:54 verbose #5332 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5333 > >
00:02:54 verbose #5334 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5335 > > inl command_init_arg (long, short) fn command =
00:02:54 verbose #5336 > > command
00:02:54 verbose #5337 > > |> command_arg (
00:02:54 verbose #5338 > > new_arg ##long
00:02:54 verbose #5339 > > |> arg_short short
00:02:54 verbose #5340 > > |> arg_long ##long
00:02:54 verbose #5341 > > |> fn
00:02:54 verbose #5342 > > )
00:02:54 verbose #5343 > >
00:02:54 verbose #5344 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5345 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5346 > > │ ## matches_get_one │
00:02:54 verbose #5347 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5348 > >
00:02:54 verbose #5349 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5350 > > inl matches_get_one forall t. (x : string) (matches : arg_matches) :
00:02:54 verbose #5351 > > optionm'.option' t =
00:02:54 verbose #5352 > > inl x = join x
00:02:54 verbose #5353 > > inl x = x |> sm'.as_str
00:02:54 verbose #5354 > > !\\(matches, $'"clap::ArgMatches::get_one(&$0, !x).cloned()"')
00:02:54 verbose #5355 > >
00:02:54 verbose #5356 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5357 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5358 > > │ ## matches_get_flag │
00:02:54 verbose #5359 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5360 > >
00:02:54 verbose #5361 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5362 > > inl matches_get_flag (x : string) (matches : arg_matches) : bool =
00:02:54 verbose #5363 > > inl x = join x
00:02:54 verbose #5364 > > inl x = x |> sm'.as_str
00:02:54 verbose #5365 > > !\($'"clap::ArgMatches::get_flag(&!matches, !x)"')
00:02:54 verbose #5366 > >
00:02:54 verbose #5367 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5368 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5369 > > │ ## matches_get_many │
00:02:54 verbose #5370 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5371 > >
00:02:54 verbose #5372 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5373 > > inl matches_get_many forall t. (x : string) (matches : arg_matches) :
00:02:54 verbose #5374 > > optionm'.option' (am'.vec t) =
00:02:54 verbose #5375 > > inl x = join x
00:02:54 verbose #5376 > > inl x = x |> sm'.as_str
00:02:54 verbose #5377 > > !\\(matches, $'"clap::ArgMatches::get_many(&$0, !x).map(|x|
00:02:54 verbose #5378 > > x.cloned().into_iter().collect())"')
00:02:54 verbose #5379 > >
00:02:54 verbose #5380 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5381 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5382 > > │ ## matches_get_occurrences │
00:02:54 verbose #5383 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5384 > >
00:02:54 verbose #5385 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5386 > > inl matches_get_occurrences (x : string) (matches : arg_matches) :
00:02:54 verbose #5387 > > optionm'.option' (array_base sm'.std_string) =
00:02:54 verbose #5388 > > inl x = join x
00:02:54 verbose #5389 > > inl x = x |> sm'.as_str
00:02:54 verbose #5390 > > !\($'"clap::ArgMatches::get_occurrences(&!matches, !x).cloned()"')
00:02:54 verbose #5391 > >
00:02:54 verbose #5392 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5393 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5394 > > │ ## matches_subcommand │
00:02:54 verbose #5395 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5396 > >
00:02:54 verbose #5397 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5398 > > inl matches_subcommand (matches : arg_matches) : optionm'.option'
00:02:54 verbose #5399 > > (sm'.std_string * arg_matches) =
00:02:54 verbose #5400 > > !\\((matches, sm'.ref_to_std_string),
00:02:54 verbose #5401 > > $'"clap::ArgMatches::subcommand(Box::leak(Box::new($0))).map(|(a, b)| ($1(a),
00:02:54 verbose #5402 > > b.clone()))"')
00:02:54 verbose #5403 > >
00:02:54 verbose #5404 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5405 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5406 > > │ ## matches_values_of │
00:02:54 verbose #5407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5408 > >
00:02:54 verbose #5409 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5410 > > inl matches_values_of (x : string) (matches : arg_matches) : array_base
00:02:54 verbose #5411 > > sm'.std_string =
00:02:54 verbose #5412 > > !\\((matches, x), $'"clap::ArgMatches::values_of($0, &*$1)"')
00:02:54 verbose #5413 > >
00:02:54 verbose #5414 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5415 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5416 > > │ ## command_subcommand_required │
00:02:54 verbose #5417 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5418 > >
00:02:54 verbose #5419 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5420 > > inl command_subcommand_required (value : bool) (command : command) : command =
00:02:54 verbose #5421 > > !\\(command, $'"clap::Command::subcommand_required($0, !value)"')
00:02:54 verbose #5422 > >
00:02:54 verbose #5423 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5424 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5425 > > │ ## command_subcommand │
00:02:54 verbose #5426 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5427 > >
00:02:54 verbose #5428 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5429 > > inl command_subcommand (subcommand : command) (command : command) : command =
00:02:54 verbose #5430 > > !\\(command, $'"clap::Command::subcommand($0, !subcommand)"')
00:02:54 verbose #5431 > >
00:02:54 verbose #5432 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5433 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5434 > > │ ## value_parser_possible_values │
00:02:54 verbose #5435 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5436 > >
00:02:54 verbose #5437 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5438 > > inl value_parser_possible_values (values : array_base string) : value_parser =
00:02:54 verbose #5439 > > inl values =
00:02:54 verbose #5440 > > values
00:02:54 verbose #5441 > > |> am'.to_vec
00:02:54 verbose #5442 > > |> am'.vec_map (sm'.to_std_string >> rust.new_box >> rust.box_leak >>
00:02:54 verbose #5443 > > new_possible_value)
00:02:54 verbose #5444 > > !\\(values,
00:02:54 verbose #5445 > > $'"Into::<clap::builder::ValueParser>::into(clap::builder::PossibleValuesParser:
00:02:54 verbose #5446 > > :new($0))"')
00:02:54 verbose #5447 > >
00:02:54 verbose #5448 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 verbose #5449 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 verbose #5450 > > │ ## arg_union │
00:02:54 verbose #5451 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 verbose #5452 > >
00:02:54 verbose #5453 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5454 > > inl arg_union forall union_type. (fn : union_type -> ()) (arg : arg) : arg =
00:02:54 verbose #5455 > > arg
00:02:54 verbose #5456 > > |> arg_value_parser (
00:02:54 verbose #5457 > > real reflection.get_union_fields_untag `union_type ()
00:02:54 verbose #5458 > > |> fun x => x : _ (string * union_type)
00:02:54 verbose #5459 > > |> listm.map fst
00:02:54 verbose #5460 > > |> listm'.box
00:02:54 verbose #5461 > > |> listm'.to_array'
00:02:54 verbose #5462 > > |> fun (a x : _ i32 _) => x
00:02:54 verbose #5463 > > |> value_parser_possible_values
00:02:54 verbose #5464 > > )
00:02:54 verbose #5465 > >
00:02:54 verbose #5466 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 verbose #5467 > > //// test
00:02:54 verbose #5468 > > ///! rust -d clap
00:02:54 verbose #5469 > >
00:02:54 verbose #5470 > > ##"command"
00:02:54 verbose #5471 > > |> new_command
00:02:54 verbose #5472 > > |> command_init_arg ("trace-level", 't') (
00:02:54 verbose #5473 > > real arg_union `trace_level ignore
00:02:54 verbose #5474 > > )
00:02:54 verbose #5475 > > |> command_get_matches_from ;[[ "_"; "--trace-level"; "Critical" ]]
00:02:54 verbose #5476 > > |> matches_get_one "trace-level"
00:02:54 verbose #5477 > > |> optionm'.unwrap
00:02:54 verbose #5478 > > |> sm'.from_std_string
00:02:54 verbose #5479 > > |> reflection.union_try_pick
00:02:54 verbose #5480 > > |> optionm.value
00:02:54 verbose #5481 > > |> _assert_eq Critical
00:02:59 verbose #5482 > >
00:02:59 verbose #5483 > > ╭─[ 4.30s - return value ]─────────────────────────────────────────────────────╮
00:02:59 verbose #5484 > > │ assert_eq / actual: US1_4 / expected: US1_4 │
00:02:59 verbose #5485 > > │ │
00:02:59 verbose #5486 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 verbose #5487 > >
00:02:59 verbose #5488 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:59 verbose #5489 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:59 verbose #5490 > > │ ## command_debug_assert │
00:02:59 verbose #5491 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 verbose #5492 > >
00:02:59 verbose #5493 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:59 verbose #5494 > > inl command_debug_assert (command : command) : () =
00:02:59 verbose #5495 > > !\\(command, $'"clap::Command::debug_assert($0)"')
00:02:59 verbose #5496 > >
00:02:59 verbose #5497 > > ── markdown ────────────────────────────────────────────────────────────────────
00:02:59 verbose #5498 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:59 verbose #5499 > > │ ## main │
00:02:59 verbose #5500 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 verbose #5501 > >
00:02:59 verbose #5502 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:59 verbose #5503 > > inl main () =
00:02:59 verbose #5504 > > types ()
00:02:59 verbose #5505 > > init_trace_state None
00:02:59 verbose #5506 > > $'let current_process_kill () = !current_process_kill ()' : ()
00:02:59 verbose #5507 > > $'let execute_async x = !execute_async x' : ()
00:02:59 verbose #5508 > > $'let execute_with_options_async x = !execute_with_options_async x' : ()
00:02:59 verbose #5509 > > inl execution_options fn =
00:02:59 verbose #5510 > > execution_options fun x =>
00:02:59 verbose #5511 > > x
00:02:59 verbose #5512 > > |> heap
00:02:59 verbose #5513 > > |> fn
00:02:59 verbose #5514 > > |> fun x => !x
00:02:59 verbose #5515 > > $'let execution_options x = !execution_options x' : ()
00:02:59 verbose #5516 > > inl split_args x = x |> split_args |> resultm.box
00:02:59 verbose #5517 > > $'let split_args x = !split_args x' : ()
00:03:01 verbose #5518 > 00:00:45 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 103484
00:03:01 verbose #5519 > 00:00:45 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:03:04 verbose #5520 > 00:00:47 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/runtime.dib.ipynb to html
00:03:04 verbose #5521 > 00:00:47 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:04 verbose #5522 > 00:00:47 verbose #7 ! validate(nb)
00:03:07 verbose #5523 > 00:00:50 verbose #8 ! [NbConvertApp] Writing 552624 bytes to c:\home\git\polyglot\lib\spiral\runtime.dib.html
00:03:07 verbose #5524 > 00:00:51 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:03:07 verbose #5525 > 00:00:51 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:03:07 verbose #5526 > 00:00:51 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/runtime.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:03:08 verbose #5527 > 00:00:52 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:03:08 verbose #5528 > 00:00:52 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:03:09 verbose #5529 > 00:00:53 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 104188
00:03:09 debug #5530 runtime.execute_with_options_async / exit_code: 0 / output.Length: 110536
00:03:09 debug #8 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path runtime.dib --retries 3
00:03:09 debug #5531 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path trace.dib --retries 3",
[||], None, None, true, None)
00:03:09 verbose #5532 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "trace.dib", "--retries", "3"])
00:03:09 verbose #5533 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/trace.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/trace.dib" --output-path "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:03:12 verbose #5534 > >
00:03:12 verbose #5535 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:12 verbose #5536 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:12 verbose #5537 > > │ # trace │
00:03:12 verbose #5538 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 verbose #5539 > >
00:03:12 verbose #5540 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:12 verbose #5541 > > //// test
00:03:12 verbose #5542 > >
00:03:12 verbose #5543 > > open testing
00:03:12 verbose #5544 > >
00:03:12 verbose #5545 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:03:12 verbose #5546 > > #r
00:03:12 verbose #5547 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:12 verbose #5548 > > otNet.Interactive.Spiral.dll"
00:03:12 verbose #5549 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:03:12 verbose #5550 > > #r
00:03:12 verbose #5551 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:12 verbose #5552 > > otNet.Interactive.dll"
00:03:12 verbose #5553 > > open type Microsoft.DotNet.Interactive.Kernel
00:03:17 verbose #5554 > >
00:03:17 verbose #5555 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5556 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5557 > > │ ## types │
00:03:17 verbose #5558 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5559 > >
00:03:17 verbose #5560 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5561 > > inl types () =
00:03:17 verbose #5562 > > rust.types ()
00:03:17 verbose #5563 > > sm'.types ()
00:03:17 verbose #5564 > > env.types ()
00:03:17 verbose #5565 > >
00:03:17 verbose #5566 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5567 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5568 > > │ ## trace_level │
00:03:17 verbose #5569 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5570 > >
00:03:17 verbose #5571 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5572 > > union trace_level =
00:03:17 verbose #5573 > > | Verbose
00:03:17 verbose #5574 > > | Debug
00:03:17 verbose #5575 > > | Info
00:03:17 verbose #5576 > > | Warning
00:03:17 verbose #5577 > > | Critical
00:03:17 verbose #5578 > >
00:03:17 verbose #5579 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5580 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5581 > > │ ## read_state │
00:03:17 verbose #5582 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5583 > >
00:03:17 verbose #5584 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5585 > > inl read_state () =
00:03:17 verbose #5586 > > run_target function
00:03:17 verbose #5587 > > | Rust (Contract | Wasm) => fun () =>
00:03:17 verbose #5588 > > {
00:03:17 verbose #5589 > > trace_level = None
00:03:17 verbose #5590 > > repl_start = None
00:03:17 verbose #5591 > > }
00:03:17 verbose #5592 > > | _ => fun () =>
00:03:17 verbose #5593 > > {
00:03:17 verbose #5594 > > trace_level =
00:03:17 verbose #5595 > > (join "TRACE_LEVEL")
00:03:17 verbose #5596 > > |> env.get_environment_variable
00:03:17 verbose #5597 > > |> reflection.union_try_pick
00:03:17 verbose #5598 > > repl_start =
00:03:17 verbose #5599 > > inl automation = env.get_environment_variable (join
00:03:17 verbose #5600 > > "AUTOMATION")
00:03:17 verbose #5601 > > if automation = "True"
00:03:17 verbose #5602 > > then date_time.now () |> date_time.ticks |> fun
00:03:17 verbose #5603 > > (date_time.timestamp x) => x |> Some
00:03:17 verbose #5604 > > else None
00:03:17 verbose #5605 > > }
00:03:17 verbose #5606 > >
00:03:17 verbose #5607 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5608 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5609 > > │ ## trace_state │
00:03:17 verbose #5610 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5611 > >
00:03:17 verbose #5612 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5613 > > type trace_state =
00:03:17 verbose #5614 > > {
00:03:17 verbose #5615 > > count : mut i64
00:03:17 verbose #5616 > > trace_file : mut (string -> ())
00:03:17 verbose #5617 > > enabled : mut bool
00:03:17 verbose #5618 > > level : mut trace_level
00:03:17 verbose #5619 > > repl_start : optionm'.option' i64
00:03:17 verbose #5620 > > }
00:03:17 verbose #5621 > >
00:03:17 verbose #5622 > > inl new_trace_state trace_level' =
00:03:17 verbose #5623 > > inl { repl_start trace_level } = read_state ()
00:03:17 verbose #5624 > > {
00:03:17 verbose #5625 > > enabled = mut true
00:03:17 verbose #5626 > > count = mut 0i64
00:03:17 verbose #5627 > > level = trace_level |> optionm'.default_value trace_level' |> mut
00:03:17 verbose #5628 > > trace_file = mut ignore
00:03:17 verbose #5629 > > repl_start = repl_start |> optionm'.box
00:03:17 verbose #5630 > > } : trace_state
00:03:17 verbose #5631 > >
00:03:17 verbose #5632 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5633 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5634 > > │ ## init_trace_state │
00:03:17 verbose #5635 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5636 > >
00:03:17 verbose #5637 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5638 > > inl init_trace_state trace_level : () =
00:03:17 verbose #5639 > > inl trace_level =
00:03:17 verbose #5640 > > trace_level
00:03:17 verbose #5641 > > |> optionm'.default_value Verbose
00:03:17 verbose #5642 > > global "module State = let mutable trace_state = None"
00:03:17 verbose #5643 > > $'if State.trace_state.IsNone then State.trace_state <- !new_trace_state
00:03:17 verbose #5644 > > !trace_level |> Some' : ()
00:03:17 verbose #5645 > >
00:03:17 verbose #5646 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5647 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5648 > > │ ## get_trace_state_or_init │
00:03:17 verbose #5649 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5650 > >
00:03:17 verbose #5651 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5652 > > inl get_trace_state_or_init trace_level : trace_state =
00:03:17 verbose #5653 > > init_trace_state trace_level
00:03:17 verbose #5654 > > // $'match State.trace_state with Some x -> x | None -> failwith
00:03:17 verbose #5655 > > "trace.get_trace_state_or_init / State.trace_state=None"'
00:03:17 verbose #5656 > > $'State.trace_state.Value'
00:03:17 verbose #5657 > >
00:03:17 verbose #5658 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5659 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5660 > > │ ## _locals │
00:03:17 verbose #5661 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5662 > >
00:03:17 verbose #5663 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5664 > > inl _locals () = ""
00:03:17 verbose #5665 > >
00:03:17 verbose #5666 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 verbose #5667 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 verbose #5668 > > │ ## test_trace_level │
00:03:17 verbose #5669 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 verbose #5670 > >
00:03:17 verbose #5671 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5672 > > inl test_trace_level level : bool =
00:03:17 verbose #5673 > > inl state = get_trace_state_or_init None
00:03:17 verbose #5674 > > inl level' = *state.level
00:03:17 verbose #5675 > > if *state.enabled |> not
00:03:17 verbose #5676 > > then false
00:03:17 verbose #5677 > > else
00:03:17 verbose #5678 > > inl level : i32 = real real_core.union_tag level
00:03:17 verbose #5679 > > inl level' : i32 = real real_core.union_tag level'
00:03:17 verbose #5680 > > level >= level'
00:03:17 verbose #5681 > >
00:03:17 verbose #5682 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 verbose #5683 > > //// test
00:03:17 verbose #5684 > >
00:03:17 verbose #5685 > > test_trace_level Critical |> _assert_eq true
00:03:17 verbose #5686 > > test_trace_level Verbose |> _assert_eq true
00:03:17 verbose #5687 > >
00:03:17 verbose #5688 > > inl level = get_trace_state_or_init None .level
00:03:17 verbose #5689 > > level <- Debug
00:03:17 verbose #5690 > > test_trace_level Verbose |> _assert_eq false
00:03:17 verbose #5691 > > level <- Verbose
00:03:17 verbose #5692 > > test_trace_level Verbose |> _assert_eq true
00:03:18 verbose #5693 > >
00:03:18 verbose #5694 > > ╭─[ 1.57s - stdout ]───────────────────────────────────────────────────────────╮
00:03:18 verbose #5695 > > │ assert_eq / actual: true / expected: true │
00:03:18 verbose #5696 > > │ assert_eq / actual: true / expected: true │
00:03:18 verbose #5697 > > │ assert_eq / actual: false / expected: false │
00:03:18 verbose #5698 > > │ assert_eq / actual: true / expected: true │
00:03:18 verbose #5699 > > │ │
00:03:18 verbose #5700 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 verbose #5701 > >
00:03:18 verbose #5702 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:18 verbose #5703 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:18 verbose #5704 > > │ ## trace_raw │
00:03:18 verbose #5705 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 verbose #5706 > >
00:03:18 verbose #5707 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:18 verbose #5708 > > let rec trace_raw level fn =
00:03:18 verbose #5709 > > inl trace_state = get_trace_state_or_init None
00:03:18 verbose #5710 > > if level |> test_trace_level then
00:03:18 verbose #5711 > > inl count = trace_state.count
00:03:18 verbose #5712 > > count <- *count + 1
00:03:18 verbose #5713 > >
00:03:18 verbose #5714 > > inl text = $'$"%s{!fn ()}"' : string
00:03:18 verbose #5715 > > run_target function
00:03:18 verbose #5716 > > | Rust _ => fun () =>
00:03:18 verbose #5717 > > open rust_operators
00:03:18 verbose #5718 > > !\\(text, $'\@"println\!(""{}"", $0)"')
00:03:18 verbose #5719 > > | _ => fun () =>
00:03:18 verbose #5720 > > $'System.Console.WriteLine !text '
00:03:18 verbose #5721 > >
00:03:18 verbose #5722 > > *trace_state.trace_file text
00:03:18 verbose #5723 > >
00:03:18 verbose #5724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:18 verbose #5725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:18 verbose #5726 > > │ ## trace │
00:03:18 verbose #5727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 verbose #5728 > >
00:03:18 verbose #5729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:18 verbose #5730 > > let trace (level : trace_level) (text_fn : () -> string) (locals : () -> string)
00:03:18 verbose #5731 > > =
00:03:18 verbose #5732 > > fun () =>
00:03:18 verbose #5733 > > inl trace_state = get_trace_state_or_init None
00:03:18 verbose #5734 > > inl time =
00:03:18 verbose #5735 > > run_target fun target =>
00:03:18 verbose #5736 > > match target with
00:03:18 verbose #5737 > > | Rust (Contract) => fun () => join ""
00:03:18 verbose #5738 > > | _ => fun () =>
00:03:18 verbose #5739 > > match trace_state.repl_start |> optionm'.unbox with
00:03:18 verbose #5740 > > | Some repl_start =>
00:03:18 verbose #5741 > > inl t =
00:03:18 verbose #5742 > > (date_time.now () |> date_time.ticks |> fun
00:03:18 verbose #5743 > > (date_time.timestamp x) => x)
00:03:18 verbose #5744 > > - repl_start |> date_time.time_span
00:03:18 verbose #5745 > > date_time.date_time_milliseconds
00:03:18 verbose #5746 > > 1i32 1i32 1i32
00:03:18 verbose #5747 > > (t |> date_time.hours)
00:03:18 verbose #5748 > > (t |> date_time.minutes)
00:03:18 verbose #5749 > > (t |> date_time.seconds)
00:03:18 verbose #5750 > > (t |> date_time.milliseconds)
00:03:18 verbose #5751 > > | None => date_time.now ()
00:03:18 verbose #5752 > > |> fun date_time =>
00:03:18 verbose #5753 > > inl format =
00:03:18 verbose #5754 > > match target with
00:03:18 verbose #5755 > > | Rust _ => join "hh:mm:ss"
00:03:18 verbose #5756 > > | _ => join "HH:mm:ss"
00:03:18 verbose #5757 > > $'!date_time.ToString !format '
00:03:18 verbose #5758 > > inl level_str = level |> reflection.union_to_string |> sm'.to_lower |>
00:03:18 verbose #5759 > > sm'.pad_left 7 ' '
00:03:18 verbose #5760 > > inl level_str =
00:03:18 verbose #5761 > > run_target function
00:03:18 verbose #5762 > > | Rust _ => fun () =>
00:03:18 verbose #5763 > > open rust_operators
00:03:18 verbose #5764 > > inl color : rust.ref' sm'.str =
00:03:18 verbose #5765 > > match level with
00:03:18 verbose #5766 > > | Verbose =>
00:03:18 verbose #5767 > > !\($'"inline_colorization::color_bright_black"')
00:03:18 verbose #5768 > > | Debug => !\($'"inline_colorization::color_bright_blue"')
00:03:18 verbose #5769 > > | Info => !\($'"inline_colorization::color_bright_green"')
00:03:18 verbose #5770 > > | Warning => !\($'"inline_colorization::color_yellow"')
00:03:18 verbose #5771 > > | Critical => !\($'"inline_colorization::color_bright_red"')
00:03:18 verbose #5772 > > inl level_str = level_str |> sm'.as_str
00:03:18 verbose #5773 > > inl color_reset : rust.ref' sm'.str =
00:03:18 verbose #5774 > > !\($'"inline_colorization::color_reset"')
00:03:18 verbose #5775 > > $'"\\\"{!color}{!level_str}{!color_reset}\\\""'
00:03:18 verbose #5776 > > |> sm'.format''
00:03:18 verbose #5777 > > |> sm'.from_std_string
00:03:18 verbose #5778 > > | _ => fun () => level_str
00:03:18 verbose #5779 > > inl count = *trace_state.count
00:03:18 verbose #5780 > > $'$"{!time} {!level_str} #{!count} %s{!text_fn ()} / %s{!locals ()}"'
00:03:18 verbose #5781 > > |> sm'.trim_start ;[[]]
00:03:18 verbose #5782 > > |> sm'.trim_end ;[[ ' '; '/' ]]
00:03:18 verbose #5783 > > |> trace_raw level
00:03:19 verbose #5784 > >
00:03:19 verbose #5785 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:19 verbose #5786 > > //// test
00:03:19 verbose #5787 > > ///! fsharp
00:03:19 verbose #5788 > > ///! rust
00:03:19 verbose #5789 > > ///! typescript
00:03:19 verbose #5790 > > ///! python
00:03:19 verbose #5791 > >
00:03:19 verbose #5792 > > types ()
00:03:19 verbose #5793 > > trace Debug (fun () => "test1") _locals
00:03:19 verbose #5794 > > trace Debug (fun () => "test2") _locals
00:03:19 verbose #5795 > > get_trace_state_or_init None .count
00:03:19 verbose #5796 > > |> fun x => *x
00:03:19 verbose #5797 > > |> _assert_eq 2
00:03:23 verbose #5798 > >
00:03:23 verbose #5799 > > ╭─[ 4.51s - return value ]─────────────────────────────────────────────────────╮
00:03:23 verbose #5800 > > │ .rs output: │
00:03:23 verbose #5801 > > │ 00:00:00 debug #1 test1 │
00:03:23 verbose #5802 > > │ 00:00:00 debug #2 test2 │
00:03:23 verbose #5803 > > │ assert_eq / actual: 2 / expected: 2 │
00:03:23 verbose #5804 > > │ │
00:03:23 verbose #5805 > > │ .ts output: │
00:03:23 verbose #5806 > > │ 00:00:00 debug #1 test1 │
00:03:23 verbose #5807 > > │ 00:00:00 debug #2 test2 │
00:03:23 verbose #5808 > > │ assert_eq / actual: 2 / expected: 2 │
00:03:23 verbose #5809 > > │ │
00:03:23 verbose #5810 > > │ .py output: │
00:03:23 verbose #5811 > > │ 00:00:00 debug #1 test1 │
00:03:23 verbose #5812 > > │ 00:00:00 debug #2 test2 │
00:03:23 verbose #5813 > > │ assert_eq / actual: 2 / expected: 2 │
00:03:23 verbose #5814 > > │ │
00:03:23 verbose #5815 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 verbose #5816 > >
00:03:23 verbose #5817 > > ╭─[ 4.51s - stdout ]───────────────────────────────────────────────────────────╮
00:03:23 verbose #5818 > > │ .fsx output: │
00:03:23 verbose #5819 > > │ 00:00:00 debug #1 test1 │
00:03:23 verbose #5820 > > │ 00:00:00 debug #2 test2 │
00:03:23 verbose #5821 > > │ assert_eq / actual: 2L / expected: 2L │
00:03:23 verbose #5822 > > │ │
00:03:23 verbose #5823 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 verbose #5824 > >
00:03:23 verbose #5825 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:23 verbose #5826 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:23 verbose #5827 > > │ ## main │
00:03:23 verbose #5828 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 verbose #5829 > >
00:03:23 verbose #5830 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:23 verbose #5831 > > inl main () =
00:03:23 verbose #5832 > > types ()
00:03:23 verbose #5833 > > init_trace_state None
00:03:23 verbose #5834 > > $'let trace x = !trace x' : ()
00:03:24 verbose #5835 > 00:00:14 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 13854
00:03:24 verbose #5836 > 00:00:14 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/trace.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:03:26 verbose #5837 > 00:00:16 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/trace.dib.ipynb to html
00:03:26 verbose #5838 > 00:00:16 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:26 verbose #5839 > 00:00:16 verbose #7 ! validate(nb)
00:03:28 verbose #5840 > 00:00:18 verbose #8 ! [NbConvertApp] Writing 308280 bytes to c:\home\git\polyglot\lib\spiral\trace.dib.html
00:03:28 verbose #5841 > 00:00:19 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 641
00:03:28 verbose #5842 > 00:00:19 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 641
00:03:28 verbose #5843 > 00:00:19 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/trace.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/trace.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:03:30 verbose #5844 > 00:00:20 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:03:30 verbose #5845 > 00:00:20 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:03:30 verbose #5846 > 00:00:21 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 14554
00:03:30 debug #5847 runtime.execute_with_options_async / exit_code: 0 / output.Length: 17404
00:03:30 debug #9 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path trace.dib --retries 3
00:03:30 debug #5848 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path am'.dib --retries 3",
[||], None, None, true, None)
00:03:31 verbose #5849 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "am'.dib", "--retries", "3"])
00:03:31 verbose #5850 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/am'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/am'.dib" --output-path "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:03:33 verbose #5851 > >
00:03:33 verbose #5852 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:33 verbose #5853 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:33 verbose #5854 > > │ # am' │
00:03:33 verbose #5855 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:33 verbose #5856 > >
00:03:33 verbose #5857 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:33 verbose #5858 > > //// test
00:03:33 verbose #5859 > >
00:03:33 verbose #5860 > > open testing
00:03:33 verbose #5861 > >
00:03:33 verbose #5862 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:03:33 verbose #5863 > > #r
00:03:33 verbose #5864 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:33 verbose #5865 > > otNet.Interactive.Spiral.dll"
00:03:33 verbose #5866 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:03:33 verbose #5867 > > #r
00:03:33 verbose #5868 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:33 verbose #5869 > > otNet.Interactive.dll"
00:03:33 verbose #5870 > > open type Microsoft.DotNet.Interactive.Kernel
00:03:38 verbose #5871 > >
00:03:38 verbose #5872 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 verbose #5873 > > open rust_operators
00:03:38 verbose #5874 > >
00:03:38 verbose #5875 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:38 verbose #5876 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:38 verbose #5877 > > │ ## types │
00:03:38 verbose #5878 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 verbose #5879 > >
00:03:38 verbose #5880 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 verbose #5881 > > inl types () =
00:03:38 verbose #5882 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:03:38 verbose #5883 > > Fable.Core.Emit(\"[[$0]]\")>]]\n#endif\ntype Slice<'T> = class end"
00:03:38 verbose #5884 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:03:38 verbose #5885 > > Fable.Core.Emit(\"_\")>]]\n#endif\ntype Slice'<'T> = class end"
00:03:38 verbose #5886 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:03:38 verbose #5887 > > Fable.Core.Emit(\"Vec<$0>\")>]]\n#endif\ntype Vec<'T> = class end"
00:03:39 verbose #5888 > >
00:03:39 verbose #5889 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5890 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5891 > > │ ## length │
00:03:39 verbose #5892 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5893 > >
00:03:39 verbose #5894 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5895 > > inl length forall dim {int} el. (a : a dim el) : dim =
00:03:39 verbose #5896 > > a |> length
00:03:39 verbose #5897 > >
00:03:39 verbose #5898 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5899 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5900 > > │ ## index │
00:03:39 verbose #5901 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5902 > >
00:03:39 verbose #5903 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5904 > > inl index forall dim {int} el. (i : dim) (a : a dim el) : el =
00:03:39 verbose #5905 > > index a i
00:03:39 verbose #5906 > >
00:03:39 verbose #5907 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5908 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5909 > > │ ## base │
00:03:39 verbose #5910 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5911 > >
00:03:39 verbose #5912 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5913 > > inl base forall dim {int} el. ((a a) : a dim el) : array_base el =
00:03:39 verbose #5914 > > a
00:03:39 verbose #5915 > >
00:03:39 verbose #5916 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5917 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5918 > > │ ## base' │
00:03:39 verbose #5919 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5920 > >
00:03:39 verbose #5921 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5922 > > inl base' forall el. ((a a) : a int el) : array_base el =
00:03:39 verbose #5923 > > a
00:03:39 verbose #5924 > >
00:03:39 verbose #5925 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5926 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5927 > > │ ## generic_equable │
00:03:39 verbose #5928 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5929 > >
00:03:39 verbose #5930 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5931 > > inl generic_equable x1 x2 =
00:03:39 verbose #5932 > > if length x1 <>.. length x2
00:03:39 verbose #5933 > > then false
00:03:39 verbose #5934 > > else
00:03:39 verbose #5935 > > let rec loop i =
00:03:39 verbose #5936 > > if i < length x1
00:03:39 verbose #5937 > > then index i x1 = index i x2 && loop (i + 1)
00:03:39 verbose #5938 > > else true
00:03:39 verbose #5939 > > loop 0
00:03:39 verbose #5940 > >
00:03:39 verbose #5941 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5942 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5943 > > │ ## equable │
00:03:39 verbose #5944 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5945 > >
00:03:39 verbose #5946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5947 > > instance equable a dim {number; int} t = generic_equable
00:03:39 verbose #5948 > >
00:03:39 verbose #5949 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 verbose #5950 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 verbose #5951 > > │ ## append │
00:03:39 verbose #5952 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 verbose #5953 > >
00:03:39 verbose #5954 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5955 > > instance append a dim {int; number} t = am.append
00:03:39 verbose #5956 > >
00:03:39 verbose #5957 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 verbose #5958 > > //// test
00:03:39 verbose #5959 > > ///! fsharp
00:03:39 verbose #5960 > > ///! rust
00:03:39 verbose #5961 > > ///! typescript
00:03:39 verbose #5962 > > ///! python
00:03:39 verbose #5963 > >
00:03:39 verbose #5964 > > a' ;[[ -1i64; 0 ]] ++ a' ;[[ 1; 2 ]]
00:03:39 verbose #5965 > > |> _assert_eq (a' ;[[ -1; 0; 1; 2 ]])
00:03:44 verbose #5966 > >
00:03:44 verbose #5967 > > ╭─[ 5.73s - return value ]─────────────────────────────────────────────────────╮
00:03:44 verbose #5968 > > │ .rs output: │
00:03:44 verbose #5969 > > │ assert_eq / actual: Array(MutCell([-1, 0, 1, 2])) / expected: Array(MutCell( │
00:03:44 verbose #5970 > > │ [-1, 0, 1, 2])) │
00:03:44 verbose #5971 > > │ │
00:03:44 verbose #5972 > > │ .ts output: │
00:03:44 verbose #5973 > > │ assert_eq / actual: -1,0,1,2 / expected: -1,0,1,2 │
00:03:44 verbose #5974 > > │ │
00:03:44 verbose #5975 > > │ .py output: │
00:03:44 verbose #5976 > > │ assert_eq / actual: [-1, 0, 1, 2] / expected: array('q', [-1, 0, 1, 2]) │
00:03:44 verbose #5977 > > │ │
00:03:44 verbose #5978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:44 verbose #5979 > >
00:03:44 verbose #5980 > > ╭─[ 5.73s - stdout ]───────────────────────────────────────────────────────────╮
00:03:44 verbose #5981 > > │ .fsx output: │
00:03:44 verbose #5982 > > │ assert_eq / actual: [|-1L; 0L; 1L; 2L|] / expected: [|-1L; 0L; 1L; 2L|] │
00:03:44 verbose #5983 > > │ │
00:03:44 verbose #5984 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:44 verbose #5985 > >
00:03:44 verbose #5986 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:44 verbose #5987 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:44 verbose #5988 > > │ ## collect │
00:03:44 verbose #5989 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:44 verbose #5990 > >
00:03:44 verbose #5991 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:44 verbose #5992 > > inl collect forall t r. (fn : t -> a int r) (items : a int t) : a int r =
00:03:44 verbose #5993 > > items
00:03:44 verbose #5994 > > |> am.map fn
00:03:44 verbose #5995 > > |> am.fold (++) (a ;[[]])
00:03:44 verbose #5996 > >
00:03:44 verbose #5997 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:44 verbose #5998 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:44 verbose #5999 > > │ ## init │
00:03:44 verbose #6000 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:44 verbose #6001 > >
00:03:44 verbose #6002 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:44 verbose #6003 > > inl init n : a int _ =
00:03:44 verbose #6004 > > am.init n id
00:03:44 verbose #6005 > >
00:03:44 verbose #6006 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:44 verbose #6007 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:44 verbose #6008 > > │ ## choose │
00:03:44 verbose #6009 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:44 verbose #6010 > >
00:03:44 verbose #6011 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:44 verbose #6012 > > inl choose f l =
00:03:44 verbose #6013 > > (l, [[]])
00:03:44 verbose #6014 > > ||> am.foldBack fun x acc =>
00:03:44 verbose #6015 > > match f x with
00:03:44 verbose #6016 > > | Some y => y :: acc
00:03:44 verbose #6017 > > | None => acc
00:03:44 verbose #6018 > > |> listm.toArray
00:03:45 verbose #6019 > >
00:03:45 verbose #6020 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:45 verbose #6021 > > //// test
00:03:45 verbose #6022 > > ///! fsharp
00:03:45 verbose #6023 > > ///! typescript
00:03:45 verbose #6024 > > ///! python
00:03:45 verbose #6025 > >
00:03:45 verbose #6026 > > 10
00:03:45 verbose #6027 > > |> init
00:03:45 verbose #6028 > > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:03:45 verbose #6029 > > |> _assert_eq (a' ;[[ 0; 2; 4; 6; 8 ]])
00:03:47 verbose #6030 > >
00:03:47 verbose #6031 > > ╭─[ 2.38s - return value ]─────────────────────────────────────────────────────╮
00:03:47 verbose #6032 > > │ .ts output: │
00:03:47 verbose #6033 > > │ assert_eq / actual: 0,2,4,6,8 / expected: 0,2,4,6,8 │
00:03:47 verbose #6034 > > │ │
00:03:47 verbose #6035 > > │ .py output: │
00:03:47 verbose #6036 > > │ assert_eq / actual: [0, 2, 4, 6, 8] / expected: array('l', [0, 2, 4, 6, 8]) │
00:03:47 verbose #6037 > > │ │
00:03:47 verbose #6038 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 verbose #6039 > >
00:03:47 verbose #6040 > > ╭─[ 2.39s - stdout ]───────────────────────────────────────────────────────────╮
00:03:47 verbose #6041 > > │ .fsx output: │
00:03:47 verbose #6042 > > │ assert_eq / actual: [|0; 2; 4; 6; 8|] / expected: [|0; 2; 4; 6; 8|] │
00:03:47 verbose #6043 > > │ │
00:03:47 verbose #6044 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 verbose #6045 > >
00:03:47 verbose #6046 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:47 verbose #6047 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:47 verbose #6048 > > │ ## sum │
00:03:47 verbose #6049 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:47 verbose #6050 > >
00:03:47 verbose #6051 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 verbose #6052 > > inl sum a =
00:03:47 verbose #6053 > > a |> am.fold (+) 0
00:03:47 verbose #6054 > >
00:03:47 verbose #6055 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:47 verbose #6056 > > //// test
00:03:47 verbose #6057 > > ///! fsharp
00:03:47 verbose #6058 > > ///! rust
00:03:47 verbose #6059 > > ///! typescript
00:03:47 verbose #6060 > > ///! python
00:03:47 verbose #6061 > >
00:03:47 verbose #6062 > > 10
00:03:47 verbose #6063 > > |> init
00:03:47 verbose #6064 > > |> sum
00:03:47 verbose #6065 > > |> _assert_eq 45
00:03:51 verbose #6066 > >
00:03:51 verbose #6067 > > ╭─[ 4.34s - return value ]─────────────────────────────────────────────────────╮
00:03:51 verbose #6068 > > │ .rs output: │
00:03:51 verbose #6069 > > │ assert_eq / actual: 45 / expected: 45 │
00:03:51 verbose #6070 > > │ │
00:03:51 verbose #6071 > > │ .ts output: │
00:03:51 verbose #6072 > > │ assert_eq / actual: 45 / expected: 45 │
00:03:51 verbose #6073 > > │ │
00:03:51 verbose #6074 > > │ .py output: │
00:03:51 verbose #6075 > > │ assert_eq / actual: 45 / expected: 45 │
00:03:51 verbose #6076 > > │ │
00:03:51 verbose #6077 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 verbose #6078 > >
00:03:51 verbose #6079 > > ╭─[ 4.35s - stdout ]───────────────────────────────────────────────────────────╮
00:03:51 verbose #6080 > > │ .fsx output: │
00:03:51 verbose #6081 > > │ assert_eq / actual: 45 / expected: 45 │
00:03:51 verbose #6082 > > │ │
00:03:51 verbose #6083 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 verbose #6084 > >
00:03:51 verbose #6085 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:51 verbose #6086 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:51 verbose #6087 > > │ ## init_series │
00:03:51 verbose #6088 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:51 verbose #6089 > >
00:03:51 verbose #6090 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 verbose #6091 > > inl init_series start end inc : a int _ =
00:03:51 verbose #6092 > > inl total = conv ((end - start) / inc) + 1
00:03:51 verbose #6093 > > am.init total (conv >> (*) inc >> (+) start)
00:03:51 verbose #6094 > >
00:03:51 verbose #6095 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:51 verbose #6096 > > //// test
00:03:51 verbose #6097 > > ///! fsharp
00:03:51 verbose #6098 > > ///! rust
00:03:51 verbose #6099 > > ///! typescript
00:03:51 verbose #6100 > > ///! python
00:03:51 verbose #6101 > >
00:03:51 verbose #6102 > > init_series 0 1 0.5
00:03:51 verbose #6103 > > |> _assert_eq (a ;[[ 0f64; 0.5; 1 ]])
00:03:56 verbose #6104 > >
00:03:56 verbose #6105 > > ╭─[ 4.42s - return value ]─────────────────────────────────────────────────────╮
00:03:56 verbose #6106 > > │ .rs output: │
00:03:56 verbose #6107 > > │ assert_eq / actual: Array(MutCell([0.0, 0.5, 1.0])) / expected: │
00:03:56 verbose #6108 > > │ Array(MutCell([0.0, 0.5, 1.0])) │
00:03:56 verbose #6109 > > │ │
00:03:56 verbose #6110 > > │ .ts output: │
00:03:56 verbose #6111 > > │ assert_eq / actual: 0,0.5,1 / expected: 0,0.5,1 │
00:03:56 verbose #6112 > > │ │
00:03:56 verbose #6113 > > │ .py output: │
00:03:56 verbose #6114 > > │ assert_eq / actual: [0.0, 0.5, 1.0] / expected: array('d', [0.0, 0.5, 1.0]) │
00:03:56 verbose #6115 > > │ │
00:03:56 verbose #6116 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #6117 > >
00:03:56 verbose #6118 > > ╭─[ 4.43s - stdout ]───────────────────────────────────────────────────────────╮
00:03:56 verbose #6119 > > │ .fsx output: │
00:03:56 verbose #6120 > > │ assert_eq / actual: [|0.0; 0.5; 1.0|] / expected: [|0.0; 0.5; 1.0|] │
00:03:56 verbose #6121 > > │ │
00:03:56 verbose #6122 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #6123 > >
00:03:56 verbose #6124 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 verbose #6125 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 verbose #6126 > > │ ## head │
00:03:56 verbose #6127 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #6128 > >
00:03:56 verbose #6129 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #6130 > > inl head (ar : a _ _) =
00:03:56 verbose #6131 > > if var_is ar || length ar > 0
00:03:56 verbose #6132 > > then ar |> index 0
00:03:56 verbose #6133 > > else error_type "The length of the array should be greater than 0."
00:03:56 verbose #6134 > >
00:03:56 verbose #6135 > > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 verbose #6136 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 verbose #6137 > > │ ## last │
00:03:56 verbose #6138 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 verbose #6139 > >
00:03:56 verbose #6140 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #6141 > > inl last (ar : a _ _) =
00:03:56 verbose #6142 > > inl len = length ar
00:03:56 verbose #6143 > > if var_is ar || len > 0
00:03:56 verbose #6144 > > then ar |> index (len - 1)
00:03:56 verbose #6145 > > else error_type "The length of the array should be greater than 0."
00:03:56 verbose #6146 > >
00:03:56 verbose #6147 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 verbose #6148 > > //// test
00:03:56 verbose #6149 > > ///! fsharp
00:03:56 verbose #6150 > > ///! rust
00:03:56 verbose #6151 > > ///! typescript
00:03:56 verbose #6152 > > ///! python
00:03:56 verbose #6153 > >
00:03:56 verbose #6154 > > 10
00:03:56 verbose #6155 > > |> init
00:03:56 verbose #6156 > > |> last
00:03:56 verbose #6157 > > |> _assert_eq 9
00:04:00 verbose #6158 > >
00:04:00 verbose #6159 > > ╭─[ 4.06s - return value ]─────────────────────────────────────────────────────╮
00:04:00 verbose #6160 > > │ .rs output: │
00:04:00 verbose #6161 > > │ assert_eq / actual: 9 / expected: 9 │
00:04:00 verbose #6162 > > │ │
00:04:00 verbose #6163 > > │ .ts output: │
00:04:00 verbose #6164 > > │ assert_eq / actual: 9 / expected: 9 │
00:04:00 verbose #6165 > > │ │
00:04:00 verbose #6166 > > │ .py output: │
00:04:00 verbose #6167 > > │ assert_eq / actual: 9 / expected: 9 │
00:04:00 verbose #6168 > > │ │
00:04:00 verbose #6169 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 verbose #6170 > >
00:04:00 verbose #6171 > > ╭─[ 4.07s - stdout ]───────────────────────────────────────────────────────────╮
00:04:00 verbose #6172 > > │ .fsx output: │
00:04:00 verbose #6173 > > │ assert_eq / actual: 9 / expected: 9 │
00:04:00 verbose #6174 > > │ │
00:04:00 verbose #6175 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 verbose #6176 > >
00:04:00 verbose #6177 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:00 verbose #6178 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:00 verbose #6179 > > │ ## try_pick │
00:04:00 verbose #6180 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 verbose #6181 > >
00:04:00 verbose #6182 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 verbose #6183 > > inl try_pick forall t u. (fn : t -> option u) (array : a _ t) : option u =
00:04:00 verbose #6184 > > (array, None)
00:04:00 verbose #6185 > > ||> am.foldBack fun x acc =>
00:04:00 verbose #6186 > > match acc with
00:04:00 verbose #6187 > > | Some _ => acc
00:04:00 verbose #6188 > > | None => x |> fn
00:04:00 verbose #6189 > >
00:04:00 verbose #6190 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 verbose #6191 > > //// test
00:04:00 verbose #6192 > > ///! fsharp
00:04:00 verbose #6193 > > ///! typescript
00:04:00 verbose #6194 > > ///! python
00:04:00 verbose #6195 > >
00:04:00 verbose #6196 > > 10
00:04:00 verbose #6197 > > |> init
00:04:00 verbose #6198 > > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:04:00 verbose #6199 > > |> _assert_eq (Some 5i32)
00:04:02 verbose #6200 > >
00:04:02 verbose #6201 > > ╭─[ 2.35s - return value ]─────────────────────────────────────────────────────╮
00:04:02 verbose #6202 > > │ .ts output: │
00:04:02 verbose #6203 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:04:02 verbose #6204 > > │ │
00:04:02 verbose #6205 > > │ .py output: │
00:04:02 verbose #6206 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:04:02 verbose #6207 > > │ │
00:04:02 verbose #6208 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6209 > >
00:04:02 verbose #6210 > > ╭─[ 2.36s - stdout ]───────────────────────────────────────────────────────────╮
00:04:02 verbose #6211 > > │ .fsx output: │
00:04:02 verbose #6212 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:04:02 verbose #6213 > > │ │
00:04:02 verbose #6214 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6215 > >
00:04:02 verbose #6216 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:02 verbose #6217 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:02 verbose #6218 > > │ ## indexed' │
00:04:02 verbose #6219 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6220 > >
00:04:02 verbose #6221 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:02 verbose #6222 > > inl indexed' forall t dim {int; number} dim' {int; number} u {number}. (ar : a
00:04:02 verbose #6223 > > dim t) : a dim' (u * t) =
00:04:02 verbose #6224 > > ((0, a ;[[]]), ar)
00:04:02 verbose #6225 > > ||> am.fold fun (i, acc) x =>
00:04:02 verbose #6226 > > i + 1, acc ++ a ;[[i, x]]
00:04:02 verbose #6227 > > |> snd
00:04:02 verbose #6228 > >
00:04:02 verbose #6229 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:02 verbose #6230 > > //// test
00:04:02 verbose #6231 > >
00:04:02 verbose #6232 > > am.init 3i32 ((*) 2)
00:04:02 verbose #6233 > > |> indexed'
00:04:02 verbose #6234 > > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:04:02 verbose #6235 > >
00:04:02 verbose #6236 > > ╭─[ 163.97ms - stdout ]────────────────────────────────────────────────────────╮
00:04:02 verbose #6237 > > │ assert_eq / actual: [|struct (0, 0); struct (1, 2); struct (2, 4)|] / │
00:04:02 verbose #6238 > > │ expected: [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:04:02 verbose #6239 > > │ │
00:04:02 verbose #6240 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6241 > >
00:04:02 verbose #6242 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:02 verbose #6243 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:02 verbose #6244 > > │ ## map_base │
00:04:02 verbose #6245 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6246 > >
00:04:02 verbose #6247 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:02 verbose #6248 > > inl map_base forall t u. (fn : t -> u) (x : array_base t) : array_base u =
00:04:02 verbose #6249 > > a x
00:04:02 verbose #6250 > > |> am.map fn
00:04:02 verbose #6251 > > |> fun (a x : _ int _) => x
00:04:02 verbose #6252 > >
00:04:02 verbose #6253 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:02 verbose #6254 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:02 verbose #6255 > > │ ## average │
00:04:02 verbose #6256 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6257 > >
00:04:02 verbose #6258 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:02 verbose #6259 > > inl average forall el {number}. (a : a _ el) : el =
00:04:02 verbose #6260 > > a |> $'Array.average'
00:04:02 verbose #6261 > >
00:04:02 verbose #6262 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:02 verbose #6263 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:02 verbose #6264 > > │ ## distinct │
00:04:02 verbose #6265 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 verbose #6266 > >
00:04:02 verbose #6267 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:02 verbose #6268 > > inl distinct forall dim el. (a : a dim el) : a dim el =
00:04:02 verbose #6269 > > a |> $'Array.distinct'
00:04:03 verbose #6270 > >
00:04:03 verbose #6271 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6272 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6273 > > │ ## skip │
00:04:03 verbose #6274 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6275 > >
00:04:03 verbose #6276 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6277 > > inl skip forall dim el. (n : dim) (a : a dim el) : a dim el =
00:04:03 verbose #6278 > > a |> $'Array.skip' n
00:04:03 verbose #6279 > >
00:04:03 verbose #6280 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6281 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6282 > > │ ## skip_while │
00:04:03 verbose #6283 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6284 > >
00:04:03 verbose #6285 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6286 > > inl skip_while forall dim el. (fn : el -> bool) (a : a dim el) : a dim el =
00:04:03 verbose #6287 > > a |> $'Array.skipWhile' fn
00:04:03 verbose #6288 > >
00:04:03 verbose #6289 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6290 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6291 > > │ ## to_list' │
00:04:03 verbose #6292 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6293 > >
00:04:03 verbose #6294 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6295 > > inl to_list' forall dim t. (items : a dim t) : listm'.list' t =
00:04:03 verbose #6296 > > items |> $'Array.toList'
00:04:03 verbose #6297 > >
00:04:03 verbose #6298 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6299 > > //// test
00:04:03 verbose #6300 > >
00:04:03 verbose #6301 > > a' ;[[ "a"; "b" ]]
00:04:03 verbose #6302 > > |> to_list'
00:04:03 verbose #6303 > > |> listm'.unbox
00:04:03 verbose #6304 > > |> _assert_eq [[ "a"; "b" ]]
00:04:03 verbose #6305 > >
00:04:03 verbose #6306 > > ╭─[ 132.54ms - stdout ]────────────────────────────────────────────────────────╮
00:04:03 verbose #6307 > > │ assert_eq / actual: UH0_1 ("a", UH0_1 ("b", UH0_0)) / expected: UH0_1 ("a", │
00:04:03 verbose #6308 > > │ UH0_1 ("b", UH0_0)) │
00:04:03 verbose #6309 > > │ │
00:04:03 verbose #6310 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6311 > >
00:04:03 verbose #6312 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6313 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6314 > > │ ## parallel_map │
00:04:03 verbose #6315 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6316 > >
00:04:03 verbose #6317 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6318 > > inl parallel_map forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el'
00:04:03 verbose #6319 > > =
00:04:03 verbose #6320 > > a |> $'Array.Parallel.map' fn
00:04:03 verbose #6321 > >
00:04:03 verbose #6322 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6323 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6324 > > │ ## map' │
00:04:03 verbose #6325 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6326 > >
00:04:03 verbose #6327 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6328 > > inl map' forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el' =
00:04:03 verbose #6329 > > $'!a |> Array.map !fn '
00:04:03 verbose #6330 > >
00:04:03 verbose #6331 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6332 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6333 > > │ ## sort_by │
00:04:03 verbose #6334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6335 > >
00:04:03 verbose #6336 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6337 > > inl sort_by forall dim el. (fn : el -> _) (a : a dim el) : a dim el =
00:04:03 verbose #6338 > > a |> $'Array.sortBy' fn
00:04:03 verbose #6339 > >
00:04:03 verbose #6340 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6341 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6342 > > │ ## sort │
00:04:03 verbose #6343 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6344 > >
00:04:03 verbose #6345 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6346 > > inl sort forall dim el. (a : a dim el) : a dim el =
00:04:03 verbose #6347 > > a |> $'Array.sort'
00:04:03 verbose #6348 > >
00:04:03 verbose #6349 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6350 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6351 > > │ ## sort_descending │
00:04:03 verbose #6352 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6353 > >
00:04:03 verbose #6354 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6355 > > inl sort_descending forall dim el. (a : a dim el) : a dim el =
00:04:03 verbose #6356 > > a |> $'Array.sortDescending'
00:04:03 verbose #6357 > >
00:04:03 verbose #6358 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6359 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6360 > > │ ## transpose │
00:04:03 verbose #6361 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6362 > >
00:04:03 verbose #6363 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6364 > > inl transpose forall dim el. (a : a dim (a dim el)) : a dim (a dim el) =
00:04:03 verbose #6365 > > a |> $'Array.transpose'
00:04:03 verbose #6366 > >
00:04:03 verbose #6367 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6368 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6369 > > │ ## try_item │
00:04:03 verbose #6370 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6371 > >
00:04:03 verbose #6372 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6373 > > inl try_item forall dim el. (i : i32) (a : a dim el) : option el =
00:04:03 verbose #6374 > > a |> $'Array.tryItem' i |> optionm'.unbox
00:04:03 verbose #6375 > >
00:04:03 verbose #6376 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6377 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6378 > > │ ## indexed │
00:04:03 verbose #6379 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6380 > >
00:04:03 verbose #6381 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6382 > > inl indexed (array : a _ _) =
00:04:03 verbose #6383 > > (([[]], 0), array)
00:04:03 verbose #6384 > > ||> am.fold fun (acc, i) x =>
00:04:03 verbose #6385 > > (i, x) :: acc, i + 1
00:04:03 verbose #6386 > > |> fst
00:04:03 verbose #6387 > > |> listm.rev
00:04:03 verbose #6388 > > |> listm.toArray
00:04:03 verbose #6389 > >
00:04:03 verbose #6390 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6391 > > //// test
00:04:03 verbose #6392 > >
00:04:03 verbose #6393 > > am.init 3i32 ((*) 2)
00:04:03 verbose #6394 > > |> indexed
00:04:03 verbose #6395 > > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:04:03 verbose #6396 > >
00:04:03 verbose #6397 > > ╭─[ 175.46ms - stdout ]────────────────────────────────────────────────────────╮
00:04:03 verbose #6398 > > │ assert_eq / actual: [|struct (0, 0); struct (1, 2); struct (2, 4)|] / │
00:04:03 verbose #6399 > > │ expected: [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:04:03 verbose #6400 > > │ │
00:04:03 verbose #6401 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6402 > >
00:04:03 verbose #6403 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6404 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6405 > > │ ## vec │
00:04:03 verbose #6406 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6407 > >
00:04:03 verbose #6408 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6409 > > nominal vec t = $'Vec<`t>'
00:04:03 verbose #6410 > >
00:04:03 verbose #6411 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6412 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6413 > > │ ## from_vec │
00:04:03 verbose #6414 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6415 > >
00:04:03 verbose #6416 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6417 > > inl from_vec forall dim el. (vec : vec el) : a dim el =
00:04:03 verbose #6418 > > !\\(vec, $'"fable_library_rust::NativeArray_::array_from($0)"')
00:04:03 verbose #6419 > >
00:04:03 verbose #6420 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6421 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6422 > > │ ## to_vec │
00:04:03 verbose #6423 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6424 > >
00:04:03 verbose #6425 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6426 > > inl to_vec forall t. (ab : array_base t) : vec t =
00:04:03 verbose #6427 > > !\\(ab, $'"$0.to_vec()"')
00:04:03 verbose #6428 > >
00:04:03 verbose #6429 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6430 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6431 > > │ ## vec_push │
00:04:03 verbose #6432 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6433 > >
00:04:03 verbose #6434 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6435 > > inl vec_push forall el. (el : el) (vec : vec el) : vec el =
00:04:03 verbose #6436 > > inl el = join el
00:04:03 verbose #6437 > > inl vec = join vec
00:04:03 verbose #6438 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:04:03 verbose #6439 > > // inl vec = vec |> rust.to_mut
00:04:03 verbose #6440 > > (!\($'"true; !vec.push(!el)"') : bool) |> ignore
00:04:03 verbose #6441 > > !\($'"!vec"')
00:04:03 verbose #6442 > >
00:04:03 verbose #6443 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6444 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6445 > > │ ## vec_reverse │
00:04:03 verbose #6446 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6447 > >
00:04:03 verbose #6448 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6449 > > inl vec_reverse forall el. (vec : vec el) : vec el =
00:04:03 verbose #6450 > > inl vec = join vec
00:04:03 verbose #6451 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:04:03 verbose #6452 > > (!\($'"true; !vec.reverse()"') : bool) |> ignore
00:04:03 verbose #6453 > > !\($'"!vec"')
00:04:03 verbose #6454 > >
00:04:03 verbose #6455 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6456 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6457 > > │ ## vec_retain │
00:04:03 verbose #6458 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6459 > >
00:04:03 verbose #6460 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6461 > > inl vec_retain forall el. (fn : el -> bool) (vec : vec el) : vec el =
00:04:03 verbose #6462 > > inl vec = join vec
00:04:03 verbose #6463 > > inl fn = join fn
00:04:03 verbose #6464 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:04:03 verbose #6465 > > // inl vec = vec |> rust.to_mut
00:04:03 verbose #6466 > > (!\($'"true; !vec.retain(|x| !fn(x.clone()))"') : bool) |> ignore
00:04:03 verbose #6467 > > !\($'"!vec"')
00:04:03 verbose #6468 > >
00:04:03 verbose #6469 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6470 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6471 > > │ ## vec_sort_by_key │
00:04:03 verbose #6472 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6473 > >
00:04:03 verbose #6474 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6475 > > inl vec_sort_by_key forall el t. (fn : el -> t) (vec : vec el) : vec el =
00:04:03 verbose #6476 > > inl vec = join vec
00:04:03 verbose #6477 > > inl fn = join fn
00:04:03 verbose #6478 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:04:03 verbose #6479 > > // inl vec = vec |> rust.to_mut
00:04:03 verbose #6480 > > (!\($'"true; !vec.sort_by_key(|x| !fn(x.clone()))"') : bool) |> ignore
00:04:03 verbose #6481 > > !\($'"!vec"')
00:04:03 verbose #6482 > >
00:04:03 verbose #6483 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6484 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6485 > > │ ## vec_extend │
00:04:03 verbose #6486 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6487 > >
00:04:03 verbose #6488 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6489 > > inl vec_extend forall el. (el : vec el) (vec : vec el) : vec el =
00:04:03 verbose #6490 > > inl el = join el
00:04:03 verbose #6491 > > inl vec = join vec
00:04:03 verbose #6492 > > (!\($'"true; let mut !vec = !vec"') : bool) |> ignore
00:04:03 verbose #6493 > > // inl vec = vec |> rust.to_mut
00:04:03 verbose #6494 > > (!\($'"true; !vec.extend(!el)"') : bool) |> ignore
00:04:03 verbose #6495 > > !\($'"!vec"')
00:04:03 verbose #6496 > >
00:04:03 verbose #6497 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6498 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6499 > > │ ## vec_collect │
00:04:03 verbose #6500 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6501 > >
00:04:03 verbose #6502 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6503 > > inl vec_collect fn vec =
00:04:03 verbose #6504 > > ((;[[]] |> to_vec), (vec |> from_vec : _ i32 _))
00:04:03 verbose #6505 > > ||> am.fold fun acc x =>
00:04:03 verbose #6506 > > acc |> vec_extend (fn x)
00:04:03 verbose #6507 > >
00:04:03 verbose #6508 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6509 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6510 > > │ ## vec_collect_option │
00:04:03 verbose #6511 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6512 > >
00:04:03 verbose #6513 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6514 > > inl vec_collect_option vec =
00:04:03 verbose #6515 > > ((;[[]] |> to_vec |> Ok), (vec |> from_vec : _ i32 _))
00:04:03 verbose #6516 > > ||> am.fold fun acc x =>
00:04:03 verbose #6517 > > x
00:04:03 verbose #6518 > > |> resultm.unbox
00:04:03 verbose #6519 > > |> fun x =>
00:04:03 verbose #6520 > > match acc, x |> resultm.map optionm'.unbox with
00:04:03 verbose #6521 > > | Ok acc, Ok (Some x) => acc |> vec_extend x |> Ok
00:04:03 verbose #6522 > > | _, Error error => error |> Error
00:04:03 verbose #6523 > > | _ => acc
00:04:03 verbose #6524 > >
00:04:03 verbose #6525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6527 > > │ ## vec_collect_into │
00:04:03 verbose #6528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6529 > >
00:04:03 verbose #6530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6531 > > inl vec_collect_into forall (c : * -> * -> *) t e.
00:04:03 verbose #6532 > > (x : vec (c t e))
00:04:03 verbose #6533 > > : c (vec t) e
00:04:03 verbose #6534 > > =
00:04:03 verbose #6535 > > !\($'"!x.into_iter().collect()"')
00:04:03 verbose #6536 > >
00:04:03 verbose #6537 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6538 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6539 > > │ ## vec_mapi │
00:04:03 verbose #6540 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6541 > >
00:04:03 verbose #6542 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6543 > > inl vec_mapi forall dim t u. (fn : dim -> t -> u) (ar : vec t) : vec u =
00:04:03 verbose #6544 > > inl fn = join fn
00:04:03 verbose #6545 > > inl ar = join ar
00:04:03 verbose #6546 > > !\($'"!ar.iter().enumerate().map(|(i, x)|
00:04:03 verbose #6547 > > !fn(i.try_into().unwrap())(x.clone())).collect::<Vec<_>>()"')
00:04:03 verbose #6548 > >
00:04:03 verbose #6549 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6550 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6551 > > │ ## vec_map │
00:04:03 verbose #6552 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6553 > >
00:04:03 verbose #6554 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6555 > > inl vec_map forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:04:03 verbose #6556 > > (!\($'"true; let _result : Vec<_> = !ar.into_iter().map(|x| { //"') : bool)
00:04:03 verbose #6557 > > |> ignore
00:04:03 verbose #6558 > > (!\\(fn !\($'"x"'), $'"true; $0 }).collect::<Vec<_>>()"') : bool) |> ignore
00:04:03 verbose #6559 > > !\($'"_result"')
00:04:03 verbose #6560 > >
00:04:03 verbose #6561 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6562 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6563 > > │ ## vec_map''' │
00:04:03 verbose #6564 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6565 > >
00:04:03 verbose #6566 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6567 > > inl vec_map''' forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:04:03 verbose #6568 > > (!\($'"true; let _result : Vec<_> = !ar.into_iter().map(|x| { //"') : bool)
00:04:03 verbose #6569 > > |> ignore
00:04:03 verbose #6570 > > (!\\(fn !\($'"x"'), $'"true; $0 }}).collect::<Vec<_>>(); {{ //"') : bool) |>
00:04:03 verbose #6571 > > ignore
00:04:03 verbose #6572 > > !\($'"_result"')
00:04:03 verbose #6573 > >
00:04:03 verbose #6574 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6575 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6576 > > │ ## vec_map' │
00:04:03 verbose #6577 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6578 > >
00:04:03 verbose #6579 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6580 > > inl vec_map' forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:04:03 verbose #6581 > > !\\((ar, fn), $'"$0.into_iter().map(|x|
00:04:03 verbose #6582 > > $1(x.clone())).collect::<Vec<_>>()"')
00:04:03 verbose #6583 > >
00:04:03 verbose #6584 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:03 verbose #6585 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:03 verbose #6586 > > │ ## vec_fold' │
00:04:03 verbose #6587 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 verbose #6588 > >
00:04:03 verbose #6589 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:03 verbose #6590 > > inl vec_fold' forall t u. (fn : u -> t -> u) (init : u) (ar : vec t) : u =
00:04:03 verbose #6591 > > (!\\(ar, $'"true; let _result = $0.into_iter().fold(!init, |acc, x| { //"')
00:04:03 verbose #6592 > > : bool) |> ignore
00:04:03 verbose #6593 > > (!\\(fn !\($'"acc"') !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:04:03 verbose #6594 > > !\($'"_result"')
00:04:04 verbose #6595 > >
00:04:04 verbose #6596 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6597 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6598 > > │ ## vec_for_each │
00:04:04 verbose #6599 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6600 > >
00:04:04 verbose #6601 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6602 > > inl vec_for_each forall t. (fn : t -> ()) (ar : vec t) : () =
00:04:04 verbose #6603 > > !\\((ar, fn), $'"$0.iter().for_each(|x| { $1(x.clone()); })"')
00:04:04 verbose #6604 > >
00:04:04 verbose #6605 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6606 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6607 > > │ ## vec_for_each' │
00:04:04 verbose #6608 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6609 > >
00:04:04 verbose #6610 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6611 > > inl vec_for_each' forall t. (fn : t -> ()) (ar : vec t) : () =
00:04:04 verbose #6612 > > (!\($'"true; !ar.into_iter().for_each(|x| { //"') : bool) |> ignore
00:04:04 verbose #6613 > > inl x = fn !\($'"x"')
00:04:04 verbose #6614 > > (!\($'"true; !x }}); { //"') : bool) |> ignore
00:04:04 verbose #6615 > >
00:04:04 verbose #6616 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6617 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6618 > > │ ## vec_filter │
00:04:04 verbose #6619 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6620 > >
00:04:04 verbose #6621 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6622 > > inl vec_filter forall t. (fn : t -> bool) (ar : vec t) : vec t =
00:04:04 verbose #6623 > > inl fn = join fn
00:04:04 verbose #6624 > > inl ar = join ar
00:04:04 verbose #6625 > > !\($'"!ar.into_iter().filter(|x|
00:04:04 verbose #6626 > > !fn(x.clone().clone())).collect::<Vec<_>>()"')
00:04:04 verbose #6627 > >
00:04:04 verbose #6628 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6629 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6630 > > │ ## vec_len │
00:04:04 verbose #6631 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6632 > >
00:04:04 verbose #6633 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6634 > > inl vec_len forall t. (vec : vec t) : unativeint =
00:04:04 verbose #6635 > > !\\(vec, $'"$0.len()"')
00:04:04 verbose #6636 > >
00:04:04 verbose #6637 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6638 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6639 > > │ ## vec_chunks │
00:04:04 verbose #6640 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6641 > >
00:04:04 verbose #6642 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6643 > > inl vec_chunks forall t. (n : i32) (vec : vec t) : vec (vec t) =
00:04:04 verbose #6644 > > !\\(vec, $'"$0.chunks(!n).map(|x| x.into_iter().map(|x|
00:04:04 verbose #6645 > > x.clone()).collect::<Vec<_>>()).collect::<Vec<_>>()"')
00:04:04 verbose #6646 > >
00:04:04 verbose #6647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6649 > > │ ## slice │
00:04:04 verbose #6650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6651 > >
00:04:04 verbose #6652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6653 > > nominal slice t = $'Slice<`t>'
00:04:04 verbose #6654 > >
00:04:04 verbose #6655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6657 > > │ ## slice │
00:04:04 verbose #6658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6659 > >
00:04:04 verbose #6660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6661 > > inl slice forall dim {int; number} el. from nearTo s : a dim el =
00:04:04 verbose #6662 > > am.slice { from nearTo } s
00:04:04 verbose #6663 > >
00:04:04 verbose #6664 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6665 > > //// test
00:04:04 verbose #6666 > >
00:04:04 verbose #6667 > > inl x : _ i32 _ = a ;[[ 1i32; 2; 3 ]]
00:04:04 verbose #6668 > > x |> slice 0 0 |> _assert_eq (a ;[[]])
00:04:04 verbose #6669 > > x |> slice 0 1 |> _assert_eq (a ;[[ 1 ]])
00:04:04 verbose #6670 > > x |> slice 1 1 |> _assert_eq (a ;[[]])
00:04:04 verbose #6671 > > x |> slice 1 2 |> _assert_eq (a ;[[ 2 ]])
00:04:04 verbose #6672 > > x |> slice 2 2 |> _assert_eq (a ;[[]])
00:04:04 verbose #6673 > > x |> slice 0 2 |> _assert_eq (a ;[[ 1; 2 ]])
00:04:04 verbose #6674 > >
00:04:04 verbose #6675 > > ╭─[ 166.09ms - stdout ]────────────────────────────────────────────────────────╮
00:04:04 verbose #6676 > > │ assert_eq / actual: [||] / expected: [||] │
00:04:04 verbose #6677 > > │ assert_eq / actual: [|1|] / expected: [|1|] │
00:04:04 verbose #6678 > > │ assert_eq / actual: [||] / expected: [||] │
00:04:04 verbose #6679 > > │ assert_eq / actual: [|2|] / expected: [|2|] │
00:04:04 verbose #6680 > > │ assert_eq / actual: [||] / expected: [||] │
00:04:04 verbose #6681 > > │ assert_eq / actual: [|1; 2|] / expected: [|1; 2|] │
00:04:04 verbose #6682 > > │ │
00:04:04 verbose #6683 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6684 > >
00:04:04 verbose #6685 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6686 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6687 > > │ ## range │
00:04:04 verbose #6688 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6689 > >
00:04:04 verbose #6690 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6691 > > union range dim =
00:04:04 verbose #6692 > > | Start : dim
00:04:04 verbose #6693 > > | End : dim -> dim
00:04:04 verbose #6694 > >
00:04:04 verbose #6695 > > inl range start end s =
00:04:04 verbose #6696 > > inl start, end =
00:04:04 verbose #6697 > > match start, end with
00:04:04 verbose #6698 > > | Start start, End fn =>
00:04:04 verbose #6699 > > start, s |> length |> conv |> fn
00:04:04 verbose #6700 > > | End start_fn, End end_fn =>
00:04:04 verbose #6701 > > inl len = s |> length |> conv
00:04:04 verbose #6702 > > start_fn len, end_fn len
00:04:04 verbose #6703 > > s |> slice (start |> unbox) (end |> unbox)
00:04:04 verbose #6704 > >
00:04:04 verbose #6705 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6706 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6707 > > │ ## slice' │
00:04:04 verbose #6708 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6709 > >
00:04:04 verbose #6710 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6711 > > nominal slice' el dim = $'Slice\'<`el>'
00:04:04 verbose #6712 > >
00:04:04 verbose #6713 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6714 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6715 > > │ ## slice_singleton │
00:04:04 verbose #6716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6717 > >
00:04:04 verbose #6718 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6719 > > inl slice_singleton forall dim el. (x : option el) : slice' el dim =
00:04:04 verbose #6720 > > match x with
00:04:04 verbose #6721 > > | Some x => !\($'"[[!x]]"')
00:04:04 verbose #6722 > > | None =>
00:04:04 verbose #6723 > > !\($'"[[\\\"\\\".to_string()]]"') : slice' el dim
00:04:04 verbose #6724 > > // emit_expr `(()) `(slice' el dim) () ($'"[[@dim]]"' : string) :
00:04:04 verbose #6725 > > slice' el 10
00:04:04 verbose #6726 > > // !\( : string) : slice' el i32 // !\($'"[[]]"')
00:04:04 verbose #6727 > >
00:04:04 verbose #6728 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6729 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6730 > > │ ## slice_length │
00:04:04 verbose #6731 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6732 > >
00:04:04 verbose #6733 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6734 > > inl slice_length forall t dim. (x : slice' t dim) : unativeint =
00:04:04 verbose #6735 > > !\($'"!x.len()"')
00:04:04 verbose #6736 > >
00:04:04 verbose #6737 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6738 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6739 > > │ ## slice_range │
00:04:04 verbose #6740 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6741 > >
00:04:04 verbose #6742 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6743 > > inl slice_range forall t dim. (start : range t) (end : range t) (s : slice' t
00:04:04 verbose #6744 > > dim) : rust.ref' (slice' t dim) =
00:04:04 verbose #6745 > > inl len = s |> slice_length
00:04:04 verbose #6746 > > inl start, (end : unativeint) =
00:04:04 verbose #6747 > > match start, end with
00:04:04 verbose #6748 > > | Start start, End fn => start, len |> convert |> fn |> convert
00:04:04 verbose #6749 > > | End start_fn, End end_fn => len |> convert |> start_fn, len |> convert
00:04:04 verbose #6750 > > |> end_fn |> convert
00:04:04 verbose #6751 > > match start, end with
00:04:04 verbose #6752 > > | start, end when unbox end =. len => !\($'"&!s[[!start..]]"')
00:04:04 verbose #6753 > > | start, end => !\\((start, end), $'"&!s[[$0..$1]]"')
00:04:04 verbose #6754 > >
00:04:04 verbose #6755 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6756 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6757 > > │ ## new_slice │
00:04:04 verbose #6758 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6759 > >
00:04:04 verbose #6760 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6761 > > inl new_slice forall el dim. (el : el) : slice' el dim =
00:04:04 verbose #6762 > > !\\(el, $'"[[$0; @dim]]"')
00:04:04 verbose #6763 > >
00:04:04 verbose #6764 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6765 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6766 > > │ ## as_slice │
00:04:04 verbose #6767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6768 > >
00:04:04 verbose #6769 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6770 > > inl as_slice forall t. (x : array_base t) : rust.ref' (slice t) =
00:04:04 verbose #6771 > > inl x = x |> to_vec
00:04:04 verbose #6772 > > !\($'"!x.as_slice()"')
00:04:04 verbose #6773 > >
00:04:04 verbose #6774 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6775 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6776 > > │ ## slice_to_vec │
00:04:04 verbose #6777 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6778 > >
00:04:04 verbose #6779 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6780 > > inl slice_to_vec forall t. (slice : rust.ref' (slice t)) : vec t =
00:04:04 verbose #6781 > > !\\(slice, $'"$0.iter().map(|x| *x).collect::<Vec<_>>()"')
00:04:04 verbose #6782 > >
00:04:04 verbose #6783 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6784 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6785 > > │ ## any │
00:04:04 verbose #6786 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6787 > >
00:04:04 verbose #6788 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6789 > > inl any forall t. (fn : t -> bool) (source : array_base t) : bool =
00:04:04 verbose #6790 > > !\($'"!source.any(|x| !fn(x))"')
00:04:04 verbose #6791 > >
00:04:04 verbose #6792 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6793 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6794 > > │ ## iter_collect vec │
00:04:04 verbose #6795 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6796 > >
00:04:04 verbose #6797 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6798 > > instance iter_collect vec = fun (iter : into_iterator u) =>
00:04:04 verbose #6799 > > !\($'"!iter.collect::<Vec<_>>()"')
00:04:04 verbose #6800 > >
00:04:04 verbose #6801 > > instance iter_collect'' vec = fun (iter : into_iterator (t (u v))) =>
00:04:04 verbose #6802 > > !\($'"!iter.collect::<Vec<_>>()"')
00:04:04 verbose #6803 > >
00:04:04 verbose #6804 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:04 verbose #6805 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:04 verbose #6806 > > │ ## new_vec │
00:04:04 verbose #6807 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:04 verbose #6808 > >
00:04:04 verbose #6809 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6810 > > inl new_vec forall t. (items : list t) : vec t =
00:04:04 verbose #6811 > > inl items =
00:04:04 verbose #6812 > > (items, ("", 0i32))
00:04:04 verbose #6813 > > ||> listm.foldBack fun (x : t) (acc, i) =>
00:04:04 verbose #6814 > > inl x = join x
00:04:04 verbose #6815 > > $'"!x"' +. (if i = 0 then "" else ", ") +. acc, i + 1
00:04:04 verbose #6816 > > |> fst
00:04:04 verbose #6817 > > !\($'"vec\![[" + !items + "]]"')
00:04:04 verbose #6818 > >
00:04:04 verbose #6819 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:04 verbose #6820 > > //// test
00:04:04 verbose #6821 > > ///! rust
00:04:04 verbose #6822 > >
00:04:04 verbose #6823 > > types ()
00:04:04 verbose #6824 > > sm'.types ()
00:04:04 verbose #6825 > > [[ 0i32; 1 ]]
00:04:04 verbose #6826 > > |> new_vec
00:04:04 verbose #6827 > > |> sm'.format_debug'
00:04:04 verbose #6828 > > |> sm'.from_std_string
00:04:04 verbose #6829 > > |> _assert_eq "[[0, 1]]"
00:04:08 verbose #6830 > >
00:04:08 verbose #6831 > > ╭─[ 3.77s - return value ]─────────────────────────────────────────────────────╮
00:04:08 verbose #6832 > > │ assert_eq / actual: "[0, 1]" / expected: "[0, 1]" │
00:04:08 verbose #6833 > > │ │
00:04:08 verbose #6834 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 verbose #6835 > 00:00:37 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 49810
00:04:08 verbose #6836 > 00:00:37 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/am'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:04:11 verbose #6837 > 00:00:40 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/am'.dib.ipynb to html
00:04:11 verbose #6838 > 00:00:40 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:11 verbose #6839 > 00:00:40 verbose #7 ! validate(nb)
00:04:13 verbose #6840 > 00:00:42 verbose #8 ! [NbConvertApp] Writing 424666 bytes to c:\home\git\polyglot\lib\spiral\am'.dib.html
00:04:14 verbose #6841 > 00:00:42 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:04:14 verbose #6842 > 00:00:42 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:04:14 verbose #6843 > 00:00:42 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/am''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/am''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:04:15 verbose #6844 > 00:00:44 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:04:15 verbose #6845 > 00:00:44 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:04:15 verbose #6846 > 00:00:44 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 50506
00:04:15 debug #6847 runtime.execute_with_options_async / exit_code: 0 / output.Length: 54706
00:04:15 debug #10 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path am'.dib --retries 3
00:04:15 debug #6848 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path crypto.dib --retries 3",
[||], None, None, true, None)
00:04:16 verbose #6849 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "crypto.dib", "--retries", "3"])
00:04:16 verbose #6850 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/crypto.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/crypto.dib" --output-path "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:04:18 verbose #6851 > >
00:04:18 verbose #6852 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:18 verbose #6853 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:18 verbose #6854 > > │ # crypto │
00:04:18 verbose #6855 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 verbose #6856 > >
00:04:18 verbose #6857 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 verbose #6858 > > open rust_operators
00:04:18 verbose #6859 > >
00:04:18 verbose #6860 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:04:18 verbose #6861 > > #r
00:04:18 verbose #6862 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:04:18 verbose #6863 > > otNet.Interactive.Spiral.dll"
00:04:18 verbose #6864 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:04:18 verbose #6865 > > #r
00:04:18 verbose #6866 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:04:18 verbose #6867 > > otNet.Interactive.dll"
00:04:18 verbose #6868 > > open type Microsoft.DotNet.Interactive.Kernel
00:04:24 verbose #6869 > >
00:04:24 verbose #6870 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6871 > > //// test
00:04:24 verbose #6872 > >
00:04:24 verbose #6873 > > open testing
00:04:24 verbose #6874 > > open file_system_operators
00:04:24 verbose #6875 > >
00:04:24 verbose #6876 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 verbose #6877 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 verbose #6878 > > │ ## types │
00:04:24 verbose #6879 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #6880 > >
00:04:24 verbose #6881 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6882 > > inl types () =
00:04:24 verbose #6883 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:04:24 verbose #6884 > > Fable.Core.Emit(\"sha2::Sha256\")>]]\n#endif\ntype sha2_Sha256 = class end"
00:04:24 verbose #6885 > >
00:04:24 verbose #6886 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6887 > > inl types () =
00:04:24 verbose #6888 > > sm'.types ()
00:04:24 verbose #6889 > > am'.types ()
00:04:24 verbose #6890 > > threading.types ()
00:04:24 verbose #6891 > > rust.types ()
00:04:24 verbose #6892 > > date_time.types ()
00:04:24 verbose #6893 > > file_system.types ()
00:04:24 verbose #6894 > > stream.types ()
00:04:24 verbose #6895 > > runtime.types ()
00:04:24 verbose #6896 > > types ()
00:04:24 verbose #6897 > >
00:04:24 verbose #6898 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 verbose #6899 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 verbose #6900 > > │ ## fsharp │
00:04:24 verbose #6901 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #6902 > >
00:04:24 verbose #6903 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 verbose #6904 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 verbose #6905 > > │ ### sha256 │
00:04:24 verbose #6906 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #6907 > >
00:04:24 verbose #6908 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6909 > > nominal sha256 = $'System.Security.Cryptography.SHA256'
00:04:24 verbose #6910 > >
00:04:24 verbose #6911 > > inl sha256 () : sha256 =
00:04:24 verbose #6912 > > $'`sha256.Create' ()
00:04:24 verbose #6913 > >
00:04:24 verbose #6914 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 verbose #6915 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 verbose #6916 > > │ ### sha256_compute_hash │
00:04:24 verbose #6917 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #6918 > >
00:04:24 verbose #6919 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6920 > > inl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =
00:04:24 verbose #6921 > > data |> $'!x.ComputeHash'
00:04:24 verbose #6922 > >
00:04:24 verbose #6923 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 verbose #6924 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 verbose #6925 > > │ ## rust │
00:04:24 verbose #6926 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #6927 > >
00:04:24 verbose #6928 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 verbose #6929 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 verbose #6930 > > │ ### get_file_hash' │
00:04:24 verbose #6931 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 verbose #6932 > >
00:04:24 verbose #6933 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6934 > > inl get_file_hash' (path : string) : result string string =
00:04:24 verbose #6935 > > inl path = path |> file_system.normalize_path
00:04:24 verbose #6936 > > inl exit_code, result =
00:04:24 verbose #6937 > > runtime.execution_options fun x => { x with
00:04:24 verbose #6938 > > command = $'$"pwsh -c \\\"(Get-FileHash \'{!path}\' -Algorithm
00:04:24 verbose #6939 > > SHA256).Hash\\\""'
00:04:24 verbose #6940 > > }
00:04:24 verbose #6941 > > |> runtime.execute_with_options
00:04:24 verbose #6942 > > if exit_code = 0
00:04:24 verbose #6943 > > then result |> sm'.to_lower |> Ok
00:04:24 verbose #6944 > > else result |> Error
00:04:24 verbose #6945 > >
00:04:24 verbose #6946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 verbose #6947 > > //// test
00:04:24 verbose #6948 > >
00:04:24 verbose #6949 > > types ()
00:04:24 verbose #6950 > >
00:04:24 verbose #6951 > > inl file_name = "test.txt"
00:04:24 verbose #6952 > > inl text = "\n"
00:04:24 verbose #6953 > >
00:04:24 verbose #6954 > > inl temp_dir, disposable =
00:04:24 verbose #6955 > > (file_name, text)
00:04:24 verbose #6956 > > |> sm'.format_debug
00:04:24 verbose #6957 > > |> crypto.hash_text
00:04:24 verbose #6958 > > |> file_system.create_temp_dir'
00:04:24 verbose #6959 > > disposable |> use |> ignore
00:04:24 verbose #6960 > > inl path = temp_dir </> file_name
00:04:24 verbose #6961 > > text |> file_system.write_all_text_async path |> async.run_synchronously
00:04:24 verbose #6962 > > path
00:04:24 verbose #6963 > > |> get_file_hash'
00:04:24 verbose #6964 > > |> resultm.get
00:04:24 verbose #6965 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:04:30 verbose #6966 > >
00:04:30 verbose #6967 > > ╭─[ 6.19s - stdout ]───────────────────────────────────────────────────────────╮
00:04:30 verbose #6968 > > │ 00:00:00 debug #1 runtime.execute_with_options_async / options: struct │
00:04:30 verbose #6969 > > │ (None, │
00:04:30 verbose #6970 > > │ "pwsh -c "(Get-FileHash │
00:04:30 verbose #6971 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/dotnet-repl/9ca8b18d-e │
00:04:30 verbose #6972 > > │ e77-4684-ad12-21e1354945fc/test.txt' -Algorithm SHA256).Hash"", │
00:04:30 verbose #6973 > > │ [||], None, None, true, None) │
00:04:30 verbose #6974 > > │ 00:00:00 verbose #2 > │
00:04:30 verbose #6975 > > │ 01BA4719C80B6FE911B091A7C05124B64EEECE964E09C058EF8F9805DACA546B │
00:04:30 verbose #6976 > > │ 00:00:00 debug #3 runtime.execute_with_options_async / exit_code: 0 / │
00:04:30 verbose #6977 > > │ output.Length: 64 │
00:04:30 verbose #6978 > > │ assert_eq / actual: │
00:04:30 verbose #6979 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:04:30 verbose #6980 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:04:30 verbose #6981 > > │ │
00:04:30 verbose #6982 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:30 verbose #6983 > >
00:04:30 verbose #6984 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:30 verbose #6985 > > //// test
00:04:30 verbose #6986 > > ///! rust -d chrono encoding_rs encoding_rs_io regex sha2
00:04:30 verbose #6987 > >
00:04:30 verbose #6988 > > types ()
00:04:30 verbose #6989 > >
00:04:30 verbose #6990 > > inl file_name = "test.txt"
00:04:30 verbose #6991 > > inl text = "\n"
00:04:30 verbose #6992 > >
00:04:30 verbose #6993 > > inl temp_dir, disposable =
00:04:30 verbose #6994 > > (file_name, text)
00:04:30 verbose #6995 > > |> sm'.format_debug
00:04:30 verbose #6996 > > |> crypto.hash_text
00:04:30 verbose #6997 > > |> file_system.create_temp_dir'
00:04:30 verbose #6998 > > inl path = temp_dir </> file_name
00:04:30 verbose #6999 > > text |> file_system.write_all_text path
00:04:30 verbose #7000 > > path
00:04:30 verbose #7001 > > |> get_file_hash'
00:04:30 verbose #7002 > > |> resultm.get
00:04:30 verbose #7003 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:04:30 verbose #7004 > > disposable |> use |> ignore
00:04:38 verbose #7005 > >
00:04:38 verbose #7006 > > ╭─[ 7.67s - return value ]─────────────────────────────────────────────────────╮
00:04:38 verbose #7007 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:04:38 verbose #7008 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_50a32bdf │
00:04:38 verbose #7009 > > │ 0c6e59990a57c38a0071cbbe54d803754fbedcc0d24b3d883a24dac7\ba0aa16a-6c5a-be3f- │
00:04:38 verbose #7010 > > │ b526-70110c680e36 │
00:04:38 verbose #7011 > > │ 00:00:00 debug #2 runtime.execute_with_options / file_name: pwsh / │
00:04:38 verbose #7012 > > │ arguments: ["-c", "(Get-FileHash │
00:04:38 verbose #7013 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_50a32bd │
00:04:38 verbose #7014 > > │ f0c6e59990a57c38a0071cbbe54d803754fbedcc0d24b3d883a24dac7/ba0aa16a-6c5a-be3f │
00:04:38 verbose #7015 > > │ -b526-70110c680e36/test.txt' -Algorithm SHA256).Hash"] / options: (None, │
00:04:38 verbose #7016 > > │ "pwsh -c "(Get-FileHash │
00:04:38 verbose #7017 > > │ 'c:/Users/i574n/AppData/Local/Temp/!create_temp_path_/spiral_builder_50a32bd │
00:04:38 verbose #7018 > > │ f0c6e59990a57c38a0071cbbe54d803754fbedcc0d24b3d883a24dac7/ba0aa16a-6c5a-be3f │
00:04:38 verbose #7019 > > │ -b526-70110c680e36/test.txt' -Algorithm SHA256).Hash"", Array(MutCell([])), │
00:04:38 verbose #7020 > > │ None, None, true, None) │
00:04:38 verbose #7021 > > │ 00:00:00 verbose #3 > │
00:04:38 verbose #7022 > > │ 01BA4719C80B6FE911B091A7C05124B64EEECE964E09C058EF8F9805DACA546B │
00:04:38 verbose #7023 > > │ 00:00:00 verbose #4 runtime.execute_with_options / result / exit_code: │
00:04:38 verbose #7024 > > │ 0 / std_trace.Length: 64 │
00:04:38 verbose #7025 > > │ assert_eq / actual: │
00:04:38 verbose #7026 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:04:38 verbose #7027 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:04:38 verbose #7028 > > │ │
00:04:38 verbose #7029 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7030 > >
00:04:38 verbose #7031 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #7032 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #7033 > > │ ### sha256' │
00:04:38 verbose #7034 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7035 > >
00:04:38 verbose #7036 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7037 > > nominal sha256' = $'sha2_Sha256'
00:04:38 verbose #7038 > >
00:04:38 verbose #7039 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #7040 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #7041 > > │ ### new_sha256 │
00:04:38 verbose #7042 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7043 > >
00:04:38 verbose #7044 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7045 > > inl new_sha256 () : sha256' =
00:04:38 verbose #7046 > > !\($'"let result : sha2::Sha256 = sha2::Digest::new()"')
00:04:38 verbose #7047 > > !\($'"result"')
00:04:38 verbose #7048 > >
00:04:38 verbose #7049 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #7050 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #7051 > > │ ### hasher_update │
00:04:38 verbose #7052 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7053 > >
00:04:38 verbose #7054 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7055 > > inl hasher_update forall el dim. (slice : rust.ref' (am'.slice' el dim)) (hasher
00:04:38 verbose #7056 > > : sha256') : () =
00:04:38 verbose #7057 > > !\($'"sha2::Digest::update(&mut !hasher, !slice)"')
00:04:38 verbose #7058 > >
00:04:38 verbose #7059 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #7060 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #7061 > > │ ### hasher_finalize │
00:04:38 verbose #7062 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7063 > >
00:04:38 verbose #7064 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7065 > > inl hasher_finalize (hasher : sha256') : rust.ref' (am'.slice u8) =
00:04:38 verbose #7066 > > !\($'"&sha2::Digest::finalize(!hasher)"')
00:04:38 verbose #7067 > >
00:04:38 verbose #7068 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #7069 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #7070 > > │ ### hash_read │
00:04:38 verbose #7071 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7072 > >
00:04:38 verbose #7073 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7074 > > inl hash_read data : resultm.result' string stream.io_error =
00:04:38 verbose #7075 > > inl reader = data |> stream.new_buf_reader
00:04:38 verbose #7076 > > (!\($'"true; let mut !reader = !reader"') : bool) |> ignore
00:04:38 verbose #7077 > > inl hasher = new_sha256 ()
00:04:38 verbose #7078 > > (!\($'"true; let mut !hasher = !hasher"') : bool) |> ignore
00:04:38 verbose #7079 > >
00:04:38 verbose #7080 > > real
00:04:38 verbose #7081 > > inl size = 1024
00:04:38 verbose #7082 > > inl zero = convert `i32 `unativeint 0
00:04:38 verbose #7083 > > inl buffer = am'.new_slice `u8 `@size 0u8
00:04:38 verbose #7084 > >
00:04:38 verbose #7085 > > rust.loop 2 fun () =>
00:04:38 verbose #7086 > > inl count = stream.buf_reader_read `u8 `@size buffer reader
00:04:38 verbose #7087 > > inl count = resultm.unwrap' `unativeint `(stream.io_error) count
00:04:38 verbose #7088 > >
00:04:38 verbose #7089 > > if (=.) `unativeint count zero then rust.break ()
00:04:38 verbose #7090 > >
00:04:38 verbose #7091 > > hasher_update `u8 `@size
00:04:38 verbose #7092 > > (
00:04:38 verbose #7093 > > am'.slice_range `u8 `@size
00:04:38 verbose #7094 > > (am'.Start `unativeint zero)
00:04:38 verbose #7095 > > (am'.End `unativeint ((fun _ => count) : unativeint ->
00:04:38 verbose #7096 > > unativeint))
00:04:38 verbose #7097 > > buffer
00:04:38 verbose #7098 > > )
00:04:38 verbose #7099 > > hasher
00:04:38 verbose #7100 > >
00:04:38 verbose #7101 > > hasher
00:04:38 verbose #7102 > > |> hasher_finalize
00:04:38 verbose #7103 > > |> am'.slice_to_vec
00:04:38 verbose #7104 > > |> am'.vec_map (sm'.format_hex' >> sm'.from_std_string)
00:04:38 verbose #7105 > > |> am'.from_vec
00:04:38 verbose #7106 > > |> fun x => x : _ i32 _
00:04:38 verbose #7107 > > |> seq.of_array'
00:04:38 verbose #7108 > > |> sm'.concat ""
00:04:38 verbose #7109 > > |> Ok
00:04:38 verbose #7110 > > |> resultm.box
00:04:38 verbose #7111 > >
00:04:38 verbose #7112 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 verbose #7113 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 verbose #7114 > > │ ### get_file_hash │
00:04:38 verbose #7115 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 verbose #7116 > >
00:04:38 verbose #7117 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7118 > > inl get_file_hash (path : string) =
00:04:38 verbose #7119 > > inl path = path |> file_system.normalize_path
00:04:38 verbose #7120 > > inl file = path |> file_system.file_open |> resultm.unwrap'
00:04:38 verbose #7121 > > inl reader = file |> stream.new_buf_reader
00:04:38 verbose #7122 > > reader
00:04:38 verbose #7123 > > |> hash_read
00:04:38 verbose #7124 > >
00:04:38 verbose #7125 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 verbose #7126 > > //// test
00:04:38 verbose #7127 > > ///! rust -d chrono regex sha2
00:04:38 verbose #7128 > >
00:04:38 verbose #7129 > > types ()
00:04:38 verbose #7130 > >
00:04:38 verbose #7131 > > inl file_name = join "test.txt"
00:04:38 verbose #7132 > > inl text = "\n"
00:04:38 verbose #7133 > >
00:04:38 verbose #7134 > > inl temp_dir, disposable =
00:04:38 verbose #7135 > > (file_name, text)
00:04:38 verbose #7136 > > |> sm'.format_debug
00:04:38 verbose #7137 > > |> crypto.hash_text
00:04:38 verbose #7138 > > |> file_system.create_temp_dir'
00:04:38 verbose #7139 > >
00:04:38 verbose #7140 > > inl path = temp_dir </> file_name
00:04:38 verbose #7141 > > text |> file_system.write_all_text path
00:04:38 verbose #7142 > >
00:04:38 verbose #7143 > > path
00:04:38 verbose #7144 > > |> get_file_hash
00:04:38 verbose #7145 > > |> resultm.unwrap'
00:04:38 verbose #7146 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:04:38 verbose #7147 > > disposable |> use |> ignore
00:04:43 verbose #7148 > >
00:04:43 verbose #7149 > > ╭─[ 5.17s - return value ]─────────────────────────────────────────────────────╮
00:04:43 verbose #7150 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:04:43 verbose #7151 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_3e0db7b4 │
00:04:43 verbose #7152 > > │ d435f386e2796ff23e5f90bf06de067ead57c77f9c0729f70e3132f3\ba0aa16a-6c5a-be3f- │
00:04:43 verbose #7153 > > │ b526-70110c680e36 │
00:04:43 verbose #7154 > > │ assert_eq / actual: │
00:04:43 verbose #7155 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:04:43 verbose #7156 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:04:43 verbose #7157 > > │ │
00:04:43 verbose #7158 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 verbose #7159 > >
00:04:43 verbose #7160 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 verbose #7161 > > //// test
00:04:43 verbose #7162 > > ///! rust -d chrono regex sha2
00:04:43 verbose #7163 > >
00:04:43 verbose #7164 > > types ()
00:04:43 verbose #7165 > >
00:04:43 verbose #7166 > > inl file_name = join "test.txt"
00:04:43 verbose #7167 > > inl text = ""
00:04:43 verbose #7168 > >
00:04:43 verbose #7169 > > inl temp_dir, disposable =
00:04:43 verbose #7170 > > (file_name, text)
00:04:43 verbose #7171 > > |> sm'.format_debug
00:04:43 verbose #7172 > > |> crypto.hash_text
00:04:43 verbose #7173 > > |> file_system.create_temp_dir'
00:04:43 verbose #7174 > >
00:04:43 verbose #7175 > > inl path = temp_dir </> file_name
00:04:43 verbose #7176 > > text |> file_system.write_all_text path
00:04:43 verbose #7177 > > path
00:04:43 verbose #7178 > > |> get_file_hash
00:04:43 verbose #7179 > > |> resultm.unwrap'
00:04:43 verbose #7180 > > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:04:43 verbose #7181 > > disposable |> use |> ignore
00:04:48 verbose #7182 > >
00:04:48 verbose #7183 > > ╭─[ 5.28s - return value ]─────────────────────────────────────────────────────╮
00:04:48 verbose #7184 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:04:48 verbose #7185 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_1a7c8503 │
00:04:48 verbose #7186 > > │ c315052be95c0eb5ad8b03acb038e7d271d0083a74af852227756c12\c0e26dac-4cb1-4b09- │
00:04:48 verbose #7187 > > │ be07-ff616700f056 │
00:04:48 verbose #7188 > > │ assert_eq / actual: │
00:04:48 verbose #7189 > > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" / │
00:04:48 verbose #7190 > > │ expected: "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:04:48 verbose #7191 > > │ │
00:04:48 verbose #7192 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7193 > >
00:04:48 verbose #7194 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7195 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7196 > > │ ## typescript │
00:04:48 verbose #7197 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7198 > >
00:04:48 verbose #7199 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7200 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7201 > > │ ### create_hash │
00:04:48 verbose #7202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7203 > >
00:04:48 verbose #7204 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7205 > > inl create_hash (x : string) : any =
00:04:48 verbose #7206 > > open ts_operators
00:04:48 verbose #7207 > > global "type ICryptoCreateHash = abstract createHash: x: string -> obj"
00:04:48 verbose #7208 > > inl crypto : $'ICryptoCreateHash' = ts.import_all "crypto"
00:04:48 verbose #7209 > > !\\(x, $'"!crypto.createHash($0)"')
00:04:48 verbose #7210 > >
00:04:48 verbose #7211 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7212 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7213 > > │ ### hash_update │
00:04:48 verbose #7214 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7215 > >
00:04:48 verbose #7216 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7217 > > inl hash_update (s : string) (x : any) : any =
00:04:48 verbose #7218 > > open ts_operators
00:04:48 verbose #7219 > > !\\((x, s), $'"$0.update($1, \'utf8\')"')
00:04:48 verbose #7220 > >
00:04:48 verbose #7221 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7222 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7223 > > │ ### hash_digest │
00:04:48 verbose #7224 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7225 > >
00:04:48 verbose #7226 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7227 > > inl hash_digest (s : string) (x : any) : string =
00:04:48 verbose #7228 > > open ts_operators
00:04:48 verbose #7229 > > !\\((x, s), $'"$0.digest($1)"')
00:04:48 verbose #7230 > >
00:04:48 verbose #7231 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7232 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7233 > > │ ## python │
00:04:48 verbose #7234 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7235 > >
00:04:48 verbose #7236 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7237 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7238 > > │ ### py_sha256 │
00:04:48 verbose #7239 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7240 > >
00:04:48 verbose #7241 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7242 > > nominal py_sha256 = any
00:04:48 verbose #7243 > >
00:04:48 verbose #7244 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7245 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7246 > > │ ### hashlib_sha256 │
00:04:48 verbose #7247 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7248 > >
00:04:48 verbose #7249 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7250 > > inl hashlib_sha256 () : py_sha256 =
00:04:48 verbose #7251 > > open py_operators
00:04:48 verbose #7252 > > global "type IHashlibSha256 = abstract sha256: x: unit -> obj"
00:04:48 verbose #7253 > > inl hashlib : $'IHashlibSha256' = py.import_all "hashlib"
00:04:48 verbose #7254 > > !\($'"!hashlib.sha256()"')
00:04:48 verbose #7255 > >
00:04:48 verbose #7256 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7257 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7258 > > │ ### sha256_update │
00:04:48 verbose #7259 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7260 > >
00:04:48 verbose #7261 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7262 > > inl sha256_update (x : string) (sha256 : py_sha256) : py_sha256 =
00:04:48 verbose #7263 > > open py_operators
00:04:48 verbose #7264 > > !\\(x, $'"!sha256.update($0)"')
00:04:48 verbose #7265 > > sha256
00:04:48 verbose #7266 > >
00:04:48 verbose #7267 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7268 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7269 > > │ ### sha256_hexdigest │
00:04:48 verbose #7270 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7271 > >
00:04:48 verbose #7272 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7273 > > inl sha256_hexdigest (sha256 : py_sha256) : string =
00:04:48 verbose #7274 > > open py_operators
00:04:48 verbose #7275 > > !\($'"!sha256.hexdigest()"')
00:04:48 verbose #7276 > >
00:04:48 verbose #7277 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 verbose #7278 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 verbose #7279 > > │ ## hash_text │
00:04:48 verbose #7280 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 verbose #7281 > >
00:04:48 verbose #7282 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7283 > > let hash_text (~input : string) =
00:04:48 verbose #7284 > > run_target function
00:04:48 verbose #7285 > > | Fsharp (Native) => fun () =>
00:04:48 verbose #7286 > > inl sha256 = sha256 () |> use
00:04:48 verbose #7287 > > input
00:04:48 verbose #7288 > > |> sm'.utf8_get_bytes
00:04:48 verbose #7289 > > |> sha256_compute_hash sha256
00:04:48 verbose #7290 > > |> am.map (sm'.byte_to_string "x2")
00:04:48 verbose #7291 > > |> seq.of_array'
00:04:48 verbose #7292 > > |> sm'.concat (join "")
00:04:48 verbose #7293 > > | TypeScript (Native) => fun () =>
00:04:48 verbose #7294 > > create_hash "sha256"
00:04:48 verbose #7295 > > |> hash_update input
00:04:48 verbose #7296 > > |> hash_digest "hex"
00:04:48 verbose #7297 > > | Rust (Native) => fun () =>
00:04:48 verbose #7298 > > input
00:04:48 verbose #7299 > > |> sm'.utf8_get_bytes
00:04:48 verbose #7300 > > |> fun (a x) => x
00:04:48 verbose #7301 > > |> am'.to_vec
00:04:48 verbose #7302 > > |> stream.new_cursor
00:04:48 verbose #7303 > > |> hash_read
00:04:48 verbose #7304 > > |> resultm.unwrap'
00:04:48 verbose #7305 > > | Python (Native) => fun () =>
00:04:48 verbose #7306 > > hashlib_sha256 ()
00:04:48 verbose #7307 > > |> sha256_update (input |> sm'.encode_utf8)
00:04:48 verbose #7308 > > |> sha256_hexdigest
00:04:48 verbose #7309 > > | _ => fun () => null ()
00:04:48 verbose #7310 > >
00:04:48 verbose #7311 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 verbose #7312 > > //// test
00:04:48 verbose #7313 > > ///! fsharp
00:04:48 verbose #7314 > > ///! rust -d sha2
00:04:48 verbose #7315 > > ///! typescript
00:04:48 verbose #7316 > > ///! python
00:04:48 verbose #7317 > >
00:04:48 verbose #7318 > > types ()
00:04:48 verbose #7319 > >
00:04:48 verbose #7320 > > "\n"
00:04:48 verbose #7321 > > |> hash_text
00:04:48 verbose #7322 > > |> _assert_eq "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b"
00:04:48 verbose #7323 > >
00:04:48 verbose #7324 > > ""
00:04:48 verbose #7325 > > |> hash_text
00:04:48 verbose #7326 > > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:04:54 verbose #7327 > >
00:04:54 verbose #7328 > > ╭─[ 5.02s - return value ]─────────────────────────────────────────────────────╮
00:04:54 verbose #7329 > > │ .rs output: │
00:04:54 verbose #7330 > > │ assert_eq / actual: │
00:04:54 verbose #7331 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:04:54 verbose #7332 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:04:54 verbose #7333 > > │ assert_eq / actual: │
00:04:54 verbose #7334 > > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" / │
00:04:54 verbose #7335 > > │ expected: "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:04:54 verbose #7336 > > │ │
00:04:54 verbose #7337 > > │ .ts output: │
00:04:54 verbose #7338 > > │ assert_eq / actual: │
00:04:54 verbose #7339 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b / expected: │
00:04:54 verbose #7340 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b │
00:04:54 verbose #7341 > > │ assert_eq / actual: │
00:04:54 verbose #7342 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 / expected: │
00:04:54 verbose #7343 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 │
00:04:54 verbose #7344 > > │ │
00:04:54 verbose #7345 > > │ .py output: │
00:04:54 verbose #7346 > > │ assert_eq / actual: │
00:04:54 verbose #7347 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b / expected: │
00:04:54 verbose #7348 > > │ 01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b │
00:04:54 verbose #7349 > > │ assert_eq / actual: │
00:04:54 verbose #7350 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 / expected: │
00:04:54 verbose #7351 > > │ e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855 │
00:04:54 verbose #7352 > > │ │
00:04:54 verbose #7353 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 verbose #7354 > >
00:04:54 verbose #7355 > > ╭─[ 5.02s - stdout ]───────────────────────────────────────────────────────────╮
00:04:54 verbose #7356 > > │ .fsx output: │
00:04:54 verbose #7357 > > │ assert_eq / actual: │
00:04:54 verbose #7358 > > │ "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" / │
00:04:54 verbose #7359 > > │ expected: "01ba4719c80b6fe911b091a7c05124b64eeece964e09c058ef8f9805daca546b" │
00:04:54 verbose #7360 > > │ assert_eq / actual: │
00:04:54 verbose #7361 > > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" / │
00:04:54 verbose #7362 > > │ expected: "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:04:54 verbose #7363 > > │ │
00:04:54 verbose #7364 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 verbose #7365 > >
00:04:54 verbose #7366 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:54 verbose #7367 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:54 verbose #7368 > > │ ## hash_to_port │
00:04:54 verbose #7369 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:54 verbose #7370 > >
00:04:54 verbose #7371 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 verbose #7372 > > inl hash_to_port (text : string) : u16 =
00:04:54 verbose #7373 > > inl first_letter_code = text |> sm'.index 0i32 |> i32
00:04:54 verbose #7374 > > inl hash_part = text |> sm'.slice 0i32 7
00:04:54 verbose #7375 > > inl combined_value = convert_i32_base 16 hash_part + first_letter_code |>
00:04:54 verbose #7376 > > u16
00:04:54 verbose #7377 > > trace Verbose
00:04:54 verbose #7378 > > fun () => "crypto.hash_to_port"
00:04:54 verbose #7379 > > fun () => $'$"first_letter_code: {!first_letter_code} / hash_part:
00:04:54 verbose #7380 > > {!hash_part} / combined_value: {!combined_value} / {!_locals ()}"'
00:04:54 verbose #7381 > > combined_value % 48128 + 1024
00:04:54 verbose #7382 > >
00:04:54 verbose #7383 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:54 verbose #7384 > > //// test
00:04:54 verbose #7385 > > ///! fsharp
00:04:54 verbose #7386 > > ///! rust -d sha2
00:04:54 verbose #7387 > > ///! typescript
00:04:54 verbose #7388 > > ///! python
00:04:54 verbose #7389 > >
00:04:54 verbose #7390 > > types ()
00:04:54 verbose #7391 > > "\n"
00:04:54 verbose #7392 > > |> hash_text
00:04:54 verbose #7393 > > |> hash_to_port
00:04:54 verbose #7394 > > |> _assert_eq 19273
00:04:59 verbose #7395 > >
00:04:59 verbose #7396 > > ╭─[ 5.61s - return value ]─────────────────────────────────────────────────────╮
00:04:59 verbose #7397 > > │ .rs output: │
00:04:59 verbose #7398 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / │
00:04:59 verbose #7399 > > │ hash_part: 01ba4719 / combined_value: 18249 │
00:04:59 verbose #7400 > > │ assert_eq / actual: 19273 / expected: 19273 │
00:04:59 verbose #7401 > > │ │
00:04:59 verbose #7402 > > │ .ts output: │
00:04:59 verbose #7403 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / hash_part: │
00:04:59 verbose #7404 > > │ 01ba4719 / combined_value: 18249 │
00:04:59 verbose #7405 > > │ assert_eq / actual: 19273 / expected: 19273 │
00:04:59 verbose #7406 > > │ │
00:04:59 verbose #7407 > > │ .py output: │
00:04:59 verbose #7408 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / hash_part: │
00:04:59 verbose #7409 > > │ 01ba4719 / combined_value: 18249 │
00:04:59 verbose #7410 > > │ assert_eq / actual: 19273 / expected: 19273 │
00:04:59 verbose #7411 > > │ │
00:04:59 verbose #7412 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #7413 > >
00:04:59 verbose #7414 > > ╭─[ 5.62s - stdout ]───────────────────────────────────────────────────────────╮
00:04:59 verbose #7415 > > │ .fsx output: │
00:04:59 verbose #7416 > > │ 00:00:00 verbose #1 crypto.hash_to_port / first_letter_code: 48 / hash_part: │
00:04:59 verbose #7417 > > │ 01ba4719 / combined_value: 18249 │
00:04:59 verbose #7418 > > │ assert_eq / actual: 19273us / expected: 19273us │
00:04:59 verbose #7419 > > │ │
00:04:59 verbose #7420 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #7421 > >
00:04:59 verbose #7422 > > ── markdown ────────────────────────────────────────────────────────────────────
00:04:59 verbose #7423 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:59 verbose #7424 > > │ ## main │
00:04:59 verbose #7425 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:59 verbose #7426 > >
00:04:59 verbose #7427 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:59 verbose #7428 > > inl main () =
00:04:59 verbose #7429 > > types ()
00:04:59 verbose #7430 > > $'let hash_text x = !hash_text x' : ()
00:04:59 verbose #7431 > > $'let hash_to_port x = !hash_to_port x' : ()
00:05:00 verbose #7432 > 00:00:44 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 28237
00:05:00 verbose #7433 > 00:00:44 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:05:03 verbose #7434 > 00:00:47 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/crypto.dib.ipynb to html
00:05:03 verbose #7435 > 00:00:47 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:03 verbose #7436 > 00:00:47 verbose #7 ! validate(nb)
00:05:05 verbose #7437 > 00:00:48 verbose #8 ! [NbConvertApp] Writing 338953 bytes to c:\home\git\polyglot\lib\spiral\crypto.dib.html
00:05:05 verbose #7438 > 00:00:49 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:05:05 verbose #7439 > 00:00:49 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:05:05 verbose #7440 > 00:00:49 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/crypto.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/crypto.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:05:06 verbose #7441 > 00:00:50 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:05:06 verbose #7442 > 00:00:50 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:05:07 verbose #7443 > 00:00:51 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 28939
00:05:07 debug #7444 runtime.execute_with_options_async / exit_code: 0 / output.Length: 32358
00:05:07 debug #11 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path crypto.dib --retries 3
00:05:07 debug #7445 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path common.dib --retries 3",
[||], None, None, true, None)
00:05:07 verbose #7446 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "common.dib", "--retries", "3"])
00:05:07 verbose #7447 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/common.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/common.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/common.dib" --output-path "c:/home/git/polyglot/lib/spiral/common.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:05:10 verbose #7448 > >
00:05:10 verbose #7449 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:10 verbose #7450 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:10 verbose #7451 > > │ # common │
00:05:10 verbose #7452 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:11 verbose #7453 > >
00:05:11 verbose #7454 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:11 verbose #7455 > > //// test
00:05:11 verbose #7456 > >
00:05:11 verbose #7457 > > open testing
00:05:11 verbose #7458 > >
00:05:11 verbose #7459 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:05:11 verbose #7460 > > #r
00:05:11 verbose #7461 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:05:11 verbose #7462 > > otNet.Interactive.Spiral.dll"
00:05:11 verbose #7463 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:05:11 verbose #7464 > > #r
00:05:11 verbose #7465 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:05:11 verbose #7466 > > otNet.Interactive.dll"
00:05:11 verbose #7467 > > open type Microsoft.DotNet.Interactive.Kernel
00:05:17 verbose #7468 > >
00:05:17 verbose #7469 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #7470 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #7471 > > │ ## types │
00:05:17 verbose #7472 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #7473 > >
00:05:17 verbose #7474 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #7475 > > inl types () =
00:05:17 verbose #7476 > > env.types ()
00:05:17 verbose #7477 > > rust.types ()
00:05:17 verbose #7478 > > sm'.types ()
00:05:17 verbose #7479 > >
00:05:17 verbose #7480 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #7481 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #7482 > > │ ## prototype │
00:05:17 verbose #7483 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #7484 > >
00:05:17 verbose #7485 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #7486 > > prototype (~:>) r : forall t. t -> r
00:05:17 verbose #7487 > >
00:05:17 verbose #7488 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #7489 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #7490 > > │ ## upcast │
00:05:17 verbose #7491 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #7492 > >
00:05:17 verbose #7493 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #7494 > > inl upcast forall t u. (x : t) : u =
00:05:17 verbose #7495 > > $'!x :> `u '
00:05:17 verbose #7496 > >
00:05:17 verbose #7497 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #7498 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #7499 > > │ ## downcast │
00:05:17 verbose #7500 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #7501 > >
00:05:17 verbose #7502 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #7503 > > inl downcast forall t u. (x : t) : u =
00:05:17 verbose #7504 > > $'!x :?> `u '
00:05:17 verbose #7505 > >
00:05:17 verbose #7506 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #7507 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #7508 > > │ ## to_any │
00:05:17 verbose #7509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #7510 > >
00:05:17 verbose #7511 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #7512 > > inl to_any forall t. (obj : t) : any =
00:05:17 verbose #7513 > > $'!obj '
00:05:17 verbose #7514 > >
00:05:17 verbose #7515 > > instance (~:>) any = to_any
00:05:17 verbose #7516 > >
00:05:17 verbose #7517 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:17 verbose #7518 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:17 verbose #7519 > > │ ## (||>) │
00:05:17 verbose #7520 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:17 verbose #7521 > >
00:05:17 verbose #7522 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:17 verbose #7523 > > //// test
00:05:17 verbose #7524 > >
00:05:17 verbose #7525 > > (3i32, 2i32)
00:05:17 verbose #7526 > > ||> fun a b => a - b
00:05:17 verbose #7527 > > |> _assert_eq 1
00:05:18 verbose #7528 > >
00:05:18 verbose #7529 > > ╭─[ 782.11ms - stdout ]────────────────────────────────────────────────────────╮
00:05:18 verbose #7530 > > │ assert_eq / actual: 1 / expected: 1 │
00:05:18 verbose #7531 > > │ │
00:05:18 verbose #7532 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7533 > >
00:05:18 verbose #7534 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:18 verbose #7535 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:18 verbose #7536 > > │ ## flip │
00:05:18 verbose #7537 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7538 > >
00:05:18 verbose #7539 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7540 > > inl flip fn a b =
00:05:18 verbose #7541 > > fn b a
00:05:18 verbose #7542 > >
00:05:18 verbose #7543 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7544 > > //// test
00:05:18 verbose #7545 > >
00:05:18 verbose #7546 > > (1i32, 2i32)
00:05:18 verbose #7547 > > ||> flip pair
00:05:18 verbose #7548 > > |> _assert_eq (2, 1)
00:05:18 verbose #7549 > >
00:05:18 verbose #7550 > > ╭─[ 60.76ms - stdout ]─────────────────────────────────────────────────────────╮
00:05:18 verbose #7551 > > │ assert_eq / actual: struct (2, 1) / expected: struct (2, 1) │
00:05:18 verbose #7552 > > │ │
00:05:18 verbose #7553 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7554 > >
00:05:18 verbose #7555 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:18 verbose #7556 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:18 verbose #7557 > > │ ## join_body │
00:05:18 verbose #7558 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7559 > >
00:05:18 verbose #7560 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7561 > > inl join_body body acc x =
00:05:18 verbose #7562 > > if var_is x |> not
00:05:18 verbose #7563 > > then body acc x
00:05:18 verbose #7564 > > else
00:05:18 verbose #7565 > > inl acc = dyn acc
00:05:18 verbose #7566 > > join body acc x
00:05:18 verbose #7567 > >
00:05:18 verbose #7568 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7569 > > //// test
00:05:18 verbose #7570 > >
00:05:18 verbose #7571 > > inl rec fold_list f s = function
00:05:18 verbose #7572 > > | Cons (x, x') => fold_list f (f s x) x'
00:05:18 verbose #7573 > > | Nil => s
00:05:18 verbose #7574 > >
00:05:18 verbose #7575 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7576 > > //// test
00:05:18 verbose #7577 > >
00:05:18 verbose #7578 > > [[ 5i32; 4; join 3; 2; 1 ]]
00:05:18 verbose #7579 > > |> fold_list (+) 0
00:05:18 verbose #7580 > > |> _assert_eq 15
00:05:18 verbose #7581 > >
00:05:18 verbose #7582 > > ╭─[ 196.70ms - stdout ]────────────────────────────────────────────────────────╮
00:05:18 verbose #7583 > > │ assert_eq / actual: 15 / expected: 15 │
00:05:18 verbose #7584 > > │ │
00:05:18 verbose #7585 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7586 > >
00:05:18 verbose #7587 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7588 > > //// test
00:05:18 verbose #7589 > >
00:05:18 verbose #7590 > > [[ 5i32; 4; join 3; 2; 1 ]]
00:05:18 verbose #7591 > > |> fold_list (join_body (+)) 0
00:05:18 verbose #7592 > > |> _assert_eq 15
00:05:18 verbose #7593 > >
00:05:18 verbose #7594 > > ╭─[ 75.78ms - stdout ]─────────────────────────────────────────────────────────╮
00:05:18 verbose #7595 > > │ assert_eq / actual: 15 / expected: 15 │
00:05:18 verbose #7596 > > │ │
00:05:18 verbose #7597 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7598 > >
00:05:18 verbose #7599 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:18 verbose #7600 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:18 verbose #7601 > > │ ## join_body_unit │
00:05:18 verbose #7602 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7603 > >
00:05:18 verbose #7604 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7605 > > inl join_body_unit body d x =
00:05:18 verbose #7606 > > if var_is d |> not
00:05:18 verbose #7607 > > then body x
00:05:18 verbose #7608 > > else
00:05:18 verbose #7609 > > inl x = dyn x
00:05:18 verbose #7610 > > join body x
00:05:18 verbose #7611 > >
00:05:18 verbose #7612 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7613 > > //// test
00:05:18 verbose #7614 > >
00:05:18 verbose #7615 > > [[ 5i32; 4; join 3; 2; 1 ]]
00:05:18 verbose #7616 > > |> fold_list (fun acc n => join_body_unit ((+) acc) n n) 0
00:05:18 verbose #7617 > > |> _assert_eq 15
00:05:18 verbose #7618 > >
00:05:18 verbose #7619 > > ╭─[ 74.80ms - stdout ]─────────────────────────────────────────────────────────╮
00:05:18 verbose #7620 > > │ assert_eq / actual: 15 / expected: 15 │
00:05:18 verbose #7621 > > │ │
00:05:18 verbose #7622 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7623 > >
00:05:18 verbose #7624 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:18 verbose #7625 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:18 verbose #7626 > > │ ## nameof │
00:05:18 verbose #7627 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:18 verbose #7628 > >
00:05:18 verbose #7629 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7630 > > inl nameof x : string =
00:05:18 verbose #7631 > > $'nameof !x '
00:05:18 verbose #7632 > >
00:05:18 verbose #7633 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:18 verbose #7634 > > //// test
00:05:18 verbose #7635 > >
00:05:18 verbose #7636 > > fun () => failwith "test"
00:05:18 verbose #7637 > > |> _throws
00:05:18 verbose #7638 > > |> optionm.map sm'.format_exception
00:05:18 verbose #7639 > > |> _assert_eq (Some "System.Exception: test")
00:05:19 verbose #7640 > >
00:05:19 verbose #7641 > > ╭─[ 742.50ms - stdout ]────────────────────────────────────────────────────────╮
00:05:19 verbose #7642 > > │ assert_eq / actual: US1_0 "System.Exception: test" / expected: US1_0 │
00:05:19 verbose #7643 > > │ "System.Exception: test" │
00:05:19 verbose #7644 > > │ │
00:05:19 verbose #7645 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 verbose #7646 > >
00:05:19 verbose #7647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:19 verbose #7648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:19 verbose #7649 > > │ ## disposable │
00:05:19 verbose #7650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 verbose #7651 > >
00:05:19 verbose #7652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:19 verbose #7653 > > nominal disposable t = $'System.IDisposable'
00:05:19 verbose #7654 > >
00:05:19 verbose #7655 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:19 verbose #7656 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:19 verbose #7657 > > │ ## dispose │
00:05:19 verbose #7658 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 verbose #7659 > >
00:05:19 verbose #7660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:19 verbose #7661 > > inl dispose (disposable : disposable _) : () =
00:05:19 verbose #7662 > > disposable |> $'_.Dispose()'
00:05:19 verbose #7663 > >
00:05:19 verbose #7664 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:19 verbose #7665 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:19 verbose #7666 > > │ ## new_disposable │
00:05:19 verbose #7667 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 verbose #7668 > >
00:05:19 verbose #7669 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:19 verbose #7670 > > inl new_disposable (fn : () -> ()) : disposable _ =
00:05:19 verbose #7671 > > run_target function
00:05:19 verbose #7672 > > | Rust _ => fun () =>
00:05:19 verbose #7673 > > global "type Disposable (f : unit -> unit) = interface
00:05:19 verbose #7674 > > System.IDisposable with member _.Dispose () = f ()"
00:05:19 verbose #7675 > > inl fn = join fn
00:05:19 verbose #7676 > > $'new Disposable (fun () -> Fable.Core.RustInterop.emitRustExpr !fn
00:05:19 verbose #7677 > > "$0()" )'
00:05:19 verbose #7678 > > | Fsharp _ => fun () =>
00:05:19 verbose #7679 > > inl fn = join fn
00:05:19 verbose #7680 > > $'{ new System.IDisposable with member _.Dispose () = !fn () }'
00:05:19 verbose #7681 > > | _ => fun () => null ()
00:05:19 verbose #7682 > >
00:05:19 verbose #7683 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:19 verbose #7684 > > //// test
00:05:19 verbose #7685 > >
00:05:19 verbose #7686 > > inl new_disposable_test = mut 0i32
00:05:19 verbose #7687 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:05:19 verbose #7688 > > |> fun x => x : disposable ()
00:05:19 verbose #7689 > > |> dispose
00:05:19 verbose #7690 > > *new_disposable_test |> _assert_eq 1
00:05:19 verbose #7691 > >
00:05:19 verbose #7692 > > ╭─[ 289.59ms - stdout ]────────────────────────────────────────────────────────╮
00:05:19 verbose #7693 > > │ assert_eq / actual: 1 / expected: 1 │
00:05:19 verbose #7694 > > │ │
00:05:19 verbose #7695 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 verbose #7696 > >
00:05:19 verbose #7697 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:19 verbose #7698 > > //// test
00:05:19 verbose #7699 > > ///! rust
00:05:19 verbose #7700 > >
00:05:19 verbose #7701 > > inl new_disposable_test = mut 0i32
00:05:19 verbose #7702 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:05:19 verbose #7703 > > |> fun x => x : disposable ()
00:05:19 verbose #7704 > > |> dispose
00:05:19 verbose #7705 > > *new_disposable_test |> _assert_eq 1
00:05:23 verbose #7706 > >
00:05:23 verbose #7707 > > ╭─[ 3.76s - return value ]─────────────────────────────────────────────────────╮
00:05:23 verbose #7708 > > │ assert_eq / actual: 1 / expected: 1 │
00:05:23 verbose #7709 > > │ │
00:05:23 verbose #7710 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:23 verbose #7711 > >
00:05:23 verbose #7712 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:23 verbose #7713 > > //// test
00:05:23 verbose #7714 > >
00:05:23 verbose #7715 > > inl new_disposable_test = mut 0i32
00:05:23 verbose #7716 > > fun () =>
00:05:23 verbose #7717 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:05:23 verbose #7718 > > |> fun x => x : disposable ()
00:05:23 verbose #7719 > > |> use
00:05:23 verbose #7720 > > |> ignore
00:05:23 verbose #7721 > > |> return
00:05:23 verbose #7722 > > |> async.new_task
00:05:23 verbose #7723 > > |> async.await_task
00:05:23 verbose #7724 > > |> async.run_synchronously
00:05:23 verbose #7725 > > *new_disposable_test |> _assert_eq 1
00:05:24 verbose #7726 > >
00:05:24 verbose #7727 > > ╭─[ 337.90ms - stdout ]────────────────────────────────────────────────────────╮
00:05:24 verbose #7728 > > │ assert_eq / actual: 1 / expected: 1 │
00:05:24 verbose #7729 > > │ │
00:05:24 verbose #7730 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7731 > >
00:05:24 verbose #7732 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7733 > > //// test
00:05:24 verbose #7734 > >
00:05:24 verbose #7735 > > inl new_disposable_test = mut 0i32
00:05:24 verbose #7736 > > fun () =>
00:05:24 verbose #7737 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:05:24 verbose #7738 > > |> fun x => x : disposable ()
00:05:24 verbose #7739 > > |> use
00:05:24 verbose #7740 > > |> ignore
00:05:24 verbose #7741 > > |> return
00:05:24 verbose #7742 > > |> async.new_async
00:05:24 verbose #7743 > > |> async.run_synchronously
00:05:24 verbose #7744 > > *new_disposable_test |> _assert_eq 1
00:05:24 verbose #7745 > >
00:05:24 verbose #7746 > > ╭─[ 140.54ms - stdout ]────────────────────────────────────────────────────────╮
00:05:24 verbose #7747 > > │ assert_eq / actual: 1 / expected: 1 │
00:05:24 verbose #7748 > > │ │
00:05:24 verbose #7749 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7750 > >
00:05:24 verbose #7751 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7752 > > //// test
00:05:24 verbose #7753 > >
00:05:24 verbose #7754 > > inl new_disposable_test = mut 0i32
00:05:24 verbose #7755 > > fun () =>
00:05:24 verbose #7756 > > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:05:24 verbose #7757 > > |> fun x => x : disposable ()
00:05:24 verbose #7758 > > |> ignore
00:05:24 verbose #7759 > > |> return
00:05:24 verbose #7760 > > |> async.new_async
00:05:24 verbose #7761 > > |> async.run_synchronously
00:05:24 verbose #7762 > > *new_disposable_test |> _assert_eq 0
00:05:24 verbose #7763 > >
00:05:24 verbose #7764 > > ╭─[ 135.46ms - stdout ]────────────────────────────────────────────────────────╮
00:05:24 verbose #7765 > > │ assert_eq / actual: 0 / expected: 0 │
00:05:24 verbose #7766 > > │ │
00:05:24 verbose #7767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7768 > >
00:05:24 verbose #7769 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 verbose #7770 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 verbose #7771 > > │ ## return │
00:05:24 verbose #7772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7773 > >
00:05:24 verbose #7774 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7775 > > inl return forall t. (x : t) : () =
00:05:24 verbose #7776 > > $'return !x '
00:05:24 verbose #7777 > >
00:05:24 verbose #7778 > > inl return' forall t. (x : t) : t =
00:05:24 verbose #7779 > > $'return !x '
00:05:24 verbose #7780 > >
00:05:24 verbose #7781 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 verbose #7782 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 verbose #7783 > > │ ## sleep │
00:05:24 verbose #7784 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7785 > >
00:05:24 verbose #7786 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7787 > > inl sleep (n : i32) : () =
00:05:24 verbose #7788 > > run_target function
00:05:24 verbose #7789 > > | Fsharp (Native) => fun () => $'System.Threading.Thread.Sleep' n
00:05:24 verbose #7790 > > | _ => fun () => ()
00:05:24 verbose #7791 > >
00:05:24 verbose #7792 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 verbose #7793 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 verbose #7794 > > │ ## retry_fn │
00:05:24 verbose #7795 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7796 > >
00:05:24 verbose #7797 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7798 > > inl retry_fn forall t. retries (fn : () -> t) : option t =
00:05:24 verbose #7799 > > let rec loop retry =
00:05:24 verbose #7800 > > try
00:05:24 verbose #7801 > > fun () =>
00:05:24 verbose #7802 > > if retry < retries
00:05:24 verbose #7803 > > then fn () |> Some
00:05:24 verbose #7804 > > else None
00:05:24 verbose #7805 > > fun ex =>
00:05:24 verbose #7806 > > trace Warning
00:05:24 verbose #7807 > > fun () => "common.retry_fn"
00:05:24 verbose #7808 > > fun () => $'$"retry: {!retry} / ex: %A{!ex} / {!_locals
00:05:24 verbose #7809 > > ()}"'
00:05:24 verbose #7810 > > sleep 1
00:05:24 verbose #7811 > > None
00:05:24 verbose #7812 > > |> function
00:05:24 verbose #7813 > > | Some x => x
00:05:24 verbose #7814 > > | None => loop (retry + 1)
00:05:24 verbose #7815 > > loop 0
00:05:24 verbose #7816 > >
00:05:24 verbose #7817 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 verbose #7818 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 verbose #7819 > > │ ## retry_fn' │
00:05:24 verbose #7820 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 verbose #7821 > >
00:05:24 verbose #7822 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7823 > > inl retry_fn' retries fn =
00:05:24 verbose #7824 > > let rec loop retry =
00:05:24 verbose #7825 > > inl is_error, result =
00:05:24 verbose #7826 > > match fn () with
00:05:24 verbose #7827 > > | Ok x => false, x
00:05:24 verbose #7828 > > | Error x => true, x
00:05:24 verbose #7829 > > if not is_error || retry >= retries
00:05:24 verbose #7830 > > then result
00:05:24 verbose #7831 > > else
00:05:24 verbose #7832 > > trace Debug
00:05:24 verbose #7833 > > fun () => $'"common.retry_fn\' / loop"'
00:05:24 verbose #7834 > > fun () => $'$"is_error: {!is_error} / retry: {!retry}/{!retries}
00:05:24 verbose #7835 > > / result: %A{!result} / {!_locals ()}"'
00:05:24 verbose #7836 > > loop (retry + 1)
00:05:24 verbose #7837 > > loop 1
00:05:24 verbose #7838 > >
00:05:24 verbose #7839 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 verbose #7840 > > //// test
00:05:24 verbose #7841 > >
00:05:24 verbose #7842 > > inl retry_fn_test = mut 0i32
00:05:24 verbose #7843 > > fun () =>
00:05:24 verbose #7844 > > retry_fn_test <- *retry_fn_test + 1
00:05:24 verbose #7845 > > *retry_fn_test
00:05:24 verbose #7846 > > |> retry_fn 3i32
00:05:24 verbose #7847 > > |> _assert_eq (Some 1i32)
00:05:25 verbose #7848 > >
00:05:25 verbose #7849 > > ╭─[ 744.23ms - stdout ]────────────────────────────────────────────────────────╮
00:05:25 verbose #7850 > > │ assert_eq / actual: US0_0 1 / expected: US0_0 1 │
00:05:25 verbose #7851 > > │ │
00:05:25 verbose #7852 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:25 verbose #7853 > >
00:05:25 verbose #7854 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:25 verbose #7855 > > //// test
00:05:25 verbose #7856 > > ///! rust
00:05:25 verbose #7857 > >
00:05:25 verbose #7858 > > types ()
00:05:25 verbose #7859 > > inl retry_fn_test = mut 0i32
00:05:25 verbose #7860 > > fun () =>
00:05:25 verbose #7861 > > retry_fn_test <- *retry_fn_test + 1
00:05:25 verbose #7862 > > *retry_fn_test
00:05:25 verbose #7863 > > |> retry_fn 3i32
00:05:25 verbose #7864 > > |> _assert_eq' (Some 1i32)
00:05:30 verbose #7865 > >
00:05:30 verbose #7866 > > ╭─[ 4.82s - return value ]─────────────────────────────────────────────────────╮
00:05:30 verbose #7867 > > │ assert_eq' / actual: US0_0(1) / expected: US0_0(1) │
00:05:30 verbose #7868 > > │ │
00:05:30 verbose #7869 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #7870 > >
00:05:30 verbose #7871 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 verbose #7872 > > //// test
00:05:30 verbose #7873 > >
00:05:30 verbose #7874 > > inl retry_fn_test = mut 0i32
00:05:30 verbose #7875 > > fun () =>
00:05:30 verbose #7876 > > if *retry_fn_test >= 2
00:05:30 verbose #7877 > > then *retry_fn_test
00:05:30 verbose #7878 > > else
00:05:30 verbose #7879 > > retry_fn_test <- *retry_fn_test + 1
00:05:30 verbose #7880 > > failwith "test"
00:05:30 verbose #7881 > > |> retry_fn 3i32
00:05:30 verbose #7882 > > |> _assert_eq (Some 2i32)
00:05:30 verbose #7883 > >
00:05:30 verbose #7884 > > ╭─[ 554.21ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 verbose #7885 > > │ 00:00:00 warning #1 common.retry_fn / retry: 0 / ex: System.Exception: test │
00:05:30 verbose #7886 > > │ at FSI_0034.closure0(Mut0 v0, Int32 v1, Unit unitVar2) │
00:05:30 verbose #7887 > > │ at FSI_0034.method1(Mut0 v0, Int32 v1) │
00:05:30 verbose #7888 > > │ 00:00:00 warning #2 common.retry_fn / retry: 1 / ex: System.Exception: test │
00:05:30 verbose #7889 > > │ at FSI_0034.closure0(Mut0 v0, Int32 v1, Unit unitVar2) │
00:05:30 verbose #7890 > > │ at FSI_0034.method1(Mut0 v0, Int32 v1) │
00:05:30 verbose #7891 > > │ assert_eq / actual: US0_0 2 / expected: US0_0 2 │
00:05:30 verbose #7892 > > │ │
00:05:30 verbose #7893 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 verbose #7894 > >
00:05:30 verbose #7895 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 verbose #7896 > > //// test
00:05:30 verbose #7897 > > ///! rust
00:05:30 verbose #7898 > >
00:05:30 verbose #7899 > > types ()
00:05:30 verbose #7900 > > inl retry_fn_test = mut 0i32
00:05:30 verbose #7901 > > fun () =>
00:05:30 verbose #7902 > > if *retry_fn_test >= 2
00:05:30 verbose #7903 > > then *retry_fn_test
00:05:30 verbose #7904 > > else
00:05:30 verbose #7905 > > retry_fn_test <- *retry_fn_test + 1
00:05:30 verbose #7906 > > failwith "test"
00:05:30 verbose #7907 > > |> retry_fn 3i32
00:05:30 verbose #7908 > > |> _assert_eq' (Some 2i32)
00:05:34 verbose #7909 > >
00:05:34 verbose #7910 > > ╭─[ 4.31s - return value ]─────────────────────────────────────────────────────╮
00:05:34 verbose #7911 > > │ 00:00:00 warning #1 common.retry_fn / retry: 0 / ex: Exception { │
00:05:34 verbose #7912 > > │ message: "test" } │
00:05:34 verbose #7913 > > │ 00:00:00 warning #2 common.retry_fn / retry: 1 / ex: Exception { │
00:05:34 verbose #7914 > > │ message: "test" } │
00:05:34 verbose #7915 > > │ assert_eq' / actual: US0_0(2) / expected: US0_0(2) │
00:05:34 verbose #7916 > > │ │
00:05:34 verbose #7917 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 verbose #7918 > >
00:05:34 verbose #7919 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:34 verbose #7920 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:34 verbose #7921 > > │ ## random │
00:05:34 verbose #7922 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 verbose #7923 > >
00:05:34 verbose #7924 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:34 verbose #7925 > > nominal random = $'System.Random'
00:05:34 verbose #7926 > >
00:05:34 verbose #7927 > > inl random () : random =
00:05:34 verbose #7928 > > $'`random ' ()
00:05:34 verbose #7929 > >
00:05:34 verbose #7930 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:34 verbose #7931 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:34 verbose #7932 > > │ ## random_next │
00:05:34 verbose #7933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 verbose #7934 > >
00:05:34 verbose #7935 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:34 verbose #7936 > > inl random_next (min : i32) (max : i32) (random : random) : i32 =
00:05:34 verbose #7937 > > $'!random.Next (!min, !max)'
00:05:34 verbose #7938 > >
00:05:34 verbose #7939 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:34 verbose #7940 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:34 verbose #7941 > > │ ## random' │
00:05:34 verbose #7942 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 verbose #7943 > >
00:05:34 verbose #7944 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:34 verbose #7945 > > inl random' forall t. (min : t) (max : t) : t =
00:05:34 verbose #7946 > > run_target function
00:05:34 verbose #7947 > > | Rust (Contract) => fun () =>
00:05:34 verbose #7948 > > failwith "common.random' / target=Rust(Contract)"
00:05:34 verbose #7949 > > | Rust _ => fun () =>
00:05:34 verbose #7950 > > open rust_operators
00:05:34 verbose #7951 > > !\\((min, max), $'"rand::Rng::gen_range(&mut rand::thread_rng(),
00:05:34 verbose #7952 > > $0..$1)"')
00:05:34 verbose #7953 > > | _ => fun () =>
00:05:34 verbose #7954 > > random () |> random_next (i32 min) (i32 max) |> convert
00:05:35 verbose #7955 > >
00:05:35 verbose #7956 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:35 verbose #7957 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:35 verbose #7958 > > │ ## main │
00:05:35 verbose #7959 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:35 verbose #7960 > >
00:05:35 verbose #7961 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:35 verbose #7962 > > inl main () =
00:05:35 verbose #7963 > > types ()
00:05:35 verbose #7964 > > init_trace_state None
00:05:35 verbose #7965 > > inl new_disposable x : _ () = new_disposable x
00:05:35 verbose #7966 > > $'let new_disposable x = !new_disposable x' : ()
00:05:35 verbose #7967 > >
00:05:35 verbose #7968 > > inl retry_fn (r : i32) (x : () -> _) : optionm'.option' () = retry_fn r x |>
00:05:35 verbose #7969 > > optionm'.box
00:05:35 verbose #7970 > > $'let retry_fn x = !retry_fn x' : ()
00:05:35 verbose #7971 > > inl memoize (fn : () -> ()) : () -> () = memoize fn
00:05:35 verbose #7972 > > $'let memoize x = !memoize x' : ()
00:05:35 verbose #7973 > 00:00:28 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 22623
00:05:35 verbose #7974 > 00:00:28 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/common.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/common.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:05:38 verbose #7975 > 00:00:30 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/common.dib.ipynb to html
00:05:38 verbose #7976 > 00:00:30 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:38 verbose #7977 > 00:00:30 verbose #7 ! validate(nb)
00:05:39 verbose #7978 > 00:00:32 verbose #8 ! [NbConvertApp] Writing 339666 bytes to c:\home\git\polyglot\lib\spiral\common.dib.html
00:05:40 verbose #7979 > 00:00:32 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:05:40 verbose #7980 > 00:00:32 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:05:40 verbose #7981 > 00:00:32 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/common.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/common.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:05:41 verbose #7982 > 00:00:34 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:05:41 verbose #7983 > 00:00:34 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:05:42 verbose #7984 > 00:00:34 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 23325
00:05:42 debug #7985 runtime.execute_with_options_async / exit_code: 0 / output.Length: 26632
00:05:42 debug #12 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path common.dib --retries 3
00:05:42 debug #7986 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path resultm.dib --retries 3",
[||], None, None, true, None)
00:05:42 verbose #7987 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "resultm.dib", "--retries", "3"])
00:05:42 verbose #7988 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/resultm.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/resultm.dib" --output-path "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:05:44 verbose #7989 > >
00:05:44 verbose #7990 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 verbose #7991 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 verbose #7992 > > │ # resultm │
00:05:44 verbose #7993 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 verbose #7994 > >
00:05:44 verbose #7995 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 verbose #7996 > > open rust_operators
00:05:44 verbose #7997 > >
00:05:44 verbose #7998 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:05:44 verbose #7999 > > #r
00:05:44 verbose #8000 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:05:44 verbose #8001 > > otNet.Interactive.Spiral.dll"
00:05:44 verbose #8002 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:05:44 verbose #8003 > > #r
00:05:44 verbose #8004 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:05:44 verbose #8005 > > otNet.Interactive.dll"
00:05:44 verbose #8006 > > open type Microsoft.DotNet.Interactive.Kernel
00:05:50 verbose #8007 > >
00:05:50 verbose #8008 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8009 > > //// test
00:05:50 verbose #8010 > >
00:05:50 verbose #8011 > > open testing
00:05:50 verbose #8012 > >
00:05:50 verbose #8013 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8014 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8015 > > │ ## result' │
00:05:50 verbose #8016 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8017 > >
00:05:50 verbose #8018 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8019 > > nominal result' t u = $'Result<`t, `u>'
00:05:50 verbose #8020 > >
00:05:50 verbose #8021 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8022 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8023 > > │ ## from_option_error │
00:05:50 verbose #8024 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8025 > >
00:05:50 verbose #8026 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8027 > > inl from_option_error error opt =
00:05:50 verbose #8028 > > match opt with
00:05:50 verbose #8029 > > | Some x => Ok x
00:05:50 verbose #8030 > > | None => Error error
00:05:50 verbose #8031 > >
00:05:50 verbose #8032 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8033 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8034 > > │ ## from_option │
00:05:50 verbose #8035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8036 > >
00:05:50 verbose #8037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8038 > > inl from_option opt =
00:05:50 verbose #8039 > > opt |> from_option_error "resultm.from_option / Option does not have a
00:05:50 verbose #8040 > > value."
00:05:50 verbose #8041 > >
00:05:50 verbose #8042 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8043 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8044 > > │ ## flatten_option │
00:05:50 verbose #8045 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8046 > >
00:05:50 verbose #8047 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8048 > > inl flatten_option forall t u. (x : option (result (option t) u)) : result
00:05:50 verbose #8049 > > (option t) u =
00:05:50 verbose #8050 > > match x with
00:05:50 verbose #8051 > > | Some (Error x) => Error x
00:05:50 verbose #8052 > > | Some (Ok (Some x)) => Ok (Some x)
00:05:50 verbose #8053 > > | _ => Ok None
00:05:50 verbose #8054 > >
00:05:50 verbose #8055 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8056 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8057 > > │ ## flatten │
00:05:50 verbose #8058 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8059 > >
00:05:50 verbose #8060 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8061 > > inl flatten forall t u. (x : result (result t u) u) : result t u =
00:05:50 verbose #8062 > > match x with
00:05:50 verbose #8063 > > | Ok x => x
00:05:50 verbose #8064 > > | Error x => Error x
00:05:50 verbose #8065 > >
00:05:50 verbose #8066 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8067 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8068 > > │ ## try' │
00:05:50 verbose #8069 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8070 > >
00:05:50 verbose #8071 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8072 > > inl try' forall t u. (x : result' t u) : t =
00:05:50 verbose #8073 > > !\\(x, $'"$0?"')
00:05:50 verbose #8074 > >
00:05:50 verbose #8075 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8076 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8077 > > │ ## to_try │
00:05:50 verbose #8078 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8079 > >
00:05:50 verbose #8080 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8081 > > inl to_try forall t u. (x : result' t u) : rust.try t =
00:05:50 verbose #8082 > > !\\(x, $'"$0"')
00:05:50 verbose #8083 > >
00:05:50 verbose #8084 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8085 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8086 > > │ ## unwrap' │
00:05:50 verbose #8087 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8088 > >
00:05:50 verbose #8089 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8090 > > inl unwrap' forall t u. (x : result' t u) : t =
00:05:50 verbose #8091 > > !\\(x, $'"$0.unwrap()"')
00:05:50 verbose #8092 > >
00:05:50 verbose #8093 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:50 verbose #8094 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:50 verbose #8095 > > │ ## get │
00:05:50 verbose #8096 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:50 verbose #8097 > >
00:05:50 verbose #8098 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:50 verbose #8099 > > inl get forall t e. (source : result t e) : t =
00:05:50 verbose #8100 > > match source with
00:05:50 verbose #8101 > > | Ok x => x
00:05:50 verbose #8102 > > | Error x => failwith $'$"resultm.get / Result value was Error: {!x}"'
00:05:51 verbose #8103 > >
00:05:51 verbose #8104 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8105 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8106 > > │ ## unbox │
00:05:51 verbose #8107 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8108 > >
00:05:51 verbose #8109 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8110 > > inl unbox forall t u. (x : result' t u) : result t u =
00:05:51 verbose #8111 > > inl ok x : result t u = Ok x
00:05:51 verbose #8112 > > inl error x : result t u = Error x
00:05:51 verbose #8113 > > real
00:05:51 verbose #8114 > > typecase t with
00:05:51 verbose #8115 > > | () => $'match !x with Ok () -> !ok () | Error x -> !error x' : result
00:05:51 verbose #8116 > > t u
00:05:51 verbose #8117 > > | _ => $'match !x with Ok x -> !ok x | Error x -> !error x' : result t u
00:05:51 verbose #8118 > >
00:05:51 verbose #8119 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8120 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8121 > > │ ## unbox' │
00:05:51 verbose #8122 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8123 > >
00:05:51 verbose #8124 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8125 > > inl unbox' forall t u. (x : result' t u) : result t u =
00:05:51 verbose #8126 > > inl ok x : result t u = Ok x
00:05:51 verbose #8127 > > inl ok = join ok
00:05:51 verbose #8128 > > inl error x : result t u = Error x
00:05:51 verbose #8129 > > inl error = join error
00:05:51 verbose #8130 > > real
00:05:51 verbose #8131 > > typecase t with
00:05:51 verbose #8132 > > | () =>
00:05:51 verbose #8133 > > (~!\\)
00:05:51 verbose #8134 > > `((result' t u -> result t u) * (result' t u -> result t u))
00:05:51 verbose #8135 > > `(result t u)
00:05:51 verbose #8136 > > ((ok, error), ($'"match !x { Ok(()) => $0(()), Err(e) => $1(e)
00:05:51 verbose #8137 > > }"' : string))
00:05:51 verbose #8138 > > | _ =>
00:05:51 verbose #8139 > > (~!\\)
00:05:51 verbose #8140 > > `((result' t u -> result t u) * (result' t u -> result t u))
00:05:51 verbose #8141 > > `(result t u)
00:05:51 verbose #8142 > > ((ok, error), ($'"match !x { Ok(x) => $0(x), Err(e) => $1(e) }"'
00:05:51 verbose #8143 > > : string))
00:05:51 verbose #8144 > >
00:05:51 verbose #8145 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8146 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8147 > > │ ## box │
00:05:51 verbose #8148 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8149 > >
00:05:51 verbose #8150 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8151 > > inl box forall t u. (x : result t u) : result' t u =
00:05:51 verbose #8152 > > match x with
00:05:51 verbose #8153 > > | Ok x => $'Ok !x '
00:05:51 verbose #8154 > > | Error err => $'Error !err '
00:05:51 verbose #8155 > >
00:05:51 verbose #8156 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8157 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8158 > > │ ## map │
00:05:51 verbose #8159 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8160 > >
00:05:51 verbose #8161 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8162 > > inl map forall t e u. (fn : t -> u) (source : result t e) : result u e =
00:05:51 verbose #8163 > > match source with
00:05:51 verbose #8164 > > | Ok x => x |> fn |> Ok
00:05:51 verbose #8165 > > | Error x => Error x
00:05:51 verbose #8166 > >
00:05:51 verbose #8167 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8168 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8169 > > │ ## map_error │
00:05:51 verbose #8170 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8171 > >
00:05:51 verbose #8172 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8173 > > inl map_error forall t e u. (fn : e -> u) (source : result t e) : result t u =
00:05:51 verbose #8174 > > match source with
00:05:51 verbose #8175 > > | Ok x => Ok x
00:05:51 verbose #8176 > > | Error x => x |> fn |> Error
00:05:51 verbose #8177 > >
00:05:51 verbose #8178 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8179 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8180 > > │ ## map' │
00:05:51 verbose #8181 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8182 > >
00:05:51 verbose #8183 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8184 > > inl map' forall t e u. (fn : t -> u) (source : result' t e) : result' u e =
00:05:51 verbose #8185 > > (!\\(source, $'"true; let _result = $0.map(|x| { //"') : bool) |> ignore
00:05:51 verbose #8186 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:05:51 verbose #8187 > > !\($'"_result"')
00:05:51 verbose #8188 > >
00:05:51 verbose #8189 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8190 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8191 > > │ ## map'' │
00:05:51 verbose #8192 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8193 > >
00:05:51 verbose #8194 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8195 > > inl map'' forall t e u. (fn : t -> u) (source : result' t e) : result' u e =
00:05:51 verbose #8196 > > inl fn = join fn
00:05:51 verbose #8197 > > inl source = join source
00:05:51 verbose #8198 > > !\($'"!source.map(|x| !fn(x))"')
00:05:51 verbose #8199 > >
00:05:51 verbose #8200 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8201 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8202 > > │ ## map_error' │
00:05:51 verbose #8203 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8204 > >
00:05:51 verbose #8205 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8206 > > inl map_error' forall t e u. (fn : e -> u) (source : result' t e) : result' t u
00:05:51 verbose #8207 > > =
00:05:51 verbose #8208 > > inl fn = join fn
00:05:51 verbose #8209 > > !\\((source, fn), $'"$0.map_err(|x| $1(x))"')
00:05:51 verbose #8210 > >
00:05:51 verbose #8211 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8212 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8213 > > │ ## map_error'' │
00:05:51 verbose #8214 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8215 > >
00:05:51 verbose #8216 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8217 > > inl map_error'' forall t e u. (fn : e -> u) (source : result' t e) : result' t u
00:05:51 verbose #8218 > > =
00:05:51 verbose #8219 > > (!\\(source, $'"true; let _result = $0.map_err(|x| { //"') : bool) |> ignore
00:05:51 verbose #8220 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:05:51 verbose #8221 > > !\($'"_result"')
00:05:51 verbose #8222 > >
00:05:51 verbose #8223 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8224 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8225 > > │ ## option_ok_or │
00:05:51 verbose #8226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8227 > >
00:05:51 verbose #8228 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8229 > > inl option_ok_or forall t e. (e : e) (source : optionm'.option' t) : result' t e
00:05:51 verbose #8230 > > =
00:05:51 verbose #8231 > > !\\(source, $'"$0.ok_or(!e)"')
00:05:51 verbose #8232 > >
00:05:51 verbose #8233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8235 > > │ ## unwrap_or_else │
00:05:51 verbose #8236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8237 > >
00:05:51 verbose #8238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8239 > > inl unwrap_or_else forall t e u. (fn : e -> u) (source : result' t e) : u =
00:05:51 verbose #8240 > > (!\\(source, $'"true; let _result = $0.unwrap_or_else(|x| { //"') : bool) |>
00:05:51 verbose #8241 > > ignore
00:05:51 verbose #8242 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:05:51 verbose #8243 > > !\($'"_result"')
00:05:51 verbose #8244 > >
00:05:51 verbose #8245 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8246 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8247 > > │ ## map_or_else │
00:05:51 verbose #8248 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8249 > >
00:05:51 verbose #8250 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8251 > > inl map_or_else forall t e u v. (fn : e -> v) (fn2 : u -> v) (source : result' t
00:05:51 verbose #8252 > > e) : v =
00:05:51 verbose #8253 > > (!\\(source, $'"true; let _result = $0.map_or_else(|x| { //"') : bool) |>
00:05:51 verbose #8254 > > ignore
00:05:51 verbose #8255 > > (!\\(fn !\($'"x"'), $'"true; $0 }, |x| { //"') : bool) |> ignore
00:05:51 verbose #8256 > > (!\\(fn2 !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:05:51 verbose #8257 > > !\($'"_result"')
00:05:51 verbose #8258 > >
00:05:51 verbose #8259 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8260 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8261 > > │ ## as_ref │
00:05:51 verbose #8262 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8263 > >
00:05:51 verbose #8264 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8265 > > inl as_ref forall t e. (source : result' t e) : result' (rust.ref' t) (rust.ref'
00:05:51 verbose #8266 > > e) =
00:05:51 verbose #8267 > > !\($'"!source.as_ref()"')
00:05:51 verbose #8268 > >
00:05:51 verbose #8269 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8270 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8271 > > │ ## as_ref' │
00:05:51 verbose #8272 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8273 > >
00:05:51 verbose #8274 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8275 > > inl as_ref' forall t e. (source : rust.ref' (result' t e)) : result' (rust.ref'
00:05:51 verbose #8276 > > t) (rust.ref' e) =
00:05:51 verbose #8277 > > !\($'"!source.as_ref()"')
00:05:51 verbose #8278 > >
00:05:51 verbose #8279 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8280 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8281 > > │ ## unwrap_err │
00:05:51 verbose #8282 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8283 > >
00:05:51 verbose #8284 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8285 > > inl unwrap_err forall t u. (x : result t u) : u =
00:05:51 verbose #8286 > > match x with
00:05:51 verbose #8287 > > | Ok x => failwith $'$"resultm.unwrap_err / x: {!x}"'
00:05:51 verbose #8288 > > | Error x => x
00:05:51 verbose #8289 > >
00:05:51 verbose #8290 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8291 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8292 > > │ ## unwrap_or' │
00:05:51 verbose #8293 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8294 > >
00:05:51 verbose #8295 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8296 > > inl unwrap_or' forall t u. (default : t) (x : result' t u) : t =
00:05:51 verbose #8297 > > !\\((x, default), $'"$0.unwrap_or($1)"')
00:05:51 verbose #8298 > >
00:05:51 verbose #8299 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8300 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8301 > > │ ## expect │
00:05:51 verbose #8302 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8303 > >
00:05:51 verbose #8304 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8305 > > inl expect forall t u. (error : rust.ref' string) (x : result' t u) : t =
00:05:51 verbose #8306 > > !\($'"!x.expect(&!error)"')
00:05:51 verbose #8307 > >
00:05:51 verbose #8308 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8309 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8310 > > │ ## is_err │
00:05:51 verbose #8311 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8312 > >
00:05:51 verbose #8313 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8314 > > inl is_err forall t u. (x : result' t u) : bool =
00:05:51 verbose #8315 > > !\($'"!x.is_err()"')
00:05:51 verbose #8316 > >
00:05:51 verbose #8317 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8318 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8319 > > │ ## ok' │
00:05:51 verbose #8320 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8321 > >
00:05:51 verbose #8322 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8323 > > inl ok' forall t. (x : result' t _) : optionm'.option' t =
00:05:51 verbose #8324 > > !\($'"!x.ok()"')
00:05:51 verbose #8325 > >
00:05:51 verbose #8326 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8327 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8328 > > │ ## ok │
00:05:51 verbose #8329 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8330 > >
00:05:51 verbose #8331 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8332 > > inl ok forall t. (x : result t _) : option t =
00:05:51 verbose #8333 > > match x with
00:05:51 verbose #8334 > > | Ok x => Some x
00:05:51 verbose #8335 > > | Error _ => None
00:05:51 verbose #8336 > >
00:05:51 verbose #8337 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8338 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8339 > > │ ## transpose │
00:05:51 verbose #8340 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8341 > >
00:05:51 verbose #8342 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8343 > > inl transpose forall t u. (x : optionm'.option' (result' t u)) : result'
00:05:51 verbose #8344 > > (optionm'.option' t) u =
00:05:51 verbose #8345 > > !\\(x, $'"$0.transpose()"')
00:05:51 verbose #8346 > >
00:05:51 verbose #8347 > > ── markdown ────────────────────────────────────────────────────────────────────
00:05:51 verbose #8348 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:51 verbose #8349 > > │ ## rc_try_unwrap │
00:05:51 verbose #8350 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:51 verbose #8351 > >
00:05:51 verbose #8352 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8353 > > inl rc_try_unwrap forall t. (x : rust.rc t) : result' t (rust.rc t) =
00:05:51 verbose #8354 > > !\\(x, $'"std::rc::Rc::try_unwrap($0)"')
00:05:51 verbose #8355 > >
00:05:51 verbose #8356 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:51 verbose #8357 > > //// test
00:05:51 verbose #8358 > > ///! rust
00:05:51 verbose #8359 > >
00:05:51 verbose #8360 > > types ()
00:05:51 verbose #8361 > > rust.new_rc true
00:05:51 verbose #8362 > > |> rc_try_unwrap
00:05:51 verbose #8363 > > |> unbox
00:05:51 verbose #8364 > > |> _assert_eq (Ok true)
00:05:57 verbose #8365 > >
00:05:57 verbose #8366 > > ╭─[ 5.35s - return value ]─────────────────────────────────────────────────────╮
00:05:57 verbose #8367 > > │ assert_eq / actual: US0_0(true) / expected: US0_0(true) │
00:05:57 verbose #8368 > > │ │
00:05:57 verbose #8369 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 verbose #8370 > 00:00:15 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 19051
00:05:57 verbose #8371 > 00:00:15 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:06:02 verbose #8372 > 00:00:20 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/resultm.dib.ipynb to html
00:06:02 verbose #8373 > 00:00:20 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:02 verbose #8374 > 00:00:20 verbose #7 ! validate(nb)
00:06:04 verbose #8375 > 00:00:22 verbose #8 ! [NbConvertApp] Writing 334838 bytes to c:\home\git\polyglot\lib\spiral\resultm.dib.html
00:06:04 verbose #8376 > 00:00:22 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:06:04 verbose #8377 > 00:00:22 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:06:04 verbose #8378 > 00:00:22 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/resultm.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/resultm.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:06:06 verbose #8379 > 00:00:24 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:06:06 verbose #8380 > 00:00:24 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:06:06 verbose #8381 > 00:00:24 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 19755
00:06:07 debug #8382 runtime.execute_with_options_async / exit_code: 0 / output.Length: 22783
00:06:06 debug #13 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path resultm.dib --retries 3
00:06:07 debug #8383 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path console.dib --retries 3",
[||], None, None, true, None)
00:06:07 verbose #8384 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "console.dib", "--retries", "3"])
00:06:07 verbose #8385 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/console.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/console.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/console.dib" --output-path "c:/home/git/polyglot/lib/spiral/console.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:06:10 verbose #8386 > >
00:06:10 verbose #8387 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:10 verbose #8388 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:10 verbose #8389 > > │ # console │
00:06:10 verbose #8390 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:10 verbose #8391 > >
00:06:10 verbose #8392 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:10 verbose #8393 > > //// test
00:06:10 verbose #8394 > >
00:06:10 verbose #8395 > > open testing
00:06:10 verbose #8396 > >
00:06:10 verbose #8397 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:06:10 verbose #8398 > > #r
00:06:10 verbose #8399 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:06:10 verbose #8400 > > otNet.Interactive.Spiral.dll"
00:06:10 verbose #8401 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:06:10 verbose #8402 > > #r
00:06:10 verbose #8403 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:06:10 verbose #8404 > > otNet.Interactive.dll"
00:06:10 verbose #8405 > > open type Microsoft.DotNet.Interactive.Kernel
00:06:15 verbose #8406 > >
00:06:15 verbose #8407 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:15 verbose #8408 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:15 verbose #8409 > > │ ## write_line │
00:06:15 verbose #8410 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:15 verbose #8411 > >
00:06:15 verbose #8412 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:15 verbose #8413 > > inl write_line obj : () =
00:06:15 verbose #8414 > > backend_switch {
00:06:15 verbose #8415 > > Fsharp = fun () => obj |> $'System.Console.WriteLine' : ()
00:06:15 verbose #8416 > > Python = fun () => $'print(!obj)' : ()
00:06:15 verbose #8417 > > }
00:06:15 verbose #8418 > >
00:06:15 verbose #8419 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:15 verbose #8420 > > inl write_line_ ~obj : () =
00:06:15 verbose #8421 > > obj |> $'System.Console.WriteLine'
00:06:16 verbose #8422 > >
00:06:16 verbose #8423 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:16 verbose #8424 > > nominal console_color = $'System.ConsoleColor'
00:06:16 verbose #8425 > >
00:06:16 verbose #8426 > > inl reset_color () : () =
00:06:16 verbose #8427 > > run_target function
00:06:16 verbose #8428 > > | Fsharp => fun () => $'System.Console.ResetColor' ()
00:06:16 verbose #8429 > > | _ => fun () => ()
00:06:16 verbose #8430 > >
00:06:16 verbose #8431 > > inl set_foreground_color (color : console_color) : () =
00:06:16 verbose #8432 > > run_target function
00:06:16 verbose #8433 > > | Fsharp => fun () => $'System.Console.ForegroundColor <- !color '
00:06:16 verbose #8434 > > | _ => fun () => ()
00:06:16 verbose #8435 > 00:00:09 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 2019
00:06:16 verbose #8436 > 00:00:09 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/console.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/console.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:06:25 verbose #8437 > 00:00:18 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/console.dib.ipynb to html
00:06:25 verbose #8438 > 00:00:18 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:25 verbose #8439 > 00:00:18 verbose #7 ! validate(nb)
00:06:28 verbose #8440 > 00:00:21 verbose #8 ! [NbConvertApp] Writing 276099 bytes to c:\home\git\polyglot\lib\spiral\console.dib.html
00:06:29 verbose #8441 > 00:00:22 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:06:29 verbose #8442 > 00:00:22 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:06:29 verbose #8443 > 00:00:22 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/console.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/console.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:06:32 verbose #8444 > 00:00:25 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:06:32 verbose #8445 > 00:00:25 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:06:33 verbose #8446 > 00:00:26 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 2723
00:06:33 debug #8447 runtime.execute_with_options_async / exit_code: 0 / output.Length: 5085
00:06:33 debug #14 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path console.dib --retries 3
00:06:33 debug #8448 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path date_time.dib --retries 3",
[||], None, None, true, None)
00:06:33 verbose #8449 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "date_time.dib", "--retries", "3"])
00:06:33 verbose #8450 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/date_time.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/date_time.dib" --output-path "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:06:39 verbose #8451 > >
00:06:39 verbose #8452 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:39 verbose #8453 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:39 verbose #8454 > > │ # date_time │
00:06:39 verbose #8455 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:39 verbose #8456 > >
00:06:39 verbose #8457 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:39 verbose #8458 > > open rust_operators
00:06:39 verbose #8459 > > open sm'_operators
00:06:39 verbose #8460 > >
00:06:39 verbose #8461 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:06:39 verbose #8462 > > #r
00:06:39 verbose #8463 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:06:39 verbose #8464 > > otNet.Interactive.Spiral.dll"
00:06:39 verbose #8465 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:06:39 verbose #8466 > > #r
00:06:39 verbose #8467 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:06:39 verbose #8468 > > otNet.Interactive.dll"
00:06:39 verbose #8469 > > open type Microsoft.DotNet.Interactive.Kernel
00:06:45 verbose #8470 > >
00:06:45 verbose #8471 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8472 > > //// test
00:06:45 verbose #8473 > >
00:06:45 verbose #8474 > > open testing
00:06:45 verbose #8475 > >
00:06:45 verbose #8476 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8477 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8478 > > │ ## types │
00:06:45 verbose #8479 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8480 > >
00:06:45 verbose #8481 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8482 > > inl types () =
00:06:45 verbose #8483 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:06:45 verbose #8484 > > Fable.Core.Emit(\"chrono::DateTime<$0>\")>]]\n#endif\ntype chrono_DateTime<'T> =
00:06:45 verbose #8485 > > class end"
00:06:45 verbose #8486 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:06:45 verbose #8487 > > Fable.Core.Emit(\"chrono::Local\")>]]\n#endif\ntype chrono_Local = class end"
00:06:45 verbose #8488 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:06:45 verbose #8489 > > Fable.Core.Emit(\"chrono::NaiveDateTime\")>]]\n#endif\ntype chrono_NaiveDateTime
00:06:45 verbose #8490 > > = class end"
00:06:45 verbose #8491 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:06:45 verbose #8492 > > Fable.Core.Emit(\"chrono::Utc\")>]]\n#endif\ntype chrono_Utc = class end"
00:06:45 verbose #8493 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:06:45 verbose #8494 > > Fable.Core.Emit(\"std::time::Duration\")>]]\n#endif\ntype std_time_Duration =
00:06:45 verbose #8495 > > class end"
00:06:45 verbose #8496 > >
00:06:45 verbose #8497 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8498 > > inl types () =
00:06:45 verbose #8499 > > sm'.types ()
00:06:45 verbose #8500 > > types ()
00:06:45 verbose #8501 > >
00:06:45 verbose #8502 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8503 > > nominal timestamp = i64
00:06:45 verbose #8504 > > nominal duration = $'std_time_Duration'
00:06:45 verbose #8505 > > nominal date_time = $'System.DateTime'
00:06:45 verbose #8506 > > nominal date_time' t = $'chrono_DateTime<`t>'
00:06:45 verbose #8507 > > nominal local = $'chrono_Local'
00:06:45 verbose #8508 > > nominal naive_date_time = $'chrono_NaiveDateTime'
00:06:45 verbose #8509 > > nominal utc = $'chrono_Utc'
00:06:45 verbose #8510 > >
00:06:45 verbose #8511 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8512 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8513 > > │ ## date_time_milliseconds │
00:06:45 verbose #8514 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8515 > >
00:06:45 verbose #8516 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8517 > > inl date_time_milliseconds
00:06:45 verbose #8518 > > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:06:45 verbose #8519 > > int) (millisecond : int)
00:06:45 verbose #8520 > > : date_time
00:06:45 verbose #8521 > > =
00:06:45 verbose #8522 > > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:06:45 verbose #8523 > > !millisecond)'
00:06:45 verbose #8524 > >
00:06:45 verbose #8525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8527 > > │ ## date_time_utc │
00:06:45 verbose #8528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8529 > >
00:06:45 verbose #8530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8531 > > inl date_time_utc
00:06:45 verbose #8532 > > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:06:45 verbose #8533 > > int)
00:06:45 verbose #8534 > > : date_time
00:06:45 verbose #8535 > > =
00:06:45 verbose #8536 > > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:06:45 verbose #8537 > > System.DateTimeKind.Utc)'
00:06:45 verbose #8538 > >
00:06:45 verbose #8539 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8540 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8541 > > │ ## naive_utc │
00:06:45 verbose #8542 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8543 > >
00:06:45 verbose #8544 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8545 > > inl naive_utc (date_time : date_time' utc) : naive_date_time =
00:06:45 verbose #8546 > > inl date_time = join date_time
00:06:45 verbose #8547 > > !\($'"!date_time.naive_utc()"')
00:06:45 verbose #8548 > >
00:06:45 verbose #8549 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8550 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8551 > > │ ## to_local │
00:06:45 verbose #8552 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8553 > >
00:06:45 verbose #8554 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8555 > > inl to_local (date_time : date_time' utc) : date_time' local =
00:06:45 verbose #8556 > > inl naive_date_time = date_time |> naive_utc
00:06:45 verbose #8557 > > !\($'"chrono::offset::TimeZone::from_utc_datetime(&chrono::Local,
00:06:45 verbose #8558 > > &!naive_date_time)"')
00:06:45 verbose #8559 > >
00:06:45 verbose #8560 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8561 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8562 > > │ ## from_timestamp_micros │
00:06:45 verbose #8563 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8564 > >
00:06:45 verbose #8565 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8566 > > inl from_timestamp_micros forall t {number; int}. (timestamp : t) : option
00:06:45 verbose #8567 > > (date_time' utc) =
00:06:45 verbose #8568 > > inl result : optionm'.option' (date_time' utc) =
00:06:45 verbose #8569 > > !\\(timestamp, $'"chrono::DateTime::from_timestamp_micros($0)"')
00:06:45 verbose #8570 > > result |> optionm'.unbox
00:06:45 verbose #8571 > >
00:06:45 verbose #8572 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8573 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8574 > > │ ## ticks │
00:06:45 verbose #8575 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8576 > >
00:06:45 verbose #8577 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8578 > > inl ticks (date_time : date_time) : timestamp =
00:06:45 verbose #8579 > > date_time |> $'_.Ticks'
00:06:45 verbose #8580 > >
00:06:45 verbose #8581 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8582 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8583 > > │ ## format │
00:06:45 verbose #8584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8585 > >
00:06:45 verbose #8586 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8587 > > inl format (format : string) (date_time : date_time) : string =
00:06:45 verbose #8588 > > $'!date_time.ToString' format
00:06:45 verbose #8589 > >
00:06:45 verbose #8590 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8591 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8592 > > │ ## format_iso8601 │
00:06:45 verbose #8593 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8594 > >
00:06:45 verbose #8595 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8596 > > inl format_iso8601 (date_time : date_time) =
00:06:45 verbose #8597 > > date_time |> format "yyyy-MM-ddTHH-mm-ss.fff"
00:06:45 verbose #8598 > >
00:06:45 verbose #8599 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8600 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8601 > > │ ## format' │
00:06:45 verbose #8602 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8603 > >
00:06:45 verbose #8604 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8605 > > inl format' (format : string) (date_time : date_time' utc) : sm'.std_string =
00:06:45 verbose #8606 > > inl format = #format
00:06:45 verbose #8607 > > inl date_time = join date_time
00:06:45 verbose #8608 > > !\($'"!date_time.format(!format).to_string()"')
00:06:45 verbose #8609 > >
00:06:45 verbose #8610 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8611 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8612 > > │ ## format'' │
00:06:45 verbose #8613 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8614 > >
00:06:45 verbose #8615 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8616 > > inl format'' (format : string) (date_time : date_time' _) : sm'.std_string =
00:06:45 verbose #8617 > > inl format = #format
00:06:45 verbose #8618 > > inl date_time = join date_time
00:06:45 verbose #8619 > > !\($'"!date_time.format(!format).to_string()"')
00:06:45 verbose #8620 > >
00:06:45 verbose #8621 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8622 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8623 > > │ ## format_timestamp │
00:06:45 verbose #8624 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8625 > >
00:06:45 verbose #8626 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8627 > > inl format_timestamp forall t {number; int}. (timestamp : t) =
00:06:45 verbose #8628 > > inl timestamp = join timestamp
00:06:45 verbose #8629 > > (timestamp / 1000)
00:06:45 verbose #8630 > > |> from_timestamp_micros
00:06:45 verbose #8631 > > |> optionm.map fun x =>
00:06:45 verbose #8632 > > x
00:06:45 verbose #8633 > > |> to_local
00:06:45 verbose #8634 > > |> format'' "%Y-%m-%d %H:%M:%S"
00:06:45 verbose #8635 > > |> sm'.from_std_string
00:06:45 verbose #8636 > > |> resultm.from_option
00:06:45 verbose #8637 > >
00:06:45 verbose #8638 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8639 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8640 > > │ ## duration_from_millis │
00:06:45 verbose #8641 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8642 > >
00:06:45 verbose #8643 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:45 verbose #8644 > > inl duration_from_millis (ms : u64) : duration =
00:06:45 verbose #8645 > > inl ms = join ms
00:06:45 verbose #8646 > > !\($'"std::time::Duration::from_millis(!ms)"')
00:06:45 verbose #8647 > >
00:06:45 verbose #8648 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:45 verbose #8649 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:45 verbose #8650 > > │ ## min_value │
00:06:45 verbose #8651 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:45 verbose #8652 > >
00:06:46 verbose #8653 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8654 > > inl min_value () : date_time =
00:06:46 verbose #8655 > > $'System.DateTime.MinValue'
00:06:46 verbose #8656 > >
00:06:46 verbose #8657 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8658 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8659 > > │ ## max_value │
00:06:46 verbose #8660 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8661 > >
00:06:46 verbose #8662 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8663 > > inl max_value () : date_time =
00:06:46 verbose #8664 > > $'System.DateTime.MaxValue'
00:06:46 verbose #8665 > >
00:06:46 verbose #8666 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8667 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8668 > > │ ## unix_epoch │
00:06:46 verbose #8669 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8670 > >
00:06:46 verbose #8671 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8672 > > inl unix_epoch () : date_time =
00:06:46 verbose #8673 > > $'System.DateTime.UnixEpoch'
00:06:46 verbose #8674 > >
00:06:46 verbose #8675 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8676 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8677 > > │ ## to_universal_time │
00:06:46 verbose #8678 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8679 > >
00:06:46 verbose #8680 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8681 > > inl to_universal_time (date_time : date_time) : date_time =
00:06:46 verbose #8682 > > date_time |> $'_.ToUniversalTime()'
00:06:46 verbose #8683 > >
00:06:46 verbose #8684 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8685 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8686 > > │ ## date_time_kind │
00:06:46 verbose #8687 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8688 > >
00:06:46 verbose #8689 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8690 > > union date_time_kind =
00:06:46 verbose #8691 > > | Unspecified
00:06:46 verbose #8692 > > | Utc
00:06:46 verbose #8693 > > | Local
00:06:46 verbose #8694 > >
00:06:46 verbose #8695 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8696 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8697 > > │ ## specify_date_kind │
00:06:46 verbose #8698 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8699 > >
00:06:46 verbose #8700 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8701 > > inl specify_date_kind (kind : date_time_kind) (date_time : date_time) :
00:06:46 verbose #8702 > > date_time =
00:06:46 verbose #8703 > > inl kind : $'System.DateTimeKind' =
00:06:46 verbose #8704 > > match kind with
00:06:46 verbose #8705 > > | Unspecified => $'System.DateTimeKind.Unspecified'
00:06:46 verbose #8706 > > | Utc => $'System.DateTimeKind.Utc'
00:06:46 verbose #8707 > > | Local => $'System.DateTimeKind.Local'
00:06:46 verbose #8708 > > $'System.DateTime.SpecifyKind (!date_time, !kind)'
00:06:46 verbose #8709 > >
00:06:46 verbose #8710 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8711 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8712 > > │ ## time_span │
00:06:46 verbose #8713 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8714 > >
00:06:46 verbose #8715 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8716 > > nominal time_span = $'System.TimeSpan'
00:06:46 verbose #8717 > >
00:06:46 verbose #8718 > > inl time_span x : time_span =
00:06:46 verbose #8719 > > x |> $'`time_span '
00:06:46 verbose #8720 > >
00:06:46 verbose #8721 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8722 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8723 > > │ ## new_time_span │
00:06:46 verbose #8724 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8725 > >
00:06:46 verbose #8726 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8727 > > inl new_time_span (a : date_time) (b : date_time) : time_span =
00:06:46 verbose #8728 > > $'!b - !a '
00:06:46 verbose #8729 > >
00:06:46 verbose #8730 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8731 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8732 > > │ ## time_span_format │
00:06:46 verbose #8733 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8734 > >
00:06:46 verbose #8735 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8736 > > inl time_span_format (format : string) (time_span : time_span) : string =
00:06:46 verbose #8737 > > run_target function
00:06:46 verbose #8738 > > | (TypeScript _ | Python _) => fun () =>
00:06:46 verbose #8739 > > $'!time_span.ToString ("c",
00:06:46 verbose #8740 > > System.Globalization.CultureInfo.InvariantCulture)'
00:06:46 verbose #8741 > > | _ => fun () =>
00:06:46 verbose #8742 > > $'!time_span.ToString !format '
00:06:46 verbose #8743 > >
00:06:46 verbose #8744 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8745 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8746 > > │ ## hours │
00:06:46 verbose #8747 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8748 > >
00:06:46 verbose #8749 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8750 > > inl hours (time_span : time_span) : i32 =
00:06:46 verbose #8751 > > time_span |> $'_.Hours'
00:06:46 verbose #8752 > >
00:06:46 verbose #8753 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8754 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8755 > > │ ## milliseconds │
00:06:46 verbose #8756 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8757 > >
00:06:46 verbose #8758 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8759 > > inl milliseconds (time_span : time_span) : i32 =
00:06:46 verbose #8760 > > time_span |> $'_.Milliseconds'
00:06:46 verbose #8761 > >
00:06:46 verbose #8762 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8763 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8764 > > │ ## minutes │
00:06:46 verbose #8765 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8766 > >
00:06:46 verbose #8767 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8768 > > inl minutes (time_span : time_span) : i32 =
00:06:46 verbose #8769 > > time_span |> $'_.Minutes'
00:06:46 verbose #8770 > >
00:06:46 verbose #8771 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8772 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8773 > > │ ## seconds │
00:06:46 verbose #8774 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8775 > >
00:06:46 verbose #8776 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8777 > > inl seconds (time_span : time_span) : i32 =
00:06:46 verbose #8778 > > time_span |> $'_.Seconds'
00:06:46 verbose #8779 > >
00:06:46 verbose #8780 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8781 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8782 > > │ ## total_seconds │
00:06:46 verbose #8783 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8784 > >
00:06:46 verbose #8785 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8786 > > inl total_seconds (time_span : time_span) : f64 =
00:06:46 verbose #8787 > > time_span |> $'_.TotalSeconds'
00:06:46 verbose #8788 > >
00:06:46 verbose #8789 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8790 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8791 > > │ ## time_zone_info │
00:06:46 verbose #8792 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8793 > >
00:06:46 verbose #8794 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8795 > > nominal time_zone_info = $'System.TimeZoneInfo'
00:06:46 verbose #8796 > >
00:06:46 verbose #8797 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8798 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8799 > > │ ## time_zone_local │
00:06:46 verbose #8800 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8801 > >
00:06:46 verbose #8802 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8803 > > inl time_zone_local () : time_zone_info =
00:06:46 verbose #8804 > > run_target function
00:06:46 verbose #8805 > > | Rust (Native) => fun () =>
00:06:46 verbose #8806 > > open rust_operators
00:06:46 verbose #8807 > > !\($'"0i64.into()"')
00:06:46 verbose #8808 > > | Fsharp _ => fun () =>
00:06:46 verbose #8809 > > $'System.TimeZoneInfo.Local'
00:06:46 verbose #8810 > > | _ => fun () => null ()
00:06:46 verbose #8811 > >
00:06:46 verbose #8812 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8813 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8814 > > │ ## get_utc_offset │
00:06:46 verbose #8815 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8816 > >
00:06:46 verbose #8817 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8818 > > inl get_utc_offset (time_zone_info : time_zone_info) (date_time : date_time) :
00:06:46 verbose #8819 > > time_span =
00:06:46 verbose #8820 > > run_target function
00:06:46 verbose #8821 > > | Rust _ => fun () => time_span ()
00:06:46 verbose #8822 > > | Fsharp _ => fun () => date_time |> $'_.GetUtcOffset' (time_zone_local
00:06:46 verbose #8823 > > ())
00:06:46 verbose #8824 > > | target => fun () => failwith $'$"date_time.get_utc_offset / target:
00:06:46 verbose #8825 > > {!target}"'
00:06:46 verbose #8826 > >
00:06:46 verbose #8827 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8828 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8829 > > │ ## add_days │
00:06:46 verbose #8830 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8831 > >
00:06:46 verbose #8832 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8833 > > inl add_days (days : i32) (date_time : date_time) : date_time =
00:06:46 verbose #8834 > > $'!date_time.AddDays' days
00:06:46 verbose #8835 > >
00:06:46 verbose #8836 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8837 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8838 > > │ ## now │
00:06:46 verbose #8839 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8840 > >
00:06:46 verbose #8841 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8842 > > inl now () : date_time =
00:06:46 verbose #8843 > > $'System.DateTime.Now'
00:06:46 verbose #8844 > >
00:06:46 verbose #8845 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8846 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8847 > > │ ## utc_now │
00:06:46 verbose #8848 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8849 > >
00:06:46 verbose #8850 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8851 > > inl utc_now () : date_time =
00:06:46 verbose #8852 > > $'System.DateTime.UtcNow'
00:06:46 verbose #8853 > >
00:06:46 verbose #8854 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8855 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8856 > > │ ## timestamp_guid │
00:06:46 verbose #8857 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8858 > >
00:06:46 verbose #8859 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8860 > > type timestamp_guid = guid.guid
00:06:46 verbose #8861 > >
00:06:46 verbose #8862 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8863 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8864 > > │ ## date_time_guid │
00:06:46 verbose #8865 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8866 > >
00:06:46 verbose #8867 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8868 > > type date_time_guid = guid.guid
00:06:46 verbose #8869 > >
00:06:46 verbose #8870 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8871 > > //// test
00:06:46 verbose #8872 > >
00:06:46 verbose #8873 > > inl test_guid () =
00:06:46 verbose #8874 > > guid.new_guid "FEDCBA98-7654-3210-FEDC-BA9876543210"
00:06:46 verbose #8875 > >
00:06:46 verbose #8876 > > ── markdown ────────────────────────────────────────────────────────────────────
00:06:46 verbose #8877 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:46 verbose #8878 > > │ ## date_time_guid_from_date_time │
00:06:46 verbose #8879 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:46 verbose #8880 > >
00:06:46 verbose #8881 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8882 > > let date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =
00:06:46 verbose #8883 > > inl parse prefix time_zone : date_time_guid =
00:06:46 verbose #8884 > > inl guid = guid |> sm'.obj_to_string
00:06:46 verbose #8885 > > $'`date_time_guid $"{!prefix}{!time_zone}{!guid.[[!prefix.Length +
00:06:46 verbose #8886 > > !time_zone.Length..]]}"'
00:06:46 verbose #8887 > > run_target function
00:06:46 verbose #8888 > > | Rust (Contract) => fun () => null ()
00:06:46 verbose #8889 > > | Rust (Native | Wasm) => fun () =>
00:06:46 verbose #8890 > > inl epoch =
00:06:46 verbose #8891 > > date_time_utc 1970 1 1 0 0 0
00:06:46 verbose #8892 > > |> to_universal_time
00:06:46 verbose #8893 > > inl date_time =
00:06:46 verbose #8894 > > date_time
00:06:46 verbose #8895 > > |> specify_date_kind Local
00:06:46 verbose #8896 > > |> to_universal_time
00:06:46 verbose #8897 > > inl unixticks =
00:06:46 verbose #8898 > > match date_time |> ticks, epoch |> ticks with
00:06:46 verbose #8899 > > | timestamp date_time, timestamp epoch => date_time - epoch
00:06:46 verbose #8900 > > inl prefix =
00:06:46 verbose #8901 > > unixticks / 10
00:06:46 verbose #8902 > > |> from_timestamp_micros
00:06:46 verbose #8903 > > |> optionm.map (
00:06:46 verbose #8904 > > to_local
00:06:46 verbose #8905 > > >> format'' "%Y%m%d-%H%M-%S%f"
00:06:46 verbose #8906 > > >> sm'.from_std_string
00:06:46 verbose #8907 > > >> fun s => $'$"{!s.[[0..17]]}-{!s.[[18..21]]}-{!s.[[22]]}"'
00:06:46 verbose #8908 > > )
00:06:46 verbose #8909 > > |> optionm'.default_value ""
00:06:46 verbose #8910 > > inl time_zone = date_time |> get_utc_offset (time_zone_local ())
00:06:46 verbose #8911 > > inl time_zone_signal = if hours time_zone > 0 then 1u8 else 0
00:06:46 verbose #8912 > > inl time_zone_value = time_zone |> time_span_format (join "hh:mm")
00:06:46 verbose #8913 > > inl time_zone =
00:06:46 verbose #8914 > > $'$"{!time_zone_signal}{!time_zone_value.[[0..1]]}{!time_zone_value.[[3..4]]}"'
00:06:46 verbose #8915 > > : string
00:06:46 verbose #8916 > > parse prefix time_zone
00:06:46 verbose #8917 > > | target => fun () =>
00:06:46 verbose #8918 > > inl prefix = date_time |> format (join "yyyyMMdd-HHmm-ssff-ffff-f")
00:06:46 verbose #8919 > > inl time_zone = date_time |> get_utc_offset (time_zone_local ())
00:06:46 verbose #8920 > > inl time_zone_signal = if hours time_zone > 0 then 1u8 else 0
00:06:46 verbose #8921 > > inl time_zone_value = time_zone |> time_span_format (join "hhmm")
00:06:46 verbose #8922 > > inl time_zone = $'$"{!time_zone_signal}{!time_zone_value}"' : string
00:06:46 verbose #8923 > > parse prefix time_zone
00:06:46 verbose #8924 > >
00:06:46 verbose #8925 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:46 verbose #8926 > > //// test
00:06:46 verbose #8927 > >
00:06:46 verbose #8928 > > types ()
00:06:46 verbose #8929 > > now () |> to_universal_time |> date_time_guid_from_date_time (test_guid ()) |>
00:06:46 verbose #8930 > > sm'.obj_to_string
00:06:46 verbose #8931 > > |> console.write_line
00:06:49 verbose #8932 > >
00:06:49 verbose #8933 > > ╭─[ 2.87s - stdout ]───────────────────────────────────────────────────────────╮
00:06:49 verbose #8934 > > │ 20240606-0305-0980-8050-800400543210 │
00:06:49 verbose #8935 > > │ │
00:06:49 verbose #8936 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 verbose #8937 > >
00:06:49 verbose #8938 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 verbose #8939 > > //// test
00:06:49 verbose #8940 > > ///! rust -d chrono
00:06:49 verbose #8941 > >
00:06:49 verbose #8942 > > types ()
00:06:49 verbose #8943 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:06:49 verbose #8944 > > - 6i32) (am'.End id)
00:06:49 verbose #8945 > > now ()
00:06:49 verbose #8946 > > |> to_universal_time
00:06:49 verbose #8947 > > |> date_time_guid_from_date_time (test_guid ())
00:06:49 verbose #8948 > > |> sm'.obj_to_string
00:06:49 verbose #8949 > > |> fun s => s |> _assert_eq' $'$"{!s.[[0..29]]}{!suffix}"'
00:06:55 verbose #8950 > >
00:06:55 verbose #8951 > > ╭─[ 5.81s - return value ]─────────────────────────────────────────────────────╮
00:06:55 verbose #8952 > > │ assert_eq' / actual: "20240606-0305-1539-4373-000000543210" / expected: │
00:06:55 verbose #8953 > > │ "20240606-0305-1539-4373-000000543210" │
00:06:55 verbose #8954 > > │ │
00:06:55 verbose #8955 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 verbose #8956 > >
00:06:55 verbose #8957 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 verbose #8958 > > //// test
00:06:55 verbose #8959 > >
00:06:55 verbose #8960 > > types ()
00:06:55 verbose #8961 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:06:55 verbose #8962 > > - 6i32) (am'.End id)
00:06:55 verbose #8963 > > min_value ()
00:06:55 verbose #8964 > > |> specify_date_kind Local
00:06:55 verbose #8965 > > |> date_time_guid_from_date_time (test_guid ())
00:06:55 verbose #8966 > > |> sm'.obj_to_string
00:06:55 verbose #8967 > > |> fun s => s |> _assert_eq'
00:06:55 verbose #8968 > > $'$"00010101-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:06:56 verbose #8969 > >
00:06:56 verbose #8970 > > ╭─[ 965.17ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 verbose #8971 > > │ assert_eq' / actual: "00010101-0000-0000-0000-000400543210" / expected: │
00:06:56 verbose #8972 > > │ "00010101-0000-0000-0000-000400543210" │
00:06:56 verbose #8973 > > │ │
00:06:56 verbose #8974 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 verbose #8975 > >
00:06:56 verbose #8976 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 verbose #8977 > > //// test
00:06:56 verbose #8978 > > ///! rust -d chrono
00:06:56 verbose #8979 > >
00:06:56 verbose #8980 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:06:56 verbose #8981 > > - 6i32) (am'.End id)
00:06:56 verbose #8982 > > types ()
00:06:56 verbose #8983 > > min_value ()
00:06:56 verbose #8984 > > |> specify_date_kind Local
00:06:56 verbose #8985 > > |> date_time_guid_from_date_time (test_guid ())
00:06:56 verbose #8986 > > |> sm'.obj_to_string
00:06:56 verbose #8987 > > |> fun s => s |> _assert_eq'
00:06:56 verbose #8988 > > $'$"00010101-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:07:00 verbose #8989 > >
00:07:00 verbose #8990 > > ╭─[ 4.14s - return value ]─────────────────────────────────────────────────────╮
00:07:00 verbose #8991 > > │ assert_eq' / actual: "00010101-0000-0000-0000-000000543210" / expected: │
00:07:00 verbose #8992 > > │ "00010101-0000-0000-0000-000000543210" │
00:07:00 verbose #8993 > > │ │
00:07:00 verbose #8994 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:00 verbose #8995 > >
00:07:00 verbose #8996 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:00 verbose #8997 > > //// test
00:07:00 verbose #8998 > >
00:07:00 verbose #8999 > > types ()
00:07:00 verbose #9000 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:07:00 verbose #9001 > > - 6i32) (am'.End id)
00:07:00 verbose #9002 > > max_value ()
00:07:00 verbose #9003 > > |> specify_date_kind Utc
00:07:00 verbose #9004 > > |> add_days -1
00:07:00 verbose #9005 > > |> date_time_guid_from_date_time (test_guid ())
00:07:00 verbose #9006 > > |> sm'.obj_to_string
00:07:00 verbose #9007 > > |> fun s => s |> _assert_eq
00:07:00 verbose #9008 > > $'$"99991230-2359-5999-9999-9{!s.[[25..29]]}{!suffix}"'
00:07:01 verbose #9009 > >
00:07:01 verbose #9010 > > ╭─[ 449.30ms - stdout ]────────────────────────────────────────────────────────╮
00:07:01 verbose #9011 > > │ assert_eq / actual: "99991230-2359-5999-9999-900400543210" / expected: │
00:07:01 verbose #9012 > > │ "99991230-2359-5999-9999-900400543210" │
00:07:01 verbose #9013 > > │ │
00:07:01 verbose #9014 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 verbose #9015 > >
00:07:01 verbose #9016 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:01 verbose #9017 > > //// test
00:07:01 verbose #9018 > > ///! rust -d chrono
00:07:01 verbose #9019 > >
00:07:01 verbose #9020 > > types ()
00:07:01 verbose #9021 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:07:01 verbose #9022 > > - 6i32) (am'.End id)
00:07:01 verbose #9023 > > max_value ()
00:07:01 verbose #9024 > > |> specify_date_kind Utc
00:07:01 verbose #9025 > > |> add_days -1
00:07:01 verbose #9026 > > |> date_time_guid_from_date_time (test_guid ())
00:07:01 verbose #9027 > > |> sm'.obj_to_string
00:07:01 verbose #9028 > > |> fun s => s |> _assert_eq
00:07:01 verbose #9029 > > $'$"99991230-2359-5999-9999-0{!s.[[25..29]]}{!suffix}"'
00:07:07 verbose #9030 > >
00:07:07 verbose #9031 > > ╭─[ 6.14s - return value ]─────────────────────────────────────────────────────╮
00:07:07 verbose #9032 > > │ assert_eq / actual: "99991230-2359-5999-9999-000000543210" / expected: │
00:07:07 verbose #9033 > > │ "99991230-2359-5999-9999-000000543210" │
00:07:07 verbose #9034 > > │ │
00:07:07 verbose #9035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:07 verbose #9036 > >
00:07:07 verbose #9037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:07 verbose #9038 > > //// test
00:07:07 verbose #9039 > >
00:07:07 verbose #9040 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:07:07 verbose #9041 > > - 6i32) (am'.End id)
00:07:07 verbose #9042 > > unix_epoch ()
00:07:07 verbose #9043 > > |> specify_date_kind Utc
00:07:07 verbose #9044 > > |> add_days 1
00:07:07 verbose #9045 > > |> date_time_guid_from_date_time (test_guid ())
00:07:07 verbose #9046 > > |> sm'.obj_to_string
00:07:07 verbose #9047 > > |> fun s => s |> _assert_eq
00:07:07 verbose #9048 > > $'$"19700102-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:07:07 verbose #9049 > >
00:07:07 verbose #9050 > > ╭─[ 190.25ms - stdout ]────────────────────────────────────────────────────────╮
00:07:07 verbose #9051 > > │ assert_eq / actual: "19700102-0000-0000-0000-000400543210" / expected: │
00:07:07 verbose #9052 > > │ "19700102-0000-0000-0000-000400543210" │
00:07:07 verbose #9053 > > │ │
00:07:07 verbose #9054 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:07 verbose #9055 > >
00:07:07 verbose #9056 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:07 verbose #9057 > > //// test
00:07:07 verbose #9058 > > ///! rust -d chrono
00:07:07 verbose #9059 > >
00:07:07 verbose #9060 > > types ()
00:07:07 verbose #9061 > > inl suffix = test_guid () |> sm'.obj_to_string |> sm'.range (am'.End fun x => x
00:07:07 verbose #9062 > > - 6i32) (am'.End id)
00:07:07 verbose #9063 > > unix_epoch ()
00:07:07 verbose #9064 > > |> specify_date_kind Utc
00:07:07 verbose #9065 > > |> add_days 1
00:07:07 verbose #9066 > > |> date_time_guid_from_date_time (test_guid ())
00:07:07 verbose #9067 > > |> sm'.obj_to_string
00:07:07 verbose #9068 > > |> fun s => s |> _assert_eq
00:07:07 verbose #9069 > > $'$"19700102-0000-0000-0000-0{!s.[[25..29]]}{!suffix}"'
00:07:12 verbose #9070 > >
00:07:12 verbose #9071 > > ╭─[ 4.85s - return value ]─────────────────────────────────────────────────────╮
00:07:12 verbose #9072 > > │ assert_eq / actual: "19700102-0000-0000-0000-000000543210" / expected: │
00:07:12 verbose #9073 > > │ "19700102-0000-0000-0000-000000543210" │
00:07:12 verbose #9074 > > │ │
00:07:12 verbose #9075 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9076 > >
00:07:12 verbose #9077 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:12 verbose #9078 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:12 verbose #9079 > > │ ## date_time_from_guid │
00:07:12 verbose #9080 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9081 > >
00:07:12 verbose #9082 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9083 > > inl date_time_from_guid (date_time_guid : date_time_guid) =
00:07:12 verbose #9084 > > inl date_time_guid = date_time_guid |> sm'.obj_to_string
00:07:12 verbose #9085 > > inl sm'_replace = join sm'.replace
00:07:12 verbose #9086 > > run_target function
00:07:12 verbose #9087 > > | (Rust _ | TypeScript _) => fun () =>
00:07:12 verbose #9088 > > $'System.DateTime.Parse (!date_time_guid.[[..24]] |> !sm'_replace
00:07:12 verbose #9089 > > "-" "")' : date_time
00:07:12 verbose #9090 > > | _ => fun () => $'System.DateTime.ParseExact (!date_time_guid.[[..24]]
00:07:12 verbose #9091 > > |> !sm'_replace "-" "", "yyyyMMddHHmmssfffffff", null)' : date_time
00:07:12 verbose #9092 > >
00:07:12 verbose #9093 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9094 > > //// test
00:07:12 verbose #9095 > >
00:07:12 verbose #9096 > > date_time_from_guid (guid.new_guid "00010101-0000-0000-0000-0a9876543210")
00:07:12 verbose #9097 > > |> _assert_eq' (min_value ())
00:07:12 verbose #9098 > >
00:07:12 verbose #9099 > > ╭─[ 89.19ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:12 verbose #9100 > > │ assert_eq' / actual: 0001-01-01 12:00:00 AM / expected: 0001-01-01 12:00:00 │
00:07:12 verbose #9101 > > │ AM │
00:07:12 verbose #9102 > > │ │
00:07:12 verbose #9103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9104 > >
00:07:12 verbose #9105 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9106 > > //// test
00:07:12 verbose #9107 > >
00:07:12 verbose #9108 > > date_time_from_guid (guid.new_guid $'$"99991231-2359-5999-9999-9{(!test_guid ()
00:07:12 verbose #9109 > > |> string).[[^10..]]}"')
00:07:12 verbose #9110 > > |> _assert_eq' (max_value ())
00:07:12 verbose #9111 > >
00:07:12 verbose #9112 > > ╭─[ 89.15ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:12 verbose #9113 > > │ assert_eq' / actual: 9999-12-31 11:59:59 PM / expected: 9999-12-31 11:59:59 │
00:07:12 verbose #9114 > > │ PM │
00:07:12 verbose #9115 > > │ │
00:07:12 verbose #9116 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9117 > >
00:07:12 verbose #9118 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9119 > > //// test
00:07:12 verbose #9120 > >
00:07:12 verbose #9121 > > date_time_from_guid (guid.new_guid $'$"19700101-0000-0000-0000-0{(!test_guid ()
00:07:12 verbose #9122 > > |> string).[[^10..]]}"')
00:07:12 verbose #9123 > > |> _assert_eq' $'System.DateTime.UnixEpoch'
00:07:12 verbose #9124 > >
00:07:12 verbose #9125 > > ╭─[ 120.15ms - stdout ]────────────────────────────────────────────────────────╮
00:07:12 verbose #9126 > > │ assert_eq' / actual: 1970-01-01 12:00:00 AM / expected: 1970-01-01 12:00:00 │
00:07:12 verbose #9127 > > │ AM │
00:07:12 verbose #9128 > > │ │
00:07:12 verbose #9129 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9130 > >
00:07:12 verbose #9131 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:12 verbose #9132 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:12 verbose #9133 > > │ ## timestamp_guid_from_timestamp │
00:07:12 verbose #9134 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9135 > >
00:07:12 verbose #9136 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9137 > > inl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) :
00:07:12 verbose #9138 > > timestamp_guid =
00:07:12 verbose #9139 > > inl guid = guid |> sm'.obj_to_string
00:07:12 verbose #9140 > > inl timestamp = timestamp |> sm'.obj_to_string |> sm'.pad_left 18i32 '0'
00:07:12 verbose #9141 > > $'`timestamp_guid
00:07:12 verbose #9142 > > $"{!timestamp.[[0..7]]}-{!timestamp.[[8..11]]}-{!timestamp.[[12..15]]}-{!timesta
00:07:12 verbose #9143 > > mp.[[16..17]]}{!guid.[[21..]]}"'
00:07:12 verbose #9144 > >
00:07:12 verbose #9145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9146 > > //// test
00:07:12 verbose #9147 > >
00:07:12 verbose #9148 > > timestamp_guid_from_timestamp (test_guid ()) (timestamp 0i64)
00:07:12 verbose #9149 > > |> _assert_eq' (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:07:12 verbose #9150 > >
00:07:12 verbose #9151 > > ╭─[ 109.92ms - stdout ]────────────────────────────────────────────────────────╮
00:07:12 verbose #9152 > > │ assert_eq' / actual: 00000000-0000-0000-00dc-ba9876543210 / expected: │
00:07:12 verbose #9153 > > │ 00000000-0000-0000-00dc-ba9876543210 │
00:07:12 verbose #9154 > > │ │
00:07:12 verbose #9155 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9156 > >
00:07:12 verbose #9157 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9158 > > //// test
00:07:12 verbose #9159 > >
00:07:12 verbose #9160 > > timestamp_guid_from_timestamp (test_guid ()) (timestamp 999999999999999999i64)
00:07:12 verbose #9161 > > |> _assert_eq' (guid.new_guid $'$"99999999-9999-9999-99dc-b{(!test_guid () |>
00:07:12 verbose #9162 > > string).[[^10..]]}"')
00:07:12 verbose #9163 > >
00:07:12 verbose #9164 > > ╭─[ 89.76ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:12 verbose #9165 > > │ assert_eq' / actual: 99999999-9999-9999-99dc-ba9876543210 / expected: │
00:07:12 verbose #9166 > > │ 99999999-9999-9999-99dc-ba9876543210 │
00:07:12 verbose #9167 > > │ │
00:07:12 verbose #9168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9169 > >
00:07:12 verbose #9170 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:12 verbose #9171 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:12 verbose #9172 > > │ ## timestamp_from_guid │
00:07:12 verbose #9173 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9174 > >
00:07:12 verbose #9175 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9176 > > inl timestamp_from_guid (guid : date_time_guid) : timestamp =
00:07:12 verbose #9177 > > inl guid = guid |> sm'.obj_to_string
00:07:12 verbose #9178 > > $'`i64
00:07:12 verbose #9179 > > $"{!guid.[[0..7]]}{!guid.[[9..12]]}{!guid.[[14..17]]}{!guid.[[19..20]]}"'
00:07:12 verbose #9180 > >
00:07:12 verbose #9181 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9182 > > //// test
00:07:12 verbose #9183 > >
00:07:12 verbose #9184 > > timestamp_from_guid (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:07:12 verbose #9185 > > |> _assert_eq (timestamp 0)
00:07:12 verbose #9186 > >
00:07:12 verbose #9187 > > ╭─[ 85.81ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:12 verbose #9188 > > │ assert_eq / actual: 0L / expected: 0L │
00:07:12 verbose #9189 > > │ │
00:07:12 verbose #9190 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:12 verbose #9191 > >
00:07:12 verbose #9192 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:12 verbose #9193 > > //// test
00:07:12 verbose #9194 > >
00:07:12 verbose #9195 > > timestamp_from_guid (guid.new_guid $'$"99999999-9999-9999-99{(!test_guid () |>
00:07:12 verbose #9196 > > string).[[^14..]]}"')
00:07:12 verbose #9197 > > |> _assert_eq (timestamp 999999999999999999)
00:07:13 verbose #9198 > >
00:07:13 verbose #9199 > > ╭─[ 92.48ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:13 verbose #9200 > > │ assert_eq / actual: 999999999999999999L / expected: 999999999999999999L │
00:07:13 verbose #9201 > > │ │
00:07:13 verbose #9202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 verbose #9203 > >
00:07:13 verbose #9204 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:13 verbose #9205 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:13 verbose #9206 > > │ ## new_guid_from_date_time │
00:07:13 verbose #9207 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 verbose #9208 > >
00:07:13 verbose #9209 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:13 verbose #9210 > > inl new_guid_from_date_time (date_time : date_time) =
00:07:13 verbose #9211 > > inl guid = guid.new_raw_guid ()
00:07:13 verbose #9212 > > date_time_guid_from_date_time guid date_time
00:07:13 verbose #9213 > >
00:07:13 verbose #9214 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:13 verbose #9215 > > //// test
00:07:13 verbose #9216 > >
00:07:13 verbose #9217 > > utc_now ()
00:07:13 verbose #9218 > > |> new_guid_from_date_time
00:07:13 verbose #9219 > > |> date_time_from_guid
00:07:13 verbose #9220 > > |> fun date_time => new_time_span date_time (utc_now ()) |> total_seconds |> i32
00:07:13 verbose #9221 > > |> _assert_eq 0
00:07:13 verbose #9222 > >
00:07:13 verbose #9223 > > ╭─[ 323.12ms - stdout ]────────────────────────────────────────────────────────╮
00:07:13 verbose #9224 > > │ assert_eq / actual: 0 / expected: 0 │
00:07:13 verbose #9225 > > │ │
00:07:13 verbose #9226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 verbose #9227 > >
00:07:13 verbose #9228 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:13 verbose #9229 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:13 verbose #9230 > > │ ## new_guid_from_timestamp │
00:07:13 verbose #9231 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 verbose #9232 > >
00:07:13 verbose #9233 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:13 verbose #9234 > > inl new_guid_from_timestamp (timestamp : timestamp) =
00:07:13 verbose #9235 > > inl guid = guid.new_raw_guid ()
00:07:13 verbose #9236 > > timestamp_guid_from_timestamp guid timestamp
00:07:13 verbose #9237 > >
00:07:13 verbose #9238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:13 verbose #9239 > > //// test
00:07:13 verbose #9240 > >
00:07:13 verbose #9241 > > utc_now ()
00:07:13 verbose #9242 > > |> ticks
00:07:13 verbose #9243 > > |> new_guid_from_timestamp
00:07:13 verbose #9244 > > |> timestamp_from_guid
00:07:13 verbose #9245 > > |> fun (timestamp timestamp) => (timestamp - (utc_now () |> ticks |> fun
00:07:13 verbose #9246 > > (timestamp x) => x)) / 100000i64
00:07:13 verbose #9247 > > |> _assert_eq 0i64
00:07:13 verbose #9248 > >
00:07:13 verbose #9249 > > ╭─[ 91.80ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:13 verbose #9250 > > │ assert_eq / actual: 0L / expected: 0L │
00:07:13 verbose #9251 > > │ │
00:07:13 verbose #9252 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 verbose #9253 > >
00:07:13 verbose #9254 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:13 verbose #9255 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:13 verbose #9256 > > │ ## main │
00:07:13 verbose #9257 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:13 verbose #9258 > >
00:07:13 verbose #9259 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:13 verbose #9260 > > inl main () =
00:07:13 verbose #9261 > > types ()
00:07:13 verbose #9262 > > $'let date_time_guid_from_date_time x = !date_time_guid_from_date_time x' :
00:07:13 verbose #9263 > > ()
00:07:13 verbose #9264 > > $'let date_time_from_guid x = !date_time_from_guid x' : ()
00:07:13 verbose #9265 > > $'let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x' :
00:07:13 verbose #9266 > > ()
00:07:13 verbose #9267 > > $'let timestamp_from_guid x = !timestamp_from_guid x' : ()
00:07:13 verbose #9268 > > $'let new_guid_from_date_time x = !new_guid_from_date_time x' : ()
00:07:13 verbose #9269 > > $'let new_guid_from_timestamp x = !new_guid_from_timestamp x' : ()
00:07:13 verbose #9270 > > $'let format x = !format x' : ()
00:07:13 verbose #9271 > > $'let format_iso8601 x = !format_iso8601 x' : ()
00:07:14 verbose #9272 > 00:00:40 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 39660
00:07:14 verbose #9273 > 00:00:40 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:07:16 verbose #9274 > 00:00:42 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/date_time.dib.ipynb to html
00:07:16 verbose #9275 > 00:00:42 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:16 verbose #9276 > 00:00:42 verbose #7 ! validate(nb)
00:07:18 verbose #9277 > 00:00:45 verbose #8 ! [NbConvertApp] Writing 389612 bytes to c:\home\git\polyglot\lib\spiral\date_time.dib.html
00:07:19 verbose #9278 > 00:00:45 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:07:19 verbose #9279 > 00:00:45 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:07:19 verbose #9280 > 00:00:45 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/date_time.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/date_time.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:07:20 verbose #9281 > 00:00:46 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:07:20 verbose #9282 > 00:00:46 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:07:20 verbose #9283 > 00:00:47 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 40368
00:07:20 debug #9284 runtime.execute_with_options_async / exit_code: 0 / output.Length: 44294
00:07:20 debug #15 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path date_time.dib --retries 3
00:07:20 debug #9285 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 3",
[||], None, None, true, None)
00:07:20 verbose #9286 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "math.dib", "--retries", "3"])
00:07:20 verbose #9287 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/math.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/math.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/math.dib" --output-path "c:/home/git/polyglot/lib/spiral/math.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:07:23 verbose #9288 > >
00:07:23 verbose #9289 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:23 verbose #9290 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:23 verbose #9291 > > │ # math │
00:07:23 verbose #9292 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:23 verbose #9293 > >
00:07:23 verbose #9294 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:23 verbose #9295 > > //// test
00:07:23 verbose #9296 > >
00:07:23 verbose #9297 > > open testing
00:07:23 verbose #9298 > >
00:07:23 verbose #9299 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:07:23 verbose #9300 > > #r
00:07:23 verbose #9301 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:23 verbose #9302 > > otNet.Interactive.Spiral.dll"
00:07:23 verbose #9303 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:07:23 verbose #9304 > > #r
00:07:23 verbose #9305 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:23 verbose #9306 > > otNet.Interactive.dll"
00:07:23 verbose #9307 > > open type Microsoft.DotNet.Interactive.Kernel
00:07:31 verbose #9308 > >
00:07:31 verbose #9309 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 verbose #9310 > > //// test
00:07:31 verbose #9311 > >
00:07:31 verbose #9312 > > 2 * 2 / 0.4f64 |> sqrt
00:07:31 verbose #9313 > > |> _assert_approx_eq None 3.1622776601683795
00:07:32 verbose #9314 > >
00:07:32 verbose #9315 > > ╭─[ 573.94ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 verbose #9316 > > │ assert_approx_eq / actual: 3.16227766 / expected: 3.16227766 │
00:07:32 verbose #9317 > > │ │
00:07:32 verbose #9318 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9319 > >
00:07:32 verbose #9320 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9321 > > //// test
00:07:32 verbose #9322 > >
00:07:32 verbose #9323 > > 2f64 / 3
00:07:32 verbose #9324 > > |> _assert_approx_eq None 0.6666666666666666
00:07:32 verbose #9325 > >
00:07:32 verbose #9326 > > ╭─[ 45.83ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:32 verbose #9327 > > │ assert_approx_eq / actual: 0.6666666667 / expected: 0.6666666667 │
00:07:32 verbose #9328 > > │ │
00:07:32 verbose #9329 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9330 > >
00:07:32 verbose #9331 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9332 > > //// test
00:07:32 verbose #9333 > >
00:07:32 verbose #9334 > > 2f64 |> log
00:07:32 verbose #9335 > > |> _assert_approx_eq None 0.6931471805599453
00:07:32 verbose #9336 > >
00:07:32 verbose #9337 > > ╭─[ 90.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:32 verbose #9338 > > │ assert_approx_eq / actual: 0.6931471806 / expected: 0.6931471806 │
00:07:32 verbose #9339 > > │ │
00:07:32 verbose #9340 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9341 > >
00:07:32 verbose #9342 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9343 > > //// test
00:07:32 verbose #9344 > >
00:07:32 verbose #9345 > > pi
00:07:32 verbose #9346 > > |> _assert_approx_eq None 3.141592653589793f64
00:07:32 verbose #9347 > >
00:07:32 verbose #9348 > > ╭─[ 42.52ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:32 verbose #9349 > > │ assert_approx_eq / actual: 3.141592654 / expected: 3.141592654 │
00:07:32 verbose #9350 > > │ │
00:07:32 verbose #9351 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9352 > >
00:07:32 verbose #9353 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9354 > > //// test
00:07:32 verbose #9355 > >
00:07:32 verbose #9356 > > pi |> cos
00:07:32 verbose #9357 > > |> _assert_eq -1f64
00:07:32 verbose #9358 > >
00:07:32 verbose #9359 > > ╭─[ 45.85ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:32 verbose #9360 > > │ assert_eq / actual: -1.0 / expected: -1.0 │
00:07:32 verbose #9361 > > │ │
00:07:32 verbose #9362 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9363 > >
00:07:32 verbose #9364 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9365 > > //// test
00:07:32 verbose #9366 > >
00:07:32 verbose #9367 > > pi
00:07:32 verbose #9368 > > |> cos
00:07:32 verbose #9369 > > |> fun n => n / 2f64
00:07:32 verbose #9370 > > |> _assert_approx_eq None -0.5
00:07:32 verbose #9371 > >
00:07:32 verbose #9372 > > ╭─[ 61.53ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:32 verbose #9373 > > │ assert_approx_eq / actual: -0.5 / expected: -0.5 │
00:07:32 verbose #9374 > > │ │
00:07:32 verbose #9375 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9376 > >
00:07:32 verbose #9377 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9378 > > //// test
00:07:32 verbose #9379 > >
00:07:32 verbose #9380 > > pi / 2 |> cos
00:07:32 verbose #9381 > > |> _assert_approx_eq None 0.00000000000000006123233995736766f64
00:07:32 verbose #9382 > >
00:07:32 verbose #9383 > > ╭─[ 54.62ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:32 verbose #9384 > > │ assert_approx_eq / actual: 6.123233996e-17 / expected: 6.123233996e-17 │
00:07:32 verbose #9385 > > │ │
00:07:32 verbose #9386 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9387 > >
00:07:32 verbose #9388 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 verbose #9389 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 verbose #9390 > > │ ## atan2 │
00:07:32 verbose #9391 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 verbose #9392 > >
00:07:32 verbose #9393 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9394 > > inl atan2 (y : f64) (x : f64) : f64 =
00:07:32 verbose #9395 > > $'System.Math.Atan2 (!y, !x)'
00:07:32 verbose #9396 > >
00:07:32 verbose #9397 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 verbose #9398 > > //// test
00:07:32 verbose #9399 > >
00:07:32 verbose #9400 > > 0 |> atan2 1
00:07:32 verbose #9401 > > |> _assert_eq 1.5707963267948966
00:07:33 verbose #9402 > >
00:07:33 verbose #9403 > > ╭─[ 166.17ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 verbose #9404 > > │ assert_eq / actual: 1.570796327 / expected: 1.570796327 │
00:07:33 verbose #9405 > > │ │
00:07:33 verbose #9406 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9407 > >
00:07:33 verbose #9408 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9409 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9410 > > │ ## e │
00:07:33 verbose #9411 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9412 > >
00:07:33 verbose #9413 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9414 > > inl e () =
00:07:33 verbose #9415 > > exp 1f64
00:07:33 verbose #9416 > >
00:07:33 verbose #9417 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9418 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9419 > > │ ## floor │
00:07:33 verbose #9420 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9421 > >
00:07:33 verbose #9422 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9423 > > inl floor forall t {float}. (n : t) : t =
00:07:33 verbose #9424 > > n |> $'floor'
00:07:33 verbose #9425 > >
00:07:33 verbose #9426 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9427 > > //// test
00:07:33 verbose #9428 > >
00:07:33 verbose #9429 > > 0.6 |> floor
00:07:33 verbose #9430 > > |> _assert_eq 0f64
00:07:33 verbose #9431 > >
00:07:33 verbose #9432 > > ╭─[ 89.02ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9433 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:07:33 verbose #9434 > > │ │
00:07:33 verbose #9435 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9436 > >
00:07:33 verbose #9437 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9438 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9439 > > │ ## ceil │
00:07:33 verbose #9440 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9441 > >
00:07:33 verbose #9442 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9443 > > inl ceil forall t {float}. (n : t) : t =
00:07:33 verbose #9444 > > n |> $'ceil'
00:07:33 verbose #9445 > >
00:07:33 verbose #9446 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9447 > > //// test
00:07:33 verbose #9448 > >
00:07:33 verbose #9449 > > 0.6 |> ceil
00:07:33 verbose #9450 > > |> _assert_eq 1f64
00:07:33 verbose #9451 > >
00:07:33 verbose #9452 > > ╭─[ 39.39ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9453 > > │ assert_eq / actual: 1.0 / expected: 1.0 │
00:07:33 verbose #9454 > > │ │
00:07:33 verbose #9455 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9456 > >
00:07:33 verbose #9457 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9458 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9459 > > │ ## round │
00:07:33 verbose #9460 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9461 > >
00:07:33 verbose #9462 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9463 > > inl round forall t {float}. (n : t) : t =
00:07:33 verbose #9464 > > n |> $'round'
00:07:33 verbose #9465 > >
00:07:33 verbose #9466 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9467 > > //// test
00:07:33 verbose #9468 > >
00:07:33 verbose #9469 > > 0.5 |> round
00:07:33 verbose #9470 > > |> _assert_eq 0f64
00:07:33 verbose #9471 > >
00:07:33 verbose #9472 > > 1.5 |> round
00:07:33 verbose #9473 > > |> _assert_eq 2f64
00:07:33 verbose #9474 > >
00:07:33 verbose #9475 > > 2.5 |> round
00:07:33 verbose #9476 > > |> _assert_eq 2f64
00:07:33 verbose #9477 > >
00:07:33 verbose #9478 > > 3.5 |> round
00:07:33 verbose #9479 > > |> _assert_eq 4f64
00:07:33 verbose #9480 > >
00:07:33 verbose #9481 > > ╭─[ 76.22ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9482 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:07:33 verbose #9483 > > │ assert_eq / actual: 2.0 / expected: 2.0 │
00:07:33 verbose #9484 > > │ assert_eq / actual: 2.0 / expected: 2.0 │
00:07:33 verbose #9485 > > │ assert_eq / actual: 4.0 / expected: 4.0 │
00:07:33 verbose #9486 > > │ │
00:07:33 verbose #9487 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9488 > >
00:07:33 verbose #9489 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9490 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9491 > > │ ## log_base │
00:07:33 verbose #9492 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9493 > >
00:07:33 verbose #9494 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9495 > > inl log_base (new_base : f64) (a : f64) : f64 =
00:07:33 verbose #9496 > > $'System.Math.Log (!a, !new_base)'
00:07:33 verbose #9497 > >
00:07:33 verbose #9498 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9499 > > //// test
00:07:33 verbose #9500 > >
00:07:33 verbose #9501 > > 100 |> log_base 10
00:07:33 verbose #9502 > > |> _assert_eq 2
00:07:33 verbose #9503 > >
00:07:33 verbose #9504 > > ╭─[ 40.67ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9505 > > │ assert_eq / actual: 2.0 / expected: 2.0 │
00:07:33 verbose #9506 > > │ │
00:07:33 verbose #9507 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9508 > >
00:07:33 verbose #9509 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9510 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9511 > > │ ## round │
00:07:33 verbose #9512 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9513 > >
00:07:33 verbose #9514 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9515 > > inl round forall t {float}. (x : t) : t =
00:07:33 verbose #9516 > > x |> $'round'
00:07:33 verbose #9517 > >
00:07:33 verbose #9518 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9519 > > //// test
00:07:33 verbose #9520 > >
00:07:33 verbose #9521 > > 0.5 |> round
00:07:33 verbose #9522 > > |> _assert_eq 0f64
00:07:33 verbose #9523 > >
00:07:33 verbose #9524 > > ╭─[ 36.10ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9525 > > │ assert_eq / actual: 0.0 / expected: 0.0 │
00:07:33 verbose #9526 > > │ │
00:07:33 verbose #9527 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9528 > >
00:07:33 verbose #9529 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9530 > > //// test
00:07:33 verbose #9531 > >
00:07:33 verbose #9532 > > 0.6 |> round
00:07:33 verbose #9533 > > |> _assert_eq 1f64
00:07:33 verbose #9534 > >
00:07:33 verbose #9535 > > ╭─[ 44.33ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9536 > > │ assert_eq / actual: 1.0 / expected: 1.0 │
00:07:33 verbose #9537 > > │ │
00:07:33 verbose #9538 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9539 > >
00:07:33 verbose #9540 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 verbose #9541 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 verbose #9542 > > │ ## square │
00:07:33 verbose #9543 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9544 > >
00:07:33 verbose #9545 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9546 > > inl square x =
00:07:33 verbose #9547 > > x ** 2
00:07:33 verbose #9548 > >
00:07:33 verbose #9549 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9550 > > //// test
00:07:33 verbose #9551 > >
00:07:33 verbose #9552 > > 5f64
00:07:33 verbose #9553 > > |> sqrt
00:07:33 verbose #9554 > > |> square
00:07:33 verbose #9555 > > |> _assert_approx_eq None 5
00:07:33 verbose #9556 > >
00:07:33 verbose #9557 > > ╭─[ 35.11ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9558 > > │ assert_approx_eq / actual: 5.0 / expected: 5.0 │
00:07:33 verbose #9559 > > │ │
00:07:33 verbose #9560 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9561 > >
00:07:33 verbose #9562 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 verbose #9563 > > //// test
00:07:33 verbose #9564 > >
00:07:33 verbose #9565 > > e () |> square
00:07:33 verbose #9566 > > |> _assert_approx_eq None 7.3890560989306495
00:07:33 verbose #9567 > >
00:07:33 verbose #9568 > > ╭─[ 31.76ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:33 verbose #9569 > > │ assert_approx_eq / actual: 7.389056099 / expected: 7.389056099 │
00:07:33 verbose #9570 > > │ │
00:07:33 verbose #9571 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 verbose #9572 > 00:00:13 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 12325
00:07:33 verbose #9573 > 00:00:13 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/math.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/math.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:07:36 verbose #9574 > 00:00:15 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/math.dib.ipynb to html
00:07:36 verbose #9575 > 00:00:15 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:36 verbose #9576 > 00:00:15 verbose #7 ! validate(nb)
00:07:37 verbose #9577 > 00:00:17 verbose #8 ! [NbConvertApp] Writing 303804 bytes to c:\home\git\polyglot\lib\spiral\math.dib.html
00:07:38 verbose #9578 > 00:00:17 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:07:38 verbose #9579 > 00:00:17 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:07:38 verbose #9580 > 00:00:17 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/math.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:07:39 verbose #9581 > 00:00:18 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:07:39 verbose #9582 > 00:00:18 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:07:40 verbose #9583 > 00:00:19 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 13023
00:07:40 debug #9584 runtime.execute_with_options_async / exit_code: 0 / output.Length: 15830
00:07:40 debug #16 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path math.dib --retries 3
00:07:40 debug #9585 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path optionm'.dib --retries 3",
[||], None, None, true, None)
00:07:40 verbose #9586 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "optionm'.dib", "--retries", "3"])
00:07:40 verbose #9587 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/optionm'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/optionm'.dib" --output-path "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:07:44 verbose #9588 > >
00:07:44 verbose #9589 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:44 verbose #9590 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:44 verbose #9591 > > │ # optionm │
00:07:44 verbose #9592 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:44 verbose #9593 > >
00:07:44 verbose #9594 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:44 verbose #9595 > > //// test
00:07:44 verbose #9596 > >
00:07:44 verbose #9597 > > open testing
00:07:44 verbose #9598 > >
00:07:44 verbose #9599 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:07:44 verbose #9600 > > #r
00:07:44 verbose #9601 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:44 verbose #9602 > > otNet.Interactive.Spiral.dll"
00:07:44 verbose #9603 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:07:44 verbose #9604 > > #r
00:07:44 verbose #9605 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:07:44 verbose #9606 > > otNet.Interactive.dll"
00:07:44 verbose #9607 > > open type Microsoft.DotNet.Interactive.Kernel
00:07:50 verbose #9608 > >
00:07:50 verbose #9609 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 verbose #9610 > > open rust_operators
00:07:50 verbose #9611 > >
00:07:50 verbose #9612 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:50 verbose #9613 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:50 verbose #9614 > > │ ## default_value │
00:07:50 verbose #9615 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 verbose #9616 > >
00:07:50 verbose #9617 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 verbose #9618 > > inl default_value d =
00:07:50 verbose #9619 > > optionm.defaultWith d
00:07:50 verbose #9620 > >
00:07:50 verbose #9621 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 verbose #9622 > > //// test
00:07:50 verbose #9623 > >
00:07:50 verbose #9624 > > None
00:07:50 verbose #9625 > > |> default_value 3i32
00:07:50 verbose #9626 > > |> _assert_eq 3i32
00:07:51 verbose #9627 > >
00:07:51 verbose #9628 > > ╭─[ 788.29ms - stdout ]────────────────────────────────────────────────────────╮
00:07:51 verbose #9629 > > │ assert_eq / actual: 3 / expected: 3 │
00:07:51 verbose #9630 > > │ │
00:07:51 verbose #9631 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 verbose #9632 > >
00:07:51 verbose #9633 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:51 verbose #9634 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:51 verbose #9635 > > │ ## (/??) │
00:07:51 verbose #9636 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 verbose #9637 > >
00:07:51 verbose #9638 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 verbose #9639 > > inl (/??) a b =
00:07:51 verbose #9640 > > a |> default_value b
00:07:51 verbose #9641 > >
00:07:51 verbose #9642 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 verbose #9643 > > //// test
00:07:51 verbose #9644 > >
00:07:51 verbose #9645 > > None /?? 3i32
00:07:51 verbose #9646 > > |> _assert_eq 3i32
00:07:51 verbose #9647 > >
00:07:51 verbose #9648 > > ╭─[ 33.75ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:51 verbose #9649 > > │ assert_eq / actual: 3 / expected: 3 │
00:07:51 verbose #9650 > > │ │
00:07:51 verbose #9651 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 verbose #9652 > >
00:07:51 verbose #9653 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:51 verbose #9654 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:51 verbose #9655 > > │ ## default_with │
00:07:51 verbose #9656 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 verbose #9657 > >
00:07:51 verbose #9658 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 verbose #9659 > > inl default_with fn = function
00:07:51 verbose #9660 > > | Some x => x
00:07:51 verbose #9661 > > | None => fn ()
00:07:51 verbose #9662 > >
00:07:51 verbose #9663 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 verbose #9664 > > //// test
00:07:51 verbose #9665 > >
00:07:51 verbose #9666 > > None
00:07:51 verbose #9667 > > |> default_with fun () => 3i32
00:07:51 verbose #9668 > > |> _assert_eq 3i32
00:07:51 verbose #9669 > >
00:07:51 verbose #9670 > > ╭─[ 38.52ms - stdout ]─────────────────────────────────────────────────────────╮
00:07:51 verbose #9671 > > │ assert_eq / actual: 3 / expected: 3 │
00:07:51 verbose #9672 > > │ │
00:07:51 verbose #9673 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 verbose #9674 > >
00:07:51 verbose #9675 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:51 verbose #9676 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:51 verbose #9677 > > │ ## choose │
00:07:51 verbose #9678 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:51 verbose #9679 > >
00:07:51 verbose #9680 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 verbose #9681 > > inl choose fn a b =
00:07:51 verbose #9682 > > match a, b with
00:07:51 verbose #9683 > > | Some x, Some y => fn x y |> Some
00:07:51 verbose #9684 > > | _ => None
00:07:51 verbose #9685 > >
00:07:51 verbose #9686 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:51 verbose #9687 > > //// test
00:07:51 verbose #9688 > >
00:07:51 verbose #9689 > > (Some 2i32, Some 3)
00:07:51 verbose #9690 > > ||> choose (+)
00:07:51 verbose #9691 > > |> _assert_eq (Some 5)
00:07:52 verbose #9692 > >
00:07:52 verbose #9693 > > ╭─[ 602.51ms - stdout ]────────────────────────────────────────────────────────╮
00:07:52 verbose #9694 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:07:52 verbose #9695 > > │ │
00:07:52 verbose #9696 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9697 > >
00:07:52 verbose #9698 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9699 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9700 > > │ ## iter │
00:07:52 verbose #9701 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9702 > >
00:07:52 verbose #9703 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9704 > > inl iter fn = function
00:07:52 verbose #9705 > > | Some x => fn x
00:07:52 verbose #9706 > > | None => ()
00:07:52 verbose #9707 > >
00:07:52 verbose #9708 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9709 > > //// test
00:07:52 verbose #9710 > >
00:07:52 verbose #9711 > > inl n = mut 1i32
00:07:52 verbose #9712 > > inl fn =
00:07:52 verbose #9713 > > fun n' =>
00:07:52 verbose #9714 > > n <- *n + n'
00:07:52 verbose #9715 > > Some 1i32 |> iter fn
00:07:52 verbose #9716 > > None |> iter fn
00:07:52 verbose #9717 > > *n
00:07:52 verbose #9718 > > |> _assert_eq 2i32
00:07:52 verbose #9719 > >
00:07:52 verbose #9720 > > ╭─[ 240.02ms - stdout ]────────────────────────────────────────────────────────╮
00:07:52 verbose #9721 > > │ assert_eq / actual: 2 / expected: 2 │
00:07:52 verbose #9722 > > │ │
00:07:52 verbose #9723 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9724 > >
00:07:52 verbose #9725 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9726 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9727 > > │ ## option' │
00:07:52 verbose #9728 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9729 > >
00:07:52 verbose #9730 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9731 > > nominal option' t = $'`t option'
00:07:52 verbose #9732 > >
00:07:52 verbose #9733 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9734 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9735 > > │ ## none' │
00:07:52 verbose #9736 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9737 > >
00:07:52 verbose #9738 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9739 > > inl none' forall t. () : option' t =
00:07:52 verbose #9740 > > $'None'
00:07:52 verbose #9741 > >
00:07:52 verbose #9742 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9743 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9744 > > │ ## some' │
00:07:52 verbose #9745 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9746 > >
00:07:52 verbose #9747 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9748 > > inl some' forall t. (x : t) : option' t =
00:07:52 verbose #9749 > > $'Some !x '
00:07:52 verbose #9750 > >
00:07:52 verbose #9751 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9752 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9753 > > │ ## default_value' │
00:07:52 verbose #9754 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9755 > >
00:07:52 verbose #9756 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9757 > > inl default_value' forall t. (value : t) (x : option' t) : t =
00:07:52 verbose #9758 > > $'!x |> Option.defaultValue !value '
00:07:52 verbose #9759 > >
00:07:52 verbose #9760 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9761 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9762 > > │ ## try' │
00:07:52 verbose #9763 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9764 > >
00:07:52 verbose #9765 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9766 > > inl try' forall t. (x : option' t) : t =
00:07:52 verbose #9767 > > !\\(x, $'"$0?"')
00:07:52 verbose #9768 > >
00:07:52 verbose #9769 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9770 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9771 > > │ ## map │
00:07:52 verbose #9772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9773 > >
00:07:52 verbose #9774 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9775 > > inl map forall t u. (fn : t -> u) (x : option' t) : option' u =
00:07:52 verbose #9776 > > inl result : option' u = none' ()
00:07:52 verbose #9777 > > $'let _!result = ref !result '
00:07:52 verbose #9778 > > $'match !x with'
00:07:52 verbose #9779 > > $'| Some x -> ('
00:07:52 verbose #9780 > > $'(fun () ->'
00:07:52 verbose #9781 > > $'(fun () ->'
00:07:52 verbose #9782 > > inl x = dyn $'x'
00:07:52 verbose #9783 > > x |> fn |> emit_unit
00:07:52 verbose #9784 > > $')'
00:07:52 verbose #9785 > > $'|> fun x -> x () |> Some'
00:07:52 verbose #9786 > > $') () ) | None -> None'
00:07:52 verbose #9787 > > $'|> fun x -> _!result.Value <- x'
00:07:52 verbose #9788 > > $'_!result.Value '
00:07:52 verbose #9789 > >
00:07:52 verbose #9790 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9791 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9792 > > │ ## box │
00:07:52 verbose #9793 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9794 > >
00:07:52 verbose #9795 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9796 > > inl box forall t. (x : option t) : option' t =
00:07:52 verbose #9797 > > // x
00:07:52 verbose #9798 > > // |> optionm.map some'
00:07:52 verbose #9799 > > // |> default_with none'
00:07:52 verbose #9800 > > match x with
00:07:52 verbose #9801 > > | Some x => some' x
00:07:52 verbose #9802 > > | None => none' ()
00:07:52 verbose #9803 > >
00:07:52 verbose #9804 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9805 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9806 > > │ ## map' │
00:07:52 verbose #9807 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9808 > >
00:07:52 verbose #9809 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9810 > > inl map' forall t u. (fn : t -> u) (x : option' t) : option' u =
00:07:52 verbose #9811 > > (!\($'"true; let _result = !x.map(|x| { //"') : bool) |> ignore
00:07:52 verbose #9812 > > (!\\(fn !\($'"x"'), $'"true; $0 })"') : bool) |> ignore
00:07:52 verbose #9813 > > !\($'"_result"')
00:07:52 verbose #9814 > >
00:07:52 verbose #9815 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9816 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9817 > > │ ## map'' │
00:07:52 verbose #9818 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9819 > >
00:07:52 verbose #9820 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9821 > > inl map'' forall t u. (fn : t -> u) (x : option' t) : option' u =
00:07:52 verbose #9822 > > $'!x |> Option.map !fn '
00:07:52 verbose #9823 > >
00:07:52 verbose #9824 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:52 verbose #9825 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:52 verbose #9826 > > │ ## unbox │
00:07:52 verbose #9827 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9828 > >
00:07:52 verbose #9829 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9830 > > inl unbox forall t. (x : option' t) : option t =
00:07:52 verbose #9831 > > x |> map Some |> default_value' None
00:07:52 verbose #9832 > > // inl some x : option t = Some x
00:07:52 verbose #9833 > > // inl some = join some
00:07:52 verbose #9834 > > // inl none : option t = None
00:07:52 verbose #9835 > > // $'!x |> Option.map !some |> Option.defaultValue !none '
00:07:52 verbose #9836 > >
00:07:52 verbose #9837 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9838 > > //// test
00:07:52 verbose #9839 > >
00:07:52 verbose #9840 > > inl x = Some 3i32
00:07:52 verbose #9841 > > inl y : option i32 = None
00:07:52 verbose #9842 > > inl x' = x |> box |> unbox
00:07:52 verbose #9843 > > inl y' = y |> box |> map id |> unbox
00:07:52 verbose #9844 > > (x', y') |> _assert_eq (x, y)
00:07:52 verbose #9845 > >
00:07:52 verbose #9846 > > ╭─[ 209.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:52 verbose #9847 > > │ assert_eq / actual: struct (US0_0 3, US0_1) / expected: struct (US0_0 3, │
00:07:52 verbose #9848 > > │ US0_1) │
00:07:52 verbose #9849 > > │ │
00:07:52 verbose #9850 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:52 verbose #9851 > >
00:07:52 verbose #9852 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:52 verbose #9853 > > //// test
00:07:52 verbose #9854 > > ///! rust
00:07:52 verbose #9855 > >
00:07:52 verbose #9856 > > inl x = Some 3i32
00:07:52 verbose #9857 > > inl y : option i32 = None
00:07:52 verbose #9858 > > inl x' = x |> box |> unbox
00:07:52 verbose #9859 > > inl y' = y |> box |> map id |> unbox
00:07:52 verbose #9860 > > (x', y') |> _assert_eq' (x, y)
00:07:56 verbose #9861 > >
00:07:56 verbose #9862 > > ╭─[ 3.90s - return value ]─────────────────────────────────────────────────────╮
00:07:56 verbose #9863 > > │ assert_eq' / actual: (US0_0(3), US0_1) / expected: (US0_0(3), US0_1) │
00:07:56 verbose #9864 > > │ │
00:07:56 verbose #9865 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #9866 > >
00:07:56 verbose #9867 > > ── markdown ────────────────────────────────────────────────────────────────────
00:07:56 verbose #9868 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:56 verbose #9869 > > │ ## of_obj │
00:07:56 verbose #9870 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #9871 > >
00:07:56 verbose #9872 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:56 verbose #9873 > > inl of_obj forall t. (x : t) : option' t =
00:07:56 verbose #9874 > > $'let mutable _!x = None'
00:07:56 verbose #9875 > > $'#if \!FABLE_COMPILER && \!WASM && \!CONTRACT'
00:07:56 verbose #9876 > > ((x |> $'Option.ofObj') : option' t) |> emit_unit
00:07:56 verbose #9877 > > $'#else'
00:07:56 verbose #9878 > > $'Some !x '
00:07:56 verbose #9879 > > $'#endif'
00:07:56 verbose #9880 > > $'|> fun x -> _!x <- Some x'
00:07:56 verbose #9881 > > $'match _!x with Some x -> x | None -> failwith "optionm\'.of_obj
00:07:56 verbose #9882 > > _!x=None"'
00:07:56 verbose #9883 > >
00:07:56 verbose #9884 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:56 verbose #9885 > > //// test
00:07:56 verbose #9886 > >
00:07:56 verbose #9887 > > null ()
00:07:56 verbose #9888 > > |> of_obj
00:07:56 verbose #9889 > > |> unbox
00:07:56 verbose #9890 > > |> _assert_eq (None : option string)
00:07:56 verbose #9891 > >
00:07:56 verbose #9892 > > ╭─[ 186.25ms - stdout ]────────────────────────────────────────────────────────╮
00:07:56 verbose #9893 > > │ assert_eq / actual: US0_1 / expected: US0_1 │
00:07:56 verbose #9894 > > │ │
00:07:56 verbose #9895 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:56 verbose #9896 > >
00:07:56 verbose #9897 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:56 verbose #9898 > > //// test
00:07:56 verbose #9899 > > ///! rust
00:07:56 verbose #9900 > >
00:07:56 verbose #9901 > > ""
00:07:56 verbose #9902 > > |> of_obj
00:07:56 verbose #9903 > > |> unbox
00:07:56 verbose #9904 > > |> _assert_eq' (Some "")
00:08:01 verbose #9905 > >
00:08:01 verbose #9906 > > ╭─[ 4.40s - return value ]─────────────────────────────────────────────────────╮
00:08:01 verbose #9907 > > │ assert_eq' / actual: US0_0("") / expected: US0_0("") │
00:08:01 verbose #9908 > > │ │
00:08:01 verbose #9909 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9910 > >
00:08:01 verbose #9911 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9912 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9913 > > │ ## flatten │
00:08:01 verbose #9914 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9915 > >
00:08:01 verbose #9916 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9917 > > inl flatten x =
00:08:01 verbose #9918 > > match x with
00:08:01 verbose #9919 > > | Some (Some x) => Some x
00:08:01 verbose #9920 > > | _ => None
00:08:01 verbose #9921 > >
00:08:01 verbose #9922 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9923 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9924 > > │ ## flatten' │
00:08:01 verbose #9925 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9926 > >
00:08:01 verbose #9927 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9928 > > inl flatten' x =
00:08:01 verbose #9929 > > x
00:08:01 verbose #9930 > > |> unbox
00:08:01 verbose #9931 > > |> optionm.map unbox
00:08:01 verbose #9932 > > |> flatten
00:08:01 verbose #9933 > >
00:08:01 verbose #9934 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9935 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9936 > > │ ## unwrap │
00:08:01 verbose #9937 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9938 > >
00:08:01 verbose #9939 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9940 > > inl unwrap forall t. (x : option' t) : t =
00:08:01 verbose #9941 > > !\\(x, $'"$0.unwrap()"')
00:08:01 verbose #9942 > >
00:08:01 verbose #9943 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9944 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9945 > > │ ## take │
00:08:01 verbose #9946 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9947 > >
00:08:01 verbose #9948 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9949 > > inl take forall t. (x : option' t) : option' t =
00:08:01 verbose #9950 > > (!\\(x, $'"true; let mut !x = !x"') : bool) |> ignore
00:08:01 verbose #9951 > > !\\(x, $'"Option::take(&mut $0)"')
00:08:01 verbose #9952 > >
00:08:01 verbose #9953 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9954 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9955 > > │ ## take_ref │
00:08:01 verbose #9956 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9957 > >
00:08:01 verbose #9958 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9959 > > inl take_ref forall t. (x : rust.ref' (option' t)) : option' t =
00:08:01 verbose #9960 > > (!\\(x, $'"true; let mut !x = !x"') : bool) |> ignore
00:08:01 verbose #9961 > > !\\(x, $'"Option::take(&mut $0)"')
00:08:01 verbose #9962 > >
00:08:01 verbose #9963 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9964 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9965 > > │ ## take_ref_mut │
00:08:01 verbose #9966 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9967 > >
00:08:01 verbose #9968 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9969 > > inl take_ref_mut forall t. (x : rust.ref' (rust.mut' (option' t))) : option' t =
00:08:01 verbose #9970 > > !\\(x, $'"Option::take($0)"')
00:08:01 verbose #9971 > >
00:08:01 verbose #9972 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9973 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9974 > > │ ## as_ref │
00:08:01 verbose #9975 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9976 > >
00:08:01 verbose #9977 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9978 > > inl as_ref forall t. (x : rust.ref' (option' t)) : option' (rust.ref' t) =
00:08:01 verbose #9979 > > !\\(x, $'"$0.as_ref()"')
00:08:01 verbose #9980 > >
00:08:01 verbose #9981 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9982 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9983 > > │ ## as_mut │
00:08:01 verbose #9984 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9985 > >
00:08:01 verbose #9986 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9987 > > inl as_mut forall t. (x : rust.ref' (rust.mut' (option' t))) : option'
00:08:01 verbose #9988 > > (rust.ref' (rust.mut' t)) =
00:08:01 verbose #9989 > > !\\(x, $'"$0.as_mut()"')
00:08:01 verbose #9990 > >
00:08:01 verbose #9991 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #9992 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #9993 > > │ ## unwrap_or │
00:08:01 verbose #9994 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #9995 > >
00:08:01 verbose #9996 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #9997 > > inl unwrap_or forall t. (def : t) (x : option' t) : t =
00:08:01 verbose #9998 > > !\($'"!x.unwrap_or(!def)"')
00:08:01 verbose #9999 > >
00:08:01 verbose #10000 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #10001 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #10002 > > │ ## and_then │
00:08:01 verbose #10003 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #10004 > >
00:08:01 verbose #10005 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #10006 > > inl and_then forall t u. (fn : t -> option' u) (x : option' t) : option' u =
00:08:01 verbose #10007 > > !\\((x, fn), $'"$0.and_then(|x| $1(x))"')
00:08:01 verbose #10008 > >
00:08:01 verbose #10009 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #10010 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #10011 > > │ ## rc_upgrade │
00:08:01 verbose #10012 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #10013 > >
00:08:01 verbose #10014 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #10015 > > inl rc_upgrade forall t. (x : rust.weak_rc t) : option' (rust.rc t) =
00:08:01 verbose #10016 > > !\\(x, $'"std::rc::Weak::upgrade(&$0)"')
00:08:01 verbose #10017 > >
00:08:01 verbose #10018 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:01 verbose #10019 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:01 verbose #10020 > > │ ## rc_into_inner │
00:08:01 verbose #10021 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:01 verbose #10022 > >
00:08:01 verbose #10023 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #10024 > > inl rc_into_inner forall t. (x : rust.rc t) : option' t =
00:08:01 verbose #10025 > > !\\(x, $'"std::rc::Rc::into_inner($0)"')
00:08:01 verbose #10026 > >
00:08:01 verbose #10027 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:01 verbose #10028 > > //// test
00:08:01 verbose #10029 > > ///! rust
00:08:01 verbose #10030 > >
00:08:01 verbose #10031 > > types ()
00:08:01 verbose #10032 > > rust.new_rc 0i32
00:08:01 verbose #10033 > > |> rc_into_inner
00:08:01 verbose #10034 > > |> unbox
00:08:01 verbose #10035 > > |> _assert_eq' (Some 0i32)
00:08:08 verbose #10036 > >
00:08:08 verbose #10037 > > ╭─[ 6.41s - return value ]─────────────────────────────────────────────────────╮
00:08:08 verbose #10038 > > │ assert_eq' / actual: US0_0(0) / expected: US0_0(0) │
00:08:08 verbose #10039 > > │ │
00:08:08 verbose #10040 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:08 verbose #10041 > 00:00:27 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 20813
00:08:08 verbose #10042 > 00:00:27 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:08:12 verbose #10043 > 00:00:32 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/optionm'.dib.ipynb to html
00:08:12 verbose #10044 > 00:00:32 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:12 verbose #10045 > 00:00:32 verbose #7 ! validate(nb)
00:08:15 verbose #10046 > 00:00:35 verbose #8 ! [NbConvertApp] Writing 334923 bytes to c:\home\git\polyglot\lib\spiral\optionm'.dib.html
00:08:15 verbose #10047 > 00:00:35 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 647
00:08:15 verbose #10048 > 00:00:35 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 647
00:08:15 verbose #10049 > 00:00:35 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/optionm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/optionm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:08:17 verbose #10050 > 00:00:37 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:08:17 verbose #10051 > 00:00:37 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:08:18 verbose #10052 > 00:08:17 debug #4 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/cc31c9c67d49888fd573082b1dbe6dafbf74c32a70ead3308a0f60b6f4144473/main.spi
00:08:19 verbose #10053 > 00:00:38 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 21519
00:08:19 debug #10054 runtime.execute_with_options_async / exit_code: 0 / output.Length: 24702
00:08:19 debug #17 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path optionm'.dib --retries 3
00:08:19 debug #10055 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path listm'.dib --retries 3",
[||], None, None, true, None)
00:08:19 verbose #10056 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "listm'.dib", "--retries", "3"])
00:08:19 verbose #10057 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/listm'.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/listm'.dib" --output-path "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:08:24 verbose #10058 > >
00:08:24 verbose #10059 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:24 verbose #10060 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:24 verbose #10061 > > │ # listm │
00:08:24 verbose #10062 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:25 verbose #10063 > >
00:08:25 verbose #10064 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:25 verbose #10065 > > //// test
00:08:25 verbose #10066 > >
00:08:25 verbose #10067 > > open testing
00:08:25 verbose #10068 > >
00:08:25 verbose #10069 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:08:25 verbose #10070 > > #r
00:08:25 verbose #10071 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:25 verbose #10072 > > otNet.Interactive.Spiral.dll"
00:08:25 verbose #10073 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:08:25 verbose #10074 > > #r
00:08:25 verbose #10075 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:25 verbose #10076 > > otNet.Interactive.dll"
00:08:25 verbose #10077 > > open type Microsoft.DotNet.Interactive.Kernel
00:08:27 verbose #10078 > 00:08:25 debug #5 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/abeeaca47974c62c9305c810b3c68f196928d683b23e6a7c7067fd0048e899f9/main.spi
00:08:28 verbose #10079 > 00:08:27 debug #6 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/036845a3182529a7dde60253b04fd2d791fd8f29839ddbe0a3b190b82675662c/main.spi
00:08:29 verbose #10080 > 00:08:27 debug #7 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/23124bf65cde7e304d6cbdb51dc6c0596959ecc60a7493800a7f240c55ee58cb/main.spi
00:08:30 verbose #10081 > 00:08:28 debug #8 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/40f73806d2f0aa2d1416a9a5af6a5f0e554ca3742426f973bd39f1ff9711e94a/main.spi
00:08:30 verbose #10082 > 00:08:29 debug #9 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/7a367d4c4cb89245dbaee395e032b0623ff46e4fa310a67e11fc878b1c9de47b/main.spi
00:08:31 verbose #10083 > 00:08:30 debug #10 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/aeff0b807936f7151467275f9ba86abdafff00df28297b2087727e3c5624ad44/main.spi
00:08:32 verbose #10084 > 00:08:31 debug #11 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/ea5b426ec3f00ffdc2606514df94f41784f602ec84e3267dc0ed4bdba63dd50b/main.spi
00:08:33 verbose #10085 > 00:08:31 debug #12 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/3734d7687f1dfde5922e5603b4daff471f5935cbc9647acd91699da23dff1d10/main.spi
00:08:33 verbose #10086 > >
00:08:33 verbose #10087 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:33 verbose #10088 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:33 verbose #10089 > > │ ## list' │
00:08:33 verbose #10090 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:33 verbose #10091 > >
00:08:33 verbose #10092 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10093 > > nominal list' t = $'`t list'
00:08:33 verbose #10094 > >
00:08:33 verbose #10095 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10096 > > inl empty' forall t. () : list' t =
00:08:33 verbose #10097 > > $'[[]]'
00:08:33 verbose #10098 > >
00:08:33 verbose #10099 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10100 > > inl cons' forall t. (head : t) (tail : list' t) : list' t =
00:08:33 verbose #10101 > > $'!head :: !tail '
00:08:33 verbose #10102 > >
00:08:33 verbose #10103 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:33 verbose #10104 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:33 verbose #10105 > > │ ## box │
00:08:33 verbose #10106 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:33 verbose #10107 > >
00:08:33 verbose #10108 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10109 > > inl box forall t. (list : list t) : list' t =
00:08:33 verbose #10110 > > (list, empty' ())
00:08:33 verbose #10111 > > ||> listm.foldBack fun x acc =>
00:08:33 verbose #10112 > > acc |> cons' x
00:08:33 verbose #10113 > >
00:08:33 verbose #10114 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:33 verbose #10115 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:33 verbose #10116 > > │ ## fold' │
00:08:33 verbose #10117 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:33 verbose #10118 > >
00:08:33 verbose #10119 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10120 > > inl fold' forall t u. (fn : t -> u) (init : list u) (list : list' t) : list u =
00:08:33 verbose #10121 > > (init, list)
00:08:33 verbose #10122 > > ||> $'List.fold' join fun acc x => Cons (fn x, acc)
00:08:33 verbose #10123 > 00:08:32 debug #13 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/fc803c425554d27390256dae43b5489b9a84f572d447bae78155880c13107d76/main.spi
00:08:33 verbose #10124 > >
00:08:33 verbose #10125 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:33 verbose #10126 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:33 verbose #10127 > > │ ## fold_back' │
00:08:33 verbose #10128 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:33 verbose #10129 > >
00:08:33 verbose #10130 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10131 > > inl fold_back' forall t u. (fn : t -> u) (list : list' t) (init : list u) : list
00:08:33 verbose #10132 > > u =
00:08:33 verbose #10133 > > (list, init)
00:08:33 verbose #10134 > > ||> $'List.foldBack' join fun x acc => Cons (fn x, acc)
00:08:33 verbose #10135 > >
00:08:33 verbose #10136 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:33 verbose #10137 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:33 verbose #10138 > > │ ## filter' │
00:08:33 verbose #10139 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:33 verbose #10140 > >
00:08:33 verbose #10141 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:33 verbose #10142 > > inl filter' forall t. (fn : t -> bool) (list : list' t) : list' t =
00:08:33 verbose #10143 > > list |> $'"List.filter !fn"'
00:08:34 verbose #10144 > >
00:08:34 verbose #10145 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:34 verbose #10146 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:34 verbose #10147 > > │ ## map │
00:08:34 verbose #10148 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:34 verbose #10149 > >
00:08:34 verbose #10150 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:34 verbose #10151 > > inl map forall t u. (fn : t -> u) (list : list' t) : list' u =
00:08:34 verbose #10152 > > list |> $'List.map' fn
00:08:34 verbose #10153 > >
00:08:34 verbose #10154 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:34 verbose #10155 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:34 verbose #10156 > > │ ## filter │
00:08:34 verbose #10157 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:34 verbose #10158 > >
00:08:34 verbose #10159 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:34 verbose #10160 > > inl filter forall t. (fn : t -> bool) (list : list t) : list t =
00:08:34 verbose #10161 > > (list, Nil)
00:08:34 verbose #10162 > > ||> listm.foldBack fun x acc =>
00:08:34 verbose #10163 > > if fn x then x :: acc else acc
00:08:34 verbose #10164 > >
00:08:34 verbose #10165 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:34 verbose #10166 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:34 verbose #10167 > > │ ## unbox │
00:08:34 verbose #10168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:34 verbose #10169 > >
00:08:34 verbose #10170 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:34 verbose #10171 > > inl unbox forall t. (list : list' t) : list t =
00:08:34 verbose #10172 > > (list, Nil)
00:08:34 verbose #10173 > > ||> fold_back' id
00:08:34 verbose #10174 > >
00:08:34 verbose #10175 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:34 verbose #10176 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:34 verbose #10177 > > │ ## distinct' │
00:08:34 verbose #10178 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:34 verbose #10179 > >
00:08:34 verbose #10180 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:34 verbose #10181 > > inl distinct' forall t. (list : list' t) : list' t =
00:08:34 verbose #10182 > > list |> $'List.distinct'
00:08:34 verbose #10183 > >
00:08:34 verbose #10184 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:34 verbose #10185 > > //// test
00:08:34 verbose #10186 > >
00:08:34 verbose #10187 > > [[ "1"; "2"; "2"; "3" ]]
00:08:34 verbose #10188 > > |> box
00:08:34 verbose #10189 > > |> distinct'
00:08:34 verbose #10190 > > |> unbox
00:08:34 verbose #10191 > > |> _assert_eq [[ "1"; "2"; "3" ]]
00:08:35 verbose #10192 > >
00:08:35 verbose #10193 > > ╭─[ 1.62s - stdout ]───────────────────────────────────────────────────────────╮
00:08:35 verbose #10194 > > │ assert_eq / actual: UH0_1 ("1", UH0_1 ("2", UH0_1 ("3", UH0_0))) / expected: │
00:08:35 verbose #10195 > > │ UH0_1 ("1", UH0_1 ("2", UH0_1 ("3", UH0_0))) │
00:08:35 verbose #10196 > > │ │
00:08:35 verbose #10197 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:35 verbose #10198 > >
00:08:35 verbose #10199 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:35 verbose #10200 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:35 verbose #10201 > > │ ## to_array' │
00:08:35 verbose #10202 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:35 verbose #10203 > >
00:08:35 verbose #10204 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:35 verbose #10205 > > inl to_array' forall dim t. (items : list' t) : a dim t =
00:08:35 verbose #10206 > > items |> $'List.toArray'
00:08:35 verbose #10207 > >
00:08:35 verbose #10208 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:35 verbose #10209 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:35 verbose #10210 > > │ ## append │
00:08:35 verbose #10211 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:35 verbose #10212 > >
00:08:35 verbose #10213 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:35 verbose #10214 > > instance append list t =
00:08:35 verbose #10215 > > listm.append
00:08:35 verbose #10216 > >
00:08:35 verbose #10217 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:35 verbose #10218 > > //// test
00:08:35 verbose #10219 > >
00:08:35 verbose #10220 > > [[ "a"; "b" ]] ++ [[ "c"; "d" ]]
00:08:35 verbose #10221 > > |> _assert_eq [[ "a"; "b"; "c"; "d" ]]
00:08:35 verbose #10222 > >
00:08:35 verbose #10223 > > ╭─[ 95.91ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:35 verbose #10224 > > │ assert_eq / actual: UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", │
00:08:35 verbose #10225 > > │ UH0_0)))) / expected: UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", │
00:08:35 verbose #10226 > > │ UH0_0)))) │
00:08:35 verbose #10227 > > │ │
00:08:35 verbose #10228 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:35 verbose #10229 > >
00:08:35 verbose #10230 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:35 verbose #10231 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:35 verbose #10232 > > │ ## collect │
00:08:35 verbose #10233 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:35 verbose #10234 > >
00:08:35 verbose #10235 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:35 verbose #10236 > > inl collect forall t r. (fn : t -> list r) (items : list t) : list r =
00:08:35 verbose #10237 > > items
00:08:35 verbose #10238 > > |> listm.map fn
00:08:35 verbose #10239 > > |> listm.fold (++) [[]]
00:08:35 verbose #10240 > >
00:08:35 verbose #10241 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:35 verbose #10242 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:35 verbose #10243 > > │ ## init_series │
00:08:35 verbose #10244 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:35 verbose #10245 > >
00:08:35 verbose #10246 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:35 verbose #10247 > > inl init_series start end inc =
00:08:35 verbose #10248 > > inl total : f64 = conv ((end - start) / inc) + 1
00:08:35 verbose #10249 > > listm.init total (conv >> (*) inc >> (+) start)
00:08:35 verbose #10250 > >
00:08:35 verbose #10251 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:35 verbose #10252 > > //// test
00:08:35 verbose #10253 > >
00:08:35 verbose #10254 > > init_series 0 1 0.5
00:08:35 verbose #10255 > > |> _assert_eq [[ 0f64; 0.5; 1 ]]
00:08:36 verbose #10256 > >
00:08:36 verbose #10257 > > ╭─[ 96.98ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10258 > > │ assert_eq / actual: UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) / expected: │
00:08:36 verbose #10259 > > │ UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) │
00:08:36 verbose #10260 > > │ │
00:08:36 verbose #10261 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10262 > >
00:08:36 verbose #10263 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10264 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10265 > > │ ## try_item │
00:08:36 verbose #10266 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10267 > >
00:08:36 verbose #10268 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10269 > > inl rec try_item i = function
00:08:36 verbose #10270 > > | Cons (x, _) when i = 0 => Some x
00:08:36 verbose #10271 > > | Cons (_, xs) => try_item (i - 1) xs
00:08:36 verbose #10272 > > | Nil => None
00:08:36 verbose #10273 > >
00:08:36 verbose #10274 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10275 > > //// test
00:08:36 verbose #10276 > >
00:08:36 verbose #10277 > > listm.init 10i32 id
00:08:36 verbose #10278 > > |> try_item 9i32
00:08:36 verbose #10279 > > |> _assert_eq (Some 9)
00:08:36 verbose #10280 > >
00:08:36 verbose #10281 > > ╭─[ 94.68ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10282 > > │ assert_eq / actual: US0_0 9 / expected: US0_0 9 │
00:08:36 verbose #10283 > > │ │
00:08:36 verbose #10284 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10285 > >
00:08:36 verbose #10286 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10287 > > //// test
00:08:36 verbose #10288 > >
00:08:36 verbose #10289 > > listm.init 10i32 id
00:08:36 verbose #10290 > > |> try_item 10i32
00:08:36 verbose #10291 > > |> _assert_eq None
00:08:36 verbose #10292 > >
00:08:36 verbose #10293 > > ╭─[ 66.61ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10294 > > │ assert_eq / actual: US0_1 / expected: US0_1 │
00:08:36 verbose #10295 > > │ │
00:08:36 verbose #10296 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10297 > >
00:08:36 verbose #10298 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10299 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10300 > > │ ## item │
00:08:36 verbose #10301 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10302 > >
00:08:36 verbose #10303 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10304 > > inl item i =
00:08:36 verbose #10305 > > try_item i >> optionm.value
00:08:36 verbose #10306 > >
00:08:36 verbose #10307 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10308 > > //// test
00:08:36 verbose #10309 > >
00:08:36 verbose #10310 > > listm.init 10i32 id
00:08:36 verbose #10311 > > |> item 9i32
00:08:36 verbose #10312 > > |> _assert_eq 9
00:08:36 verbose #10313 > >
00:08:36 verbose #10314 > > ╭─[ 36.67ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10315 > > │ assert_eq / actual: 9 / expected: 9 │
00:08:36 verbose #10316 > > │ │
00:08:36 verbose #10317 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10318 > >
00:08:36 verbose #10319 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10320 > > //// test
00:08:36 verbose #10321 > >
00:08:36 verbose #10322 > > fun () =>
00:08:36 verbose #10323 > > listm.init 10i32 id
00:08:36 verbose #10324 > > |> item 10i32
00:08:36 verbose #10325 > > |> ignore
00:08:36 verbose #10326 > > |> _throws
00:08:36 verbose #10327 > > |> optionm.map sm'.format_exception
00:08:36 verbose #10328 > > |> _assert_eq (Some "System.Exception: Option does not have a value.")
00:08:36 verbose #10329 > >
00:08:36 verbose #10330 > > ╭─[ 170.67ms - stdout ]────────────────────────────────────────────────────────╮
00:08:36 verbose #10331 > > │ assert_eq / actual: US1_0 "System.Exception: Option does not have a value." │
00:08:36 verbose #10332 > > │ / expected: US1_0 "System.Exception: Option does not have a value." │
00:08:36 verbose #10333 > > │ │
00:08:36 verbose #10334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10335 > >
00:08:36 verbose #10336 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10337 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10338 > > │ ## try_item_ │
00:08:36 verbose #10339 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10340 > >
00:08:36 verbose #10341 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10342 > > let rec try_item_ i = function
00:08:36 verbose #10343 > > | Cons (x, _) when i = 0 => Some x
00:08:36 verbose #10344 > > | Cons (_, xs) => try_item_ (i - 1) xs
00:08:36 verbose #10345 > > | Nil => None
00:08:36 verbose #10346 > >
00:08:36 verbose #10347 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10348 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10349 > > │ ## item_ │
00:08:36 verbose #10350 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10351 > >
00:08:36 verbose #10352 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10353 > > inl item_ i =
00:08:36 verbose #10354 > > try_item_ i >> optionm.value
00:08:36 verbose #10355 > >
00:08:36 verbose #10356 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10357 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10358 > > │ ## sum │
00:08:36 verbose #10359 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10360 > >
00:08:36 verbose #10361 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10362 > > inl sum list =
00:08:36 verbose #10363 > > list |> listm.fold (+) 0
00:08:36 verbose #10364 > >
00:08:36 verbose #10365 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10366 > > //// test
00:08:36 verbose #10367 > >
00:08:36 verbose #10368 > > listm.init 10i32 id
00:08:36 verbose #10369 > > |> sum
00:08:36 verbose #10370 > > |> _assert_eq 45
00:08:36 verbose #10371 > >
00:08:36 verbose #10372 > > ╭─[ 33.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10373 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:36 verbose #10374 > > │ │
00:08:36 verbose #10375 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10376 > >
00:08:36 verbose #10377 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10378 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10379 > > │ ## unzip │
00:08:36 verbose #10380 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10381 > >
00:08:36 verbose #10382 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10383 > > inl unzip list =
00:08:36 verbose #10384 > > (([[]], [[]]), list)
00:08:36 verbose #10385 > > ||> listm.fold fun (acc_x, acc_y) (x, y) =>
00:08:36 verbose #10386 > > x :: acc_x, y :: acc_y
00:08:36 verbose #10387 > > |> fun x, y =>
00:08:36 verbose #10388 > > x |> listm.rev, y |> listm.rev
00:08:36 verbose #10389 > >
00:08:36 verbose #10390 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10391 > > //// test
00:08:36 verbose #10392 > >
00:08:36 verbose #10393 > > listm.init 10i32 id
00:08:36 verbose #10394 > > |> listm.map (fun x => x, x)
00:08:36 verbose #10395 > > |> unzip
00:08:36 verbose #10396 > > |> fun x, y =>
00:08:36 verbose #10397 > > x |> sum
00:08:36 verbose #10398 > > |> _assert_eq 45
00:08:36 verbose #10399 > >
00:08:36 verbose #10400 > > y |> sum
00:08:36 verbose #10401 > > |> _assert_eq 45
00:08:36 verbose #10402 > >
00:08:36 verbose #10403 > > ╭─[ 57.94ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10404 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:36 verbose #10405 > > │ assert_eq / actual: 45 / expected: 45 │
00:08:36 verbose #10406 > > │ │
00:08:36 verbose #10407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10408 > >
00:08:36 verbose #10409 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10410 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10411 > > │ ## try_index_of │
00:08:36 verbose #10412 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10413 > >
00:08:36 verbose #10414 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10415 > > inl try_index_of item list =
00:08:36 verbose #10416 > > inl rec loop i = function
00:08:36 verbose #10417 > > | [[]] => None
00:08:36 verbose #10418 > > | x :: xs =>
00:08:36 verbose #10419 > > if x = item
00:08:36 verbose #10420 > > then Some i
00:08:36 verbose #10421 > > else loop (i + 1) xs
00:08:36 verbose #10422 > > loop 0 list
00:08:36 verbose #10423 > >
00:08:36 verbose #10424 > > inl index_of item =
00:08:36 verbose #10425 > > try_index_of item >> optionm.value
00:08:36 verbose #10426 > >
00:08:36 verbose #10427 > > inl try_index_of_ item list =
00:08:36 verbose #10428 > > let rec loop i = function
00:08:36 verbose #10429 > > | [[]] => None
00:08:36 verbose #10430 > > | x :: xs =>
00:08:36 verbose #10431 > > if x = item
00:08:36 verbose #10432 > > then Some i
00:08:36 verbose #10433 > > else loop (i + 1) xs
00:08:36 verbose #10434 > > loop 0 list
00:08:36 verbose #10435 > >
00:08:36 verbose #10436 > > inl index_of_ item =
00:08:36 verbose #10437 > > try_index_of_ item >> optionm.value
00:08:36 verbose #10438 > >
00:08:36 verbose #10439 > > inl try_index_of__ item list =
00:08:36 verbose #10440 > > inl i = mut 0
00:08:36 verbose #10441 > > inl list = mut list
00:08:36 verbose #10442 > > inl result = mut None
00:08:36 verbose #10443 > > let rec loop () =
00:08:36 verbose #10444 > > match *list with
00:08:36 verbose #10445 > > | [[]] => result <- None
00:08:36 verbose #10446 > > | x :: xs =>
00:08:36 verbose #10447 > > if x = item
00:08:36 verbose #10448 > > then result <- Some *i
00:08:36 verbose #10449 > > else
00:08:36 verbose #10450 > > i <- *i + 1
00:08:36 verbose #10451 > > list <- xs
00:08:36 verbose #10452 > > loop ()
00:08:36 verbose #10453 > > loop ()
00:08:36 verbose #10454 > > *result
00:08:36 verbose #10455 > >
00:08:36 verbose #10456 > > inl index_of__ item =
00:08:36 verbose #10457 > > try_index_of__ item >> optionm.value
00:08:36 verbose #10458 > >
00:08:36 verbose #10459 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10460 > > //// test
00:08:36 verbose #10461 > >
00:08:36 verbose #10462 > > listm.init 10i32 id
00:08:36 verbose #10463 > > |> index_of 5i32
00:08:36 verbose #10464 > > |> _assert_eq 5i32
00:08:36 verbose #10465 > >
00:08:36 verbose #10466 > > ╭─[ 52.78ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10467 > > │ assert_eq / actual: 5 / expected: 5 │
00:08:36 verbose #10468 > > │ │
00:08:36 verbose #10469 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10470 > >
00:08:36 verbose #10471 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10472 > > //// test
00:08:36 verbose #10473 > >
00:08:36 verbose #10474 > > listm.init 10i32 id
00:08:36 verbose #10475 > > |> try_index_of 10i32
00:08:36 verbose #10476 > > |> _assert_eq (None : option i32)
00:08:36 verbose #10477 > >
00:08:36 verbose #10478 > > ╭─[ 74.07ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10479 > > │ assert_eq / actual: US0_1 / expected: US0_1 │
00:08:36 verbose #10480 > > │ │
00:08:36 verbose #10481 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10482 > >
00:08:36 verbose #10483 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:36 verbose #10484 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:36 verbose #10485 > > │ ## try_find │
00:08:36 verbose #10486 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10487 > >
00:08:36 verbose #10488 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10489 > > inl try_find fn list =
00:08:36 verbose #10490 > > inl rec loop = function
00:08:36 verbose #10491 > > | [[]] => None
00:08:36 verbose #10492 > > | x :: xs =>
00:08:36 verbose #10493 > > if fn x
00:08:36 verbose #10494 > > then Some x
00:08:36 verbose #10495 > > else loop xs
00:08:36 verbose #10496 > > loop list
00:08:36 verbose #10497 > >
00:08:36 verbose #10498 > > inl try_find_ fn list =
00:08:36 verbose #10499 > > let rec loop = function
00:08:36 verbose #10500 > > | [[]] => None
00:08:36 verbose #10501 > > | x :: xs =>
00:08:36 verbose #10502 > > if fn x
00:08:36 verbose #10503 > > then Some x
00:08:36 verbose #10504 > > else loop xs
00:08:36 verbose #10505 > > loop list
00:08:36 verbose #10506 > >
00:08:36 verbose #10507 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10508 > > //// test
00:08:36 verbose #10509 > >
00:08:36 verbose #10510 > > listm.init 10i32 id
00:08:36 verbose #10511 > > |> try_find ((=) 5i32)
00:08:36 verbose #10512 > > |> _assert_eq (Some 5i32)
00:08:36 verbose #10513 > >
00:08:36 verbose #10514 > > ╭─[ 70.86ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:36 verbose #10515 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:08:36 verbose #10516 > > │ │
00:08:36 verbose #10517 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:36 verbose #10518 > >
00:08:36 verbose #10519 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10520 > > inl find x =
00:08:36 verbose #10521 > > try_find x >> optionm.value
00:08:36 verbose #10522 > >
00:08:36 verbose #10523 > > inl find_ x =
00:08:36 verbose #10524 > > try_find_ x >> optionm.value
00:08:36 verbose #10525 > >
00:08:36 verbose #10526 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:36 verbose #10527 > > //// test
00:08:36 verbose #10528 > >
00:08:36 verbose #10529 > > listm.init 10i32 id
00:08:36 verbose #10530 > > |> find ((=) 5i32)
00:08:36 verbose #10531 > > |> _assert_eq 5i32
00:08:37 verbose #10532 > >
00:08:37 verbose #10533 > > ╭─[ 51.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:37 verbose #10534 > > │ assert_eq / actual: 5 / expected: 5 │
00:08:37 verbose #10535 > > │ │
00:08:37 verbose #10536 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10537 > >
00:08:37 verbose #10538 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10539 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10540 > > │ ## choose │
00:08:37 verbose #10541 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10542 > >
00:08:37 verbose #10543 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10544 > > inl choose f l =
00:08:37 verbose #10545 > > (l, [[]])
00:08:37 verbose #10546 > > ||> listm.foldBack fun x acc =>
00:08:37 verbose #10547 > > match f x with
00:08:37 verbose #10548 > > | Some y => y :: acc
00:08:37 verbose #10549 > > | None => acc
00:08:37 verbose #10550 > >
00:08:37 verbose #10551 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10552 > > //// test
00:08:37 verbose #10553 > >
00:08:37 verbose #10554 > > listm.init 10i32 id
00:08:37 verbose #10555 > > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:08:37 verbose #10556 > > |> _assert_eq [[ 0; 2; 4; 6; 8 ]]
00:08:37 verbose #10557 > >
00:08:37 verbose #10558 > > ╭─[ 89.28ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:37 verbose #10559 > > │ assert_eq / actual: UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, │
00:08:37 verbose #10560 > > │ UH0_0))))) / expected: UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, │
00:08:37 verbose #10561 > > │ UH0_0))))) │
00:08:37 verbose #10562 > > │ │
00:08:37 verbose #10563 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10564 > >
00:08:37 verbose #10565 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10566 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10567 > > │ ## zip_with │
00:08:37 verbose #10568 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10569 > >
00:08:37 verbose #10570 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10571 > > inl zip_with fn xs ys =
00:08:37 verbose #10572 > > inl rec loop acc xs ys =
00:08:37 verbose #10573 > > match xs, ys with
00:08:37 verbose #10574 > > | Cons (x, xs), Cons (y, ys) =>
00:08:37 verbose #10575 > > loop (fn x y :: acc) xs ys
00:08:37 verbose #10576 > > | _ => listm.rev acc
00:08:37 verbose #10577 > > loop [[]] xs ys
00:08:37 verbose #10578 > >
00:08:37 verbose #10579 > > inl zip_with_ fn xs ys =
00:08:37 verbose #10580 > > let rec loop acc xs ys =
00:08:37 verbose #10581 > > match xs, ys with
00:08:37 verbose #10582 > > | Cons (x, xs), Cons (y, ys) =>
00:08:37 verbose #10583 > > loop (fn x y :: acc) xs ys
00:08:37 verbose #10584 > > | _ => listm.rev acc
00:08:37 verbose #10585 > > loop [[]] xs ys
00:08:37 verbose #10586 > >
00:08:37 verbose #10587 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10588 > > //// test
00:08:37 verbose #10589 > >
00:08:37 verbose #10590 > > ([[ 1i32; 2; 3 ]], [[ 4; 5; 6 ]])
00:08:37 verbose #10591 > > ||> zip_with (+)
00:08:37 verbose #10592 > > |> _assert_eq [[ 5; 7; 9 ]]
00:08:37 verbose #10593 > >
00:08:37 verbose #10594 > > ╭─[ 67.26ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:37 verbose #10595 > > │ assert_eq / actual: UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))) / expected: UH0_1 │
00:08:37 verbose #10596 > > │ (5, UH0_1 (7, UH0_1 (9, UH0_0))) │
00:08:37 verbose #10597 > > │ │
00:08:37 verbose #10598 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10599 > >
00:08:37 verbose #10600 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10601 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10602 > > │ ## zip │
00:08:37 verbose #10603 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10604 > >
00:08:37 verbose #10605 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10606 > > inl zip xs ys =
00:08:37 verbose #10607 > > zip_with pair xs ys
00:08:37 verbose #10608 > >
00:08:37 verbose #10609 > > inl zip_ xs ys =
00:08:37 verbose #10610 > > zip_with_ pair xs ys
00:08:37 verbose #10611 > >
00:08:37 verbose #10612 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10613 > > //// test
00:08:37 verbose #10614 > >
00:08:37 verbose #10615 > > ([[ 1i32; 2; 3 ]], [[ 4i32; 5; 6 ]])
00:08:37 verbose #10616 > > ||> zip
00:08:37 verbose #10617 > > |> _assert_eq [[ 1, 4; 2, 5; 3, 6 ]]
00:08:37 verbose #10618 > >
00:08:37 verbose #10619 > > ╭─[ 116.16ms - stdout ]────────────────────────────────────────────────────────╮
00:08:37 verbose #10620 > > │ assert_eq / actual: UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) / │
00:08:37 verbose #10621 > > │ expected: UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) │
00:08:37 verbose #10622 > > │ │
00:08:37 verbose #10623 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10624 > >
00:08:37 verbose #10625 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10626 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10627 > > │ ## indexed │
00:08:37 verbose #10628 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10629 > >
00:08:37 verbose #10630 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10631 > > inl indexed list =
00:08:37 verbose #10632 > > (([[]], 0), list)
00:08:37 verbose #10633 > > ||> listm.fold fun (acc, i) x =>
00:08:37 verbose #10634 > > (i, x) :: acc, i + 1
00:08:37 verbose #10635 > > |> fst
00:08:37 verbose #10636 > > |> listm.rev
00:08:37 verbose #10637 > >
00:08:37 verbose #10638 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10639 > > //// test
00:08:37 verbose #10640 > >
00:08:37 verbose #10641 > > listm.init 5i32 ((*) 2)
00:08:37 verbose #10642 > > |> indexed
00:08:37 verbose #10643 > > |> _assert_eq [[ 0i32, 0; 1, 2; 2, 4; 3, 6; 4, 8 ]]
00:08:37 verbose #10644 > >
00:08:37 verbose #10645 > > ╭─[ 91.04ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:37 verbose #10646 > > │ assert_eq / actual: UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, UH0_1 (3, 6, │
00:08:37 verbose #10647 > > │ UH0_1 (4, 8, UH0_0))))) / expected: UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, │
00:08:37 verbose #10648 > > │ UH0_1 (3, 6, UH0_1 (4, 8, UH0_0))))) │
00:08:37 verbose #10649 > > │ │
00:08:37 verbose #10650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10651 > >
00:08:37 verbose #10652 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10653 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10654 > > │ ## group_by │
00:08:37 verbose #10655 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10656 > >
00:08:37 verbose #10657 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10658 > > inl group_by fn list =
00:08:37 verbose #10659 > > (list, [[]])
00:08:37 verbose #10660 > > ||> listm.foldBack fun x acc =>
00:08:37 verbose #10661 > > inl xk = fn x
00:08:37 verbose #10662 > > inl found, new_acc =
00:08:37 verbose #10663 > > ((false, [[]]), acc)
00:08:37 verbose #10664 > > ||> listm.fold fun (found, acc') (k, xs) =>
00:08:37 verbose #10665 > > if k = xk
00:08:37 verbose #10666 > > then true, (k, x :: xs) :: acc'
00:08:37 verbose #10667 > > else found, (k, xs) :: acc'
00:08:37 verbose #10668 > > if found
00:08:37 verbose #10669 > > then new_acc
00:08:37 verbose #10670 > > else (xk, [[ x ]]) :: new_acc
00:08:37 verbose #10671 > >
00:08:37 verbose #10672 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10673 > > //// test
00:08:37 verbose #10674 > >
00:08:37 verbose #10675 > > listm.init 10i32 id
00:08:37 verbose #10676 > > |> group_by (fun x => x % 2 = 0)
00:08:37 verbose #10677 > > |> _assert_eq [[ true, [[ 0; 2; 4; 6; 8 ]]; false, [[ 1; 3; 5; 7; 9 ]] ]]
00:08:37 verbose #10678 > >
00:08:37 verbose #10679 > > ╭─[ 186.65ms - stdout ]────────────────────────────────────────────────────────╮
00:08:37 verbose #10680 > > │ assert_eq / actual: UH1_1 │
00:08:37 verbose #10681 > > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:08:37 verbose #10682 > > │ UH1_1 │
00:08:37 verbose #10683 > > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:08:37 verbose #10684 > > │ UH1_0)) / expected: UH1_1 │
00:08:37 verbose #10685 > > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:08:37 verbose #10686 > > │ UH1_1 │
00:08:37 verbose #10687 > > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:08:37 verbose #10688 > > │ UH1_0)) │
00:08:37 verbose #10689 > > │ │
00:08:37 verbose #10690 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10691 > >
00:08:37 verbose #10692 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10693 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10694 > > │ ## forall' │
00:08:37 verbose #10695 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10696 > >
00:08:37 verbose #10697 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10698 > > inl forall' fn (head :: tail) =
00:08:37 verbose #10699 > > (true, tail)
00:08:37 verbose #10700 > > ||> listm.fold fun acc x =>
00:08:37 verbose #10701 > > acc && x = head
00:08:37 verbose #10702 > >
00:08:37 verbose #10703 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10704 > > //// test
00:08:37 verbose #10705 > >
00:08:37 verbose #10706 > > [[ 1i32; 1; 1; 1; 1 ]]
00:08:37 verbose #10707 > > |> forall' ((=) 1i32)
00:08:37 verbose #10708 > > |> _assert_eq true
00:08:37 verbose #10709 > >
00:08:37 verbose #10710 > > ╭─[ 61.71ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:37 verbose #10711 > > │ assert_eq / actual: true / expected: true │
00:08:37 verbose #10712 > > │ │
00:08:37 verbose #10713 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10714 > >
00:08:37 verbose #10715 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10716 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10717 > > │ ## last │
00:08:37 verbose #10718 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10719 > >
00:08:37 verbose #10720 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10721 > > inl last list =
00:08:37 verbose #10722 > > list
00:08:37 verbose #10723 > > |> listm.rev
00:08:37 verbose #10724 > > |> item 0i32
00:08:37 verbose #10725 > >
00:08:37 verbose #10726 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10727 > > //// test
00:08:37 verbose #10728 > >
00:08:37 verbose #10729 > > listm.init 10i32 id
00:08:37 verbose #10730 > > |> last
00:08:37 verbose #10731 > > |> _assert_eq 9
00:08:37 verbose #10732 > >
00:08:37 verbose #10733 > > ╭─[ 36.05ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:37 verbose #10734 > > │ assert_eq / actual: 9 / expected: 9 │
00:08:37 verbose #10735 > > │ │
00:08:37 verbose #10736 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10737 > >
00:08:37 verbose #10738 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:37 verbose #10739 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:37 verbose #10740 > > │ ## try_pick │
00:08:37 verbose #10741 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:37 verbose #10742 > >
00:08:37 verbose #10743 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10744 > > inl try_pick fn list =
00:08:37 verbose #10745 > > inl rec body fn = function
00:08:37 verbose #10746 > > | [[]] => None
00:08:37 verbose #10747 > > | x :: xs =>
00:08:37 verbose #10748 > > match fn x with
00:08:37 verbose #10749 > > | Some y => Some y
00:08:37 verbose #10750 > > | None => loop xs
00:08:37 verbose #10751 > > and inl loop list =
00:08:37 verbose #10752 > > if var_is list |> not
00:08:37 verbose #10753 > > then body fn list
00:08:37 verbose #10754 > > else
00:08:37 verbose #10755 > > inl fn = join fn
00:08:37 verbose #10756 > > inl list = dyn list
00:08:37 verbose #10757 > > join body fn list
00:08:37 verbose #10758 > > loop list
00:08:37 verbose #10759 > >
00:08:37 verbose #10760 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:37 verbose #10761 > > //// test
00:08:37 verbose #10762 > >
00:08:37 verbose #10763 > > listm.init 10i32 id
00:08:37 verbose #10764 > > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:08:37 verbose #10765 > > |> _assert_eq (Some 5i32)
00:08:38 verbose #10766 > >
00:08:38 verbose #10767 > > ╭─[ 75.53ms - stdout ]─────────────────────────────────────────────────────────╮
00:08:38 verbose #10768 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:08:38 verbose #10769 > > │ │
00:08:38 verbose #10770 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #10771 > >
00:08:38 verbose #10772 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:38 verbose #10773 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:38 verbose #10774 > > │ ## exists' │
00:08:38 verbose #10775 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #10776 > >
00:08:38 verbose #10777 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:38 verbose #10778 > > inl exists' f x =
00:08:38 verbose #10779 > > inl length_x : i64 = x |> listm.length
00:08:38 verbose #10780 > > let rec loop i =
00:08:38 verbose #10781 > > if i >= length_x
00:08:38 verbose #10782 > > then false
00:08:38 verbose #10783 > > elif x |> item i |> f
00:08:38 verbose #10784 > > then true
00:08:38 verbose #10785 > > else loop (i + 1)
00:08:38 verbose #10786 > > loop 0
00:08:38 verbose #10787 > >
00:08:38 verbose #10788 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:38 verbose #10789 > > //// test
00:08:38 verbose #10790 > >
00:08:38 verbose #10791 > > [[ 'a'; 'b'; 'c' ]]
00:08:38 verbose #10792 > > |> exists' fun x => x = 'b'
00:08:38 verbose #10793 > > |> _assert_eq true
00:08:38 verbose #10794 > >
00:08:38 verbose #10795 > > [[ 'a'; 'b' ]]
00:08:38 verbose #10796 > > |> exists' fun x => x = 'c'
00:08:38 verbose #10797 > > |> _assert_eq false
00:08:38 verbose #10798 > >
00:08:38 verbose #10799 > > [[]]
00:08:38 verbose #10800 > > |> exists' fun x => x = 'a'
00:08:38 verbose #10801 > > |> _assert_eq false
00:08:38 verbose #10802 > >
00:08:38 verbose #10803 > > ╭─[ 198.49ms - stdout ]────────────────────────────────────────────────────────╮
00:08:38 verbose #10804 > > │ assert_eq / actual: true / expected: true │
00:08:38 verbose #10805 > > │ assert_eq / actual: false / expected: false │
00:08:38 verbose #10806 > > │ assert_eq / actual: false / expected: false │
00:08:38 verbose #10807 > > │ │
00:08:38 verbose #10808 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:38 verbose #10809 > 00:00:19 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 31616
00:08:38 verbose #10810 > 00:00:19 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:08:41 verbose #10811 > 00:00:22 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/listm'.dib.ipynb to html
00:08:41 verbose #10812 > 00:00:22 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:41 verbose #10813 > 00:00:22 verbose #7 ! validate(nb)
00:08:43 verbose #10814 > 00:08:41 debug #1 async.run_with_timeout_async / timeout: 500
00:08:43 verbose #10815 > 00:08:41 debug #1 async.run_with_timeout_async / timeout: 500
00:08:43 verbose #10816 > 00:08:42 critical #14 Eval.startTokenRangeWatcher / iterAsyncParallel / ex: System.AggregateException: One or more errors occurred. (The process cannot access the file 'C:\home\git\polyglot\target\spiral_Eval\tokens\e88bf0a83577667e8b9dbbf8ed4de14600de82d49b143e2923cb120213316e65\tokens.json' because it is being used by another process.)
00:08:44 verbose #10817 > 00:00:25 verbose #8 ! [NbConvertApp] Writing 374348 bytes to c:\home\git\polyglot\lib\spiral\listm'.dib.html
00:08:44 verbose #10818 > 00:00:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:08:44 verbose #10819 > 00:00:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:08:44 verbose #10820 > 00:00:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/listm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/listm''.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:08:44 verbose #10821 > 00:08:43 debug #15 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/8917d8299cf2e44bc50a26d5256184137fcb3987b36c48aa070d4c9436065fbc/main.spi
00:08:46 verbose #10822 > 00:00:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:08:46 verbose #10823 > 00:00:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:08:47 verbose #10824 > 00:00:28 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 32318
00:08:47 debug #10825 runtime.execute_with_options_async / exit_code: 0 / output.Length: 36061
00:08:47 debug #18 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path listm'.dib --retries 3
00:08:47 debug #10826 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path reflection.dib --retries 3",
[||], None, None, true, None)
00:08:47 verbose #10827 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "reflection.dib", "--retries", "3"])
00:08:47 verbose #10828 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/reflection.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/reflection.dib" --output-path "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:08:50 verbose #10829 > >
00:08:50 verbose #10830 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:50 verbose #10831 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:50 verbose #10832 > > │ # reflection │
00:08:50 verbose #10833 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 verbose #10834 > >
00:08:50 verbose #10835 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 verbose #10836 > > //// test
00:08:50 verbose #10837 > >
00:08:50 verbose #10838 > > open testing
00:08:50 verbose #10839 > >
00:08:50 verbose #10840 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:08:50 verbose #10841 > > #r
00:08:50 verbose #10842 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:50 verbose #10843 > > otNet.Interactive.Spiral.dll"
00:08:50 verbose #10844 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:08:50 verbose #10845 > > #r
00:08:50 verbose #10846 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:50 verbose #10847 > > otNet.Interactive.dll"
00:08:50 verbose #10848 > > open type Microsoft.DotNet.Interactive.Kernel
00:08:54 verbose #10849 > >
00:08:54 verbose #10850 > > ── markdown ────────────────────────────────────────────────────────────────────
00:08:54 verbose #10851 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:54 verbose #10852 > > │ ### get_union_fields │
00:08:54 verbose #10853 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 verbose #10854 > >
00:08:54 verbose #10855 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:54 verbose #10856 > > inl get_union_fields forall union_type. () : list (string * union_type) =
00:08:54 verbose #10857 > > real
00:08:54 verbose #10858 > > real_core.union_to_record
00:08:54 verbose #10859 > > `union_type
00:08:54 verbose #10860 > > forall union_record_type. =>
00:08:54 verbose #10861 > > real_core.record_type_fold
00:08:54 verbose #10862 > > fun acc key =>
00:08:54 verbose #10863 > > forall value. =>
00:08:54 verbose #10864 > > inl item = real_core.nominal_create `union_type
00:08:54 verbose #10865 > > (key, ())
00:08:54 verbose #10866 > > inl key = sm'.symbol_to_string `value key
00:08:54 verbose #10867 > > (::) `(string * union_type) (key, item) acc
00:08:54 verbose #10868 > > (Nil `(string * union_type))
00:08:54 verbose #10869 > > `union_record_type
00:08:55 verbose #10870 > >
00:08:55 verbose #10871 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:55 verbose #10872 > > //// test
00:08:55 verbose #10873 > > ///! fsharp
00:08:55 verbose #10874 > > ///! rust
00:08:55 verbose #10875 > > ///! typescript
00:08:55 verbose #10876 > > ///! python
00:08:55 verbose #10877 > >
00:08:55 verbose #10878 > > get_union_fields ()
00:08:55 verbose #10879 > > |> listm'.box
00:08:55 verbose #10880 > > |> listm'.to_array'
00:08:55 verbose #10881 > > |> am'.sort_by snd
00:08:55 verbose #10882 > > |> fun x => x : a i32 _
00:08:55 verbose #10883 > > |> _assert_eq' (a ;[[ "Native", Native; "Wasm", Wasm; "Contract", Contract ]])
00:09:00 verbose #10884 > >
00:09:00 verbose #10885 > > ╭─[ 5.29s - return value ]─────────────────────────────────────────────────────╮
00:09:00 verbose #10886 > > │ .rs output: │
00:09:00 verbose #10887 > > │ assert_eq' / actual: Array(MutCell([("Native", US0_0), ("Wasm", US0_1), │
00:09:00 verbose #10888 > > │ ("Contract", US0_2)])) / expected: Array(MutCell([("Native", US0_0), │
00:09:00 verbose #10889 > > │ ("Wasm", US0_1), ("Contract", US0_2)])) │
00:09:00 verbose #10890 > > │ │
00:09:00 verbose #10891 > > │ .ts output: │
00:09:00 verbose #10892 > > │ assert_eq' / actual: Native,US0_0,Wasm,US0_1,Contract,US0_2 / expected: │
00:09:00 verbose #10893 > > │ Native,US0_0,Wasm,US0_1,Contract,US0_2 │
00:09:00 verbose #10894 > > │ │
00:09:00 verbose #10895 > > │ .py output: │
00:09:00 verbose #10896 > > │ assert_eq' / actual: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:09:00 verbose #10897 > > │ US0_2)] / expected: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:09:00 verbose #10898 > > │ US0_2)] │
00:09:00 verbose #10899 > > │ │
00:09:00 verbose #10900 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 verbose #10901 > >
00:09:00 verbose #10902 > > ╭─[ 5.29s - stdout ]───────────────────────────────────────────────────────────╮
00:09:00 verbose #10903 > > │ .fsx output: │
00:09:00 verbose #10904 > > │ assert_eq' / actual: [|struct ("Native", US0_0); struct ("Wasm", US0_1); │
00:09:00 verbose #10905 > > │ struct ("Contract", US0_2)|] / expected: [|struct ("Native", US0_0); struct │
00:09:00 verbose #10906 > > │ ("Wasm", US0_1); struct ("Contract", US0_2)|] │
00:09:00 verbose #10907 > > │ │
00:09:00 verbose #10908 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 verbose #10909 > >
00:09:00 verbose #10910 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:00 verbose #10911 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:00 verbose #10912 > > │ ### get_union_fields_untag │
00:09:00 verbose #10913 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 verbose #10914 > >
00:09:00 verbose #10915 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 verbose #10916 > > inl get_union_fields_untag forall union_type. () : list (string * union_type) =
00:09:00 verbose #10917 > > real
00:09:00 verbose #10918 > > real_core.union_to_record
00:09:00 verbose #10919 > > `union_type
00:09:00 verbose #10920 > > forall union_record_type. =>
00:09:00 verbose #10921 > > inl result =
00:09:00 verbose #10922 > > real_core.record_type_fold_back
00:09:00 verbose #10923 > > fun _key =>
00:09:00 verbose #10924 > > forall value. (acc, (i : i32)) =>
00:09:00 verbose #10925 > > inl key, item : (string * union_type) =
00:09:00 verbose #10926 > > real_core.union_untag `union_type i
00:09:00 verbose #10927 > > (fun key => forall v. =>
00:09:00 verbose #10928 > > (sm'.symbol_to_string `v key),
00:09:00 verbose #10929 > > real_core.nominal_create `union_type
00:09:00 verbose #10930 > > (key, ())
00:09:00 verbose #10931 > > )
00:09:00 verbose #10932 > > (fun _ => failwith `(string *
00:09:00 verbose #10933 > > union_type) "reflection.get_union_fields_untag / invalid tag")
00:09:00 verbose #10934 > > (::) `(string * union_type) (key, item) acc, (+)
00:09:00 verbose #10935 > > `i32 i 1
00:09:00 verbose #10936 > > `union_record_type
00:09:00 verbose #10937 > > (Nil `(string * union_type), 0i32)
00:09:00 verbose #10938 > > inl result = fst `(list (string * union_type)) `i32 result
00:09:00 verbose #10939 > > listm.rev `(string * union_type) result
00:09:00 verbose #10940 > >
00:09:00 verbose #10941 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 verbose #10942 > > //// test
00:09:00 verbose #10943 > > ///! fsharp
00:09:00 verbose #10944 > > ///! rust
00:09:00 verbose #10945 > > ///! typescript
00:09:00 verbose #10946 > > ///! python
00:09:00 verbose #10947 > >
00:09:00 verbose #10948 > > get_union_fields_untag ()
00:09:00 verbose #10949 > > |> listm'.box
00:09:00 verbose #10950 > > |> listm'.to_array'
00:09:00 verbose #10951 > > |> fun x => x : a i32 _
00:09:00 verbose #10952 > > |> _assert_eq' (a ;[[ "Native", Native; "Wasm", Wasm; "Contract", Contract ]])
00:09:05 verbose #10953 > >
00:09:05 verbose #10954 > > ╭─[ 4.90s - return value ]─────────────────────────────────────────────────────╮
00:09:05 verbose #10955 > > │ .rs output: │
00:09:05 verbose #10956 > > │ assert_eq' / actual: Array(MutCell([("Native", US0_0), ("Wasm", US0_1), │
00:09:05 verbose #10957 > > │ ("Contract", US0_2)])) / expected: Array(MutCell([("Native", US0_0), │
00:09:05 verbose #10958 > > │ ("Wasm", US0_1), ("Contract", US0_2)])) │
00:09:05 verbose #10959 > > │ │
00:09:05 verbose #10960 > > │ .ts output: │
00:09:05 verbose #10961 > > │ assert_eq' / actual: Native,US0_0,Wasm,US0_1,Contract,US0_2 / expected: │
00:09:05 verbose #10962 > > │ Native,US0_0,Wasm,US0_1,Contract,US0_2 │
00:09:05 verbose #10963 > > │ │
00:09:05 verbose #10964 > > │ .py output: │
00:09:05 verbose #10965 > > │ assert_eq' / actual: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:09:05 verbose #10966 > > │ US0_2)] / expected: [('Native', US0_0), ('Wasm', US0_1), ('Contract', │
00:09:05 verbose #10967 > > │ US0_2)] │
00:09:05 verbose #10968 > > │ │
00:09:05 verbose #10969 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #10970 > >
00:09:05 verbose #10971 > > ╭─[ 4.90s - stdout ]───────────────────────────────────────────────────────────╮
00:09:05 verbose #10972 > > │ .fsx output: │
00:09:05 verbose #10973 > > │ assert_eq' / actual: [|struct ("Native", US0_0); struct ("Wasm", US0_1); │
00:09:05 verbose #10974 > > │ struct ("Contract", US0_2)|] / expected: [|struct ("Native", US0_0); struct │
00:09:05 verbose #10975 > > │ ("Wasm", US0_1); struct ("Contract", US0_2)|] │
00:09:05 verbose #10976 > > │ │
00:09:05 verbose #10977 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #10978 > >
00:09:05 verbose #10979 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:05 verbose #10980 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:05 verbose #10981 > > │ ## union_try_pick │
00:09:05 verbose #10982 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #10983 > >
00:09:05 verbose #10984 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #10985 > > inl union_try_pick forall t. (key : string) : option t =
00:09:05 verbose #10986 > > real get_union_fields_untag `t ()
00:09:05 verbose #10987 > > |> listm'.try_pick fun key', x =>
00:09:05 verbose #10988 > > if key' = key
00:09:05 verbose #10989 > > then Some x
00:09:05 verbose #10990 > > else None
00:09:05 verbose #10991 > >
00:09:05 verbose #10992 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:05 verbose #10993 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:05 verbose #10994 > > │ ## union_to_string │
00:09:05 verbose #10995 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 verbose #10996 > >
00:09:05 verbose #10997 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 verbose #10998 > > inl union_to_string forall t. (x : t) : string =
00:09:05 verbose #10999 > > real get_union_fields_untag `t ()
00:09:05 verbose #11000 > > |> listm'.try_pick fun key, x' =>
00:09:05 verbose #11001 > > if x' = x
00:09:05 verbose #11002 > > then Some key
00:09:05 verbose #11003 > > else None
00:09:05 verbose #11004 > > |> optionm.value
00:09:05 verbose #11005 > 00:00:17 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 9081
00:09:05 verbose #11006 > 00:00:17 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:09:08 verbose #11007 > 00:00:20 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/reflection.dib.ipynb to html
00:09:08 verbose #11008 > 00:00:20 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:08 verbose #11009 > 00:00:20 verbose #7 ! validate(nb)
00:09:09 verbose #11010 > 00:00:21 verbose #8 ! [NbConvertApp] Writing 290137 bytes to c:\home\git\polyglot\lib\spiral\reflection.dib.html
00:09:10 verbose #11011 > 00:00:22 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:09:10 verbose #11012 > 00:00:22 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:09:10 verbose #11013 > 00:00:22 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/reflection.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/reflection.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:09:11 verbose #11014 > 00:00:23 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:09:11 verbose #11015 > 00:00:23 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:09:13 verbose #11016 > 00:00:25 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 9791
00:09:13 debug #11017 runtime.execute_with_options_async / exit_code: 0 / output.Length: 12434
00:09:13 debug #19 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path reflection.dib --retries 3
00:09:13 debug #11018 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path util.dib --retries 3",
[||], None, None, true, None)
00:09:13 verbose #11019 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "util.dib", "--retries", "3"])
00:09:13 verbose #11020 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/util.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/util.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/util.dib" --output-path "c:/home/git/polyglot/lib/spiral/util.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:09:18 verbose #11021 > >
00:09:18 verbose #11022 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:18 verbose #11023 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:18 verbose #11024 > > │ # util │
00:09:18 verbose #11025 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:18 verbose #11026 > >
00:09:18 verbose #11027 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:18 verbose #11028 > > //// test
00:09:18 verbose #11029 > >
00:09:18 verbose #11030 > > open testing
00:09:18 verbose #11031 > >
00:09:18 verbose #11032 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:09:18 verbose #11033 > > #r
00:09:18 verbose #11034 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:18 verbose #11035 > > otNet.Interactive.Spiral.dll"
00:09:18 verbose #11036 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:09:18 verbose #11037 > > #r
00:09:18 verbose #11038 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:18 verbose #11039 > > otNet.Interactive.dll"
00:09:18 verbose #11040 > > open type Microsoft.DotNet.Interactive.Kernel
00:09:28 verbose #11041 > >
00:09:28 verbose #11042 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:28 verbose #11043 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:28 verbose #11044 > > │ ## ski │
00:09:28 verbose #11045 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:28 verbose #11046 > >
00:09:28 verbose #11047 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:28 verbose #11048 > > union rec ski =
00:09:28 verbose #11049 > > | I
00:09:28 verbose #11050 > > | K
00:09:28 verbose #11051 > > | S
00:09:28 verbose #11052 > > | App : ski * ski
00:09:28 verbose #11053 > >
00:09:28 verbose #11054 > > inl rec eval ski =
00:09:28 verbose #11055 > > match ski with
00:09:28 verbose #11056 > > | App (App (K, x), y) => eval x
00:09:28 verbose #11057 > > | App (App (App (S, x), y), z) => eval (App (App (x, z), App (y, z)))
00:09:28 verbose #11058 > > | App (I, x) => eval x
00:09:28 verbose #11059 > > | App (K, x) => App (K, eval x)
00:09:28 verbose #11060 > > | App (f, x) => eval (App (eval f, x))
00:09:28 verbose #11061 > > | _ => ski
00:09:28 verbose #11062 > >
00:09:28 verbose #11063 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:28 verbose #11064 > > //// test
00:09:28 verbose #11065 > >
00:09:28 verbose #11066 > > eval I
00:09:28 verbose #11067 > > |> _assert_eq I
00:09:28 verbose #11068 > >
00:09:28 verbose #11069 > > eval (App (I, I))
00:09:28 verbose #11070 > > |> _assert_eq I
00:09:28 verbose #11071 > >
00:09:28 verbose #11072 > > eval (App (I, App (I, I)))
00:09:28 verbose #11073 > > |> _assert_eq I
00:09:28 verbose #11074 > >
00:09:28 verbose #11075 > > eval (App (App (I, I), I))
00:09:28 verbose #11076 > > |> _assert_eq I
00:09:28 verbose #11077 > >
00:09:28 verbose #11078 > > eval (App (App (App (I, I), I), I))
00:09:28 verbose #11079 > > |> _assert_eq I
00:09:28 verbose #11080 > >
00:09:28 verbose #11081 > > eval K
00:09:28 verbose #11082 > > |> _assert_eq K
00:09:28 verbose #11083 > >
00:09:28 verbose #11084 > > eval (App (K, I))
00:09:28 verbose #11085 > > |> _assert_eq (App (K, I))
00:09:28 verbose #11086 > >
00:09:28 verbose #11087 > > eval (App (K, K))
00:09:28 verbose #11088 > > |> _assert_eq (App (K, K))
00:09:28 verbose #11089 > >
00:09:28 verbose #11090 > > eval (App (App (K, I), K))
00:09:28 verbose #11091 > > |> _assert_eq I
00:09:28 verbose #11092 > >
00:09:28 verbose #11093 > > eval (App (App (K, K), I))
00:09:28 verbose #11094 > > |> _assert_eq K
00:09:28 verbose #11095 > >
00:09:28 verbose #11096 > > eval (App (App (App (App (K, K), I), S), K))
00:09:28 verbose #11097 > > |> _assert_eq S
00:09:28 verbose #11098 > >
00:09:28 verbose #11099 > > eval S
00:09:28 verbose #11100 > > |> _assert_eq S
00:09:28 verbose #11101 > >
00:09:28 verbose #11102 > > eval (App (App (App (S, I), I), I))
00:09:28 verbose #11103 > > |> _assert_eq I
00:09:28 verbose #11104 > >
00:09:28 verbose #11105 > > eval (App (App (App (S, K), K), I))
00:09:28 verbose #11106 > > |> _assert_eq I
00:09:28 verbose #11107 > >
00:09:28 verbose #11108 > > eval (App (App (App (S, K), I), (App (App (K, I), S))))
00:09:28 verbose #11109 > > |> _assert_eq I
00:09:28 verbose #11110 > >
00:09:28 verbose #11111 > > eval (App (App (K, S), App (I, App (App (App (S, K), S), I))))
00:09:28 verbose #11112 > > |> _assert_eq S
00:09:28 verbose #11113 > >
00:09:28 verbose #11114 > > eval (App (App (App (S, K), I), K))
00:09:28 verbose #11115 > > |> _assert_eq K
00:09:30 verbose #11116 > >
00:09:30 verbose #11117 > > ╭─[ 2.07s - stdout ]───────────────────────────────────────────────────────────╮
00:09:30 verbose #11118 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11119 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11120 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11121 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11122 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11123 > > │ assert_eq / actual: UH0_1 / expected: UH0_1 │
00:09:30 verbose #11124 > > │ assert_eq / actual: UH0_3 (UH0_1, UH0_0) / expected: UH0_3 (UH0_1, UH0_0) │
00:09:30 verbose #11125 > > │ assert_eq / actual: UH0_3 (UH0_1, UH0_1) / expected: UH0_3 (UH0_1, UH0_1) │
00:09:30 verbose #11126 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11127 > > │ assert_eq / actual: UH0_1 / expected: UH0_1 │
00:09:30 verbose #11128 > > │ assert_eq / actual: UH0_2 / expected: UH0_2 │
00:09:30 verbose #11129 > > │ assert_eq / actual: UH0_2 / expected: UH0_2 │
00:09:30 verbose #11130 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11131 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11132 > > │ assert_eq / actual: UH0_0 / expected: UH0_0 │
00:09:30 verbose #11133 > > │ assert_eq / actual: UH0_2 / expected: UH0_2 │
00:09:30 verbose #11134 > > │ assert_eq / actual: UH0_1 / expected: UH0_1 │
00:09:30 verbose #11135 > > │ │
00:09:30 verbose #11136 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:30 verbose #11137 > 00:00:17 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 4096
00:09:30 verbose #11138 > 00:00:17 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/util.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/util.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:09:33 verbose #11139 > 00:00:19 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/util.dib.ipynb to html
00:09:33 verbose #11140 > 00:00:19 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:33 verbose #11141 > 00:00:19 verbose #7 ! validate(nb)
00:09:34 verbose #11142 > 00:00:21 verbose #8 ! [NbConvertApp] Writing 284191 bytes to c:\home\git\polyglot\lib\spiral\util.dib.html
00:09:34 verbose #11143 > 00:00:21 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 639
00:09:34 verbose #11144 > 00:00:21 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 639
00:09:34 verbose #11145 > 00:00:21 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/util.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/util.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:09:35 verbose #11146 > 00:00:22 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:09:35 verbose #11147 > 00:00:22 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:09:35 verbose #11148 > 00:00:22 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 4794
00:09:35 debug #11149 runtime.execute_with_options_async / exit_code: 0 / output.Length: 7263
00:09:35 debug #20 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path util.dib --retries 3
00:09:35 debug #11150 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path platform.dib --retries 3",
[||], None, None, true, None)
00:09:36 verbose #11151 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "platform.dib", "--retries", "3"])
00:09:36 verbose #11152 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/platform.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/platform.dib" --output-path "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:09:38 verbose #11153 > >
00:09:38 verbose #11154 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:38 verbose #11155 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:38 verbose #11156 > > │ # platform │
00:09:38 verbose #11157 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:38 verbose #11158 > >
00:09:38 verbose #11159 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:38 verbose #11160 > > open rust_operators
00:09:38 verbose #11161 > >
00:09:38 verbose #11162 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:09:38 verbose #11163 > > #r
00:09:38 verbose #11164 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:38 verbose #11165 > > otNet.Interactive.Spiral.dll"
00:09:38 verbose #11166 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:09:38 verbose #11167 > > #r
00:09:38 verbose #11168 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:38 verbose #11169 > > otNet.Interactive.dll"
00:09:38 verbose #11170 > > open type Microsoft.DotNet.Interactive.Kernel
00:09:42 verbose #11171 > >
00:09:42 verbose #11172 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:42 verbose #11173 > > //// test
00:09:42 verbose #11174 > >
00:09:42 verbose #11175 > > open testing
00:09:42 verbose #11176 > >
00:09:42 verbose #11177 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:42 verbose #11178 > > inl types () =
00:09:42 verbose #11179 > > ()
00:09:42 verbose #11180 > >
00:09:42 verbose #11181 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:42 verbose #11182 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:42 verbose #11183 > > │ ## os_platform │
00:09:42 verbose #11184 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:42 verbose #11185 > >
00:09:42 verbose #11186 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:42 verbose #11187 > > nominal os_platform' = $'System.Runtime.InteropServices.OSPlatform'
00:09:42 verbose #11188 > >
00:09:42 verbose #11189 > > union os_platform =
00:09:42 verbose #11190 > > | FreeBSD
00:09:42 verbose #11191 > > | Linux
00:09:42 verbose #11192 > > | OSX
00:09:42 verbose #11193 > > | Windows
00:09:42 verbose #11194 > >
00:09:42 verbose #11195 > > inl os_platform = function
00:09:42 verbose #11196 > > | FreeBSD => $'`os_platform'.FreeBSD' : os_platform'
00:09:42 verbose #11197 > > | Linux => $'`os_platform'.Linux' : os_platform'
00:09:42 verbose #11198 > > | OSX => $'`os_platform'.OSX' : os_platform'
00:09:42 verbose #11199 > > | Windows => $'`os_platform'.Windows' : os_platform'
00:09:43 verbose #11200 > >
00:09:43 verbose #11201 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #11202 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #11203 > > │ ## run_platform │
00:09:43 verbose #11204 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #11205 > >
00:09:43 verbose #11206 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #11207 > > inl run_platform forall t. (fn : os_platform -> (() -> t)) : t =
00:09:43 verbose #11208 > > inl result = dyn true
00:09:43 verbose #11209 > > $'let mutable _!result : `t option = None '
00:09:43 verbose #11210 > > $'\n#if _FREEBSD'
00:09:43 verbose #11211 > > fn FreeBSD () |> emit_unit
00:09:43 verbose #11212 > > $'#endif\n#if _LINUX'
00:09:43 verbose #11213 > > fn Linux () |> emit_unit
00:09:43 verbose #11214 > > $'#endif\n#if _OSX'
00:09:43 verbose #11215 > > fn OSX () |> emit_unit
00:09:43 verbose #11216 > > $'#endif\n#if _WINDOWS'
00:09:43 verbose #11217 > > fn Windows () |> emit_unit
00:09:43 verbose #11218 > > $'#endif'
00:09:43 verbose #11219 > > $'|> fun x -> _!result <- Some x'
00:09:43 verbose #11220 > > $'match _!result with Some x -> x | None -> failwith "runtime.run_platform
00:09:43 verbose #11221 > > _!result=None"'
00:09:43 verbose #11222 > >
00:09:43 verbose #11223 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #11224 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #11225 > > │ ## is_os_platform │
00:09:43 verbose #11226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #11227 > >
00:09:43 verbose #11228 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #11229 > > inl is_os_platform (x : os_platform') : bool =
00:09:43 verbose #11230 > > x |> $'System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform'
00:09:43 verbose #11231 > >
00:09:43 verbose #11232 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #11233 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #11234 > > │ ## is_windows │
00:09:43 verbose #11235 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #11236 > >
00:09:43 verbose #11237 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #11238 > > inl is_windows () : bool =
00:09:43 verbose #11239 > > run_target function
00:09:43 verbose #11240 > > | Rust _ => fun () =>
00:09:43 verbose #11241 > > !\($'"cfg\!(windows)"')
00:09:43 verbose #11242 > > | Fsharp _ => fun () =>
00:09:43 verbose #11243 > > Windows |> os_platform |> is_os_platform
00:09:43 verbose #11244 > > | target => fun () => failwith $'$"platform.is_windows / target:
00:09:43 verbose #11245 > > {!target}"'
00:09:43 verbose #11246 > >
00:09:43 verbose #11247 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #11248 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #11249 > > │ ## is_windows' │
00:09:43 verbose #11250 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #11251 > >
00:09:43 verbose #11252 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #11253 > > inl is_windows' () : bool =
00:09:43 verbose #11254 > > run_platform function
00:09:43 verbose #11255 > > | Windows => fun () => true
00:09:43 verbose #11256 > > | _ => fun () => false
00:09:43 verbose #11257 > >
00:09:43 verbose #11258 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:43 verbose #11259 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:43 verbose #11260 > > │ ## get_executable_suffix │
00:09:43 verbose #11261 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:43 verbose #11262 > >
00:09:43 verbose #11263 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #11264 > > inl get_executable_suffix () =
00:09:43 verbose #11265 > > if is_windows ()
00:09:43 verbose #11266 > > then ".exe"
00:09:43 verbose #11267 > > else ""
00:09:43 verbose #11268 > >
00:09:43 verbose #11269 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:43 verbose #11270 > > //// test
00:09:43 verbose #11271 > >
00:09:43 verbose #11272 > > get_executable_suffix ()
00:09:44 verbose #11273 > >
00:09:44 verbose #11274 > > ╭─[ 1.12s - return value ]─────────────────────────────────────────────────────╮
00:09:44 verbose #11275 > > │ .exe │
00:09:44 verbose #11276 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:44 verbose #11277 > >
00:09:44 verbose #11278 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:44 verbose #11279 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:44 verbose #11280 > > │ ## main │
00:09:44 verbose #11281 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:44 verbose #11282 > >
00:09:44 verbose #11283 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:44 verbose #11284 > > inl main () =
00:09:44 verbose #11285 > > types ()
00:09:44 verbose #11286 > > $'let is_windows () = !is_windows ()' : ()
00:09:44 verbose #11287 > > $'let get_executable_suffix () = !get_executable_suffix ()' : ()
00:09:44 verbose #11288 > 00:00:08 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 5902
00:09:44 verbose #11289 > 00:00:08 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/platform.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:09:46 verbose #11290 > 00:00:10 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/platform.dib.ipynb to html
00:09:46 verbose #11291 > 00:00:10 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:46 verbose #11292 > 00:00:10 verbose #7 ! validate(nb)
00:09:47 verbose #11293 > 00:00:11 verbose #8 ! [NbConvertApp] Writing 287675 bytes to c:\home\git\polyglot\lib\spiral\platform.dib.html
00:09:47 verbose #11294 > 00:00:11 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 647
00:09:47 verbose #11295 > 00:00:11 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 647
00:09:47 verbose #11296 > 00:00:11 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/platform.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/platform.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:09:48 verbose #11297 > 00:00:12 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:09:48 verbose #11298 > 00:00:12 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:09:49 verbose #11299 > 00:00:13 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 6608
00:09:49 debug #11300 runtime.execute_with_options_async / exit_code: 0 / output.Length: 9151
00:09:49 debug #21 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path platform.dib --retries 3
00:09:49 debug #11301 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path stream.dib --retries 3",
[||], None, None, true, None)
00:09:49 verbose #11302 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "stream.dib", "--retries", "3"])
00:09:49 verbose #11303 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/stream.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/stream.dib" --output-path "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:09:51 verbose #11304 > >
00:09:51 verbose #11305 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:51 verbose #11306 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:51 verbose #11307 > > │ # stream │
00:09:51 verbose #11308 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:51 verbose #11309 > >
00:09:51 verbose #11310 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:51 verbose #11311 > > open rust_operators
00:09:51 verbose #11312 > >
00:09:51 verbose #11313 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:09:51 verbose #11314 > > #r
00:09:51 verbose #11315 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:51 verbose #11316 > > otNet.Interactive.Spiral.dll"
00:09:51 verbose #11317 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:09:51 verbose #11318 > > #r
00:09:51 verbose #11319 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:09:51 verbose #11320 > > otNet.Interactive.dll"
00:09:51 verbose #11321 > > open type Microsoft.DotNet.Interactive.Kernel
00:09:56 verbose #11322 > >
00:09:56 verbose #11323 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11324 > > //// test
00:09:56 verbose #11325 > >
00:09:56 verbose #11326 > > open testing
00:09:56 verbose #11327 > >
00:09:56 verbose #11328 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11329 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11330 > > │ ## types │
00:09:56 verbose #11331 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11332 > >
00:09:56 verbose #11333 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11334 > > inl types () =
00:09:56 verbose #11335 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:56 verbose #11336 > > Fable.Core.Emit(\"encoding_rs_io::DecodeReaderBytes<$0, $1>\")>]]\n#endif\ntype
00:09:56 verbose #11337 > > encoding_rs_io_DecodeReaderBytes<'T, 'U> = class end"
00:09:56 verbose #11338 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:56 verbose #11339 > > Fable.Core.Emit(\"std::io::BufReader<$0>\")>]]\n#endif\ntype
00:09:56 verbose #11340 > > std_io_BufReader<'T> = class end"
00:09:56 verbose #11341 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:56 verbose #11342 > > Fable.Core.Emit(\"std::io::Cursor<$0>\")>]]\n#endif\ntype std_io_Cursor<'T> =
00:09:56 verbose #11343 > > class end"
00:09:56 verbose #11344 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:56 verbose #11345 > > Fable.Core.Emit(\"std::io::Error\")>]]\n#endif\ntype std_io_Error = class end"
00:09:56 verbose #11346 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:56 verbose #11347 > > Fable.Core.Emit(\"std::io::Lines<$0>\")>]]\n#endif\ntype std_io_Lines<'T> =
00:09:56 verbose #11348 > > class end"
00:09:56 verbose #11349 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:09:56 verbose #11350 > > Fable.Core.Emit(\"tokio::io::BufReader<$0>\")>]]\n#endif\ntype
00:09:56 verbose #11351 > > tokio_io_BufReader<'T> = class end"
00:09:56 verbose #11352 > >
00:09:56 verbose #11353 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11354 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11355 > > │ ## io_error │
00:09:56 verbose #11356 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11357 > >
00:09:56 verbose #11358 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11359 > > nominal io_error = $'std_io_Error'
00:09:56 verbose #11360 > >
00:09:56 verbose #11361 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11362 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11363 > > │ ## buf_reader │
00:09:56 verbose #11364 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11365 > >
00:09:56 verbose #11366 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11367 > > nominal buf_reader t = $'std_io_BufReader<`t>'
00:09:56 verbose #11368 > >
00:09:56 verbose #11369 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11370 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11371 > > │ ## cursor │
00:09:56 verbose #11372 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11373 > >
00:09:56 verbose #11374 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11375 > > nominal cursor t = $'std_io_Cursor<`t>'
00:09:56 verbose #11376 > >
00:09:56 verbose #11377 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11378 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11379 > > │ ## async_buf_reader │
00:09:56 verbose #11380 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11381 > >
00:09:56 verbose #11382 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11383 > > nominal async_buf_reader t = $'tokio_io_BufReader<`t>'
00:09:56 verbose #11384 > >
00:09:56 verbose #11385 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11386 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11387 > > │ ## new_buf_reader │
00:09:56 verbose #11388 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11389 > >
00:09:56 verbose #11390 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11391 > > inl new_buf_reader forall t. (x : t) : buf_reader t =
00:09:56 verbose #11392 > > !\($'"std::io::BufReader::new(!x)"')
00:09:56 verbose #11393 > >
00:09:56 verbose #11394 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11395 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11396 > > │ ## new_cursor │
00:09:56 verbose #11397 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11398 > >
00:09:56 verbose #11399 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11400 > > inl new_cursor forall t. (x : t) : cursor t =
00:09:56 verbose #11401 > > !\($'"std::io::Cursor::new(!x)"')
00:09:56 verbose #11402 > >
00:09:56 verbose #11403 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11404 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11405 > > │ ## lines │
00:09:56 verbose #11406 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11407 > >
00:09:56 verbose #11408 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11409 > > nominal lines t = $'std_io_Lines<`t>'
00:09:56 verbose #11410 > >
00:09:56 verbose #11411 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11412 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11413 > > │ ## buf_read_lines │
00:09:56 verbose #11414 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11415 > >
00:09:56 verbose #11416 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11417 > > inl buf_read_lines forall t. (buf_reader : buf_reader t) : lines (buf_reader t)
00:09:56 verbose #11418 > > =
00:09:56 verbose #11419 > > !\($'"std::io::BufRead::lines(!buf_reader)"')
00:09:56 verbose #11420 > >
00:09:56 verbose #11421 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11422 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11423 > > │ ## decode_reader_bytes │
00:09:56 verbose #11424 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11425 > >
00:09:56 verbose #11426 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11427 > > nominal decode_reader_bytes t u = $'encoding_rs_io_DecodeReaderBytes<`t, `u>'
00:09:56 verbose #11428 > >
00:09:56 verbose #11429 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11430 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11431 > > │ ## decode_reader_bytes_build │
00:09:56 verbose #11432 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11433 > >
00:09:56 verbose #11434 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11435 > > inl decode_reader_bytes_build forall t. (x : t) : decode_reader_bytes t (am'.vec
00:09:56 verbose #11436 > > u8) =
00:09:56 verbose #11437 > >
00:09:56 verbose #11438 > > !\($'"encoding_rs_io::DecodeReaderBytesBuilder::new().encoding(Some(encoding_rs:
00:09:56 verbose #11439 > > :UTF_8)).build(!x)"')
00:09:56 verbose #11440 > >
00:09:56 verbose #11441 > > !\($'"encoding_rs_io::DecodeReaderBytesBuilder::new().encoding(Some(encoding_rs:
00:09:56 verbose #11442 > > :UTF_8)).utf8_passthru(true).build(!x)"')
00:09:56 verbose #11443 > > !\\(x,
00:09:56 verbose #11444 > > $'"encoding_rs_io::DecodeReaderBytesBuilder::new().utf8_passthru(true).build($0)
00:09:56 verbose #11445 > > "')
00:09:56 verbose #11446 > > // !\($'"encoding_rs_io::DecodeReaderBytes::new(!x)"')
00:09:56 verbose #11447 > >
00:09:56 verbose #11448 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11449 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11450 > > │ ## buf_reader_read │
00:09:56 verbose #11451 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11452 > >
00:09:56 verbose #11453 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11454 > > inl buf_reader_read forall el dim. (slice : am'.slice' el dim) (buf_reader :
00:09:56 verbose #11455 > > buf_reader el) : resultm.result' unativeint io_error =
00:09:56 verbose #11456 > > (!\($'"true; let mut !slice = !slice"') : bool) |> ignore
00:09:56 verbose #11457 > > !\($'"std::io::Read::read(&mut !buf_reader, &mut !slice)"')
00:09:56 verbose #11458 > >
00:09:56 verbose #11459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11461 > > │ ## io_read_by_ref │
00:09:56 verbose #11462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11463 > >
00:09:56 verbose #11464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11465 > > inl io_read_by_ref forall t. (lines : lines t) : lines t =
00:09:56 verbose #11466 > > !\\(lines, $'"std::io::Read::by_ref($0)"')
00:09:56 verbose #11467 > >
00:09:56 verbose #11468 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11469 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11470 > > │ ## stream │
00:09:56 verbose #11471 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11472 > >
00:09:56 verbose #11473 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11474 > > union rec stream t =
00:09:56 verbose #11475 > > | StreamCons : t * (() -> stream t)
00:09:56 verbose #11476 > > | StreamNil
00:09:56 verbose #11477 > >
00:09:56 verbose #11478 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11479 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11480 > > │ ## fold │
00:09:56 verbose #11481 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11482 > >
00:09:56 verbose #11483 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11484 > > inl fold fn init s =
00:09:56 verbose #11485 > > inl rec body acc = function
00:09:56 verbose #11486 > > | StreamCons (st, fn') => loop (fn acc st) (fn' ())
00:09:56 verbose #11487 > > | StreamNil => acc
00:09:56 verbose #11488 > > and inl loop acc = join_body body acc
00:09:56 verbose #11489 > > loop init s
00:09:56 verbose #11490 > >
00:09:56 verbose #11491 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11492 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11493 > > │ ## fold_back │
00:09:56 verbose #11494 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11495 > >
00:09:56 verbose #11496 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11497 > > inl fold_back fn s init =
00:09:56 verbose #11498 > > inl rec body acc = function
00:09:56 verbose #11499 > > | StreamCons (st, fn') => fn st (loop acc (fn' ()))
00:09:56 verbose #11500 > > | StreamNil => acc
00:09:56 verbose #11501 > > and inl loop acc = join_body body acc
00:09:56 verbose #11502 > > loop init s
00:09:56 verbose #11503 > >
00:09:56 verbose #11504 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11505 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11506 > > │ ## to_list │
00:09:56 verbose #11507 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11508 > >
00:09:56 verbose #11509 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11510 > > inl to_list s =
00:09:56 verbose #11511 > > (s, [[]])
00:09:56 verbose #11512 > > ||> fold_back fun x acc =>
00:09:56 verbose #11513 > > x :: acc
00:09:56 verbose #11514 > >
00:09:56 verbose #11515 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11516 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11517 > > │ ## rev │
00:09:56 verbose #11518 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11519 > >
00:09:56 verbose #11520 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11521 > > inl rev s =
00:09:56 verbose #11522 > > (StreamNil, s)
00:09:56 verbose #11523 > > ||> fold fun s x =>
00:09:56 verbose #11524 > > StreamCons (x, fun () => s)
00:09:56 verbose #11525 > >
00:09:56 verbose #11526 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:56 verbose #11527 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:56 verbose #11528 > > │ ## from_list │
00:09:56 verbose #11529 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:56 verbose #11530 > >
00:09:56 verbose #11531 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11532 > > inl from_list list =
00:09:56 verbose #11533 > > (list, StreamNil)
00:09:56 verbose #11534 > > ||> listm.foldBack fun x acc =>
00:09:56 verbose #11535 > > StreamCons (x, fun () => acc)
00:09:56 verbose #11536 > >
00:09:56 verbose #11537 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:56 verbose #11538 > > //// test
00:09:56 verbose #11539 > >
00:09:56 verbose #11540 > > listm.init 3i32 id
00:09:56 verbose #11541 > > |> from_list
00:09:56 verbose #11542 > > |> rev
00:09:56 verbose #11543 > > |> to_list
00:09:56 verbose #11544 > > |> _assert_eq [[ 2; 1; 0 ]]
00:09:58 verbose #11545 > >
00:09:58 verbose #11546 > > ╭─[ 2.05s - stdout ]───────────────────────────────────────────────────────────╮
00:09:58 verbose #11547 > > │ assert_eq / actual: UH0_1 (2, UH0_1 (1, UH0_1 (0, UH0_0))) / expected: UH0_1 │
00:09:58 verbose #11548 > > │ (2, UH0_1 (1, UH0_1 (0, UH0_0))) │
00:09:58 verbose #11549 > > │ │
00:09:58 verbose #11550 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:58 verbose #11551 > >
00:09:58 verbose #11552 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:58 verbose #11553 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:58 verbose #11554 > > │ ## try_item │
00:09:58 verbose #11555 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:58 verbose #11556 > >
00:09:58 verbose #11557 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:58 verbose #11558 > > inl try_item i s =
00:09:58 verbose #11559 > > inl rec body i = function
00:09:58 verbose #11560 > > | StreamCons (x, _) when i <= 0 => Some x
00:09:58 verbose #11561 > > | StreamCons (_, fn) => loop (i - 1) (fn ())
00:09:58 verbose #11562 > > | StreamNil => None
00:09:58 verbose #11563 > > and inl loop acc s' =
00:09:58 verbose #11564 > > match var_is acc, var_is s' with
00:09:58 verbose #11565 > > | false, false => body acc s'
00:09:58 verbose #11566 > > | _ =>
00:09:58 verbose #11567 > > inl acc = dyn acc
00:09:58 verbose #11568 > > inl s' = dyn s'
00:09:58 verbose #11569 > > join body acc s'
00:09:58 verbose #11570 > > loop i s
00:09:58 verbose #11571 > >
00:09:58 verbose #11572 > > inl item i =
00:09:58 verbose #11573 > > try_item i >> optionm.value
00:09:59 verbose #11574 > >
00:09:59 verbose #11575 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #11576 > > //// test
00:09:59 verbose #11577 > >
00:09:59 verbose #11578 > > listm.init 10i32 id
00:09:59 verbose #11579 > > |> from_list
00:09:59 verbose #11580 > > |> item 9i32
00:09:59 verbose #11581 > > |> _assert_eq 9
00:09:59 verbose #11582 > >
00:09:59 verbose #11583 > > ╭─[ 94.23ms - stdout ]─────────────────────────────────────────────────────────╮
00:09:59 verbose #11584 > > │ assert_eq / actual: 9 / expected: 9 │
00:09:59 verbose #11585 > > │ │
00:09:59 verbose #11586 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #11587 > >
00:09:59 verbose #11588 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:59 verbose #11589 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:59 verbose #11590 > > │ ## new_infinite_stream │
00:09:59 verbose #11591 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #11592 > >
00:09:59 verbose #11593 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #11594 > > inl new_infinite_stream fn =
00:09:59 verbose #11595 > > inl rec loop n =
00:09:59 verbose #11596 > > StreamCons (fn n, fun () => loop (n + 1))
00:09:59 verbose #11597 > > loop 0
00:09:59 verbose #11598 > >
00:09:59 verbose #11599 > > inl new_infinite_stream_ fn =
00:09:59 verbose #11600 > > let rec loop n =
00:09:59 verbose #11601 > > StreamCons (fn n, fun () => loop (n + 1))
00:09:59 verbose #11602 > > loop 0
00:09:59 verbose #11603 > >
00:09:59 verbose #11604 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #11605 > > //// test
00:09:59 verbose #11606 > >
00:09:59 verbose #11607 > > new_infinite_stream print_and_return
00:09:59 verbose #11608 > > |> item 4i32
00:09:59 verbose #11609 > > |> _assert_eq 4i32
00:09:59 verbose #11610 > >
00:09:59 verbose #11611 > > ╭─[ 173.24ms - stdout ]────────────────────────────────────────────────────────╮
00:09:59 verbose #11612 > > │ print_and_return / x: 0 │
00:09:59 verbose #11613 > > │ print_and_return / x: 1 │
00:09:59 verbose #11614 > > │ print_and_return / x: 2 │
00:09:59 verbose #11615 > > │ print_and_return / x: 3 │
00:09:59 verbose #11616 > > │ print_and_return / x: 4 │
00:09:59 verbose #11617 > > │ assert_eq / actual: 4 / expected: 4 │
00:09:59 verbose #11618 > > │ │
00:09:59 verbose #11619 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #11620 > >
00:09:59 verbose #11621 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:59 verbose #11622 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:59 verbose #11623 > > │ ## new_finite_stream │
00:09:59 verbose #11624 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #11625 > >
00:09:59 verbose #11626 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #11627 > > inl new_finite_stream fn max =
00:09:59 verbose #11628 > > inl rec loop n =
00:09:59 verbose #11629 > > if n >= max
00:09:59 verbose #11630 > > then StreamNil
00:09:59 verbose #11631 > > else StreamCons (fn n, fun () => loop (n + 1))
00:09:59 verbose #11632 > > loop 0
00:09:59 verbose #11633 > >
00:09:59 verbose #11634 > > ── markdown ────────────────────────────────────────────────────────────────────
00:09:59 verbose #11635 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:59 verbose #11636 > > │ ## memoize │
00:09:59 verbose #11637 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:59 verbose #11638 > >
00:09:59 verbose #11639 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #11640 > > union memoized_stream t =
00:09:59 verbose #11641 > > | NotComputed : () -> stream t
00:09:59 verbose #11642 > > | Computed : stream t
00:09:59 verbose #11643 > >
00:09:59 verbose #11644 > > inl memoize s =
00:09:59 verbose #11645 > > inl rec body s =
00:09:59 verbose #11646 > > inl state = mut (NotComputed s)
00:09:59 verbose #11647 > > fun () =>
00:09:59 verbose #11648 > > match *state with
00:09:59 verbose #11649 > > | Computed x => x
00:09:59 verbose #11650 > > | NotComputed fn =>
00:09:59 verbose #11651 > > inl new_state =
00:09:59 verbose #11652 > > match fn () with
00:09:59 verbose #11653 > > | StreamNil => StreamNil
00:09:59 verbose #11654 > > | StreamCons (x, fn) => StreamCons (x, loop fn)
00:09:59 verbose #11655 > > state <- Computed new_state
00:09:59 verbose #11656 > > new_state
00:09:59 verbose #11657 > > and inl loop s' = join_body_unit body s s'
00:09:59 verbose #11658 > > loop (fun () => s)
00:09:59 verbose #11659 > >
00:09:59 verbose #11660 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:59 verbose #11661 > > //// test
00:09:59 verbose #11662 > >
00:09:59 verbose #11663 > > inl memo_stream = new_finite_stream print_and_return 10 |> memoize
00:09:59 verbose #11664 > >
00:09:59 verbose #11665 > > memo_stream ()
00:09:59 verbose #11666 > > |> item 3i32
00:09:59 verbose #11667 > > |> _assert_eq 3i32
00:09:59 verbose #11668 > >
00:09:59 verbose #11669 > > memo_stream ()
00:09:59 verbose #11670 > > |> item 5i32
00:09:59 verbose #11671 > > |> _assert_eq 5i32
00:10:00 verbose #11672 > >
00:10:00 verbose #11673 > > ╭─[ 836.07ms - stdout ]────────────────────────────────────────────────────────╮
00:10:00 verbose #11674 > > │ print_and_return / x: 0 │
00:10:00 verbose #11675 > > │ print_and_return / x: 1 │
00:10:00 verbose #11676 > > │ print_and_return / x: 2 │
00:10:00 verbose #11677 > > │ print_and_return / x: 3 │
00:10:00 verbose #11678 > > │ assert_eq / actual: 3 / expected: 3 │
00:10:00 verbose #11679 > > │ print_and_return / x: 4 │
00:10:00 verbose #11680 > > │ print_and_return / x: 5 │
00:10:00 verbose #11681 > > │ assert_eq / actual: 5 / expected: 5 │
00:10:00 verbose #11682 > > │ │
00:10:00 verbose #11683 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11684 > >
00:10:00 verbose #11685 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11686 > > //// test
00:10:00 verbose #11687 > >
00:10:00 verbose #11688 > > inl memo_stream = new_infinite_stream_ print_and_return |> memoize
00:10:00 verbose #11689 > >
00:10:00 verbose #11690 > > memo_stream ()
00:10:00 verbose #11691 > > |> item 3i32
00:10:00 verbose #11692 > > |> _assert_eq 3i32
00:10:00 verbose #11693 > >
00:10:00 verbose #11694 > > memo_stream ()
00:10:00 verbose #11695 > > |> item 5i32
00:10:00 verbose #11696 > > |> _assert_eq 5i32
00:10:00 verbose #11697 > >
00:10:00 verbose #11698 > > ╭─[ 169.40ms - stdout ]────────────────────────────────────────────────────────╮
00:10:00 verbose #11699 > > │ print_and_return / x: 0 │
00:10:00 verbose #11700 > > │ print_and_return / x: 1 │
00:10:00 verbose #11701 > > │ print_and_return / x: 2 │
00:10:00 verbose #11702 > > │ print_and_return / x: 3 │
00:10:00 verbose #11703 > > │ assert_eq / actual: 3 / expected: 3 │
00:10:00 verbose #11704 > > │ print_and_return / x: 4 │
00:10:00 verbose #11705 > > │ print_and_return / x: 5 │
00:10:00 verbose #11706 > > │ assert_eq / actual: 5 / expected: 5 │
00:10:00 verbose #11707 > > │ │
00:10:00 verbose #11708 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11709 > >
00:10:00 verbose #11710 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:00 verbose #11711 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:00 verbose #11712 > > │ ## unfold │
00:10:00 verbose #11713 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11714 > >
00:10:00 verbose #11715 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11716 > > inl unfold f x0 =
00:10:00 verbose #11717 > > inl rec body x =
00:10:00 verbose #11718 > > match f x with
00:10:00 verbose #11719 > > | Some (x', y) => StreamCons (x', fun () => loop y)
00:10:00 verbose #11720 > > | None => StreamNil
00:10:00 verbose #11721 > > and inl loop x = join_body_unit body x0 x
00:10:00 verbose #11722 > > loop x0
00:10:00 verbose #11723 > >
00:10:00 verbose #11724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:00 verbose #11725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:00 verbose #11726 > > │ ## iterate │
00:10:00 verbose #11727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11728 > >
00:10:00 verbose #11729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11730 > > inl iterate f =
00:10:00 verbose #11731 > > unfold (fun x => Some (x, f x))
00:10:00 verbose #11732 > >
00:10:00 verbose #11733 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11734 > > //// test
00:10:00 verbose #11735 > >
00:10:00 verbose #11736 > > iterate ((*) 2) 1i32
00:10:00 verbose #11737 > > |> item 10i32
00:10:00 verbose #11738 > > |> _assert_eq 1024
00:10:00 verbose #11739 > >
00:10:00 verbose #11740 > > ╭─[ 58.34ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:00 verbose #11741 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:10:00 verbose #11742 > > │ │
00:10:00 verbose #11743 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11744 > >
00:10:00 verbose #11745 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:00 verbose #11746 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:00 verbose #11747 > > │ ## take_while │
00:10:00 verbose #11748 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11749 > >
00:10:00 verbose #11750 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11751 > > inl take_while cond s =
00:10:00 verbose #11752 > > inl rec body i = function
00:10:00 verbose #11753 > > | StreamCons (st, fn) when cond st i => StreamCons (st, fun () => loop
00:10:00 verbose #11754 > > (i + 1) (fn ()))
00:10:00 verbose #11755 > > | _ => StreamNil
00:10:00 verbose #11756 > > and inl loop i = join_body body i
00:10:00 verbose #11757 > > loop 0 s
00:10:00 verbose #11758 > >
00:10:00 verbose #11759 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:00 verbose #11760 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:00 verbose #11761 > > │ ## sum │
00:10:00 verbose #11762 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11763 > >
00:10:00 verbose #11764 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11765 > > inl sum seq =
00:10:00 verbose #11766 > > seq |> fold (+) 0
00:10:00 verbose #11767 > >
00:10:00 verbose #11768 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11769 > > //// test
00:10:00 verbose #11770 > >
00:10:00 verbose #11771 > > listm.init 10i32 id
00:10:00 verbose #11772 > > |> from_list
00:10:00 verbose #11773 > > |> sum
00:10:00 verbose #11774 > > |> _assert_eq 45
00:10:00 verbose #11775 > >
00:10:00 verbose #11776 > > ╭─[ 53.44ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:00 verbose #11777 > > │ assert_eq / actual: 45 / expected: 45 │
00:10:00 verbose #11778 > > │ │
00:10:00 verbose #11779 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11780 > >
00:10:00 verbose #11781 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11782 > > //// test
00:10:00 verbose #11783 > >
00:10:00 verbose #11784 > > new_finite_stream print_and_return 10i32
00:10:00 verbose #11785 > > |> take_while (fun n (_ : i32) => n < 5)
00:10:00 verbose #11786 > > |> sum
00:10:00 verbose #11787 > > |> _assert_eq 10
00:10:00 verbose #11788 > >
00:10:00 verbose #11789 > > ╭─[ 68.15ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:00 verbose #11790 > > │ print_and_return / x: 0 │
00:10:00 verbose #11791 > > │ print_and_return / x: 1 │
00:10:00 verbose #11792 > > │ print_and_return / x: 2 │
00:10:00 verbose #11793 > > │ print_and_return / x: 3 │
00:10:00 verbose #11794 > > │ print_and_return / x: 4 │
00:10:00 verbose #11795 > > │ print_and_return / x: 5 │
00:10:00 verbose #11796 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:00 verbose #11797 > > │ │
00:10:00 verbose #11798 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11799 > >
00:10:00 verbose #11800 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11801 > > //// test
00:10:00 verbose #11802 > >
00:10:00 verbose #11803 > > new_infinite_stream print_and_return
00:10:00 verbose #11804 > > |> take_while (fun n (_ : i32) => n < 5i32)
00:10:00 verbose #11805 > > |> sum
00:10:00 verbose #11806 > > |> _assert_eq 10
00:10:00 verbose #11807 > >
00:10:00 verbose #11808 > > ╭─[ 84.41ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:00 verbose #11809 > > │ print_and_return / x: 0 │
00:10:00 verbose #11810 > > │ print_and_return / x: 1 │
00:10:00 verbose #11811 > > │ print_and_return / x: 2 │
00:10:00 verbose #11812 > > │ print_and_return / x: 3 │
00:10:00 verbose #11813 > > │ print_and_return / x: 4 │
00:10:00 verbose #11814 > > │ print_and_return / x: 5 │
00:10:00 verbose #11815 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:00 verbose #11816 > > │ │
00:10:00 verbose #11817 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:00 verbose #11818 > >
00:10:00 verbose #11819 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:00 verbose #11820 > > //// test
00:10:00 verbose #11821 > >
00:10:00 verbose #11822 > > iterate ((*) 6) 1i32
00:10:00 verbose #11823 > > |> take_while (fun _ i => i <= 7i32)
00:10:00 verbose #11824 > > |> to_list
00:10:00 verbose #11825 > > |> _assert_eq [[ 1i32; 6; 36; 216; 1296; 7776; 46656; 279936 ]]
00:10:01 verbose #11826 > >
00:10:01 verbose #11827 > > ╭─[ 210.78ms - stdout ]────────────────────────────────────────────────────────╮
00:10:01 verbose #11828 > > │ assert_eq / actual: UH0_1 │
00:10:01 verbose #11829 > > │ (1, │
00:10:01 verbose #11830 > > │ UH0_1 │
00:10:01 verbose #11831 > > │ (6, │
00:10:01 verbose #11832 > > │ UH0_1 │
00:10:01 verbose #11833 > > │ (36, │
00:10:01 verbose #11834 > > │ UH0_1 │
00:10:01 verbose #11835 > > │ (216, │
00:10:01 verbose #11836 > > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:10:01 verbose #11837 > > │ UH0_0)))))))) / expected: UH0_1 │
00:10:01 verbose #11838 > > │ (1, │
00:10:01 verbose #11839 > > │ UH0_1 │
00:10:01 verbose #11840 > > │ (6, │
00:10:01 verbose #11841 > > │ UH0_1 │
00:10:01 verbose #11842 > > │ (36, │
00:10:01 verbose #11843 > > │ UH0_1 │
00:10:01 verbose #11844 > > │ (216, │
00:10:01 verbose #11845 > > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:10:01 verbose #11846 > > │ UH0_0)))))))) │
00:10:01 verbose #11847 > > │ │
00:10:01 verbose #11848 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11849 > >
00:10:01 verbose #11850 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #11851 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #11852 > > │ ## indexed │
00:10:01 verbose #11853 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11854 > >
00:10:01 verbose #11855 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11856 > > inl indexed s =
00:10:01 verbose #11857 > > ((StreamNil, 0), s)
00:10:01 verbose #11858 > > ||> fold fun (acc, i) x =>
00:10:01 verbose #11859 > > StreamCons ((i, x), fun () => acc), i + 1
00:10:01 verbose #11860 > > |> fst
00:10:01 verbose #11861 > > |> rev
00:10:01 verbose #11862 > >
00:10:01 verbose #11863 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11864 > > //// test
00:10:01 verbose #11865 > >
00:10:01 verbose #11866 > > listm.init 10i32 ((*) 2)
00:10:01 verbose #11867 > > |> from_list
00:10:01 verbose #11868 > > |> indexed
00:10:01 verbose #11869 > > |> item 5i32
00:10:01 verbose #11870 > > |> _assert_eq (5i32, 10i32)
00:10:01 verbose #11871 > >
00:10:01 verbose #11872 > > ╭─[ 83.22ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:01 verbose #11873 > > │ assert_eq / actual: struct (5, 10) / expected: struct (5, 10) │
00:10:01 verbose #11874 > > │ │
00:10:01 verbose #11875 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11876 > >
00:10:01 verbose #11877 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #11878 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #11879 > > │ ## map │
00:10:01 verbose #11880 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11881 > >
00:10:01 verbose #11882 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11883 > > inl map fn s =
00:10:01 verbose #11884 > > (s, StreamNil)
00:10:01 verbose #11885 > > ||> fold_back fun x acc =>
00:10:01 verbose #11886 > > StreamCons (fn x, fun () => acc)
00:10:01 verbose #11887 > >
00:10:01 verbose #11888 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11889 > > //// test
00:10:01 verbose #11890 > >
00:10:01 verbose #11891 > > listm.init 10i32 id
00:10:01 verbose #11892 > > |> from_list
00:10:01 verbose #11893 > > |> map ((*) 2)
00:10:01 verbose #11894 > > |> item 5i32
00:10:01 verbose #11895 > > |> _assert_eq 10i32
00:10:01 verbose #11896 > >
00:10:01 verbose #11897 > > ╭─[ 63.95ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:01 verbose #11898 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:01 verbose #11899 > > │ │
00:10:01 verbose #11900 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11901 > >
00:10:01 verbose #11902 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #11903 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #11904 > > │ ## zip_with │
00:10:01 verbose #11905 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11906 > >
00:10:01 verbose #11907 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11908 > > inl zip_with fn s1 s2 =
00:10:01 verbose #11909 > > inl rec loop s1 s2 =
00:10:01 verbose #11910 > > match s1, s2 with
00:10:01 verbose #11911 > > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:10:01 verbose #11912 > > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:10:01 verbose #11913 > > | StreamNil, _ | _, StreamNil => StreamNil
00:10:01 verbose #11914 > > loop s1 s2
00:10:01 verbose #11915 > >
00:10:01 verbose #11916 > > inl zip_with_ fn s1 s2 =
00:10:01 verbose #11917 > > let rec loop s1 s2 =
00:10:01 verbose #11918 > > match s1, s2 with
00:10:01 verbose #11919 > > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:10:01 verbose #11920 > > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:10:01 verbose #11921 > > | StreamNil, _ | _, StreamNil => StreamNil
00:10:01 verbose #11922 > > loop s1 s2
00:10:01 verbose #11923 > >
00:10:01 verbose #11924 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11925 > > //// test
00:10:01 verbose #11926 > >
00:10:01 verbose #11927 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:10:01 verbose #11928 > > ||> zip_with (+)
00:10:01 verbose #11929 > > |> item 2i32
00:10:01 verbose #11930 > > |> _assert_eq 6
00:10:01 verbose #11931 > >
00:10:01 verbose #11932 > > ╭─[ 70.66ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:01 verbose #11933 > > │ assert_eq / actual: 6 / expected: 6 │
00:10:01 verbose #11934 > > │ │
00:10:01 verbose #11935 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11936 > >
00:10:01 verbose #11937 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #11938 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #11939 > > │ ## zip │
00:10:01 verbose #11940 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11941 > >
00:10:01 verbose #11942 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11943 > > inl zip s1 s2 =
00:10:01 verbose #11944 > > zip_with pair s1 s2
00:10:01 verbose #11945 > >
00:10:01 verbose #11946 > > inl zip_ s1 s2 =
00:10:01 verbose #11947 > > zip_with_ pair s1 s2
00:10:01 verbose #11948 > >
00:10:01 verbose #11949 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11950 > > //// test
00:10:01 verbose #11951 > >
00:10:01 verbose #11952 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:10:01 verbose #11953 > > ||> zip
00:10:01 verbose #11954 > > |> item 5i32
00:10:01 verbose #11955 > > |> _assert_eq (5, 10)
00:10:01 verbose #11956 > >
00:10:01 verbose #11957 > > ╭─[ 49.69ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:01 verbose #11958 > > │ assert_eq / actual: struct (5, 10) / expected: struct (5, 10) │
00:10:01 verbose #11959 > > │ │
00:10:01 verbose #11960 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11961 > >
00:10:01 verbose #11962 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:01 verbose #11963 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:01 verbose #11964 > > │ ## unzip │
00:10:01 verbose #11965 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #11966 > >
00:10:01 verbose #11967 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11968 > > inl unzip s =
00:10:01 verbose #11969 > > inl rec body s =
00:10:01 verbose #11970 > > match s with
00:10:01 verbose #11971 > > | StreamCons ((x, y), fn) =>
00:10:01 verbose #11972 > > inl xs, ys = loop (fn ())
00:10:01 verbose #11973 > > StreamCons (x, fun () => xs), StreamCons (y, fun () => ys)
00:10:01 verbose #11974 > > | StreamNil => pair StreamNil StreamNil
00:10:01 verbose #11975 > > and inl loop x =
00:10:01 verbose #11976 > > if var_is x |> not
00:10:01 verbose #11977 > > then body x
00:10:01 verbose #11978 > > else
00:10:01 verbose #11979 > > inl x = dyn x
00:10:01 verbose #11980 > > join body x
00:10:01 verbose #11981 > > loop s
00:10:01 verbose #11982 > >
00:10:01 verbose #11983 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:01 verbose #11984 > > //// test
00:10:01 verbose #11985 > >
00:10:01 verbose #11986 > > listm.init 10i32 id
00:10:01 verbose #11987 > > |> listm.map (fun x => x, x)
00:10:01 verbose #11988 > > |> from_list
00:10:01 verbose #11989 > > |> unzip
00:10:01 verbose #11990 > > |> fun x, y =>
00:10:01 verbose #11991 > > x |> sum
00:10:01 verbose #11992 > > |> _assert_eq 45
00:10:01 verbose #11993 > >
00:10:01 verbose #11994 > > y |> sum
00:10:01 verbose #11995 > > |> _assert_eq 45
00:10:01 verbose #11996 > >
00:10:01 verbose #11997 > > ╭─[ 91.11ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:01 verbose #11998 > > │ assert_eq / actual: 45 / expected: 45 │
00:10:01 verbose #11999 > > │ assert_eq / actual: 45 / expected: 45 │
00:10:01 verbose #12000 > > │ │
00:10:01 verbose #12001 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:01 verbose #12002 > 00:00:12 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 32291
00:10:01 verbose #12003 > 00:00:12 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/stream.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:10:04 verbose #12004 > 00:00:15 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/stream.dib.ipynb to html
00:10:04 verbose #12005 > 00:00:15 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:10:04 verbose #12006 > 00:00:15 verbose #7 ! validate(nb)
00:10:06 verbose #12007 > 00:00:16 verbose #8 ! [NbConvertApp] Writing 364357 bytes to c:\home\git\polyglot\lib\spiral\stream.dib.html
00:10:06 verbose #12008 > 00:00:17 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 643
00:10:06 verbose #12009 > 00:00:17 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 643
00:10:06 verbose #12010 > 00:00:17 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/stream.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/stream.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:10:07 verbose #12011 > 00:00:18 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:10:07 verbose #12012 > 00:00:18 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:10:08 verbose #12013 > 00:00:19 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 32993
00:10:08 debug #12014 runtime.execute_with_options_async / exit_code: 0 / output.Length: 36646
00:10:08 debug #22 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path stream.dib --retries 3
00:10:08 debug #12015 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path parsing.dib --retries 3",
[||], None, None, true, None)
00:10:08 verbose #12016 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "parsing.dib", "--retries", "3"])
00:10:08 verbose #12017 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/parsing.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/parsing.dib" --output-path "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:10:11 verbose #12018 > >
00:10:11 verbose #12019 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:11 verbose #12020 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:11 verbose #12021 > > │ # parsing │
00:10:11 verbose #12022 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:11 verbose #12023 > >
00:10:11 verbose #12024 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:11 verbose #12025 > > open rust_operators
00:10:11 verbose #12026 > > open sm'_operators
00:10:11 verbose #12027 > >
00:10:11 verbose #12028 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:10:11 verbose #12029 > > #r
00:10:11 verbose #12030 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:11 verbose #12031 > > otNet.Interactive.Spiral.dll"
00:10:11 verbose #12032 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:10:11 verbose #12033 > > #r
00:10:11 verbose #12034 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:11 verbose #12035 > > otNet.Interactive.dll"
00:10:11 verbose #12036 > > open type Microsoft.DotNet.Interactive.Kernel
00:10:16 verbose #12037 > >
00:10:16 verbose #12038 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:16 verbose #12039 > > //// test
00:10:16 verbose #12040 > >
00:10:16 verbose #12041 > > open testing
00:10:16 verbose #12042 > >
00:10:16 verbose #12043 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:16 verbose #12044 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:16 verbose #12045 > > │ ## types │
00:10:16 verbose #12046 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:16 verbose #12047 > >
00:10:16 verbose #12048 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:16 verbose #12049 > > inl types () =
00:10:16 verbose #12050 > > ()
00:10:16 verbose #12051 > >
00:10:16 verbose #12052 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:16 verbose #12053 > > inl types () =
00:10:16 verbose #12054 > > types ()
00:10:16 verbose #12055 > >
00:10:16 verbose #12056 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:16 verbose #12057 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:16 verbose #12058 > > │ ## fparsec │
00:10:16 verbose #12059 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:16 verbose #12060 > >
00:10:16 verbose #12061 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:16 verbose #12062 > > //// test
00:10:16 verbose #12063 > >
00:10:16 verbose #12064 > > #r "nuget:FParsec"
00:10:20 verbose #12065 > >
00:10:20 verbose #12066 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:20 verbose #12067 > > //// test
00:10:20 verbose #12068 > >
00:10:20 verbose #12069 > > nominal position_ = $'FParsec.Position'
00:10:20 verbose #12070 > > nominal parser_error_ = $'FParsec.Error.ParserError'
00:10:20 verbose #12071 > >
00:10:20 verbose #12072 > > nominal reply_ t = $'FParsec.Reply<`t>'
00:10:20 verbose #12073 > >
00:10:20 verbose #12074 > > nominal char_stream_ t = $'FParsec.CharStream<`t>'
00:10:20 verbose #12075 > >
00:10:20 verbose #12076 > > // nominal parser t u = char_stream u -> reply t
00:10:20 verbose #12077 > > nominal parser_ t u = $'FParsec.Primitives.Parser<`t, `u>'
00:10:20 verbose #12078 > >
00:10:20 verbose #12079 > > inl p_char_ forall t. (x : char) : parser_ char t =
00:10:20 verbose #12080 > > x |> $'FParsec.CharParsers.pchar'
00:10:20 verbose #12081 > >
00:10:20 verbose #12082 > > inl p_string_ forall t. (x : string) : parser_ string t =
00:10:20 verbose #12083 > > x |> $'FParsec.CharParsers.pstring'
00:10:20 verbose #12084 > >
00:10:20 verbose #12085 > > inl (>>.$) forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_ u v =
00:10:20 verbose #12086 > > b |> $'FParsec.Primitives.(>>.)' a
00:10:20 verbose #12087 > >
00:10:20 verbose #12088 > > inl (.>>$) forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_ t v =
00:10:20 verbose #12089 > > b |> $'FParsec.Primitives.(.>>)' a
00:10:20 verbose #12090 > >
00:10:20 verbose #12091 > > inl (.>>.$) forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_ (pair t
00:10:20 verbose #12092 > > u) v =
00:10:20 verbose #12093 > > b |> $'FParsec.Primitives.(.>>.)' a
00:10:20 verbose #12094 > >
00:10:20 verbose #12095 > > inl (>>%$) forall t u v. (a : parser_ t v) (b : u) : parser_ u v =
00:10:20 verbose #12096 > > b |> $'FParsec.Primitives.(>>%)' a
00:10:20 verbose #12097 > >
00:10:20 verbose #12098 > > inl (>>=$) forall t u v. (a : parser_ t v) (b : t -> parser_ u v) : parser_ u v
00:10:20 verbose #12099 > > =
00:10:20 verbose #12100 > > b |> $'FParsec.Primitives.(>>=)' a
00:10:20 verbose #12101 > >
00:10:20 verbose #12102 > > inl (|>>$) forall t u v. (a : parser_ t v) (b : t -> u) : parser_ u v =
00:10:20 verbose #12103 > > inl b = fun x => x |> b
00:10:20 verbose #12104 > > b |> $'FParsec.Primitives.(|>>)' a
00:10:20 verbose #12105 > >
00:10:20 verbose #12106 > > inl any_char_ () : parser_ char _ =
00:10:20 verbose #12107 > > $'FParsec.CharParsers.anyChar'
00:10:20 verbose #12108 > >
00:10:20 verbose #12109 > > inl any_string_ () : parser_ string _ =
00:10:20 verbose #12110 > > $'FParsec.CharParsers.anyString'
00:10:20 verbose #12111 > >
00:10:20 verbose #12112 > > inl any_string__ (n : i32) : parser_ string _ =
00:10:20 verbose #12113 > > n |> $'FParsec.CharParsers.anyString'
00:10:20 verbose #12114 > >
00:10:20 verbose #12115 > > inl eof_ () : parser_ () _ =
00:10:20 verbose #12116 > > $'FParsec.CharParsers.eof'
00:10:20 verbose #12117 > >
00:10:20 verbose #12118 > > inl spaces_ () : parser_ () () =
00:10:20 verbose #12119 > > $'FParsec.CharParsers.spaces'
00:10:20 verbose #12120 > >
00:10:20 verbose #12121 > > inl spaces1_ () : parser_ () () =
00:10:20 verbose #12122 > > $'FParsec.CharParsers.spaces1'
00:10:20 verbose #12123 > >
00:10:20 verbose #12124 > > inl (<|>$) forall t u. (a : parser_ t u) (b : parser_ t u) : parser_ t u =
00:10:20 verbose #12125 > > b |> $'FParsec.Primitives.(<|>)' a
00:10:20 verbose #12126 > >
00:10:20 verbose #12127 > > inl many_satisfy_ forall t. (x : char -> bool) : parser_ string t =
00:10:20 verbose #12128 > > x |> $'FParsec.CharParsers.manySatisfy'
00:10:20 verbose #12129 > >
00:10:20 verbose #12130 > > inl satisfy_ forall t. (x : char -> bool) : parser_ char t =
00:10:20 verbose #12131 > > x |> $'FParsec.CharParsers.satisfy'
00:10:20 verbose #12132 > >
00:10:20 verbose #12133 > > inl none_of_ (x : list char) : parser_ char () =
00:10:20 verbose #12134 > > x
00:10:20 verbose #12135 > > |> listm'.box
00:10:20 verbose #12136 > > |> listm'.to_array'
00:10:20 verbose #12137 > > |> fun x => x : _ i32 _
00:10:20 verbose #12138 > > |> $'FParsec.CharParsers.noneOf'
00:10:20 verbose #12139 > >
00:10:20 verbose #12140 > > inl any_of_ (x : list char) : parser_ char () =
00:10:20 verbose #12141 > > x
00:10:20 verbose #12142 > > |> listm'.box
00:10:20 verbose #12143 > > |> listm'.to_array'
00:10:20 verbose #12144 > > |> fun x => x : _ i32 _
00:10:20 verbose #12145 > > |> $'FParsec.CharParsers.anyOf'
00:10:20 verbose #12146 > >
00:10:20 verbose #12147 > > inl skip_any_of_ (x : list char) : parser_ () () =
00:10:20 verbose #12148 > > x
00:10:20 verbose #12149 > > |> listm'.box
00:10:20 verbose #12150 > > |> listm'.to_array'
00:10:20 verbose #12151 > > |> fun x => x : _ i32 _
00:10:20 verbose #12152 > > |> $'FParsec.CharParsers.skipAnyOf'
00:10:20 verbose #12153 > >
00:10:20 verbose #12154 > > inl between_ forall t u v x. (a : parser_ t x) (b : parser_ u x) (c : parser_ v
00:10:20 verbose #12155 > > x) : parser_ v x =
00:10:20 verbose #12156 > > c |> $'FParsec.Primitives.between' a b
00:10:20 verbose #12157 > >
00:10:20 verbose #12158 > > inl many_chars_ forall t. (x : parser_ char t) : parser_ string t =
00:10:20 verbose #12159 > > x |> $'FParsec.CharParsers.manyChars'
00:10:20 verbose #12160 > >
00:10:20 verbose #12161 > > inl many1_chars_ forall t. (x : parser_ char t) : parser_ string t =
00:10:20 verbose #12162 > > x |> $'FParsec.CharParsers.many1Chars'
00:10:20 verbose #12163 > >
00:10:20 verbose #12164 > > inl many_strings_ forall t. (x : parser_ string t) : parser_ string t =
00:10:20 verbose #12165 > > x |> $'FParsec.CharParsers.manyStrings'
00:10:20 verbose #12166 > >
00:10:20 verbose #12167 > > inl skip_any_string_ forall t. (n : i32) : parser_ () t =
00:10:20 verbose #12168 > > n |> $'FParsec.CharParsers.skipAnyString'
00:10:20 verbose #12169 > >
00:10:20 verbose #12170 > > inl many1_strings_ forall t. (x : parser_ string t) : parser_ string t =
00:10:20 verbose #12171 > > x |> $'FParsec.CharParsers.many1Strings'
00:10:20 verbose #12172 > >
00:10:20 verbose #12173 > > inl opt_ forall t u. (a : parser_ t u) : parser_ (optionm'.option' t) u =
00:10:20 verbose #12174 > > a |> $'FParsec.Primitives.opt'
00:10:20 verbose #12175 > >
00:10:20 verbose #12176 > > inl choice_ forall t u. (a : list (parser_ t u)) : parser_ t u =
00:10:20 verbose #12177 > > a
00:10:20 verbose #12178 > > |> listm'.box
00:10:20 verbose #12179 > > |> seq.of_list'
00:10:20 verbose #12180 > > |> $'FParsec.Primitives.choice'
00:10:20 verbose #12181 > >
00:10:20 verbose #12182 > > inl delay_ forall t u. (fn : () -> parser_ t u) : parser_ t u =
00:10:20 verbose #12183 > > fn |> $'FParsec.Primitives.parse.Delay'
00:10:20 verbose #12184 > >
00:10:20 verbose #12185 > > inl peek_ forall t u. (a : parser_ t u) : parser_ char u =
00:10:20 verbose #12186 > > $'!a.Peek ()'
00:10:20 verbose #12187 > >
00:10:20 verbose #12188 > > inl not_followed_by_ forall t u. (a : parser_ t u) : parser_ () u =
00:10:20 verbose #12189 > > a |> $'FParsec.Primitives.notFollowedBy'
00:10:20 verbose #12190 > >
00:10:20 verbose #12191 > > inl sep_by_ forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_
00:10:20 verbose #12192 > > (listm'.list' t) v =
00:10:20 verbose #12193 > > b |> $'FParsec.Primitives.sepBy' a
00:10:20 verbose #12194 > >
00:10:20 verbose #12195 > > inl sep_by1_ forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_
00:10:20 verbose #12196 > > (listm'.list' t) v =
00:10:20 verbose #12197 > > b |> $'FParsec.Primitives.sepBy1' a
00:10:20 verbose #12198 > >
00:10:20 verbose #12199 > > inl sep_end_by_ forall t u v. (a : parser_ t v) (b : parser_ u v) : parser_
00:10:20 verbose #12200 > > (listm'.list' t) v =
00:10:20 verbose #12201 > > b |> $'FParsec.Primitives.sepEndBy' a
00:10:20 verbose #12202 > >
00:10:20 verbose #12203 > > inl many_ forall t u. (a : parser_ t u) : parser_ (listm'.list' t) u =
00:10:20 verbose #12204 > > a |> $'FParsec.Primitives.many'
00:10:20 verbose #12205 > >
00:10:20 verbose #12206 > > inl many1_ forall t u. (a : parser_ t u) : parser_ (listm'.list' t) u =
00:10:20 verbose #12207 > > a |> $'FParsec.Primitives.many1'
00:10:20 verbose #12208 > >
00:10:20 verbose #12209 > > inl many1_satisfy_ forall t. (x : char -> bool) : parser_ string t =
00:10:20 verbose #12210 > > x |> $'FParsec.CharParsers.many1Satisfy'
00:10:20 verbose #12211 > >
00:10:20 verbose #12212 > > nominal parser_result'_ t u = $'FParsec.CharParsers.ParserResult<`t, `u>'
00:10:20 verbose #12213 > >
00:10:20 verbose #12214 > > inl run_ forall t. (parser : parser_ t ()) (x : string) : parser_result'_ t () =
00:10:20 verbose #12215 > > x |> $'FParsec.CharParsers.run' parser
00:10:20 verbose #12216 > >
00:10:20 verbose #12217 > > union parser_result_ t u =
00:10:20 verbose #12218 > > | Success : t * u * position_
00:10:20 verbose #12219 > > | Failure : string * parser_error_ * u
00:10:20 verbose #12220 > >
00:10:20 verbose #12221 > > inl parser_result_ forall t u. = function
00:10:20 verbose #12222 > > | Success (a, b, c) => $'`(parser_result'_ t u).Success (!a, !b, !c)' :
00:10:20 verbose #12223 > > parser_result'_ t u
00:10:20 verbose #12224 > > | Failure (a, b, c) => $'`(parser_result'_ t u).Failure (!a, !b, !c)' :
00:10:20 verbose #12225 > > parser_result'_ t u
00:10:20 verbose #12226 > >
00:10:20 verbose #12227 > > inl parser_result'_ forall t u. (x : parser_result'_ t u) : parser_result_ t u =
00:10:20 verbose #12228 > > $'let mutable _!x = None '
00:10:20 verbose #12229 > > $'match !x with'
00:10:20 verbose #12230 > > $'| FParsec.CharParsers.Success (a, b, c) -> (' : ()
00:10:20 verbose #12231 > > $'(fun () ->'
00:10:20 verbose #12232 > > $'(fun () ->'
00:10:20 verbose #12233 > > (Success ((dyn $'a'), dyn $'b', dyn $'c') : _ t u) |> emit_unit
00:10:20 verbose #12234 > > $')'
00:10:20 verbose #12235 > > $'|> fun x -> x ()'
00:10:20 verbose #12236 > > $') () ) | FParsec.CharParsers.Failure (a, b, c) -> (' : ()
00:10:20 verbose #12237 > > $'(fun () ->'
00:10:20 verbose #12238 > > $'(fun () ->'
00:10:20 verbose #12239 > > (Failure ((dyn $'a'), dyn $'b', dyn $'c') : _ t u) |> emit_unit
00:10:20 verbose #12240 > > $')'
00:10:20 verbose #12241 > > $'|> fun x -> x ()'
00:10:20 verbose #12242 > > $') () )' : ()
00:10:20 verbose #12243 > > $'|> fun x -> _!x <- Some x'
00:10:20 verbose #12244 > > $'match _!x with Some x -> x | None -> failwith "??? / _!x=None"'
00:10:20 verbose #12245 > >
00:10:20 verbose #12246 > > inl parse_ parser input : result _ _ =
00:10:20 verbose #12247 > > match input |> run_ parser |> parser_result'_ with
00:10:20 verbose #12248 > > | Success (result, b, c) => Ok (result, c)
00:10:20 verbose #12249 > > | Failure (error_msg, b, c) => Error (error_msg, b)
00:10:20 verbose #12250 > >
00:10:20 verbose #12251 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:20 verbose #12252 > > //// test
00:10:20 verbose #12253 > >
00:10:20 verbose #12254 > > inl split_args (args : string) : result (array_base (string * position_))
00:10:20 verbose #12255 > > (string * parser_error_) =
00:10:20 verbose #12256 > > inl esc = [[ '\\'; '`' ]]
00:10:20 verbose #12257 > > inl quotes = [[ '"' ]]
00:10:20 verbose #12258 > > inl special = esc ++ quotes
00:10:20 verbose #12259 > > inl p_esc_char c =
00:10:20 verbose #12260 > > p_char_ c >>.$ any_char_ () |>>$ fun c' => $'$"{!c}{!c'}"'
00:10:20 verbose #12261 > > inl p_word = special |> none_of_ |>>$ sm'.obj_to_string
00:10:20 verbose #12262 > > inl p_plain = special ++ [[ ' ' ]] |> none_of_ |> many1_chars_
00:10:20 verbose #12263 > > inl p_text = p_word |> many1_strings_
00:10:20 verbose #12264 > > inl p_esc = esc |> listm.map p_esc_char |> choice_
00:10:20 verbose #12265 > > inl p_quoted = (p_word <|>$ p_esc) |> many_ |>>$ (seq.of_list' >> sm'.concat
00:10:20 verbose #12266 > > "")
00:10:20 verbose #12267 > > inl p_quoted_all = p_quoted |> between_ (p_char_ '"') (p_char_ '"')
00:10:20 verbose #12268 > > inl p_esc_root = p_esc |>>$ (fun _ => "") >>.$ (p_word |> many_) |>>$
00:10:20 verbose #12269 > > (seq.of_list' >> sm'.concat "")
00:10:20 verbose #12270 > > inl p_content = p_plain <|>$ p_quoted_all <|>$ p_esc_root
00:10:20 verbose #12271 > > inl p_args = spaces1_ () |> sep_by_ p_content
00:10:20 verbose #12272 > > args
00:10:20 verbose #12273 > > |> parse_ p_args
00:10:20 verbose #12274 > > |> resultm.map fun (a, b) =>
00:10:20 verbose #12275 > > (
00:10:20 verbose #12276 > > (
00:10:20 verbose #12277 > > (a |> listm'.to_array' : _ i32 _)
00:10:20 verbose #12278 > > |> am.map fun x => x, b
00:10:20 verbose #12279 > > |> fun (a x : _ i32 _) => x
00:10:20 verbose #12280 > > )
00:10:20 verbose #12281 > > )
00:10:20 verbose #12282 > >
00:10:20 verbose #12283 > > [[
00:10:20 verbose #12284 > > "a b c",
00:10:20 verbose #12285 > > ;[[ "a"; "b"; "c" ]]
00:10:20 verbose #12286 > >
00:10:20 verbose #12287 > > "e f \"g h\" i",
00:10:20 verbose #12288 > > ;[[ "e"; "f"; "g h"; "i" ]]
00:10:20 verbose #12289 > >
00:10:20 verbose #12290 > > "\"j k\" \"l\" \"m\"",
00:10:20 verbose #12291 > > ;[[ "j k"; "l"; "m" ]]
00:10:20 verbose #12292 > >
00:10:20 verbose #12293 > > "s -t \"u \`\"v\`\" w\"",
00:10:20 verbose #12294 > > ;[[ "s"; "-t"; "u \`\"v\`\" w" ]]
00:10:20 verbose #12295 > >
00:10:20 verbose #12296 > > "n -o \"p \\\"q\\\" r\"",
00:10:20 verbose #12297 > > ;[[ "n"; "-o"; "p \\\"q\\\" r" ]]
00:10:20 verbose #12298 > >
00:10:20 verbose #12299 > > "r -s \"t \\\"u\\\"\"",
00:10:20 verbose #12300 > > ;[[ "r"; "-s"; "t \\\"u\\\"" ]]
00:10:20 verbose #12301 > >
00:10:20 verbose #12302 > > $'$"x -y \\\"$z -a \'(b=\\\\\\"c-id=)[[a-fA-F0-9]]{{8}}\', {{ \`$_[[1]] +
00:10:20 verbose #12303 > > \`$d++ }}\\\""',
00:10:20 verbose #12304 > > ;[[ "x"; "-y"; "$z -a '(b=\\\"c-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$d++ }"
00:10:20 verbose #12305 > > ]]
00:10:20 verbose #12306 > >
00:10:20 verbose #12307 > > "e -f \"$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }\"",
00:10:20 verbose #12308 > > ;[[ "e"; "-f"; "$g -h '(i=`\"j-id=)[[a-fA-F0-9]]{8}', { `$_[[1]] + `$k++ }"
00:10:20 verbose #12309 > > ]]
00:10:20 verbose #12310 > >
00:10:20 verbose #12311 > > $'$"--l \\\\\\"\'\'\' m \'\'\'\\\\\\" "',
00:10:20 verbose #12312 > > ;[[ "--l"; "''' m '''" ]]
00:10:20 verbose #12313 > >
00:10:20 verbose #12314 > > $'$"n --o --p q --r \\\"s:/t u/v.w\\\" --x \\\"y:/z.a\\\" --b c.d
00:10:20 verbose #12315 > > \\\"\\\\e{{f-g}}\\\" h.i \\\"j (k)\\\""',
00:10:20 verbose #12316 > > ;[[ "n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; "y:/z.a"; "--b";
00:10:20 verbose #12317 > > "c.d"; "\\e{f-g}"; "h.i"; "j (k)" ]]
00:10:20 verbose #12318 > >
00:10:20 verbose #12319 > > $'\@$"l ""m n:\\o.p"""',
00:10:20 verbose #12320 > > ;[[ "l"; "m n:\\o.p" ]]
00:10:20 verbose #12321 > > ]]
00:10:20 verbose #12322 > > |> listm.rev
00:10:20 verbose #12323 > > |> listm.map fun input, expected =>
00:10:20 verbose #12324 > > input
00:10:20 verbose #12325 > > |> split_args
00:10:20 verbose #12326 > > |> fun x =>
00:10:20 verbose #12327 > > try
00:10:20 verbose #12328 > > fun () =>
00:10:20 verbose #12329 > > ($'$"\ninput: {!input}"' : string)
00:10:20 verbose #12330 > > |> console.write_line
00:10:20 verbose #12331 > > x
00:10:20 verbose #12332 > > |> resultm.get
00:10:20 verbose #12333 > > |> am'.map_base fst
00:10:20 verbose #12334 > > |> _assert_eq' expected
00:10:20 verbose #12335 > > false
00:10:20 verbose #12336 > > fun ex =>
00:10:20 verbose #12337 > > ($'$"error / expected: %A{!expected} / ex: %A{!ex}"' : string)
00:10:20 verbose #12338 > > |> console.write_line
00:10:20 verbose #12339 > > Some true
00:10:20 verbose #12340 > > |> optionm.value
00:10:20 verbose #12341 > > |> listm'.filter id
00:10:20 verbose #12342 > > |> function
00:10:20 verbose #12343 > > | [[]] => ()
00:10:20 verbose #12344 > > | x => failwith $'$"{!x}"'
00:10:26 verbose #12345 > >
00:10:26 verbose #12346 > > ╭─[ 6.31s - stdout ]───────────────────────────────────────────────────────────╮
00:10:26 verbose #12347 > > │ │
00:10:26 verbose #12348 > > │ input: a b c │
00:10:26 verbose #12349 > > │ assert_eq' / actual: [|"a"; "b"; "c"|] / expected: [|"a"; "b"; "c"|] │
00:10:26 verbose #12350 > > │ │
00:10:26 verbose #12351 > > │ input: e f "g h" i │
00:10:26 verbose #12352 > > │ assert_eq' / actual: [|"e"; "f"; "g h"; "i"|] / expected: [|"e"; "f"; "g h"; │
00:10:26 verbose #12353 > > │ "i"|] │
00:10:26 verbose #12354 > > │ │
00:10:26 verbose #12355 > > │ input: "j k" "l" "m" │
00:10:26 verbose #12356 > > │ assert_eq' / actual: [|"j k"; "l"; "m"|] / expected: [|"j k"; "l"; "m"|] │
00:10:26 verbose #12357 > > │ │
00:10:26 verbose #12358 > > │ input: s -t "u `"v`" w" │
00:10:26 verbose #12359 > > │ assert_eq' / actual: [|"s"; "-t"; "u `"v`" w"|] / expected: [|"s"; "-t"; "u │
00:10:26 verbose #12360 > > │ `"v`" w"|] │
00:10:26 verbose #12361 > > │ │
00:10:26 verbose #12362 > > │ input: n -o "p \"q\" r" │
00:10:26 verbose #12363 > > │ assert_eq' / actual: [|"n"; "-o"; "p \"q\" r"|] / expected: [|"n"; "-o"; "p │
00:10:26 verbose #12364 > > │ \"q\" r"|] │
00:10:26 verbose #12365 > > │ │
00:10:26 verbose #12366 > > │ input: r -s "t \"u\"" │
00:10:26 verbose #12367 > > │ assert_eq' / actual: [|"r"; "-s"; "t \"u\""|] / expected: [|"r"; "-s"; "t │
00:10:26 verbose #12368 > > │ \"u\""|] │
00:10:26 verbose #12369 > > │ │
00:10:26 verbose #12370 > > │ input: x -y "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[1] + `$d++ }" │
00:10:26 verbose #12371 > > │ assert_eq' / actual: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', { `$_[ │
00:10:26 verbose #12372 > > │ 1] + `$d++ }"|] / expected: [|"x"; "-y"; "$z -a '(b=\"c-id=)[a-fA-F0-9]{8}', │
00:10:26 verbose #12373 > > │ { `$_[1] + `$d++ }"|] │
00:10:26 verbose #12374 > > │ │
00:10:26 verbose #12375 > > │ input: e -f "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[1] + `$k++ }" │
00:10:26 verbose #12376 > > │ assert_eq' / actual: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', { `$_[ │
00:10:26 verbose #12377 > > │ 1] + `$k++ }"|] / expected: [|"e"; "-f"; "$g -h '(i=`"j-id=)[a-fA-F0-9]{8}', │
00:10:26 verbose #12378 > > │ { `$_[1] + `$k++ }"|] │
00:10:26 verbose #12379 > > │ │
00:10:26 verbose #12380 > > │ input: --l \"''' m '''\" │
00:10:26 verbose #12381 > > │ assert_eq' / actual: [|"--l"; "''' m '''"|] / expected: [|"--l"; "''' m │
00:10:26 verbose #12382 > > │ '''"|] │
00:10:26 verbose #12383 > > │ │
00:10:26 verbose #12384 > > │ input: n --o --p q --r "s:/t u/v.w" --x "y:/z.a" --b c.d "\e{f-g}" h.i "j │
00:10:26 verbose #12385 > > │ (k)" │
00:10:26 verbose #12386 > > │ assert_eq' / actual: [|"n"; "--o"; "--p"; "q"; "--r"; "s:/t u/v.w"; "--x"; │
00:10:26 verbose #12387 > > │ "y:/z.a"; "--b"; "c.d"; │
00:10:26 verbose #12388 > > │ "\e{f-g}"; "h.i"; "j (k)"|] / expected: [|"n"; "--o"; "--p"; "q"; "--r"; │
00:10:26 verbose #12389 > > │ "s:/t u/v.w"; "--x"; "y:/z.a"; "--b"; "c.d"; │
00:10:26 verbose #12390 > > │ "\e{f-g}"; "h.i"; "j (k)"|] │
00:10:26 verbose #12391 > > │ │
00:10:26 verbose #12392 > > │ input: l "m n:\o.p" │
00:10:26 verbose #12393 > > │ assert_eq' / actual: [|"l"; "m n:\o.p"|] / expected: [|"l"; "m n:\o.p"|] │
00:10:26 verbose #12394 > > │ │
00:10:26 verbose #12395 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:26 verbose #12396 > >
00:10:26 verbose #12397 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:26 verbose #12398 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:26 verbose #12399 > > │ ## range │
00:10:26 verbose #12400 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:26 verbose #12401 > >
00:10:26 verbose #12402 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:26 verbose #12403 > > type range =
00:10:26 verbose #12404 > > {
00:10:26 verbose #12405 > > from : int
00:10:26 verbose #12406 > > to : int
00:10:26 verbose #12407 > > }
00:10:26 verbose #12408 > >
00:10:27 verbose #12409 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12410 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12411 > > │ ## position │
00:10:27 verbose #12412 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12413 > >
00:10:27 verbose #12414 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12415 > > type position =
00:10:27 verbose #12416 > > {
00:10:27 verbose #12417 > > line : int
00:10:27 verbose #12418 > > col : int
00:10:27 verbose #12419 > > }
00:10:27 verbose #12420 > >
00:10:27 verbose #12421 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12422 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12423 > > │ ## parser_state │
00:10:27 verbose #12424 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12425 > >
00:10:27 verbose #12426 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12427 > > type parser_state =
00:10:27 verbose #12428 > > {
00:10:27 verbose #12429 > > line_text : sm'.string_builder
00:10:27 verbose #12430 > > position : position
00:10:27 verbose #12431 > > }
00:10:27 verbose #12432 > >
00:10:27 verbose #12433 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12434 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12435 > > │ ## parser │
00:10:27 verbose #12436 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12437 > >
00:10:27 verbose #12438 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12439 > > type parser t = string * parser_state -> result (t * string * parser_state)
00:10:27 verbose #12440 > > string
00:10:27 verbose #12441 > >
00:10:27 verbose #12442 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12443 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12444 > > │ ## parse │
00:10:27 verbose #12445 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12446 > >
00:10:27 verbose #12447 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12448 > > inl parse forall t. (p : parser t) (input : string) : result (t * string *
00:10:27 verbose #12449 > > parser_state) string =
00:10:27 verbose #12450 > > p (input, { line_text = "" |> sm'.string_builder; position = { line = 1; col
00:10:27 verbose #12451 > > = 1 } })
00:10:27 verbose #12452 > >
00:10:27 verbose #12453 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12454 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12455 > > │ ## inc │
00:10:27 verbose #12456 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12457 > >
00:10:27 verbose #12458 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12459 > > inl inc c (s : parser_state) =
00:10:27 verbose #12460 > > match c with
00:10:27 verbose #12461 > > | '\n' => { line = s.position.line + 1; col = 1 }
00:10:27 verbose #12462 > > | _ => { s.position with col = s.position.col + 1 }.position
00:10:27 verbose #12463 > >
00:10:27 verbose #12464 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12465 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12466 > > │ ## update │
00:10:27 verbose #12467 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12468 > >
00:10:27 verbose #12469 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12470 > > inl update result (s : parser_state) =
00:10:27 verbose #12471 > > (s, result |> sm'.to_char_array |> am'.to_list' |> listm'.unbox)
00:10:27 verbose #12472 > > ||> listm.fold fun s c => { s with
00:10:27 verbose #12473 > > position = s |> inc c
00:10:27 verbose #12474 > > line_text =
00:10:27 verbose #12475 > > match c with
00:10:27 verbose #12476 > > | '\n' => s.line_text |> sm'.builder_clear
00:10:27 verbose #12477 > > | c => s.line_text |> sm'.builder_append (sm'.obj_to_string c)
00:10:27 verbose #12478 > > }
00:10:27 verbose #12479 > >
00:10:27 verbose #12480 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12481 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12482 > > │ ## any_char │
00:10:27 verbose #12483 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12484 > >
00:10:27 verbose #12485 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12486 > > inl any_char () : parser char = function
00:10:27 verbose #12487 > > | "", s => Error $'$"parsing.any_char / unexpected end of input / s:
00:10:27 verbose #12488 > > %A{!s}"'
00:10:27 verbose #12489 > > | x, s =>
00:10:27 verbose #12490 > > inl first_char = x |> sm'.index 0i32
00:10:27 verbose #12491 > > inl rest = x |> sm'.range (am'.Start 1i32) (am'.End id)
00:10:27 verbose #12492 > > in Ok (first_char, rest, s |> update (sm'.obj_to_string first_char))
00:10:27 verbose #12493 > >
00:10:27 verbose #12494 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12495 > > //// test
00:10:27 verbose #12496 > >
00:10:27 verbose #12497 > > "abc"
00:10:27 verbose #12498 > > |> parse (any_char ())
00:10:27 verbose #12499 > > |> resultm.get
00:10:27 verbose #12500 > > |> sm'.format_debug
00:10:27 verbose #12501 > > |> _assert_eq (
00:10:27 verbose #12502 > > ('a', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:10:27 verbose #12503 > > 2i32; line = 1i32 } })
00:10:27 verbose #12504 > > |> sm'.format_debug
00:10:27 verbose #12505 > > )
00:10:27 verbose #12506 > >
00:10:27 verbose #12507 > > ╭─[ 127.38ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #12508 > > │ assert_eq / actual: "struct ('a', "bc", a, 2, 1)" / expected: "struct ('a', │
00:10:27 verbose #12509 > > │ "bc", a, 2, 1)" │
00:10:27 verbose #12510 > > │ │
00:10:27 verbose #12511 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12512 > >
00:10:27 verbose #12513 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12514 > > //// test
00:10:27 verbose #12515 > >
00:10:27 verbose #12516 > > "abc"
00:10:27 verbose #12517 > > |> parse_ (any_char_ ())
00:10:27 verbose #12518 > > |> resultm.get
00:10:27 verbose #12519 > > |> sm'.format_debug
00:10:27 verbose #12520 > > |> _assert_eq' (('a', ($'FParsec.Position (null, 0, 1, 2)' : position_)) |>
00:10:27 verbose #12521 > > sm'.format_debug)
00:10:27 verbose #12522 > >
00:10:27 verbose #12523 > > ╭─[ 145.45ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #12524 > > │ assert_eq' / actual: "struct ('a', (Ln: 1, Col: 2))" / expected: "struct │
00:10:27 verbose #12525 > > │ ('a', (Ln: 1, Col: 2))" │
00:10:27 verbose #12526 > > │ │
00:10:27 verbose #12527 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12528 > >
00:10:27 verbose #12529 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12530 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12531 > > │ ## p_char │
00:10:27 verbose #12532 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12533 > >
00:10:27 verbose #12534 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12535 > > inl p_char (c : char) : parser char = function
00:10:27 verbose #12536 > > | "", s => Error $'$"parsing.p_char / unexpected end of input / s: %A{!s}"'
00:10:27 verbose #12537 > > | input, s =>
00:10:27 verbose #12538 > > inl first_char = input |> sm'.index 0i32
00:10:27 verbose #12539 > > if first_char = c
00:10:27 verbose #12540 > > then Ok (
00:10:27 verbose #12541 > > first_char,
00:10:27 verbose #12542 > > input |> sm'.range (am'.Start 1i32) (am'.End id),
00:10:27 verbose #12543 > > s |> update (sm'.obj_to_string first_char)
00:10:27 verbose #12544 > > )
00:10:27 verbose #12545 > > else
00:10:27 verbose #12546 > > inl { line_text position = { line col } } = s
00:10:27 verbose #12547 > > inl message : string =
00:10:27 verbose #12548 > > inl rest =
00:10:27 verbose #12549 > > input
00:10:27 verbose #12550 > > |> sm'.range
00:10:27 verbose #12551 > > (am'.Start 0i32)
00:10:27 verbose #12552 > > (am'.End fun l =>
00:10:27 verbose #12553 > > match (input |> sm'.index_of "\n") - 1 with
00:10:27 verbose #12554 > > | -2 => l
00:10:27 verbose #12555 > > | l => l
00:10:27 verbose #12556 > > )
00:10:27 verbose #12557 > > $'$"parsing.p_char / expected: \'{!c}\' / line: {!line} / col:
00:10:27 verbose #12558 > > {!col}\n{!line_text}{!rest}"'
00:10:27 verbose #12559 > > inl pointer_line = (sm'.replicate (col - 1) " ") +. "^"
00:10:27 verbose #12560 > > $'$"{!message}\n{!pointer_line}\n"' |> Error
00:10:27 verbose #12561 > >
00:10:27 verbose #12562 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12563 > > //// test
00:10:27 verbose #12564 > >
00:10:27 verbose #12565 > > "abc"
00:10:27 verbose #12566 > > |> parse (p_char 'a')
00:10:27 verbose #12567 > > |> resultm.get
00:10:27 verbose #12568 > > |> sm'.format_debug
00:10:27 verbose #12569 > > |> _assert_eq (
00:10:27 verbose #12570 > > ('a', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:10:27 verbose #12571 > > 2i32; line = 1i32 } })
00:10:27 verbose #12572 > > |> sm'.format_debug
00:10:27 verbose #12573 > > )
00:10:27 verbose #12574 > >
00:10:27 verbose #12575 > > ╭─[ 102.88ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #12576 > > │ assert_eq / actual: "struct ('a', "bc", a, 2, 1)" / expected: "struct ('a', │
00:10:27 verbose #12577 > > │ "bc", a, 2, 1)" │
00:10:27 verbose #12578 > > │ │
00:10:27 verbose #12579 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12580 > >
00:10:27 verbose #12581 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12582 > > //// test
00:10:27 verbose #12583 > >
00:10:27 verbose #12584 > > "abc"
00:10:27 verbose #12585 > > |> parse_ (p_char_ 'a')
00:10:27 verbose #12586 > > |> resultm.get
00:10:27 verbose #12587 > > |> sm'.format_debug
00:10:27 verbose #12588 > > |> _assert_eq' (('a', ($'FParsec.Position (null, 0, 1, 2)' : position_)) |>
00:10:27 verbose #12589 > > sm'.format_debug)
00:10:27 verbose #12590 > >
00:10:27 verbose #12591 > > ╭─[ 136.96ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #12592 > > │ assert_eq' / actual: "struct ('a', (Ln: 1, Col: 2))" / expected: "struct │
00:10:27 verbose #12593 > > │ ('a', (Ln: 1, Col: 2))" │
00:10:27 verbose #12594 > > │ │
00:10:27 verbose #12595 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12596 > >
00:10:27 verbose #12597 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12598 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12599 > > │ ## any_string │
00:10:27 verbose #12600 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12601 > >
00:10:27 verbose #12602 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12603 > > inl any_string length : parser string = fun input, s =>
00:10:27 verbose #12604 > > if sm'.length input < length
00:10:27 verbose #12605 > > then Error $'$"parsing.any_string / unexpected end of input / s: %A{!s}"'
00:10:27 verbose #12606 > > else
00:10:27 verbose #12607 > > inl result = input |> sm'.range (am'.Start 0i32) (am'.End fun _ =>
00:10:27 verbose #12608 > > length - 1)
00:10:27 verbose #12609 > > inl rest = input |> sm'.range (am'.Start length) (am'.End id)
00:10:27 verbose #12610 > > Ok (result, rest, s |> update result)
00:10:27 verbose #12611 > >
00:10:27 verbose #12612 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12613 > > //// test
00:10:27 verbose #12614 > >
00:10:27 verbose #12615 > > "abcdef"
00:10:27 verbose #12616 > > |> parse (any_string 3i32)
00:10:27 verbose #12617 > > |> resultm.get
00:10:27 verbose #12618 > > |> sm'.format_debug
00:10:27 verbose #12619 > > |> _assert_eq (
00:10:27 verbose #12620 > > ("abc", "def", { line_text = "abc" |> sm'.string_builder; position = { col =
00:10:27 verbose #12621 > > 4i32; line = 1i32 } })
00:10:27 verbose #12622 > > |> sm'.format_debug
00:10:27 verbose #12623 > > )
00:10:27 verbose #12624 > >
00:10:27 verbose #12625 > > ╭─[ 127.75ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #12626 > > │ assert_eq / actual: "struct ("abc", "def", abc, 4, 1)" / expected: "struct │
00:10:27 verbose #12627 > > │ ("abc", "def", abc, 4, 1)" │
00:10:27 verbose #12628 > > │ │
00:10:27 verbose #12629 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12630 > >
00:10:27 verbose #12631 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12632 > > //// test
00:10:27 verbose #12633 > >
00:10:27 verbose #12634 > > "abcdef"
00:10:27 verbose #12635 > > |> parse_ (any_string__ 3)
00:10:27 verbose #12636 > > |> resultm.get
00:10:27 verbose #12637 > > |> sm'.obj_to_string
00:10:27 verbose #12638 > > |> _assert_eq' (("abc", ($'FParsec.Position (null, 0, 1, 4)' : position_)) |>
00:10:27 verbose #12639 > > sm'.obj_to_string)
00:10:27 verbose #12640 > >
00:10:27 verbose #12641 > > ╭─[ 116.25ms - stdout ]────────────────────────────────────────────────────────╮
00:10:27 verbose #12642 > > │ assert_eq' / actual: "(abc, (Ln: 1, Col: 4))" / expected: "(abc, (Ln: 1, │
00:10:27 verbose #12643 > > │ Col: 4))" │
00:10:27 verbose #12644 > > │ │
00:10:27 verbose #12645 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12646 > >
00:10:27 verbose #12647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:27 verbose #12648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:27 verbose #12649 > > │ ## skip_any_string │
00:10:27 verbose #12650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:27 verbose #12651 > >
00:10:27 verbose #12652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12653 > > inl skip_any_string length : parser () = fun input, s =>
00:10:27 verbose #12654 > > if sm'.length input < length
00:10:27 verbose #12655 > > then Error $'$"parsing.skip_any_string / unexpected end of input / s:
00:10:27 verbose #12656 > > %A{!s}"'
00:10:27 verbose #12657 > > else Ok (
00:10:27 verbose #12658 > > (),
00:10:27 verbose #12659 > > input |> sm'.range (am'.Start length) (am'.End id),
00:10:27 verbose #12660 > > s |> update (input |> sm'.range (am'.Start 0i32) (am'.End fun _ =>
00:10:27 verbose #12661 > > length - 1))
00:10:27 verbose #12662 > > )
00:10:27 verbose #12663 > >
00:10:27 verbose #12664 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:27 verbose #12665 > > //// test
00:10:27 verbose #12666 > >
00:10:27 verbose #12667 > > "abcdef"
00:10:27 verbose #12668 > > |> parse (skip_any_string 3i32)
00:10:27 verbose #12669 > > |> resultm.get
00:10:27 verbose #12670 > > |> sm'.format_debug
00:10:27 verbose #12671 > > |> _assert_eq (
00:10:27 verbose #12672 > > ((), "def", { line_text = "abc" |> sm'.string_builder; position = { col =
00:10:27 verbose #12673 > > 4i32; line = 1i32 } })
00:10:27 verbose #12674 > > |> sm'.format_debug
00:10:27 verbose #12675 > > )
00:10:28 verbose #12676 > >
00:10:28 verbose #12677 > > ╭─[ 133.94ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #12678 > > │ assert_eq / actual: "struct ("def", abc, 4, 1)" / expected: "struct ("def", │
00:10:28 verbose #12679 > > │ abc, 4, 1)" │
00:10:28 verbose #12680 > > │ │
00:10:28 verbose #12681 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12682 > >
00:10:28 verbose #12683 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:28 verbose #12684 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:28 verbose #12685 > > │ ## (>>.) │
00:10:28 verbose #12686 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12687 > >
00:10:28 verbose #12688 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12689 > > inl (>>.) forall t u. (a : parser t) (b : parser u) : parser u = fun input, s =>
00:10:28 verbose #12690 > > match a (input, s) with
00:10:28 verbose #12691 > > | Ok (_, rest, s) => b (rest, s)
00:10:28 verbose #12692 > > | Error e => Error e
00:10:28 verbose #12693 > >
00:10:28 verbose #12694 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12695 > > //// test
00:10:28 verbose #12696 > >
00:10:28 verbose #12697 > > "abc"
00:10:28 verbose #12698 > > |> parse (p_char 'a' >>. p_char 'b')
00:10:28 verbose #12699 > > |> resultm.get
00:10:28 verbose #12700 > > |> sm'.format_debug
00:10:28 verbose #12701 > > |> _assert_eq (
00:10:28 verbose #12702 > > ('b', "c", { line_text = "ab" |> sm'.string_builder; position = { col =
00:10:28 verbose #12703 > > 3i32; line = 1i32 } })
00:10:28 verbose #12704 > > |> sm'.format_debug
00:10:28 verbose #12705 > > )
00:10:28 verbose #12706 > >
00:10:28 verbose #12707 > > "abc\ndef\nghi"
00:10:28 verbose #12708 > > |> parse (skip_any_string 5i32 >>. p_char 'a')
00:10:28 verbose #12709 > > |> _assert_eq (Error "parsing.p_char / expected: 'a' / line: 2 / col: 2\ndef\n
00:10:28 verbose #12710 > > ^\n")
00:10:28 verbose #12711 > >
00:10:28 verbose #12712 > > ╭─[ 285.79ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #12713 > > │ assert_eq / actual: "struct ('b', "c", ab, 3, 1)" / expected: "struct ('b', │
00:10:28 verbose #12714 > > │ "c", ab, 3, 1)" │
00:10:28 verbose #12715 > > │ assert_eq / actual: US0_1 "parsing.p_char / expected: 'a' / line: 2 / col: 2 │
00:10:28 verbose #12716 > > │ def │
00:10:28 verbose #12717 > > │ ^ │
00:10:28 verbose #12718 > > │ " / expected: US0_1 "parsing.p_char / expected: 'a' / line: 2 / col: 2 │
00:10:28 verbose #12719 > > │ def │
00:10:28 verbose #12720 > > │ ^ │
00:10:28 verbose #12721 > > │ " │
00:10:28 verbose #12722 > > │ │
00:10:28 verbose #12723 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12724 > >
00:10:28 verbose #12725 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12726 > > //// test
00:10:28 verbose #12727 > >
00:10:28 verbose #12728 > > "abc"
00:10:28 verbose #12729 > > |> parse_ (p_char_ 'a' >>.$ p_char_ 'b')
00:10:28 verbose #12730 > > |> resultm.get
00:10:28 verbose #12731 > > |> sm'.obj_to_string
00:10:28 verbose #12732 > > |> _assert_eq' (('b', ($'FParsec.Position (null, 0, 1, 3)' : position_)) |>
00:10:28 verbose #12733 > > sm'.obj_to_string)
00:10:28 verbose #12734 > >
00:10:28 verbose #12735 > > ╭─[ 125.05ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #12736 > > │ assert_eq' / actual: "(b, (Ln: 1, Col: 3))" / expected: "(b, (Ln: 1, Col: │
00:10:28 verbose #12737 > > │ 3))" │
00:10:28 verbose #12738 > > │ │
00:10:28 verbose #12739 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12740 > >
00:10:28 verbose #12741 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12742 > > //// test
00:10:28 verbose #12743 > >
00:10:28 verbose #12744 > > "abc\ndef\nghi"
00:10:28 verbose #12745 > > |> parse_ (skip_any_string_ 5 >>.$ p_char_ 'a')
00:10:28 verbose #12746 > > |> resultm.unwrap_err
00:10:28 verbose #12747 > > |> sm'.obj_to_string
00:10:28 verbose #12748 > > |> sm'.replace "\r\n" "\n"
00:10:28 verbose #12749 > > |> _assert_eq "(Error in Ln: 2 Col: 2\ndef\n ^\nExpecting: 'a'\n, Error in Ln: 2
00:10:28 verbose #12750 > > Col: 2\nExpecting: 'a'\n)"
00:10:28 verbose #12751 > >
00:10:28 verbose #12752 > > ╭─[ 135.03ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #12753 > > │ assert_eq / actual: "(Error in Ln: 2 Col: 2 │
00:10:28 verbose #12754 > > │ def │
00:10:28 verbose #12755 > > │ ^ │
00:10:28 verbose #12756 > > │ Expecting: 'a' │
00:10:28 verbose #12757 > > │ , Error in Ln: 2 Col: 2 │
00:10:28 verbose #12758 > > │ Expecting: 'a' │
00:10:28 verbose #12759 > > │ )" / expected: "(Error in Ln: 2 Col: 2 │
00:10:28 verbose #12760 > > │ def │
00:10:28 verbose #12761 > > │ ^ │
00:10:28 verbose #12762 > > │ Expecting: 'a' │
00:10:28 verbose #12763 > > │ , Error in Ln: 2 Col: 2 │
00:10:28 verbose #12764 > > │ Expecting: 'a' │
00:10:28 verbose #12765 > > │ )" │
00:10:28 verbose #12766 > > │ │
00:10:28 verbose #12767 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12768 > >
00:10:28 verbose #12769 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:28 verbose #12770 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:28 verbose #12771 > > │ ## none_of │
00:10:28 verbose #12772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12773 > >
00:10:28 verbose #12774 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12775 > > inl none_of (chars : list char) : parser char = function
00:10:28 verbose #12776 > > | "", s =>
00:10:28 verbose #12777 > > inl chars = chars |> listm'.box |> listm'.to_array' |> fun x => x : _
00:10:28 verbose #12778 > > int _
00:10:28 verbose #12779 > > Error $'$"parsing.none_of / unexpected end of input / chars: %A{!chars}
00:10:28 verbose #12780 > > / s: %A{!s}"'
00:10:28 verbose #12781 > > | x, s =>
00:10:28 verbose #12782 > > inl first_char = x |> sm'.index 0i32
00:10:28 verbose #12783 > > inl rest = x |> sm'.range (am'.Start 1i32) (am'.End id)
00:10:28 verbose #12784 > > if chars |> listm'.exists' ((=) first_char) |> not
00:10:28 verbose #12785 > > then Ok (first_char, rest, s |> update (sm'.obj_to_string first_char))
00:10:28 verbose #12786 > > else
00:10:28 verbose #12787 > > inl chars = chars |> listm'.box |> listm'.to_array' |> fun x => x :
00:10:28 verbose #12788 > > _ int _
00:10:28 verbose #12789 > > Error $'$"parsing.none_of / unexpected char: \'{!first_char}\'
00:10:28 verbose #12790 > > chars: %A{!chars} / s: %A{!s}"'
00:10:28 verbose #12791 > >
00:10:28 verbose #12792 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12793 > > //// test
00:10:28 verbose #12794 > >
00:10:28 verbose #12795 > > "abc"
00:10:28 verbose #12796 > > |> parse (none_of [['a'; 'b'; 'c']])
00:10:28 verbose #12797 > > |> _assert_eq (Error "parsing.none_of / unexpected char: \'a\' / chars: [[|'a';
00:10:28 verbose #12798 > > 'b'; 'c'|]] / s: struct (, 1, 1)")
00:10:28 verbose #12799 > >
00:10:28 verbose #12800 > > "def"
00:10:28 verbose #12801 > > |> parse (none_of [['a'; 'b'; 'c']])
00:10:28 verbose #12802 > > |> resultm.get
00:10:28 verbose #12803 > > |> sm'.format_debug
00:10:28 verbose #12804 > > |> _assert_eq (
00:10:28 verbose #12805 > > ('d', "ef", { line_text = "d" |> sm'.string_builder; position = { col =
00:10:28 verbose #12806 > > 2i32; line = 1i32 } })
00:10:28 verbose #12807 > > |> sm'.format_debug
00:10:28 verbose #12808 > > )
00:10:28 verbose #12809 > >
00:10:28 verbose #12810 > > ╭─[ 223.93ms - stdout ]────────────────────────────────────────────────────────╮
00:10:28 verbose #12811 > > │ assert_eq / actual: US1_1 │
00:10:28 verbose #12812 > > │ "parsing.none_of / unexpected char: 'a' / chars: [|'a'; 'b'; 'c'|] / s: │
00:10:28 verbose #12813 > > │ struct (, 1, 1)" / expected: US1_1 │
00:10:28 verbose #12814 > > │ "parsing.none_of / unexpected char: 'a' / chars: [|'a'; 'b'; 'c'|] / s: │
00:10:28 verbose #12815 > > │ struct (, 1, 1)" │
00:10:28 verbose #12816 > > │ assert_eq / actual: "struct ('d', "ef", d, 2, 1)" / expected: "struct ('d', │
00:10:28 verbose #12817 > > │ "ef", d, 2, 1)" │
00:10:28 verbose #12818 > > │ │
00:10:28 verbose #12819 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:28 verbose #12820 > >
00:10:28 verbose #12821 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:28 verbose #12822 > > //// test
00:10:28 verbose #12823 > >
00:10:28 verbose #12824 > > "abc"
00:10:28 verbose #12825 > > |> parse_ (none_of_ [['a'; 'b'; 'c']])
00:10:28 verbose #12826 > > |> resultm.unwrap_err
00:10:28 verbose #12827 > > |> sm'.obj_to_string
00:10:28 verbose #12828 > > |> sm'.replace "\r\n" "\n"
00:10:28 verbose #12829 > > |> _assert_eq ($'"(Error in Ln: 1 Col: 1\nabc\n^\nExpecting: any char not in
00:10:28 verbose #12830 > > ‘abc’\n, Error in Ln: 1 Col: 1\nExpecting: any char not in ‘abc’\n)"')
00:10:28 verbose #12831 > >
00:10:28 verbose #12832 > > "def"
00:10:28 verbose #12833 > > |> parse_ (none_of_ [['a'; 'b'; 'c']])
00:10:28 verbose #12834 > > |> resultm.get
00:10:28 verbose #12835 > > |> sm'.obj_to_string
00:10:28 verbose #12836 > > |> _assert_eq' (('d', ($'FParsec.Position (null, 0, 1, 2)' : position_)) |>
00:10:28 verbose #12837 > > sm'.obj_to_string)
00:10:29 verbose #12838 > >
00:10:29 verbose #12839 > > ╭─[ 170.92ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #12840 > > │ assert_eq / actual: "(Error in Ln: 1 Col: 1 │
00:10:29 verbose #12841 > > │ abc │
00:10:29 verbose #12842 > > │ ^ │
00:10:29 verbose #12843 > > │ Expecting: any char not in ‘abc’ │
00:10:29 verbose #12844 > > │ , Error in Ln: 1 Col: 1 │
00:10:29 verbose #12845 > > │ Expecting: any char not in ‘abc’ │
00:10:29 verbose #12846 > > │ )" / expected: "(Error in Ln: 1 Col: 1 │
00:10:29 verbose #12847 > > │ abc │
00:10:29 verbose #12848 > > │ ^ │
00:10:29 verbose #12849 > > │ Expecting: any char not in ‘abc’ │
00:10:29 verbose #12850 > > │ , Error in Ln: 1 Col: 1 │
00:10:29 verbose #12851 > > │ Expecting: any char not in ‘abc’ │
00:10:29 verbose #12852 > > │ )" │
00:10:29 verbose #12853 > > │ assert_eq' / actual: "(d, (Ln: 1, Col: 2))" / expected: "(d, (Ln: 1, Col: │
00:10:29 verbose #12854 > > │ 2))" │
00:10:29 verbose #12855 > > │ │
00:10:29 verbose #12856 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12857 > >
00:10:29 verbose #12858 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:29 verbose #12859 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:29 verbose #12860 > > │ ## (<|>) │
00:10:29 verbose #12861 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12862 > >
00:10:29 verbose #12863 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12864 > > inl (<|>) forall t. (a : parser t) (b : parser t) : parser t = fun input, s =>
00:10:29 verbose #12865 > > match a (input, s) with
00:10:29 verbose #12866 > > | Ok _ as result => result
00:10:29 verbose #12867 > > | Error _ => b (input, s)
00:10:29 verbose #12868 > >
00:10:29 verbose #12869 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12870 > > //// test
00:10:29 verbose #12871 > >
00:10:29 verbose #12872 > > "abc"
00:10:29 verbose #12873 > > |> parse (p_char 'a' <|> p_char 'b')
00:10:29 verbose #12874 > > |> resultm.get
00:10:29 verbose #12875 > > |> sm'.format_debug
00:10:29 verbose #12876 > > |> _assert_eq (
00:10:29 verbose #12877 > > ('a', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:10:29 verbose #12878 > > 2i32; line = 1i32 } })
00:10:29 verbose #12879 > > |> sm'.format_debug
00:10:29 verbose #12880 > > )
00:10:29 verbose #12881 > >
00:10:29 verbose #12882 > > "cba"
00:10:29 verbose #12883 > > |> parse (p_char 'a' <|> p_char 'b')
00:10:29 verbose #12884 > > |> _assert_eq (Error "parsing.p_char / expected: 'b' / line: 1 / col:
00:10:29 verbose #12885 > > 1\ncba\n^\n")
00:10:29 verbose #12886 > >
00:10:29 verbose #12887 > > ╭─[ 190.55ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #12888 > > │ assert_eq / actual: "struct ('a', "bc", a, 2, 1)" / expected: "struct ('a', │
00:10:29 verbose #12889 > > │ "bc", a, 2, 1)" │
00:10:29 verbose #12890 > > │ assert_eq / actual: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:10:29 verbose #12891 > > │ cba │
00:10:29 verbose #12892 > > │ ^ │
00:10:29 verbose #12893 > > │ " / expected: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:10:29 verbose #12894 > > │ cba │
00:10:29 verbose #12895 > > │ ^ │
00:10:29 verbose #12896 > > │ " │
00:10:29 verbose #12897 > > │ │
00:10:29 verbose #12898 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12899 > >
00:10:29 verbose #12900 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:29 verbose #12901 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:29 verbose #12902 > > │ ## (|>>) │
00:10:29 verbose #12903 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12904 > >
00:10:29 verbose #12905 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12906 > > inl (|>>) p f : parser _ = fun input =>
00:10:29 verbose #12907 > > match p input with
00:10:29 verbose #12908 > > | Ok (result, rest) => Ok (f result, rest)
00:10:29 verbose #12909 > > | Error e => Error e
00:10:29 verbose #12910 > >
00:10:29 verbose #12911 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12912 > > //// test
00:10:29 verbose #12913 > >
00:10:29 verbose #12914 > > "abc"
00:10:29 verbose #12915 > > |> parse (p_char 'a' |>> sm'.char_to_upper)
00:10:29 verbose #12916 > > |> resultm.get
00:10:29 verbose #12917 > > |> sm'.format_debug
00:10:29 verbose #12918 > > |> _assert_eq (
00:10:29 verbose #12919 > > ('A', "bc", { line_text = "a" |> sm'.string_builder; position = { col =
00:10:29 verbose #12920 > > 2i32; line = 1i32 } })
00:10:29 verbose #12921 > > |> sm'.format_debug
00:10:29 verbose #12922 > > )
00:10:29 verbose #12923 > >
00:10:29 verbose #12924 > > ╭─[ 128.04ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #12925 > > │ assert_eq / actual: "struct ('A', "bc", a, 2, 1)" / expected: "struct ('A', │
00:10:29 verbose #12926 > > │ "bc", a, 2, 1)" │
00:10:29 verbose #12927 > > │ │
00:10:29 verbose #12928 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12929 > >
00:10:29 verbose #12930 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:29 verbose #12931 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:29 verbose #12932 > > │ ## many1_chars │
00:10:29 verbose #12933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12934 > >
00:10:29 verbose #12935 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12936 > > inl many1_chars p : parser string = fun input =>
00:10:29 verbose #12937 > > match p input with
00:10:29 verbose #12938 > > | Error e => Error e
00:10:29 verbose #12939 > > | Ok (first_result, rest) =>
00:10:29 verbose #12940 > > let rec loop acc input =
00:10:29 verbose #12941 > > match p input with
00:10:29 verbose #12942 > > | Ok (result, rest) => loop (acc +. sm'.obj_to_string result) rest
00:10:29 verbose #12943 > > | Error _ => Ok (acc, input)
00:10:29 verbose #12944 > > loop (sm'.obj_to_string first_result) rest
00:10:29 verbose #12945 > >
00:10:29 verbose #12946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12947 > > //// test
00:10:29 verbose #12948 > >
00:10:29 verbose #12949 > > "aaabbc"
00:10:29 verbose #12950 > > |> parse (many1_chars (p_char 'a' <|> p_char 'b'))
00:10:29 verbose #12951 > > |> resultm.get
00:10:29 verbose #12952 > > |> sm'.format_debug
00:10:29 verbose #12953 > > |> _assert_eq (
00:10:29 verbose #12954 > > ("aaabb", "c", { line_text = "aaabb" |> sm'.string_builder; position = { col
00:10:29 verbose #12955 > > = 6i32; line = 1i32 } })
00:10:29 verbose #12956 > > |> sm'.format_debug
00:10:29 verbose #12957 > > )
00:10:29 verbose #12958 > >
00:10:29 verbose #12959 > > ╭─[ 232.19ms - stdout ]────────────────────────────────────────────────────────╮
00:10:29 verbose #12960 > > │ assert_eq / actual: "struct ("aaabb", "c", aaabb, 6, 1)" / expected: "struct │
00:10:29 verbose #12961 > > │ ("aaabb", "c", aaabb, 6, 1)" │
00:10:29 verbose #12962 > > │ │
00:10:29 verbose #12963 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12964 > >
00:10:29 verbose #12965 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:29 verbose #12966 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:29 verbose #12967 > > │ ## many1 │
00:10:29 verbose #12968 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:29 verbose #12969 > >
00:10:29 verbose #12970 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12971 > > inl many1 p : parser (list _) = fun input =>
00:10:29 verbose #12972 > > match p input with
00:10:29 verbose #12973 > > | Error e => Error e
00:10:29 verbose #12974 > > | Ok (first_result, rest) =>
00:10:29 verbose #12975 > > let rec loop acc input =
00:10:29 verbose #12976 > > match p input with
00:10:29 verbose #12977 > > | Ok (result, rest) => loop (result :: acc) rest
00:10:29 verbose #12978 > > | Error _ => Ok (listm.rev acc, input)
00:10:29 verbose #12979 > > loop [[ first_result ]] rest
00:10:29 verbose #12980 > >
00:10:29 verbose #12981 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:29 verbose #12982 > > //// test
00:10:29 verbose #12983 > >
00:10:29 verbose #12984 > > "aaabbc"
00:10:29 verbose #12985 > > |> parse (many1 (p_char 'a' <|> p_char 'b'))
00:10:29 verbose #12986 > > |> resultm.get
00:10:29 verbose #12987 > > |> sm'.format_debug
00:10:29 verbose #12988 > > |> _assert_eq (
00:10:29 verbose #12989 > > ([['a'; 'a'; 'a'; 'b'; 'b']], "c", { line_text = "aaabb" |>
00:10:29 verbose #12990 > > sm'.string_builder; position = { col = 6i32; line = 1i32 } })
00:10:29 verbose #12991 > > |> sm'.format_debug
00:10:29 verbose #12992 > > )
00:10:29 verbose #12993 > >
00:10:29 verbose #12994 > > "bcc"
00:10:29 verbose #12995 > > |> parse (many1 (p_char 'a' <|> p_char 'b'))
00:10:29 verbose #12996 > > |> resultm.get
00:10:29 verbose #12997 > > |> sm'.format_debug
00:10:29 verbose #12998 > > |> _assert_eq (
00:10:29 verbose #12999 > > ([['b']], "cc", { line_text = "b" |> sm'.string_builder; position = { col =
00:10:29 verbose #13000 > > 2i32; line = 1i32 } })
00:10:29 verbose #13001 > > |> sm'.format_debug
00:10:29 verbose #13002 > > )
00:10:29 verbose #13003 > >
00:10:29 verbose #13004 > > "cba"
00:10:29 verbose #13005 > > |> parse (many1 (p_char 'a' <|> p_char 'b'))
00:10:29 verbose #13006 > > |> _assert_eq (Error "parsing.p_char / expected: 'b' / line: 1 / col:
00:10:29 verbose #13007 > > 1\ncba\n^\n")
00:10:30 verbose #13008 > >
00:10:30 verbose #13009 > > ╭─[ 367.98ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #13010 > > │ assert_eq / actual: "struct (UH0_1 ('a', UH0_1 ('a', UH0_1 ('a', UH0_1 ('b', │
00:10:30 verbose #13011 > > │ UH0_1 ('b', UH0_0))))), │
00:10:30 verbose #13012 > > │ "c", aaabb, 6, 1)" / expected: "struct (UH0_1 ('a', UH0_1 ('a', │
00:10:30 verbose #13013 > > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('b', UH0_0))))), │
00:10:30 verbose #13014 > > │ "c", aaabb, 6, 1)" │
00:10:30 verbose #13015 > > │ assert_eq / actual: "struct (UH0_1 ('b', UH0_0), "cc", b, 2, 1)" / expected: │
00:10:30 verbose #13016 > > │ "struct (UH0_1 ('b', UH0_0), "cc", b, 2, 1)" │
00:10:30 verbose #13017 > > │ assert_eq / actual: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:10:30 verbose #13018 > > │ cba │
00:10:30 verbose #13019 > > │ ^ │
00:10:30 verbose #13020 > > │ " / expected: US0_1 "parsing.p_char / expected: 'b' / line: 1 / col: 1 │
00:10:30 verbose #13021 > > │ cba │
00:10:30 verbose #13022 > > │ ^ │
00:10:30 verbose #13023 > > │ " │
00:10:30 verbose #13024 > > │ │
00:10:30 verbose #13025 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13026 > >
00:10:30 verbose #13027 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:30 verbose #13028 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:30 verbose #13029 > > │ ## many1_strings │
00:10:30 verbose #13030 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13031 > >
00:10:30 verbose #13032 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13033 > > inl many1_strings p : parser string = fun input =>
00:10:30 verbose #13034 > > match many1 p input with
00:10:30 verbose #13035 > > | Ok (results, rest) =>
00:10:30 verbose #13036 > > Ok (results |> listm.map sm'.obj_to_string |> listm'.box |> seq.of_list'
00:10:30 verbose #13037 > > |> sm'.concat "", rest)
00:10:30 verbose #13038 > > | Error e => Error e
00:10:30 verbose #13039 > >
00:10:30 verbose #13040 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13041 > > //// test
00:10:30 verbose #13042 > >
00:10:30 verbose #13043 > > "aaabbc"
00:10:30 verbose #13044 > > |> parse (many1_strings (p_char 'a' <|> p_char 'b'))
00:10:30 verbose #13045 > > |> resultm.get
00:10:30 verbose #13046 > > |> sm'.format_debug
00:10:30 verbose #13047 > > |> _assert_eq (
00:10:30 verbose #13048 > > ("aaabb", "c", { line_text = "aaabb" |> sm'.string_builder; position = { col
00:10:30 verbose #13049 > > = 6i32; line = 1i32 } })
00:10:30 verbose #13050 > > |> sm'.format_debug
00:10:30 verbose #13051 > > )
00:10:30 verbose #13052 > >
00:10:30 verbose #13053 > > ╭─[ 286.56ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #13054 > > │ assert_eq / actual: "struct ("aaabb", "c", aaabb, 6, 1)" / expected: "struct │
00:10:30 verbose #13055 > > │ ("aaabb", "c", aaabb, 6, 1)" │
00:10:30 verbose #13056 > > │ │
00:10:30 verbose #13057 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13058 > >
00:10:30 verbose #13059 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:30 verbose #13060 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:30 verbose #13061 > > │ ## choice │
00:10:30 verbose #13062 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13063 > >
00:10:30 verbose #13064 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13065 > > inl choice parsers : parser _ = fun input =>
00:10:30 verbose #13066 > > let rec loop = function
00:10:30 verbose #13067 > > | [[]] => Error "choice / no parsers succeeded"
00:10:30 verbose #13068 > > | p :: ps =>
00:10:30 verbose #13069 > > match p input with
00:10:30 verbose #13070 > > | Ok _ as result => result
00:10:30 verbose #13071 > > | Error _ => loop ps
00:10:30 verbose #13072 > > loop parsers
00:10:30 verbose #13073 > >
00:10:30 verbose #13074 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13075 > > //// test
00:10:30 verbose #13076 > >
00:10:30 verbose #13077 > > "bca"
00:10:30 verbose #13078 > > |> parse (choice [[p_char 'a'; p_char 'b'; p_char 'c']])
00:10:30 verbose #13079 > > |> resultm.get
00:10:30 verbose #13080 > > |> sm'.format_debug
00:10:30 verbose #13081 > > |> _assert_eq (
00:10:30 verbose #13082 > > ('b', "ca", { line_text = "b" |> sm'.string_builder; position = { col =
00:10:30 verbose #13083 > > 2i32; line = 1i32 } })
00:10:30 verbose #13084 > > |> sm'.format_debug
00:10:30 verbose #13085 > > )
00:10:30 verbose #13086 > >
00:10:30 verbose #13087 > > "cba"
00:10:30 verbose #13088 > > |> parse (choice [[p_char 'a'; p_char 'b'; p_char 'c']])
00:10:30 verbose #13089 > > |> resultm.get
00:10:30 verbose #13090 > > |> sm'.format_debug
00:10:30 verbose #13091 > > |> _assert_eq (
00:10:30 verbose #13092 > > ('c', "ba", { line_text = "c" |> sm'.string_builder; position = { col =
00:10:30 verbose #13093 > > 2i32; line = 1i32 } })
00:10:30 verbose #13094 > > |> sm'.format_debug
00:10:30 verbose #13095 > > )
00:10:30 verbose #13096 > >
00:10:30 verbose #13097 > > ╭─[ 260.78ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #13098 > > │ assert_eq / actual: "struct ('b', "ca", b, 2, 1)" / expected: "struct ('b', │
00:10:30 verbose #13099 > > │ "ca", b, 2, 1)" │
00:10:30 verbose #13100 > > │ assert_eq / actual: "struct ('c', "ba", c, 2, 1)" / expected: "struct ('c', │
00:10:30 verbose #13101 > > │ "ba", c, 2, 1)" │
00:10:30 verbose #13102 > > │ │
00:10:30 verbose #13103 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13104 > >
00:10:30 verbose #13105 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:30 verbose #13106 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:30 verbose #13107 > > │ ## many │
00:10:30 verbose #13108 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13109 > >
00:10:30 verbose #13110 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13111 > > inl many p : parser (list _) = fun input =>
00:10:30 verbose #13112 > > let rec loop acc input =
00:10:30 verbose #13113 > > match p input with
00:10:30 verbose #13114 > > | Ok (result, rest) => loop (result :: acc) rest
00:10:30 verbose #13115 > > | Error _ => Ok (listm.rev acc, input)
00:10:30 verbose #13116 > > loop [[]] input
00:10:30 verbose #13117 > >
00:10:30 verbose #13118 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13119 > > //// test
00:10:30 verbose #13120 > >
00:10:30 verbose #13121 > > "aaabbc"
00:10:30 verbose #13122 > > |> parse (many (p_char 'a' <|> p_char 'b'))
00:10:30 verbose #13123 > > |> resultm.get
00:10:30 verbose #13124 > > |> sm'.format_debug
00:10:30 verbose #13125 > > |> _assert_eq (
00:10:30 verbose #13126 > > ([['a'; 'a'; 'a'; 'b'; 'b']], "c", { line_text = "aaabb" |>
00:10:30 verbose #13127 > > sm'.string_builder; position = { col = 6i32; line = 1i32 } })
00:10:30 verbose #13128 > > |> sm'.format_debug
00:10:30 verbose #13129 > > )
00:10:30 verbose #13130 > >
00:10:30 verbose #13131 > > ╭─[ 228.43ms - stdout ]────────────────────────────────────────────────────────╮
00:10:30 verbose #13132 > > │ assert_eq / actual: "struct (UH0_1 ('a', UH0_1 ('a', UH0_1 ('a', UH0_1 ('b', │
00:10:30 verbose #13133 > > │ UH0_1 ('b', UH0_0))))), │
00:10:30 verbose #13134 > > │ "c", aaabb, 6, 1)" / expected: "struct (UH0_1 ('a', UH0_1 ('a', │
00:10:30 verbose #13135 > > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('b', UH0_0))))), │
00:10:30 verbose #13136 > > │ "c", aaabb, 6, 1)" │
00:10:30 verbose #13137 > > │ │
00:10:30 verbose #13138 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13139 > >
00:10:30 verbose #13140 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:30 verbose #13141 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:30 verbose #13142 > > │ ## between │
00:10:30 verbose #13143 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:30 verbose #13144 > >
00:10:30 verbose #13145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:30 verbose #13146 > > inl between p_open p_close p_content : parser _ = fun input =>
00:10:30 verbose #13147 > > match p_open input with
00:10:30 verbose #13148 > > | Ok (_, rest1) =>
00:10:30 verbose #13149 > > match p_content rest1 with
00:10:30 verbose #13150 > > | Ok (result, rest2) =>
00:10:30 verbose #13151 > > match p_close rest2 with
00:10:30 verbose #13152 > > | Ok (_, rest3) => Ok (result, rest3)
00:10:30 verbose #13153 > > | Error e => Error $'$"between / expected closing delimiter / e:
00:10:30 verbose #13154 > > %A{!e} / input: %A{!input} / rest1: %A{!rest1} / rest2: %A{!rest2}"'
00:10:30 verbose #13155 > > | Error _ => Error "between / expected content"
00:10:30 verbose #13156 > > | Error e => Error e
00:10:31 verbose #13157 > >
00:10:31 verbose #13158 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13159 > > //// test
00:10:31 verbose #13160 > >
00:10:31 verbose #13161 > > "[[aaabb]]"
00:10:31 verbose #13162 > > |> parse (between (p_char '[[') (p_char ']]') (many1_chars (p_char 'a' <|>
00:10:31 verbose #13163 > > p_char 'b')))
00:10:31 verbose #13164 > > |> resultm.get
00:10:31 verbose #13165 > > |> sm'.format_debug
00:10:31 verbose #13166 > > |> _assert_eq (
00:10:31 verbose #13167 > > ("aaabb", "", { line_text = "[[aaabb]]" |> sm'.string_builder; position = {
00:10:31 verbose #13168 > > col = 8i32; line = 1i32 } })
00:10:31 verbose #13169 > > |> sm'.format_debug
00:10:31 verbose #13170 > > )
00:10:31 verbose #13171 > >
00:10:31 verbose #13172 > > "[[aaabb"
00:10:31 verbose #13173 > > |> parse (between (p_char '[[') (p_char ']]') (many1_chars (p_char 'a' <|>
00:10:31 verbose #13174 > > p_char 'b')))
00:10:31 verbose #13175 > > |> resultm.unwrap_err
00:10:31 verbose #13176 > > |> sm'.format_debug
00:10:31 verbose #13177 > > |> _assert_eq "\"between / expected closing delimiter / e: \"parsing.p_char
00:10:31 verbose #13178 > > unexpected end of input / s: struct ([[aaabb, 7, 1)\" / input: struct
00:10:31 verbose #13179 > > (\"[[aaabb\", [[aaabb, 1, 1) / rest1: struct (\"aaabb\", [[aaabb, 2, 1) / rest2:
00:10:31 verbose #13180 > > struct (\"\", [[aaabb, 7, 1)\""
00:10:31 verbose #13181 > >
00:10:31 verbose #13182 > > ╭─[ 514.61ms - stdout ]────────────────────────────────────────────────────────╮
00:10:31 verbose #13183 > > │ assert_eq / actual: "struct ("aaabb", "", [aaabb], 8, 1)" / expected: │
00:10:31 verbose #13184 > > │ "struct ("aaabb", "", [aaabb], 8, 1)" │
00:10:31 verbose #13185 > > │ assert_eq / actual: ""between / expected closing delimiter / e: │
00:10:31 verbose #13186 > > │ "parsing.p_char / unexpected end of input / s: struct ([aaabb, 7, 1)" / │
00:10:31 verbose #13187 > > │ input: struct ("[aaabb", [aaabb, 1, 1) / rest1: struct ("aaabb", [aaabb, 2, │
00:10:31 verbose #13188 > > │ 1) / rest2: struct ("", [aaabb, 7, 1)"" / expected: ""between / expected │
00:10:31 verbose #13189 > > │ closing delimiter / e: "parsing.p_char / unexpected end of input / s: struct │
00:10:31 verbose #13190 > > │ ([aaabb, 7, 1)" / input: struct ("[aaabb", [aaabb, 1, 1) / rest1: struct │
00:10:31 verbose #13191 > > │ ("aaabb", [aaabb, 2, 1) / rest2: struct ("", [aaabb, 7, 1)"" │
00:10:31 verbose #13192 > > │ │
00:10:31 verbose #13193 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #13194 > >
00:10:31 verbose #13195 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:31 verbose #13196 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:31 verbose #13197 > > │ ## sep_by │
00:10:31 verbose #13198 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #13199 > >
00:10:31 verbose #13200 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13201 > > inl sep_by p sep : parser (list _) = fun input, s =>
00:10:31 verbose #13202 > > let rec loop acc input s =
00:10:31 verbose #13203 > > match p (input, s) with
00:10:31 verbose #13204 > > | Error _ => Ok (acc |> listm.rev, input, s)
00:10:31 verbose #13205 > > | Ok (result, rest, s) =>
00:10:31 verbose #13206 > > match sep (rest, s) with
00:10:31 verbose #13207 > > | Error _ => Ok ((result :: acc) |> listm.rev, rest, s)
00:10:31 verbose #13208 > > | Ok (_, rest, s) => loop (result :: acc) rest s
00:10:31 verbose #13209 > > loop [[]] input s
00:10:31 verbose #13210 > >
00:10:31 verbose #13211 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:31 verbose #13212 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:31 verbose #13213 > > │ ## span │
00:10:31 verbose #13214 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #13215 > >
00:10:31 verbose #13216 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13217 > > inl span pred str =
00:10:31 verbose #13218 > > let rec loop i =
00:10:31 verbose #13219 > > if i >= sm'.length str
00:10:31 verbose #13220 > > then i
00:10:31 verbose #13221 > > elif pred (str |> sm'.index i)
00:10:31 verbose #13222 > > then loop (i + 1)
00:10:31 verbose #13223 > > else i
00:10:31 verbose #13224 > > loop 0
00:10:31 verbose #13225 > >
00:10:31 verbose #13226 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:31 verbose #13227 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:31 verbose #13228 > > │ ## spaces1 │
00:10:31 verbose #13229 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #13230 > >
00:10:31 verbose #13231 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13232 > > inl spaces1 () : parser () = fun input, s =>
00:10:31 verbose #13233 > > match input |> span fun c => c = ' ' with
00:10:31 verbose #13234 > > | 0i32 => Error "spaces1 / expected at least one space"
00:10:31 verbose #13235 > > | n => Ok ((), input |> sm'.range (am'.Start n) (am'.End id), s)
00:10:31 verbose #13236 > >
00:10:31 verbose #13237 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:31 verbose #13238 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:31 verbose #13239 > > │ ## p_digit │
00:10:31 verbose #13240 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #13241 > >
00:10:31 verbose #13242 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13243 > > inl p_digit () : parser char = fun input, s =>
00:10:31 verbose #13244 > > match input |> sm'.index 0i32 with
00:10:31 verbose #13245 > > | ('0' | '1' | '2' | '3' | '4' | '5' | '6' | '7' | '8' | '9') as c =>
00:10:31 verbose #13246 > > Ok (c, input |> sm'.range (am'.Start 1i32) (am'.End id), s)
00:10:31 verbose #13247 > > | c => Error $'$"p_digit / unexpected char: {!c}"'
00:10:31 verbose #13248 > >
00:10:31 verbose #13249 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13250 > > //// test
00:10:31 verbose #13251 > >
00:10:31 verbose #13252 > > "1 2 3"
00:10:31 verbose #13253 > > |> parse (sep_by (p_digit ()) (spaces1 ()))
00:10:31 verbose #13254 > > |> resultm.get
00:10:31 verbose #13255 > > |> sm'.format_debug
00:10:31 verbose #13256 > > |> _assert_eq (
00:10:31 verbose #13257 > > ([['1'; '2'; '3']], "", { line_text = "" |> sm'.string_builder; position = {
00:10:31 verbose #13258 > > col = 1i32; line = 1i32 } })
00:10:31 verbose #13259 > > |> sm'.format_debug
00:10:31 verbose #13260 > > )
00:10:31 verbose #13261 > >
00:10:31 verbose #13262 > > ╭─[ 214.96ms - stdout ]────────────────────────────────────────────────────────╮
00:10:31 verbose #13263 > > │ assert_eq / actual: "struct (UH0_1 ('1', UH0_1 ('2', UH0_1 ('3', UH0_0))), │
00:10:31 verbose #13264 > > │ "", , 1, 1)" / expected: "struct (UH0_1 ('1', UH0_1 ('2', UH0_1 ('3', │
00:10:31 verbose #13265 > > │ UH0_0))), "", , 1, 1)" │
00:10:31 verbose #13266 > > │ │
00:10:31 verbose #13267 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:31 verbose #13268 > >
00:10:31 verbose #13269 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:31 verbose #13270 > > //// test
00:10:31 verbose #13271 > >
00:10:31 verbose #13272 > > "1 a 2"
00:10:31 verbose #13273 > > |> parse (sep_by (p_digit ()) (spaces1 ()))
00:10:31 verbose #13274 > > |> resultm.get
00:10:31 verbose #13275 > > |> sm'.format_debug
00:10:31 verbose #13276 > > |> _assert_eq (
00:10:31 verbose #13277 > > ([['1']], "a 2", { line_text = "" |> sm'.string_builder; position = { col =
00:10:31 verbose #13278 > > 1i32; line = 1i32 } })
00:10:31 verbose #13279 > > |> sm'.format_debug
00:10:31 verbose #13280 > > )
00:10:32 verbose #13281 > >
00:10:32 verbose #13282 > > ╭─[ 203.45ms - stdout ]────────────────────────────────────────────────────────╮
00:10:32 verbose #13283 > > │ assert_eq / actual: "struct (UH0_1 ('1', UH0_0), "a 2", , 1, 1)" / expected: │
00:10:32 verbose #13284 > > │ "struct (UH0_1 ('1', UH0_0), "a 2", , 1, 1)" │
00:10:32 verbose #13285 > > │ │
00:10:32 verbose #13286 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:32 verbose #13287 > 00:00:23 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 55449
00:10:32 verbose #13288 > 00:00:23 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:10:34 verbose #13289 > 00:00:26 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/parsing.dib.ipynb to html
00:10:34 verbose #13290 > 00:00:26 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:10:34 verbose #13291 > 00:00:26 verbose #7 ! validate(nb)
00:10:36 verbose #13292 > 00:00:28 verbose #8 ! [NbConvertApp] Writing 452950 bytes to c:\home\git\polyglot\lib\spiral\parsing.dib.html
00:10:37 verbose #13293 > 00:00:28 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 645
00:10:37 verbose #13294 > 00:00:28 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 645
00:10:37 verbose #13295 > 00:00:28 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/parsing.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/parsing.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:10:38 verbose #13296 > 00:00:29 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:10:38 verbose #13297 > 00:00:29 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:10:38 verbose #13298 > 00:00:29 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 56153
00:10:38 debug #13299 runtime.execute_with_options_async / exit_code: 0 / output.Length: 60957
00:10:38 debug #23 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path parsing.dib --retries 3
00:10:38 debug #13300 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path seq.dib --retries 3",
[||], None, None, true, None)
00:10:38 verbose #13301 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "seq.dib", "--retries", "3"])
00:10:38 verbose #13302 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/seq.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/seq.dib" --output-path "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:10:41 verbose #13303 > >
00:10:41 verbose #13304 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:41 verbose #13305 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:41 verbose #13306 > > │ # seq │
00:10:41 verbose #13307 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:41 verbose #13308 > >
00:10:41 verbose #13309 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:41 verbose #13310 > > //// test
00:10:41 verbose #13311 > >
00:10:41 verbose #13312 > > open testing
00:10:41 verbose #13313 > >
00:10:41 verbose #13314 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:10:41 verbose #13315 > > #r
00:10:41 verbose #13316 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:41 verbose #13317 > > otNet.Interactive.Spiral.dll"
00:10:41 verbose #13318 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:10:41 verbose #13319 > > #r
00:10:41 verbose #13320 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:41 verbose #13321 > > otNet.Interactive.dll"
00:10:41 verbose #13322 > > open type Microsoft.DotNet.Interactive.Kernel
00:10:45 verbose #13323 > >
00:10:45 verbose #13324 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:45 verbose #13325 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:45 verbose #13326 > > │ ## types │
00:10:45 verbose #13327 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:45 verbose #13328 > >
00:10:45 verbose #13329 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:45 verbose #13330 > > inl types () =
00:10:45 verbose #13331 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:10:45 verbose #13332 > > Fable.Core.Emit(\"core::iter::Fuse<$0>\")>]]\n#endif\ntype core_iter_Fuse<'T> =
00:10:45 verbose #13333 > > class end"
00:10:45 verbose #13334 > >
00:10:45 verbose #13335 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:45 verbose #13336 > > nominal fuse t = $'core_iter_Fuse<`t>'
00:10:45 verbose #13337 > >
00:10:45 verbose #13338 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:45 verbose #13339 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:45 verbose #13340 > > │ ## seq' │
00:10:45 verbose #13341 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:45 verbose #13342 > >
00:10:45 verbose #13343 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:45 verbose #13344 > > nominal seq' t = $'`t seq'
00:10:45 verbose #13345 > >
00:10:45 verbose #13346 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:45 verbose #13347 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:45 verbose #13348 > > │ ## of_array' │
00:10:45 verbose #13349 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:45 verbose #13350 > >
00:10:45 verbose #13351 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:45 verbose #13352 > > inl of_array' forall dim t. (items : a dim t) : seq' t =
00:10:45 verbose #13353 > > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:10:45 verbose #13354 > >
00:10:45 verbose #13355 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:45 verbose #13356 > > //// test
00:10:45 verbose #13357 > >
00:10:45 verbose #13358 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:10:45 verbose #13359 > > |> of_array'
00:10:46 verbose #13360 > >
00:10:46 verbose #13361 > > ╭─[ 813.86ms - return value ]──────────────────────────────────────────────────╮
00:10:46 verbose #13362 > > │ <details open="open" class="dni-treeview"><summary><span │
00:10:46 verbose #13363 > > │ class="dni-code-hint"><code>[ a, b │
00:10:46 verbose #13364 > > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:10:46 verbose #13365 > > │ CheckClose</td><td><div │
00:10:46 verbose #13366 > > │ class="dni-plaintext"><pre>False</pre></div></td></tr><tr><td>LastGenerated< │
00:10:46 verbose #13367 > > │ /td><td><div │
00:10:46 verbose #13368 > > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>v2</td> │
00:10:46 verbose #13369 > > │ <td><div class="dni-plaintext"><pre>[ a, b │
00:10:46 verbose #13370 > > │ ]</pre></div></td></tr><tr><td>enum</td><td><div │
00:10:46 verbose #13371 > > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>pc</td> │
00:10:46 verbose #13372 > > │ <td><div │
00:10:46 verbose #13373 > > │ class="dni-plaintext"><pre>0</pre></div></td></tr><tr><td>current</td><td><d │
00:10:46 verbose #13374 > > │ iv │
00:10:46 verbose #13375 > > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td><i>(val │
00:10:46 verbose #13376 > > │ ues)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:10:46 verbose #13377 > > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:10:46 verbose #13378 > > │ .dni-code-hint { │
00:10:46 verbose #13379 > > │ font-style: italic; │
00:10:46 verbose #13380 > > │ overflow: hidden; │
00:10:46 verbose #13381 > > │ white-space: nowrap; │
00:10:46 verbose #13382 > > │ } │
00:10:46 verbose #13383 > > │ .dni-treeview { │
00:10:46 verbose #13384 > > │ white-space: nowrap; │
00:10:46 verbose #13385 > > │ } │
00:10:46 verbose #13386 > > │ .dni-treeview td { │
00:10:46 verbose #13387 > > │ vertical-align: top; │
00:10:46 verbose #13388 > > │ text-align: start; │
00:10:46 verbose #13389 > > │ } │
00:10:46 verbose #13390 > > │ details.dni-treeview { │
00:10:46 verbose #13391 > > │ padding-left: 1em; │
00:10:46 verbose #13392 > > │ } │
00:10:46 verbose #13393 > > │ table td { │
00:10:46 verbose #13394 > > │ text-align: start; │
00:10:46 verbose #13395 > > │ } │
00:10:46 verbose #13396 > > │ table tr { │
00:10:46 verbose #13397 > > │ vertical-align: top; │
00:10:46 verbose #13398 > > │ margin: 0em 0px; │
00:10:46 verbose #13399 > > │ } │
00:10:46 verbose #13400 > > │ table tr td pre │
00:10:46 verbose #13401 > > │ { │
00:10:46 verbose #13402 > > │ vertical-align: top !important; │
00:10:46 verbose #13403 > > │ margin: 0em 0px !important; │
00:10:46 verbose #13404 > > │ } │
00:10:46 verbose #13405 > > │ table th { │
00:10:46 verbose #13406 > > │ text-align: start; │
00:10:46 verbose #13407 > > │ } │
00:10:46 verbose #13408 > > │ </style> │
00:10:46 verbose #13409 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:46 verbose #13410 > >
00:10:46 verbose #13411 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13412 > > inl of_array forall dim t. (items : a dim t) : seq' t =
00:10:46 verbose #13413 > > items |> $'Seq.ofArray'
00:10:46 verbose #13414 > >
00:10:46 verbose #13415 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13416 > > //// test
00:10:46 verbose #13417 > >
00:10:46 verbose #13418 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:10:46 verbose #13419 > > |> of_array
00:10:46 verbose #13420 > >
00:10:46 verbose #13421 > > ╭─[ 77.74ms - return value ]───────────────────────────────────────────────────╮
00:10:46 verbose #13422 > > │ <details open="open" class="dni-treeview"><summary><span │
00:10:46 verbose #13423 > > │ class="dni-code-hint"><code>[ a, b │
00:10:46 verbose #13424 > > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:10:46 verbose #13425 > > │ f</td><td><details class="dni-treeview"><summary><span │
00:10:46 verbose #13426 > > │ class="dni-code-hint"><code>Microsoft.FSharp.Collections.SeqModule+OfArray@1 │
00:10:46 verbose #13427 > > │ 010[ │
00:10:46 verbose #13428 > > │ System.String]</code></span></summary><div><table><thead><tr></tr></thead><t │
00:10:46 verbose #13429 > > │ body><tr><td>source</td><td><div class="dni-plaintext"><pre>[ a, b │
00:10:46 verbose #13430 > > │ ]</pre></div></td></tr></tbody></table></div></details></td></tr><tr><td><i> │
00:10:46 verbose #13431 > > │ (values)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:10:46 verbose #13432 > > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:10:46 verbose #13433 > > │ .dni-code-hint { │
00:10:46 verbose #13434 > > │ font-style: italic; │
00:10:46 verbose #13435 > > │ overflow: hidden; │
00:10:46 verbose #13436 > > │ white-space: nowrap; │
00:10:46 verbose #13437 > > │ } │
00:10:46 verbose #13438 > > │ .dni-treeview { │
00:10:46 verbose #13439 > > │ white-space: nowrap; │
00:10:46 verbose #13440 > > │ } │
00:10:46 verbose #13441 > > │ .dni-treeview td { │
00:10:46 verbose #13442 > > │ vertical-align: top; │
00:10:46 verbose #13443 > > │ text-align: start; │
00:10:46 verbose #13444 > > │ } │
00:10:46 verbose #13445 > > │ details.dni-treeview { │
00:10:46 verbose #13446 > > │ padding-left: 1em; │
00:10:46 verbose #13447 > > │ } │
00:10:46 verbose #13448 > > │ table td { │
00:10:46 verbose #13449 > > │ text-align: start; │
00:10:46 verbose #13450 > > │ } │
00:10:46 verbose #13451 > > │ table tr { │
00:10:46 verbose #13452 > > │ vertical-align: top; │
00:10:46 verbose #13453 > > │ margin: 0em 0px; │
00:10:46 verbose #13454 > > │ } │
00:10:46 verbose #13455 > > │ table tr td pre │
00:10:46 verbose #13456 > > │ { │
00:10:46 verbose #13457 > > │ vertical-align: top !important; │
00:10:46 verbose #13458 > > │ margin: 0em 0px !important; │
00:10:46 verbose #13459 > > │ } │
00:10:46 verbose #13460 > > │ table th { │
00:10:46 verbose #13461 > > │ text-align: start; │
00:10:46 verbose #13462 > > │ } │
00:10:46 verbose #13463 > > │ </style> │
00:10:46 verbose #13464 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:46 verbose #13465 > >
00:10:46 verbose #13466 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:46 verbose #13467 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:46 verbose #13468 > > │ ## to_array' │
00:10:46 verbose #13469 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:46 verbose #13470 > >
00:10:46 verbose #13471 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13472 > > inl to_array' forall dim t. (items : seq' t) : a dim t =
00:10:46 verbose #13473 > > items |> $'Seq.toArray'
00:10:46 verbose #13474 > >
00:10:46 verbose #13475 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13476 > > //// test
00:10:46 verbose #13477 > >
00:10:46 verbose #13478 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:10:46 verbose #13479 > > |> of_array'
00:10:46 verbose #13480 > > |> to_array'
00:10:46 verbose #13481 > > |> _assert_eq (a ;[[ "a"; "b" ]] : _ i32 _)
00:10:46 verbose #13482 > >
00:10:46 verbose #13483 > > ╭─[ 230.01ms - stdout ]────────────────────────────────────────────────────────╮
00:10:46 verbose #13484 > > │ assert_eq / actual: [|"a"; "b"|] / expected: [|"a"; "b"|] │
00:10:46 verbose #13485 > > │ │
00:10:46 verbose #13486 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:46 verbose #13487 > >
00:10:46 verbose #13488 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:46 verbose #13489 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:46 verbose #13490 > > │ ## of_list' │
00:10:46 verbose #13491 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:46 verbose #13492 > >
00:10:46 verbose #13493 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13494 > > inl of_list' forall t. (items : listm'.list' t) : seq' t =
00:10:46 verbose #13495 > > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:10:46 verbose #13496 > >
00:10:46 verbose #13497 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:46 verbose #13498 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:46 verbose #13499 > > │ ## to_list' │
00:10:46 verbose #13500 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:46 verbose #13501 > >
00:10:46 verbose #13502 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13503 > > inl to_list' forall t. (items : seq' t) : listm'.list' t =
00:10:46 verbose #13504 > > items |> $'Seq.toList'
00:10:46 verbose #13505 > >
00:10:46 verbose #13506 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:46 verbose #13507 > > //// test
00:10:46 verbose #13508 > >
00:10:46 verbose #13509 > > (a ;[[ "a"; "b" ]] : _ i32 _)
00:10:46 verbose #13510 > > |> of_array
00:10:46 verbose #13511 > > |> to_list'
00:10:46 verbose #13512 > > |> listm'.unbox
00:10:46 verbose #13513 > > |> _assert_eq ([[ "a"; "b" ]])
00:10:47 verbose #13514 > >
00:10:47 verbose #13515 > > ╭─[ 452.42ms - stdout ]────────────────────────────────────────────────────────╮
00:10:47 verbose #13516 > > │ assert_eq / actual: UH0_1 ("a", UH0_1 ("b", UH0_0)) / expected: UH0_1 ("a", │
00:10:47 verbose #13517 > > │ UH0_1 ("b", UH0_0)) │
00:10:47 verbose #13518 > > │ │
00:10:47 verbose #13519 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13520 > >
00:10:47 verbose #13521 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13522 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13523 > > │ ## rev' │
00:10:47 verbose #13524 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13525 > >
00:10:47 verbose #13526 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13527 > > inl rev'' forall t u. (items : t) : seq' u =
00:10:47 verbose #13528 > > items |> $'Seq.rev'
00:10:47 verbose #13529 > >
00:10:47 verbose #13530 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13531 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13532 > > │ ## seq │
00:10:47 verbose #13533 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13534 > >
00:10:47 verbose #13535 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13536 > > type seq dim el = dim -> option el
00:10:47 verbose #13537 > >
00:10:47 verbose #13538 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13539 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13540 > > │ ## try_item │
00:10:47 verbose #13541 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13542 > >
00:10:47 verbose #13543 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13544 > > inl try_item n s =
00:10:47 verbose #13545 > > n |> s
00:10:47 verbose #13546 > >
00:10:47 verbose #13547 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13548 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13549 > > │ ## from_list │
00:10:47 verbose #13550 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13551 > >
00:10:47 verbose #13552 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13553 > > inl from_list list =
00:10:47 verbose #13554 > > fun n =>
00:10:47 verbose #13555 > > list
00:10:47 verbose #13556 > > |> listm'.try_item n
00:10:47 verbose #13557 > >
00:10:47 verbose #13558 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13559 > > //// test
00:10:47 verbose #13560 > >
00:10:47 verbose #13561 > > listm.init 10i32 print_and_return
00:10:47 verbose #13562 > > |> from_list
00:10:47 verbose #13563 > > |> try_item 5i32
00:10:47 verbose #13564 > > |> _assert_eq (Some 5i32)
00:10:47 verbose #13565 > >
00:10:47 verbose #13566 > > ╭─[ 139.45ms - stdout ]────────────────────────────────────────────────────────╮
00:10:47 verbose #13567 > > │ print_and_return / x: 0 │
00:10:47 verbose #13568 > > │ print_and_return / x: 1 │
00:10:47 verbose #13569 > > │ print_and_return / x: 2 │
00:10:47 verbose #13570 > > │ print_and_return / x: 3 │
00:10:47 verbose #13571 > > │ print_and_return / x: 4 │
00:10:47 verbose #13572 > > │ print_and_return / x: 5 │
00:10:47 verbose #13573 > > │ print_and_return / x: 6 │
00:10:47 verbose #13574 > > │ print_and_return / x: 7 │
00:10:47 verbose #13575 > > │ print_and_return / x: 8 │
00:10:47 verbose #13576 > > │ print_and_return / x: 9 │
00:10:47 verbose #13577 > > │ assert_eq / actual: US0_0 5 / expected: US0_0 5 │
00:10:47 verbose #13578 > > │ │
00:10:47 verbose #13579 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13580 > >
00:10:47 verbose #13581 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13582 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13583 > > │ ## map │
00:10:47 verbose #13584 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13585 > >
00:10:47 verbose #13586 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13587 > > inl map fn s =
00:10:47 verbose #13588 > > fun n =>
00:10:47 verbose #13589 > > n
00:10:47 verbose #13590 > > |> s
00:10:47 verbose #13591 > > |> optionm.map fn
00:10:47 verbose #13592 > >
00:10:47 verbose #13593 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13594 > > //// test
00:10:47 verbose #13595 > >
00:10:47 verbose #13596 > > listm.init 10i32 id
00:10:47 verbose #13597 > > |> from_list
00:10:47 verbose #13598 > > |> map ((*) 2)
00:10:47 verbose #13599 > > |> try_item 5i32
00:10:47 verbose #13600 > > |> _assert_eq (Some 10i32)
00:10:47 verbose #13601 > >
00:10:47 verbose #13602 > > ╭─[ 68.18ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:47 verbose #13603 > > │ assert_eq / actual: US0_0 10 / expected: US0_0 10 │
00:10:47 verbose #13604 > > │ │
00:10:47 verbose #13605 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13606 > >
00:10:47 verbose #13607 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13608 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13609 > > │ ## mapi │
00:10:47 verbose #13610 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13611 > >
00:10:47 verbose #13612 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13613 > > inl mapi fn s =
00:10:47 verbose #13614 > > fun n =>
00:10:47 verbose #13615 > > n
00:10:47 verbose #13616 > > |> s
00:10:47 verbose #13617 > > |> optionm.map (fn n)
00:10:47 verbose #13618 > >
00:10:47 verbose #13619 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13620 > > //// test
00:10:47 verbose #13621 > >
00:10:47 verbose #13622 > > listm.init 10i32 print_and_return
00:10:47 verbose #13623 > > |> from_list
00:10:47 verbose #13624 > > |> mapi fun i x => i + x
00:10:47 verbose #13625 > > |> try_item 5i32
00:10:47 verbose #13626 > > |> _assert_eq (Some 10i32)
00:10:47 verbose #13627 > >
00:10:47 verbose #13628 > > ╭─[ 97.39ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:47 verbose #13629 > > │ print_and_return / x: 0 │
00:10:47 verbose #13630 > > │ print_and_return / x: 1 │
00:10:47 verbose #13631 > > │ print_and_return / x: 2 │
00:10:47 verbose #13632 > > │ print_and_return / x: 3 │
00:10:47 verbose #13633 > > │ print_and_return / x: 4 │
00:10:47 verbose #13634 > > │ print_and_return / x: 5 │
00:10:47 verbose #13635 > > │ print_and_return / x: 6 │
00:10:47 verbose #13636 > > │ print_and_return / x: 7 │
00:10:47 verbose #13637 > > │ print_and_return / x: 8 │
00:10:47 verbose #13638 > > │ print_and_return / x: 9 │
00:10:47 verbose #13639 > > │ assert_eq / actual: US0_0 10 / expected: US0_0 10 │
00:10:47 verbose #13640 > > │ │
00:10:47 verbose #13641 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13642 > >
00:10:47 verbose #13643 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13644 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13645 > > │ ## choose │
00:10:47 verbose #13646 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13647 > >
00:10:47 verbose #13648 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13649 > > inl choose forall dim {number} t u. (fn : t -> option u) (s : seq dim t) : seq
00:10:47 verbose #13650 > > dim u =
00:10:47 verbose #13651 > > fun n =>
00:10:47 verbose #13652 > > inl rec body fn s i i' =
00:10:47 verbose #13653 > > match i |> s with
00:10:47 verbose #13654 > > | None => None
00:10:47 verbose #13655 > > | Some x =>
00:10:47 verbose #13656 > > match x |> fn with
00:10:47 verbose #13657 > > | Some x when n = i' => Some x
00:10:47 verbose #13658 > > | Some _ => loop (i + 1) (i' + 1)
00:10:47 verbose #13659 > > | _ => loop (i + 1) i'
00:10:47 verbose #13660 > > and inl loop i i' =
00:10:47 verbose #13661 > > if n |> var_is |> not
00:10:47 verbose #13662 > > then body fn s i i'
00:10:47 verbose #13663 > > else
00:10:47 verbose #13664 > > inl fn = join fn
00:10:47 verbose #13665 > > inl s = join s
00:10:47 verbose #13666 > > join body fn s i i'
00:10:47 verbose #13667 > > loop 0 0
00:10:47 verbose #13668 > >
00:10:47 verbose #13669 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13670 > > //// test
00:10:47 verbose #13671 > >
00:10:47 verbose #13672 > > listm.init 10i32 print_and_return
00:10:47 verbose #13673 > > |> from_list
00:10:47 verbose #13674 > > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:10:47 verbose #13675 > > |> try_item 1i32
00:10:47 verbose #13676 > > |> _assert_eq (Some 2i32)
00:10:47 verbose #13677 > >
00:10:47 verbose #13678 > > ╭─[ 82.11ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:47 verbose #13679 > > │ print_and_return / x: 0 │
00:10:47 verbose #13680 > > │ print_and_return / x: 1 │
00:10:47 verbose #13681 > > │ print_and_return / x: 2 │
00:10:47 verbose #13682 > > │ print_and_return / x: 3 │
00:10:47 verbose #13683 > > │ print_and_return / x: 4 │
00:10:47 verbose #13684 > > │ print_and_return / x: 5 │
00:10:47 verbose #13685 > > │ print_and_return / x: 6 │
00:10:47 verbose #13686 > > │ print_and_return / x: 7 │
00:10:47 verbose #13687 > > │ print_and_return / x: 8 │
00:10:47 verbose #13688 > > │ print_and_return / x: 9 │
00:10:47 verbose #13689 > > │ assert_eq / actual: US0_0 2 / expected: US0_0 2 │
00:10:47 verbose #13690 > > │ │
00:10:47 verbose #13691 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13692 > >
00:10:47 verbose #13693 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13694 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13695 > > │ ## indexed │
00:10:47 verbose #13696 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13697 > >
00:10:47 verbose #13698 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13699 > > inl indexed s =
00:10:47 verbose #13700 > > s
00:10:47 verbose #13701 > > |> mapi fun i x =>
00:10:47 verbose #13702 > > i, x
00:10:47 verbose #13703 > >
00:10:47 verbose #13704 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13705 > > //// test
00:10:47 verbose #13706 > >
00:10:47 verbose #13707 > > listm.init 10i32 ((*) 2)
00:10:47 verbose #13708 > > |> from_list
00:10:47 verbose #13709 > > |> indexed
00:10:47 verbose #13710 > > |> try_item 5i32
00:10:47 verbose #13711 > > |> _assert_eq (Some (5i32, 10i32))
00:10:47 verbose #13712 > >
00:10:47 verbose #13713 > > ╭─[ 66.26ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:47 verbose #13714 > > │ assert_eq / actual: US0_0 (5, 10) / expected: US0_0 (5, 10) │
00:10:47 verbose #13715 > > │ │
00:10:47 verbose #13716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13717 > >
00:10:47 verbose #13718 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13719 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13720 > > │ ## zip │
00:10:47 verbose #13721 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13722 > >
00:10:47 verbose #13723 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13724 > > inl zip n seq1 seq2 =
00:10:47 verbose #13725 > > seq1 n, seq2 n
00:10:47 verbose #13726 > >
00:10:47 verbose #13727 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13728 > > //// test
00:10:47 verbose #13729 > >
00:10:47 verbose #13730 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:10:47 verbose #13731 > > ||> zip 5i32
00:10:47 verbose #13732 > > |> _assert_eq (Some 5, Some 10)
00:10:47 verbose #13733 > >
00:10:47 verbose #13734 > > ╭─[ 68.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:47 verbose #13735 > > │ assert_eq / actual: struct (US0_0 5, US0_0 10) / expected: struct (US0_0 5, │
00:10:47 verbose #13736 > > │ US0_0 10) │
00:10:47 verbose #13737 > > │ │
00:10:47 verbose #13738 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13739 > >
00:10:47 verbose #13740 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:47 verbose #13741 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:47 verbose #13742 > > │ ## zip_with │
00:10:47 verbose #13743 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:47 verbose #13744 > >
00:10:47 verbose #13745 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:47 verbose #13746 > > inl zip_with fn seq1 seq2 =
00:10:47 verbose #13747 > > fun n =>
00:10:47 verbose #13748 > > fn (seq1 n) (seq2 n)
00:10:48 verbose #13749 > >
00:10:48 verbose #13750 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13751 > > //// test
00:10:48 verbose #13752 > >
00:10:48 verbose #13753 > > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:10:48 verbose #13754 > > ||> zip_with (optionm'.choose (+))
00:10:48 verbose #13755 > > |> try_item 2i32
00:10:48 verbose #13756 > > |> _assert_eq (Some 6)
00:10:48 verbose #13757 > >
00:10:48 verbose #13758 > > ╭─[ 69.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:48 verbose #13759 > > │ assert_eq / actual: US0_0 6 / expected: US0_0 6 │
00:10:48 verbose #13760 > > │ │
00:10:48 verbose #13761 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13762 > >
00:10:48 verbose #13763 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13764 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13765 > > │ ## fold │
00:10:48 verbose #13766 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13767 > >
00:10:48 verbose #13768 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13769 > > inl fold fn init seq =
00:10:48 verbose #13770 > > inl rec loop acc n =
00:10:48 verbose #13771 > > match seq n with
00:10:48 verbose #13772 > > | Some x => loop (fn acc x) (n + 1)
00:10:48 verbose #13773 > > | None => acc
00:10:48 verbose #13774 > > loop init 0
00:10:48 verbose #13775 > >
00:10:48 verbose #13776 > > inl fold_ fn init seq =
00:10:48 verbose #13777 > > let rec loop acc n =
00:10:48 verbose #13778 > > match seq n with
00:10:48 verbose #13779 > > | Some x => loop (fn acc x) (n + 1)
00:10:48 verbose #13780 > > | None => acc
00:10:48 verbose #13781 > > loop init 0
00:10:48 verbose #13782 > >
00:10:48 verbose #13783 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13784 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13785 > > │ ## sum │
00:10:48 verbose #13786 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13787 > >
00:10:48 verbose #13788 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13789 > > inl sum seq =
00:10:48 verbose #13790 > > seq |> fold (+) 0
00:10:48 verbose #13791 > >
00:10:48 verbose #13792 > > inl sum_ seq =
00:10:48 verbose #13793 > > seq |> fold_ (+) 0
00:10:48 verbose #13794 > >
00:10:48 verbose #13795 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13796 > > //// test
00:10:48 verbose #13797 > >
00:10:48 verbose #13798 > > listm.init 10i32 id
00:10:48 verbose #13799 > > |> from_list
00:10:48 verbose #13800 > > |> fun f (n : i32) => f n
00:10:48 verbose #13801 > > |> sum
00:10:48 verbose #13802 > > |> _assert_eq 45
00:10:48 verbose #13803 > >
00:10:48 verbose #13804 > > ╭─[ 32.08ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:48 verbose #13805 > > │ assert_eq / actual: 45 / expected: 45 │
00:10:48 verbose #13806 > > │ │
00:10:48 verbose #13807 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13808 > >
00:10:48 verbose #13809 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13810 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13811 > > │ ## to_list │
00:10:48 verbose #13812 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13813 > >
00:10:48 verbose #13814 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13815 > > inl to_list seq =
00:10:48 verbose #13816 > > seq
00:10:48 verbose #13817 > > |> fold (fun acc x => x :: acc) [[]]
00:10:48 verbose #13818 > > |> listm.rev
00:10:48 verbose #13819 > >
00:10:48 verbose #13820 > > inl to_list_ seq =
00:10:48 verbose #13821 > > seq
00:10:48 verbose #13822 > > |> fold_ (fun acc x => x :: acc) [[]]
00:10:48 verbose #13823 > > |> listm.rev
00:10:48 verbose #13824 > >
00:10:48 verbose #13825 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13826 > > //// test
00:10:48 verbose #13827 > >
00:10:48 verbose #13828 > > listm.init 10i32 id
00:10:48 verbose #13829 > > |> from_list
00:10:48 verbose #13830 > > |> fun f (n : i32) => f n
00:10:48 verbose #13831 > > |> to_list
00:10:48 verbose #13832 > > |> _assert_eq (listm.init 10i32 id)
00:10:48 verbose #13833 > >
00:10:48 verbose #13834 > > ╭─[ 84.20ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:48 verbose #13835 > > │ assert_eq / actual: UH0_1 │
00:10:48 verbose #13836 > > │ (0, │
00:10:48 verbose #13837 > > │ UH0_1 │
00:10:48 verbose #13838 > > │ (1, │
00:10:48 verbose #13839 > > │ UH0_1 │
00:10:48 verbose #13840 > > │ (2, │
00:10:48 verbose #13841 > > │ UH0_1 │
00:10:48 verbose #13842 > > │ (3, │
00:10:48 verbose #13843 > > │ UH0_1 │
00:10:48 verbose #13844 > > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:10:48 verbose #13845 > > │ UH0_0)))))))))) / expected: UH0_1 │
00:10:48 verbose #13846 > > │ (0, │
00:10:48 verbose #13847 > > │ UH0_1 │
00:10:48 verbose #13848 > > │ (1, │
00:10:48 verbose #13849 > > │ UH0_1 │
00:10:48 verbose #13850 > > │ (2, │
00:10:48 verbose #13851 > > │ UH0_1 │
00:10:48 verbose #13852 > > │ (3, │
00:10:48 verbose #13853 > > │ UH0_1 │
00:10:48 verbose #13854 > > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:10:48 verbose #13855 > > │ UH0_0)))))))))) │
00:10:48 verbose #13856 > > │ │
00:10:48 verbose #13857 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13858 > >
00:10:48 verbose #13859 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13860 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13861 > > │ ## from_array │
00:10:48 verbose #13862 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13863 > >
00:10:48 verbose #13864 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13865 > > inl from_array forall dim {number; int} el. (array : a dim el) : seq dim el =
00:10:48 verbose #13866 > > fun n =>
00:10:48 verbose #13867 > > if n >= length array
00:10:48 verbose #13868 > > then None
00:10:48 verbose #13869 > > else index array n |> Some
00:10:48 verbose #13870 > >
00:10:48 verbose #13871 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13872 > > //// test
00:10:48 verbose #13873 > >
00:10:48 verbose #13874 > > a ;[[ 1; 2; 3 ]]
00:10:48 verbose #13875 > > |> from_array
00:10:48 verbose #13876 > > |> try_item 1i32
00:10:48 verbose #13877 > > |> _assert_eq (Some 2i32)
00:10:48 verbose #13878 > >
00:10:48 verbose #13879 > > ╭─[ 82.86ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:48 verbose #13880 > > │ assert_eq / actual: US0_0 2 / expected: US0_0 2 │
00:10:48 verbose #13881 > > │ │
00:10:48 verbose #13882 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13883 > >
00:10:48 verbose #13884 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13885 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13886 > > │ ## to_array │
00:10:48 verbose #13887 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13888 > >
00:10:48 verbose #13889 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13890 > > inl to_array seq =
00:10:48 verbose #13891 > > inl ar = a ;[[]] |> mut
00:10:48 verbose #13892 > > ((), seq)
00:10:48 verbose #13893 > > ||> fold fun _ x =>
00:10:48 verbose #13894 > > ar <- *ar ++ a ;[[x]]
00:10:48 verbose #13895 > > *ar
00:10:48 verbose #13896 > >
00:10:48 verbose #13897 > > inl to_array_ seq =
00:10:48 verbose #13898 > > inl ar = a ;[[]] |> mut
00:10:48 verbose #13899 > > ((), seq)
00:10:48 verbose #13900 > > ||> fold_ fun _ x =>
00:10:48 verbose #13901 > > ar <- *ar ++ a ;[[x]]
00:10:48 verbose #13902 > > *ar
00:10:48 verbose #13903 > >
00:10:48 verbose #13904 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13905 > > //// test
00:10:48 verbose #13906 > >
00:10:48 verbose #13907 > > listm.init 10i32 id
00:10:48 verbose #13908 > > |> from_list
00:10:48 verbose #13909 > > |> fun (x : i32 -> _) => x
00:10:48 verbose #13910 > > |> to_array
00:10:48 verbose #13911 > > |> _assert_eq (a ;[[ 0; 1; 2; 3; 4; 5; 6; 7; 8; 9 ]] : _ i32 _)
00:10:48 verbose #13912 > >
00:10:48 verbose #13913 > > ╭─[ 345.37ms - stdout ]────────────────────────────────────────────────────────╮
00:10:48 verbose #13914 > > │ assert_eq / actual: [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] / expected: [|0; 1; 2; │
00:10:48 verbose #13915 > > │ 3; 4; 5; 6; 7; 8; 9|] │
00:10:48 verbose #13916 > > │ │
00:10:48 verbose #13917 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13918 > >
00:10:48 verbose #13919 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13920 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13921 > > │ ## take_while │
00:10:48 verbose #13922 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13923 > >
00:10:48 verbose #13924 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13925 > > inl take_while cond seq =
00:10:48 verbose #13926 > > inl rec loop acc i =
00:10:48 verbose #13927 > > match seq i with
00:10:48 verbose #13928 > > | Some st when cond st i => loop (st :: acc) (i + 1)
00:10:48 verbose #13929 > > | _ => acc |> listm.rev
00:10:48 verbose #13930 > > loop [[]] 0
00:10:48 verbose #13931 > >
00:10:48 verbose #13932 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13933 > > //// test
00:10:48 verbose #13934 > >
00:10:48 verbose #13935 > > listm.init 10i32 id
00:10:48 verbose #13936 > > |> from_list
00:10:48 verbose #13937 > > |> take_while (fun n (_ : i32) => n < 5)
00:10:48 verbose #13938 > > |> listm'.sum
00:10:48 verbose #13939 > > |> _assert_eq 10
00:10:48 verbose #13940 > >
00:10:48 verbose #13941 > > ╭─[ 29.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:48 verbose #13942 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:48 verbose #13943 > > │ │
00:10:48 verbose #13944 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13945 > >
00:10:48 verbose #13946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13947 > > //// test
00:10:48 verbose #13948 > >
00:10:48 verbose #13949 > > stream.new_finite_stream print_and_return 10i32
00:10:48 verbose #13950 > > |> flip stream.try_item
00:10:48 verbose #13951 > > |> take_while (fun n (_ : i32) => n < 5)
00:10:48 verbose #13952 > > |> listm'.sum
00:10:48 verbose #13953 > > |> _assert_eq 10
00:10:48 verbose #13954 > >
00:10:48 verbose #13955 > > ╭─[ 79.67ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:48 verbose #13956 > > │ print_and_return / x: 0 │
00:10:48 verbose #13957 > > │ print_and_return / x: 1 │
00:10:48 verbose #13958 > > │ print_and_return / x: 1 │
00:10:48 verbose #13959 > > │ print_and_return / x: 2 │
00:10:48 verbose #13960 > > │ print_and_return / x: 1 │
00:10:48 verbose #13961 > > │ print_and_return / x: 2 │
00:10:48 verbose #13962 > > │ print_and_return / x: 3 │
00:10:48 verbose #13963 > > │ print_and_return / x: 1 │
00:10:48 verbose #13964 > > │ print_and_return / x: 2 │
00:10:48 verbose #13965 > > │ print_and_return / x: 3 │
00:10:48 verbose #13966 > > │ print_and_return / x: 4 │
00:10:48 verbose #13967 > > │ print_and_return / x: 1 │
00:10:48 verbose #13968 > > │ print_and_return / x: 2 │
00:10:48 verbose #13969 > > │ print_and_return / x: 3 │
00:10:48 verbose #13970 > > │ print_and_return / x: 4 │
00:10:48 verbose #13971 > > │ print_and_return / x: 5 │
00:10:48 verbose #13972 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:48 verbose #13973 > > │ │
00:10:48 verbose #13974 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13975 > >
00:10:48 verbose #13976 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:48 verbose #13977 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:48 verbose #13978 > > │ ## take_while_ │
00:10:48 verbose #13979 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:48 verbose #13980 > >
00:10:48 verbose #13981 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13982 > > inl take_while_ cond seq =
00:10:48 verbose #13983 > > let rec loop acc i =
00:10:48 verbose #13984 > > match seq i with
00:10:48 verbose #13985 > > | Some st when cond st i => loop (st :: acc) (i + 1)
00:10:48 verbose #13986 > > | _ => acc |> listm.rev
00:10:48 verbose #13987 > > loop [[]] 0
00:10:48 verbose #13988 > >
00:10:48 verbose #13989 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:48 verbose #13990 > > //// test
00:10:48 verbose #13991 > >
00:10:48 verbose #13992 > > stream.new_infinite_stream_ print_and_return
00:10:48 verbose #13993 > > |> flip stream.try_item
00:10:48 verbose #13994 > > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:10:48 verbose #13995 > > |> listm'.sum
00:10:48 verbose #13996 > > |> _assert_eq 10
00:10:49 verbose #13997 > >
00:10:49 verbose #13998 > > ╭─[ 181.09ms - stdout ]────────────────────────────────────────────────────────╮
00:10:49 verbose #13999 > > │ print_and_return / x: 0 │
00:10:49 verbose #14000 > > │ print_and_return / x: 1 │
00:10:49 verbose #14001 > > │ print_and_return / x: 1 │
00:10:49 verbose #14002 > > │ print_and_return / x: 2 │
00:10:49 verbose #14003 > > │ print_and_return / x: 1 │
00:10:49 verbose #14004 > > │ print_and_return / x: 2 │
00:10:49 verbose #14005 > > │ print_and_return / x: 3 │
00:10:49 verbose #14006 > > │ print_and_return / x: 1 │
00:10:49 verbose #14007 > > │ print_and_return / x: 2 │
00:10:49 verbose #14008 > > │ print_and_return / x: 3 │
00:10:49 verbose #14009 > > │ print_and_return / x: 4 │
00:10:49 verbose #14010 > > │ print_and_return / x: 1 │
00:10:49 verbose #14011 > > │ print_and_return / x: 2 │
00:10:49 verbose #14012 > > │ print_and_return / x: 3 │
00:10:49 verbose #14013 > > │ print_and_return / x: 4 │
00:10:49 verbose #14014 > > │ print_and_return / x: 5 │
00:10:49 verbose #14015 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:49 verbose #14016 > > │ │
00:10:49 verbose #14017 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14018 > >
00:10:49 verbose #14019 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14020 > > //// test
00:10:49 verbose #14021 > >
00:10:49 verbose #14022 > > stream.new_infinite_stream_ print_and_return
00:10:49 verbose #14023 > > |> stream.memoize
00:10:49 verbose #14024 > > |> fun list =>
00:10:49 verbose #14025 > > inl list = list ()
00:10:49 verbose #14026 > > fun n =>
00:10:49 verbose #14027 > > list |> stream.try_item n
00:10:49 verbose #14028 > > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:10:49 verbose #14029 > > |> listm'.sum
00:10:49 verbose #14030 > > |> _assert_eq 10
00:10:49 verbose #14031 > >
00:10:49 verbose #14032 > > ╭─[ 145.62ms - stdout ]────────────────────────────────────────────────────────╮
00:10:49 verbose #14033 > > │ print_and_return / x: 0 │
00:10:49 verbose #14034 > > │ print_and_return / x: 1 │
00:10:49 verbose #14035 > > │ print_and_return / x: 2 │
00:10:49 verbose #14036 > > │ print_and_return / x: 3 │
00:10:49 verbose #14037 > > │ print_and_return / x: 4 │
00:10:49 verbose #14038 > > │ print_and_return / x: 5 │
00:10:49 verbose #14039 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:49 verbose #14040 > > │ │
00:10:49 verbose #14041 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14042 > >
00:10:49 verbose #14043 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14044 > > //// test
00:10:49 verbose #14045 > >
00:10:49 verbose #14046 > > stream.new_finite_stream print_and_return 10i32
00:10:49 verbose #14047 > > |> stream.memoize
00:10:49 verbose #14048 > > |> fun list =>
00:10:49 verbose #14049 > > inl list = list ()
00:10:49 verbose #14050 > > fun n =>
00:10:49 verbose #14051 > > list |> stream.try_item n
00:10:49 verbose #14052 > > |> take_while_ (fun n (_ : i32) => n < 5)
00:10:49 verbose #14053 > > |> listm'.sum
00:10:49 verbose #14054 > > |> _assert_eq 10
00:10:49 verbose #14055 > >
00:10:49 verbose #14056 > > ╭─[ 182.99ms - stdout ]────────────────────────────────────────────────────────╮
00:10:49 verbose #14057 > > │ print_and_return / x: 0 │
00:10:49 verbose #14058 > > │ print_and_return / x: 1 │
00:10:49 verbose #14059 > > │ print_and_return / x: 2 │
00:10:49 verbose #14060 > > │ print_and_return / x: 3 │
00:10:49 verbose #14061 > > │ print_and_return / x: 4 │
00:10:49 verbose #14062 > > │ print_and_return / x: 5 │
00:10:49 verbose #14063 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:49 verbose #14064 > > │ │
00:10:49 verbose #14065 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14066 > >
00:10:49 verbose #14067 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:49 verbose #14068 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:49 verbose #14069 > > │ ## memoize │
00:10:49 verbose #14070 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14071 > >
00:10:49 verbose #14072 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14073 > > inl memoize seq =
00:10:49 verbose #14074 > > inl state = mut [[]]
00:10:49 verbose #14075 > > fun n =>
00:10:49 verbose #14076 > > match *state |> listm'.try_find (fun (n', _) => n' = n) with
00:10:49 verbose #14077 > > | Some (_, v) => v
00:10:49 verbose #14078 > > | None =>
00:10:49 verbose #14079 > > inl new_state = seq n
00:10:49 verbose #14080 > > state <- (n, new_state) :: *state
00:10:49 verbose #14081 > > new_state
00:10:49 verbose #14082 > >
00:10:49 verbose #14083 > > inl memoize_ seq =
00:10:49 verbose #14084 > > inl state = mut [[]]
00:10:49 verbose #14085 > > fun n =>
00:10:49 verbose #14086 > > match *state |> listm'.try_find_ (fun (n', _) => n' = n) with
00:10:49 verbose #14087 > > | Some (_, v) => v
00:10:49 verbose #14088 > > | None =>
00:10:49 verbose #14089 > > inl new_state = seq n
00:10:49 verbose #14090 > > state <- (n, new_state) :: *state
00:10:49 verbose #14091 > > new_state
00:10:49 verbose #14092 > >
00:10:49 verbose #14093 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14094 > > //// test
00:10:49 verbose #14095 > >
00:10:49 verbose #14096 > > inl seq =
00:10:49 verbose #14097 > > fun n =>
00:10:49 verbose #14098 > > n |> print_and_return |> Some
00:10:49 verbose #14099 > > |> memoize_
00:10:49 verbose #14100 > >
00:10:49 verbose #14101 > > seq
00:10:49 verbose #14102 > > |> take_while_ (fun n (_ : i32) => n < 5)
00:10:49 verbose #14103 > > |> listm'.sum
00:10:49 verbose #14104 > > |> _assert_eq 10
00:10:49 verbose #14105 > >
00:10:49 verbose #14106 > > seq
00:10:49 verbose #14107 > > |> take_while_ (fun n _ => n < 5)
00:10:49 verbose #14108 > > |> listm'.sum
00:10:49 verbose #14109 > > |> _assert_eq 10
00:10:49 verbose #14110 > >
00:10:49 verbose #14111 > > ╭─[ 249.26ms - stdout ]────────────────────────────────────────────────────────╮
00:10:49 verbose #14112 > > │ print_and_return / x: 0 │
00:10:49 verbose #14113 > > │ print_and_return / x: 1 │
00:10:49 verbose #14114 > > │ print_and_return / x: 2 │
00:10:49 verbose #14115 > > │ print_and_return / x: 3 │
00:10:49 verbose #14116 > > │ print_and_return / x: 4 │
00:10:49 verbose #14117 > > │ print_and_return / x: 5 │
00:10:49 verbose #14118 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:49 verbose #14119 > > │ assert_eq / actual: 10 / expected: 10 │
00:10:49 verbose #14120 > > │ │
00:10:49 verbose #14121 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14122 > >
00:10:49 verbose #14123 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:49 verbose #14124 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:49 verbose #14125 > > │ ## iterate │
00:10:49 verbose #14126 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14127 > >
00:10:49 verbose #14128 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14129 > > inl iterate f x0 num_steps =
00:10:49 verbose #14130 > > inl rec loop x n =
00:10:49 verbose #14131 > > if n <= 0
00:10:49 verbose #14132 > > then x
00:10:49 verbose #14133 > > else loop (f x) (n - 1)
00:10:49 verbose #14134 > > loop x0 num_steps
00:10:49 verbose #14135 > >
00:10:49 verbose #14136 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14137 > > //// test
00:10:49 verbose #14138 > >
00:10:49 verbose #14139 > > 10i32 |> iterate ((*) 2) 1i32
00:10:49 verbose #14140 > > |> _assert_eq 1024
00:10:49 verbose #14141 > >
00:10:49 verbose #14142 > > ╭─[ 37.27ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:49 verbose #14143 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:10:49 verbose #14144 > > │ │
00:10:49 verbose #14145 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14146 > >
00:10:49 verbose #14147 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14148 > > inl iterate_ f x0 num_steps =
00:10:49 verbose #14149 > > let rec loop x n =
00:10:49 verbose #14150 > > if n <= 0
00:10:49 verbose #14151 > > then x
00:10:49 verbose #14152 > > else loop (f x) (n - 1)
00:10:49 verbose #14153 > > loop x0 num_steps
00:10:49 verbose #14154 > >
00:10:49 verbose #14155 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14156 > > //// test
00:10:49 verbose #14157 > >
00:10:49 verbose #14158 > > 10i32 |> iterate_ ((*) 2) 1i32
00:10:49 verbose #14159 > > |> _assert_eq 1024
00:10:49 verbose #14160 > >
00:10:49 verbose #14161 > > ╭─[ 47.55ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:49 verbose #14162 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:10:49 verbose #14163 > > │ │
00:10:49 verbose #14164 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14165 > >
00:10:49 verbose #14166 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14167 > > inl iterate' f x0 num_steps =
00:10:49 verbose #14168 > > listm.init num_steps id
00:10:49 verbose #14169 > > |> listm.fold (fun x _ => f x) x0
00:10:49 verbose #14170 > >
00:10:49 verbose #14171 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14172 > > //// test
00:10:49 verbose #14173 > >
00:10:49 verbose #14174 > > 10i32 |> iterate' ((*) 2) 1i32
00:10:49 verbose #14175 > > |> _assert_eq 1024
00:10:49 verbose #14176 > >
00:10:49 verbose #14177 > > ╭─[ 33.34ms - stdout ]─────────────────────────────────────────────────────────╮
00:10:49 verbose #14178 > > │ assert_eq / actual: 1024 / expected: 1024 │
00:10:49 verbose #14179 > > │ │
00:10:49 verbose #14180 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14181 > >
00:10:49 verbose #14182 > > ── markdown ────────────────────────────────────────────────────────────────────
00:10:49 verbose #14183 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:10:49 verbose #14184 > > │ ## find_last │
00:10:49 verbose #14185 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:10:49 verbose #14186 > >
00:10:49 verbose #14187 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:49 verbose #14188 > > inl find_last forall item result. fold_fn fn target : option result =
00:10:49 verbose #14189 > > fold_fn (fun (item : item) (result : option result) =>
00:10:49 verbose #14190 > > match result with
00:10:49 verbose #14191 > > | None => fn item
00:10:49 verbose #14192 > > | result => result
00:10:49 verbose #14193 > > ) target (None : option result)
00:10:49 verbose #14194 > >
00:10:49 verbose #14195 > > inl array_find_last forall item result. (fn : item -> option result) (target : a
00:10:49 verbose #14196 > > i32 item) : option result =
00:10:49 verbose #14197 > > find_last am.foldBack fn target
00:10:49 verbose #14198 > >
00:10:49 verbose #14199 > > inl list_find_last forall item result. (fn : item -> option result) (target :
00:10:49 verbose #14200 > > list item) : option result =
00:10:49 verbose #14201 > > find_last listm.foldBack fn target
00:10:50 verbose #14202 > 00:00:11 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 44512
00:10:50 verbose #14203 > 00:00:11 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/seq.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:10:52 verbose #14204 > 00:00:13 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/seq.dib.ipynb to html
00:10:52 verbose #14205 > 00:00:13 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:10:52 verbose #14206 > 00:00:13 verbose #7 ! validate(nb)
00:10:53 verbose #14207 > 00:00:15 verbose #8 ! [NbConvertApp] Writing 376569 bytes to c:\home\git\polyglot\lib\spiral\seq.dib.html
00:10:54 verbose #14208 > 00:00:15 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:10:54 verbose #14209 > 00:00:15 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:10:54 verbose #14210 > 00:00:15 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/seq.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/seq.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:10:55 verbose #14211 > 00:00:16 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:10:55 verbose #14212 > 00:00:16 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:10:55 verbose #14213 > 00:00:17 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 45208
00:10:55 debug #14214 runtime.execute_with_options_async / exit_code: 0 / output.Length: 49236
00:10:55 debug #24 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path seq.dib --retries 3
00:10:55 debug #14215 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path env.dib --retries 3",
[||], None, None, true, None)
00:10:56 verbose #14216 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "env.dib", "--retries", "3"])
00:10:56 verbose #14217 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/env.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/env.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/env.dib" --output-path "c:/home/git/polyglot/lib/spiral/env.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:10:59 verbose #14218 > >
00:10:59 verbose #14219 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:10:59 verbose #14220 > > inl types () =
00:10:59 verbose #14221 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:10:59 verbose #14222 > > Fable.Core.Emit(\"std::env::VarError\")>]]\n#endif\ntype std_env_VarError =
00:10:59 verbose #14223 > > class end"
00:10:59 verbose #14224 > >
00:10:59 verbose #14225 > > nominal var_error = $'std_env_VarError'
00:10:59 verbose #14226 > >
00:10:59 verbose #14227 > > /// ### os_environ
00:10:59 verbose #14228 > > nominal os_environ = any
00:10:59 verbose #14229 > >
00:10:59 verbose #14230 > > inl os_environ () : os_environ =
00:10:59 verbose #14231 > > open py_operators
00:10:59 verbose #14232 > > global "type IOsEnviron = abstract environ: x: unit -> obj"
00:10:59 verbose #14233 > > inl os : $'IOsEnviron' = py.import_all "os"
00:10:59 verbose #14234 > > !\($'"!os.environ"')
00:10:59 verbose #14235 > >
00:10:59 verbose #14236 > > inl environ_get (key : string) (os_environ : os_environ) : string =
00:10:59 verbose #14237 > > open py_operators
00:10:59 verbose #14238 > > !\\(key, $'"!os_environ.get($0)"')
00:10:59 verbose #14239 > >
00:10:59 verbose #14240 > > /// ## get_environment_variable
00:10:59 verbose #14241 > > let get_environment_variable (var : string) : string =
00:10:59 verbose #14242 > > run_target function
00:10:59 verbose #14243 > > | Rust _ => fun () =>
00:10:59 verbose #14244 > > open rust_operators
00:10:59 verbose #14245 > > !\\(var, $'"std::env::var(&*$0)"')
00:10:59 verbose #14246 > > |> fun x => x : resultm.result' sm'.std_string var_error
00:10:59 verbose #14247 > > |> resultm.map' sm'.from_std_string
00:10:59 verbose #14248 > > |> resultm.unwrap_or' (join "")
00:10:59 verbose #14249 > > | Fsharp _ => fun () =>
00:10:59 verbose #14250 > > var
00:10:59 verbose #14251 > > |> $'System.Environment.GetEnvironmentVariable'
00:10:59 verbose #14252 > > |> optionm'.of_obj
00:10:59 verbose #14253 > > |> optionm'.unbox
00:10:59 verbose #14254 > > |> optionm'.default_value ""
00:10:59 verbose #14255 > > | TypeScript _ => fun () =>
00:10:59 verbose #14256 > > open ts_operators
00:10:59 verbose #14257 > > !\\(var, $'"process.env[[$0]] ?? \\\"\\\""')
00:10:59 verbose #14258 > > | Python _ => fun () =>
00:10:59 verbose #14259 > > os_environ ()
00:10:59 verbose #14260 > > |> environ_get var
00:10:59 verbose #14261 > > | target => fun () => failwith $'$"env.get_environment_variable
00:10:59 verbose #14262 > > target: {!target} / var: {!var}"'
00:10:59 verbose #14263 > >
00:10:59 verbose #14264 > > /// ## get_environment_variable_comptime
00:10:59 verbose #14265 > > inl get_environment_variable_comptime (var : string) : string =
00:10:59 verbose #14266 > > run_target function
00:10:59 verbose #14267 > > | Rust (Native) => fun () =>
00:10:59 verbose #14268 > > open rust_operators
00:10:59 verbose #14269 > > !\($'"env\!(\\\"" + !var + "\\\")"')
00:10:59 verbose #14270 > > |> sm'.from_std_string
00:10:59 verbose #14271 > > | target => fun () => null ()
00:10:59 verbose #14272 > >
00:10:59 verbose #14273 > > /// ## get_entry_assembly_name
00:10:59 verbose #14274 > > let get_entry_assembly_name () : string =
00:10:59 verbose #14275 > > run_target function
00:10:59 verbose #14276 > > | Rust _ => fun () =>
00:10:59 verbose #14277 > > (join "CARGO_PKG_NAME") |> get_environment_variable
00:10:59 verbose #14278 > > | Fsharp _ => fun () =>
00:10:59 verbose #14279 > > $'System.Reflection.Assembly.GetEntryAssembly().GetName().Name'
00:10:59 verbose #14280 > > | target => fun () => failwith $'$"env.get_entry_assembly_name / target:
00:10:59 verbose #14281 > > {!target}"'
00:10:59 verbose #14282 > >
00:10:59 verbose #14283 > > /// ## append_path
00:10:59 verbose #14284 > > inl append_path (path : string) : option string =
00:10:59 verbose #14285 > > inl env_path = "PATH" |> get_environment_variable
00:10:59 verbose #14286 > > if env_path = ""
00:10:59 verbose #14287 > > then None
00:10:59 verbose #14288 > > else
00:10:59 verbose #14289 > > inl env_sep =
00:10:59 verbose #14290 > > if platform.is_windows ()
00:10:59 verbose #14291 > > then ";"
00:10:59 verbose #14292 > > else ":"
00:10:59 verbose #14293 > > Some $'$"{!path}{!env_sep}{!env_path}"'
00:10:59 verbose #14294 > >
00:10:59 verbose #14295 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:10:59 verbose #14296 > > #r
00:10:59 verbose #14297 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:59 verbose #14298 > > otNet.Interactive.Spiral.dll"
00:10:59 verbose #14299 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:10:59 verbose #14300 > > #r
00:10:59 verbose #14301 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:10:59 verbose #14302 > > otNet.Interactive.dll"
00:10:59 verbose #14303 > > open type Microsoft.DotNet.Interactive.Kernel
00:11:03 verbose #14304 > 00:00:07 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 3004
00:11:03 verbose #14305 > 00:00:07 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/env.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/env.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:11:06 verbose #14306 > 00:00:10 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/env.dib.ipynb to html
00:11:06 verbose #14307 > 00:00:10 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:11:06 verbose #14308 > 00:00:10 verbose #7 ! validate(nb)
00:11:07 verbose #14309 > 00:00:11 verbose #8 ! [NbConvertApp] Writing 280185 bytes to c:\home\git\polyglot\lib\spiral\env.dib.html
00:11:08 verbose #14310 > 00:00:12 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 637
00:11:08 verbose #14311 > 00:00:12 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 637
00:11:08 verbose #14312 > 00:00:12 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/env.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/env.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:11:09 verbose #14313 > 00:00:13 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:11:09 verbose #14314 > 00:00:13 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:11:09 verbose #14315 > 00:00:13 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 3700
00:11:09 debug #14316 runtime.execute_with_options_async / exit_code: 0 / output.Length: 6100
00:11:09 debug #25 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path env.dib --retries 3
00:11:09 debug #14317 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path threading.dib --retries 3",
[||], None, None, true, None)
00:11:09 verbose #14318 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "threading.dib", "--retries", "3"])
00:11:09 verbose #14319 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/threading.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/threading.dib" --output-path "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:11:11 verbose #14320 > >
00:11:11 verbose #14321 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:11 verbose #14322 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:11 verbose #14323 > > │ # threading │
00:11:11 verbose #14324 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:11 verbose #14325 > >
00:11:11 verbose #14326 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:11 verbose #14327 > > open rust_operators
00:11:11 verbose #14328 > >
00:11:11 verbose #14329 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:11:11 verbose #14330 > > #r
00:11:11 verbose #14331 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:11 verbose #14332 > > otNet.Interactive.Spiral.dll"
00:11:11 verbose #14333 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:11:11 verbose #14334 > > #r
00:11:11 verbose #14335 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:11 verbose #14336 > > otNet.Interactive.dll"
00:11:11 verbose #14337 > > open type Microsoft.DotNet.Interactive.Kernel
00:11:16 verbose #14338 > >
00:11:16 verbose #14339 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14340 > > //// test
00:11:16 verbose #14341 > >
00:11:16 verbose #14342 > > open testing
00:11:16 verbose #14343 > >
00:11:16 verbose #14344 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14345 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14346 > > │ ## types │
00:11:16 verbose #14347 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14348 > >
00:11:16 verbose #14349 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14350 > > inl types () =
00:11:16 verbose #14351 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14352 > > Fable.Core.Emit(\"std::thread::JoinHandle<$0>\")>]]\n#endif\ntype
00:11:16 verbose #14353 > > std_thread_JoinHandle<'T> = class end"
00:11:16 verbose #14354 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14355 > > Fable.Core.Emit(\"std::sync::Arc<$0>\")>]]\n#endif\ntype std_sync_Arc<'T> =
00:11:16 verbose #14356 > > class end"
00:11:16 verbose #14357 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14358 > > Fable.Core.Emit(\"std::sync::Mutex<$0>\")>]]\n#endif\ntype std_sync_Mutex<'T> =
00:11:16 verbose #14359 > > class end"
00:11:16 verbose #14360 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14361 > > Fable.Core.Emit(\"std::sync::MutexGuard<$0>\")>]]\n#endif\ntype
00:11:16 verbose #14362 > > std_sync_MutexGuard<'T> = class end"
00:11:16 verbose #14363 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14364 > > Fable.Core.Emit(\"std::sync::PoisonError<$0>\")>]]\n#endif\ntype
00:11:16 verbose #14365 > > std_sync_PoisonError<'T> = class end"
00:11:16 verbose #14366 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14367 > > Fable.Core.Emit(\"std::sync::mpsc::Receiver<$0>\")>]]\n#endif\ntype
00:11:16 verbose #14368 > > std_sync_mpsc_Receiver<'T> = class end"
00:11:16 verbose #14369 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14370 > > Fable.Core.Emit(\"std::sync::mpsc::SendError<$0>\")>]]\n#endif\ntype
00:11:16 verbose #14371 > > std_sync_mpsc_SendError<'T> = class end"
00:11:16 verbose #14372 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:11:16 verbose #14373 > > Fable.Core.Emit(\"std::sync::mpsc::Sender<$0>\")>]]\n#endif\ntype
00:11:16 verbose #14374 > > std_sync_mpsc_Sender<'T> = class end"
00:11:16 verbose #14375 > >
00:11:16 verbose #14376 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14377 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14378 > > │ ## join_handle │
00:11:16 verbose #14379 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14380 > >
00:11:16 verbose #14381 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14382 > > nominal join_handle t = $'std_thread_JoinHandle<`t>'
00:11:16 verbose #14383 > >
00:11:16 verbose #14384 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14385 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14386 > > │ ## spawn │
00:11:16 verbose #14387 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14388 > >
00:11:16 verbose #14389 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14390 > > inl spawn forall t. depth flag (x : () -> t) : join_handle t =
00:11:16 verbose #14391 > > if flag = 1u8
00:11:16 verbose #14392 > > then (!\($'"true; let __result = std::thread::spawn(move || { //"') : bool)
00:11:16 verbose #14393 > > |> ignore
00:11:16 verbose #14394 > > else (!\($'"true; let __result = std::thread::spawn(|| { //"') : bool) |>
00:11:16 verbose #14395 > > ignore
00:11:16 verbose #14396 > >
00:11:16 verbose #14397 > > let x' = x ()
00:11:16 verbose #14398 > > inl x' = join x'
00:11:16 verbose #14399 > >
00:11:16 verbose #14400 > > x' |> rust.fix_closure depth
00:11:16 verbose #14401 > >
00:11:16 verbose #14402 > > !\($'"__result"')
00:11:16 verbose #14403 > >
00:11:16 verbose #14404 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14405 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14406 > > │ ## join' │
00:11:16 verbose #14407 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14408 > >
00:11:16 verbose #14409 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14410 > > inl join' forall t.
00:11:16 verbose #14411 > > (x : join_handle t)
00:11:16 verbose #14412 > > : resultm.result'
00:11:16 verbose #14413 > > t
00:11:16 verbose #14414 > > (
00:11:16 verbose #14415 > > rust.box (
00:11:16 verbose #14416 > > rust.lifetime_join'
00:11:16 verbose #14417 > > rust.dyn'
00:11:16 verbose #14418 > > (
00:11:16 verbose #14419 > > rust.lifetime_join
00:11:16 verbose #14420 > > rust.any
00:11:16 verbose #14421 > > (
00:11:16 verbose #14422 > > rust.lifetime_join'
00:11:16 verbose #14423 > > rust.send
00:11:16 verbose #14424 > > rust.static_lifetime
00:11:16 verbose #14425 > > )
00:11:16 verbose #14426 > > )
00:11:16 verbose #14427 > > )
00:11:16 verbose #14428 > > ) =
00:11:16 verbose #14429 > > !\\(x, $'"std::thread::JoinHandle::join($0)"')
00:11:16 verbose #14430 > >
00:11:16 verbose #14431 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14432 > > nominal thread = $'System.Threading.Thread'
00:11:16 verbose #14433 > >
00:11:16 verbose #14434 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14435 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14436 > > │ ## cancellation_token │
00:11:16 verbose #14437 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14438 > >
00:11:16 verbose #14439 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14440 > > nominal cancellation_token = $'System.Threading.CancellationToken'
00:11:16 verbose #14441 > >
00:11:16 verbose #14442 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14443 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14444 > > │ ## cancellation_token_source │
00:11:16 verbose #14445 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14446 > >
00:11:16 verbose #14447 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14448 > > nominal cancellation_token_source = $'System.Threading.CancellationTokenSource'
00:11:16 verbose #14449 > >
00:11:16 verbose #14450 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14451 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14452 > > │ ## cancellation_token_registration │
00:11:16 verbose #14453 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14454 > >
00:11:16 verbose #14455 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14456 > > nominal cancellation_token_registration =
00:11:16 verbose #14457 > > $'System.Threading.CancellationTokenRegistration'
00:11:16 verbose #14458 > >
00:11:16 verbose #14459 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14460 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14461 > > │ ## cancellation_source_token │
00:11:16 verbose #14462 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14463 > >
00:11:16 verbose #14464 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14465 > > inl cancellation_source_token (x : cancellation_token_source) :
00:11:16 verbose #14466 > > cancellation_token =
00:11:16 verbose #14467 > > $'!x.Token'
00:11:16 verbose #14468 > >
00:11:16 verbose #14469 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14470 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14471 > > │ ## cancellation_source_cancel │
00:11:16 verbose #14472 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14473 > >
00:11:16 verbose #14474 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14475 > > inl cancellation_source_cancel (x : cancellation_token_source) : () =
00:11:16 verbose #14476 > > run_target function
00:11:16 verbose #14477 > > | Fsharp (Native) => fun () =>
00:11:16 verbose #14478 > > $'!x.Cancel' ()
00:11:16 verbose #14479 > > | _ => fun () => null ()
00:11:16 verbose #14480 > >
00:11:16 verbose #14481 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14482 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14483 > > │ ## create_linked_token_source │
00:11:16 verbose #14484 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14485 > >
00:11:16 verbose #14486 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14487 > > inl create_linked_token_source (x : array_base cancellation_token) :
00:11:16 verbose #14488 > > cancellation_token_source =
00:11:16 verbose #14489 > > x |> $'System.Threading.CancellationTokenSource.CreateLinkedTokenSource'
00:11:16 verbose #14490 > >
00:11:16 verbose #14491 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14492 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14493 > > │ ## sleep │
00:11:16 verbose #14494 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14495 > >
00:11:16 verbose #14496 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14497 > > inl sleep (duration : date_time.duration) : () =
00:11:16 verbose #14498 > > inl duration = join duration
00:11:16 verbose #14499 > > !\($'"std::thread::sleep(!duration)"')
00:11:16 verbose #14500 > >
00:11:16 verbose #14501 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14502 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14503 > > │ ## concurrent_stack │
00:11:16 verbose #14504 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14505 > >
00:11:16 verbose #14506 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14507 > > nominal concurrent_stack t =
00:11:16 verbose #14508 > > $'System.Collections.Concurrent.ConcurrentStack<`t>'
00:11:16 verbose #14509 > >
00:11:16 verbose #14510 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14511 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14512 > > │ ## concurrent_stack_push │
00:11:16 verbose #14513 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14514 > >
00:11:16 verbose #14515 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14516 > > inl concurrent_stack_push forall t. (item : t) (stack : concurrent_stack t) : ()
00:11:16 verbose #14517 > > =
00:11:16 verbose #14518 > > $'!stack.Push' item
00:11:16 verbose #14519 > >
00:11:16 verbose #14520 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14521 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14522 > > │ ## token_none │
00:11:16 verbose #14523 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14524 > >
00:11:16 verbose #14525 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14526 > > inl token_none () : cancellation_token =
00:11:16 verbose #14527 > > $'`cancellation_token.None'
00:11:16 verbose #14528 > >
00:11:16 verbose #14529 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14530 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14531 > > │ ## new_concurrent_stack │
00:11:16 verbose #14532 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14533 > >
00:11:16 verbose #14534 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14535 > > inl new_concurrent_stack forall t. () : concurrent_stack t =
00:11:16 verbose #14536 > > $'System.Collections.Concurrent.ConcurrentStack<`t>' ()
00:11:16 verbose #14537 > >
00:11:16 verbose #14538 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14539 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14540 > > │ ## token_register │
00:11:16 verbose #14541 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14542 > >
00:11:16 verbose #14543 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14544 > > inl token_register (fn : () -> ()) (ct : cancellation_token) :
00:11:16 verbose #14545 > > cancellation_token_registration =
00:11:16 verbose #14546 > > fn |> $'!ct.Register'
00:11:16 verbose #14547 > >
00:11:16 verbose #14548 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14549 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14550 > > │ ## new_cancellation_token_source │
00:11:16 verbose #14551 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14552 > >
00:11:16 verbose #14553 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14554 > > inl new_cancellation_token_source () : cancellation_token_source =
00:11:16 verbose #14555 > > $'new `cancellation_token_source ()'
00:11:16 verbose #14556 > >
00:11:16 verbose #14557 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14558 > > inl token_cancellation_requested (ct : cancellation_token) : bool =
00:11:16 verbose #14559 > > $'!ct.IsCancellationRequested'
00:11:16 verbose #14560 > >
00:11:16 verbose #14561 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:16 verbose #14562 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:16 verbose #14563 > > │ ## new_disposable_token │
00:11:16 verbose #14564 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:16 verbose #14565 > >
00:11:16 verbose #14566 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14567 > > inl new_disposable_token (merge_token : optionm'.option' cancellation_token) =
00:11:16 verbose #14568 > > run_target function
00:11:16 verbose #14569 > > | Fsharp (Native) => fun () =>
00:11:16 verbose #14570 > > inl cts = new_cancellation_token_source ()
00:11:16 verbose #14571 > > inl cts =
00:11:16 verbose #14572 > > match merge_token |> optionm'.unbox with
00:11:16 verbose #14573 > > | None => cts
00:11:16 verbose #14574 > > | Some merge_token =>
00:11:16 verbose #14575 > > create_linked_token_source ;[[ cts |>
00:11:16 verbose #14576 > > cancellation_source_token; merge_token ]]
00:11:16 verbose #14577 > > inl disposable : _ () = new_disposable fun () =>
00:11:16 verbose #14578 > > cts |> cancellation_source_cancel
00:11:16 verbose #14579 > > cts |> cancellation_source_token, disposable
00:11:16 verbose #14580 > > | _ => fun () => null ()
00:11:16 verbose #14581 > >
00:11:16 verbose #14582 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:16 verbose #14583 > > //// test
00:11:16 verbose #14584 > >
00:11:16 verbose #14585 > > inl run fn =
00:11:16 verbose #14586 > > inl token, disposable = new_disposable_token (None |> optionm'.box)
00:11:16 verbose #14587 > > disposable |> use |> ignore
00:11:16 verbose #14588 > > fn token
00:11:16 verbose #14589 > > fun () =>
00:11:16 verbose #14590 > > fn token
00:11:16 verbose #14591 > > |> async.new_async
00:11:16 verbose #14592 > > |> async.start
00:11:16 verbose #14593 > >
00:11:16 verbose #14594 > > fun () =>
00:11:16 verbose #14595 > > inl counter = mut 0i32
00:11:16 verbose #14596 > >
00:11:16 verbose #14597 > > inl fn (token : cancellation_token) =
00:11:16 verbose #14598 > > counter <- *counter + (if token |> token_cancellation_requested then 10
00:11:16 verbose #14599 > > else 1)
00:11:16 verbose #14600 > >
00:11:16 verbose #14601 > > join run fn
00:11:16 verbose #14602 > > async.sleep 10 |> async.do
00:11:16 verbose #14603 > > return *counter
00:11:16 verbose #14604 > > |> async.new_async_unit
00:11:16 verbose #14605 > > |> async.run_synchronously
00:11:16 verbose #14606 > > |> _assert_eq 11i32
00:11:18 verbose #14607 > >
00:11:18 verbose #14608 > > ╭─[ 1.63s - stdout ]───────────────────────────────────────────────────────────╮
00:11:18 verbose #14609 > > │ assert_eq / actual: 11 / expected: 11 │
00:11:18 verbose #14610 > > │ │
00:11:18 verbose #14611 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14612 > >
00:11:18 verbose #14613 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14614 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14615 > > │ ## arc │
00:11:18 verbose #14616 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14617 > >
00:11:18 verbose #14618 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14619 > > nominal arc t = $'std_sync_Arc<`t>'
00:11:18 verbose #14620 > >
00:11:18 verbose #14621 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14622 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14623 > > │ ## new_arc │
00:11:18 verbose #14624 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14625 > >
00:11:18 verbose #14626 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14627 > > inl new_arc forall t. (x : t) : arc t =
00:11:18 verbose #14628 > > !\\(x, $'"std::sync::Arc::new($0)"')
00:11:18 verbose #14629 > >
00:11:18 verbose #14630 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14631 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14632 > > │ ## mutex │
00:11:18 verbose #14633 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14634 > >
00:11:18 verbose #14635 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14636 > > nominal mutex t = $'std_sync_Mutex<`t>'
00:11:18 verbose #14637 > >
00:11:18 verbose #14638 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14639 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14640 > > │ ## new_mutex │
00:11:18 verbose #14641 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14642 > >
00:11:18 verbose #14643 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14644 > > inl new_mutex forall t. (x : t) : mutex t =
00:11:18 verbose #14645 > > !\\(x, $'"std::sync::Mutex::new($0)"')
00:11:18 verbose #14646 > >
00:11:18 verbose #14647 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14648 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14649 > > │ ## new_arc_mutex │
00:11:18 verbose #14650 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14651 > >
00:11:18 verbose #14652 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14653 > > inl new_arc_mutex forall t. (x : t) : arc (mutex t) =
00:11:18 verbose #14654 > > x |> new_mutex |> new_arc
00:11:18 verbose #14655 > >
00:11:18 verbose #14656 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14657 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14658 > > │ ## arc_clone │
00:11:18 verbose #14659 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14660 > >
00:11:18 verbose #14661 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14662 > > inl arc_clone forall t. (x : arc t) : arc t =
00:11:18 verbose #14663 > > inl x = join x
00:11:18 verbose #14664 > > !\($'"std::sync::Arc::clone(&!x)"')
00:11:18 verbose #14665 > >
00:11:18 verbose #14666 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14667 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14668 > > │ ## mutex_guard │
00:11:18 verbose #14669 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14670 > >
00:11:18 verbose #14671 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14672 > > nominal mutex_guard t = $'std_sync_MutexGuard<`t>'
00:11:18 verbose #14673 > >
00:11:18 verbose #14674 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14675 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14676 > > │ ## poison_error │
00:11:18 verbose #14677 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14678 > >
00:11:18 verbose #14679 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14680 > > nominal poison_error t = $'std_sync_PoisonError<`t>'
00:11:18 verbose #14681 > >
00:11:18 verbose #14682 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14683 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14684 > > │ ## arc_mutex_lock │
00:11:18 verbose #14685 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14686 > >
00:11:18 verbose #14687 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14688 > > inl arc_mutex_lock forall t. (x : arc (mutex t)) : resultm.result' (mutex_guard
00:11:18 verbose #14689 > > t) (poison_error (mutex_guard t)) =
00:11:18 verbose #14690 > > inl x = join x
00:11:18 verbose #14691 > > !\($'"!x.lock()"')
00:11:18 verbose #14692 > >
00:11:18 verbose #14693 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14694 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14695 > > │ ## mutex_guard_ref │
00:11:18 verbose #14696 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14697 > >
00:11:18 verbose #14698 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14699 > > inl mutex_guard_ref forall t. (x : mutex_guard t) : rust.ref' t =
00:11:18 verbose #14700 > > !\\(x, $'"&$0"')
00:11:18 verbose #14701 > >
00:11:18 verbose #14702 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14703 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14704 > > │ ## mutex_guard_ref_mut │
00:11:18 verbose #14705 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14706 > >
00:11:18 verbose #14707 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14708 > > inl mutex_guard_ref_mut forall t. (x : mutex_guard t) : rust.ref' (rust.mut' t)
00:11:18 verbose #14709 > > =
00:11:18 verbose #14710 > > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:11:18 verbose #14711 > > !\\(x, $'"&mut $0"')
00:11:18 verbose #14712 > >
00:11:18 verbose #14713 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14714 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14715 > > │ ## mutex_guard_as_mut │
00:11:18 verbose #14716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14717 > >
00:11:18 verbose #14718 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14719 > > inl mutex_guard_as_mut forall (t : * -> *) u. (x : mutex_guard (t u)) : t
00:11:18 verbose #14720 > > (rust.ref' (rust.mut' u)) =
00:11:18 verbose #14721 > > (!\($'"true; let mut !x = !x"') : bool) |> ignore
00:11:18 verbose #14722 > > !\\(x, $'"$0.as_mut()"')
00:11:18 verbose #14723 > >
00:11:18 verbose #14724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14726 > > │ ## channel_receiver │
00:11:18 verbose #14727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14728 > >
00:11:18 verbose #14729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14730 > > nominal channel_receiver t = $'std_sync_mpsc_Receiver<`t>'
00:11:18 verbose #14731 > >
00:11:18 verbose #14732 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14733 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14734 > > │ ## channel_sender │
00:11:18 verbose #14735 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14736 > >
00:11:18 verbose #14737 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14738 > > nominal channel_sender t = $'std_sync_mpsc_Sender<`t>'
00:11:18 verbose #14739 > >
00:11:18 verbose #14740 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14741 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14742 > > │ ## new_channel │
00:11:18 verbose #14743 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14744 > >
00:11:18 verbose #14745 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14746 > > inl new_channel () : channel_sender sm'.std_string * arc (channel_receiver
00:11:18 verbose #14747 > > sm'.std_string) =
00:11:18 verbose #14748 > > !\($'"{ let (sender, receiver) = std::sync::mpsc::channel(); (sender,
00:11:18 verbose #14749 > > std::sync::Arc::new(receiver)) }"')
00:11:18 verbose #14750 > >
00:11:18 verbose #14751 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14752 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14753 > > │ ## send_error │
00:11:18 verbose #14754 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14755 > >
00:11:18 verbose #14756 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14757 > > nominal send_error t = $'std_sync_mpsc_SendError<`t>'
00:11:18 verbose #14758 > >
00:11:18 verbose #14759 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14760 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14761 > > │ ## channel_send │
00:11:18 verbose #14762 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14763 > >
00:11:18 verbose #14764 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14765 > > inl channel_send forall t. (line : t) (sender : rust.ref' (channel_sender t)) :
00:11:18 verbose #14766 > > resultm.result' () (send_error sm'.std_string) =
00:11:18 verbose #14767 > > !\\((sender, line), $'"$0.send($1)"')
00:11:18 verbose #14768 > >
00:11:18 verbose #14769 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:18 verbose #14770 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:18 verbose #14771 > > │ ## main │
00:11:18 verbose #14772 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:18 verbose #14773 > >
00:11:18 verbose #14774 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:18 verbose #14775 > > inl main () =
00:11:18 verbose #14776 > > types ()
00:11:18 verbose #14777 > > $'let new_disposable_token x = !new_disposable_token x' : ()
00:11:19 verbose #14778 > 00:00:09 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 22966
00:11:19 verbose #14779 > 00:00:09 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/threading.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:11:21 verbose #14780 > 00:00:11 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/threading.dib.ipynb to html
00:11:21 verbose #14781 > 00:00:11 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:11:21 verbose #14782 > 00:00:11 verbose #7 ! validate(nb)
00:11:22 verbose #14783 > 00:00:13 verbose #8 ! [NbConvertApp] Writing 340108 bytes to c:\home\git\polyglot\lib\spiral\threading.dib.html
00:11:23 verbose #14784 > 00:00:13 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:11:23 verbose #14785 > 00:00:13 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:11:23 verbose #14786 > 00:00:13 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/threading.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/threading.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:11:24 verbose #14787 > 00:00:14 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:11:24 verbose #14788 > 00:00:14 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:11:24 verbose #14789 > 00:00:14 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 23674
00:11:24 debug #14790 runtime.execute_with_options_async / exit_code: 0 / output.Length: 26874
00:11:24 debug #26 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path threading.dib --retries 3
00:11:24 debug #14791 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path physics.dib --retries 3",
[||], None, None, true, None)
00:11:24 verbose #14792 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "physics.dib", "--retries", "3"])
00:11:24 verbose #14793 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/physics.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/physics.dib" --output-path "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:11:27 verbose #14794 > >
00:11:27 verbose #14795 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:27 verbose #14796 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:27 verbose #14797 > > │ # physics │
00:11:27 verbose #14798 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:27 verbose #14799 > >
00:11:27 verbose #14800 > > ── fsharp ──────────────────────────────────────────────────────────────────────
00:11:27 verbose #14801 > > #!import ../../lib/fsharp/Plotting.dib
00:11:27 verbose #14802 > >
00:11:27 verbose #14803 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:27 verbose #14804 > > #r
00:11:27 verbose #14805 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:11:27 verbose #14806 > > spNetCore.Html.Abstractions.dll"
00:11:27 verbose #14807 > > #r
00:11:27 verbose #14808 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:27 verbose #14809 > > otNet.Interactive.dll"
00:11:27 verbose #14810 > > #r
00:11:27 verbose #14811 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:27 verbose #14812 > > otNet.Interactive.FSharp.dll"
00:11:27 verbose #14813 > > #r
00:11:27 verbose #14814 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:27 verbose #14815 > > otNet.Interactive.Formatting.dll"
00:11:27 verbose #14816 > > open System
00:11:27 verbose #14817 > > open System.IO
00:11:27 verbose #14818 > > open System.Text
00:11:27 verbose #14819 > > open Microsoft.DotNet.Interactive.Formatting
00:11:31 verbose #14820 > >
00:11:31 verbose #14821 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:31 verbose #14822 > > #r
00:11:31 verbose #14823 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:31 verbose #14824 > > otNet.Interactive.FSharp.dll"
00:11:31 verbose #14825 > > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:11:31 verbose #14826 > > #r
00:11:31 verbose #14827 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:31 verbose #14828 > > otNet.Interactive.dll"
00:11:31 verbose #14829 > > open type Microsoft.DotNet.Interactive.Kernel
00:11:31 verbose #14830 > >
00:11:31 verbose #14831 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:31 verbose #14832 > > Formatter.Register(fun(x: obj)(writer: TextWriter)->fprintfn writer "%120A" x)
00:11:32 verbose #14833 > >
00:11:32 verbose #14834 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:32 verbose #14835 > > Formatter.Register(fun(x: System.Collections.IEnumerable)(writer:
00:11:32 verbose #14836 > > TextWriter)->fprintfn writer "%120A" x)
00:11:32 verbose #14837 > >
00:11:32 verbose #14838 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:32 verbose #14839 > > #r
00:11:32 verbose #14840 > > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:11:32 verbose #14841 > > dard2.1/FSharp.Control.AsyncSeq.dll"
00:11:32 verbose #14842 > > #r
00:11:32 verbose #14843 > > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:11:32 verbose #14844 > > 0/System.Reactive.dll"
00:11:32 verbose #14845 > > #r
00:11:32 verbose #14846 > > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:11:32 verbose #14847 > > netstandard2.0/System.Reactive.Linq.dll"
00:11:32 verbose #14848 > > #r
00:11:32 verbose #14849 > > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:11:32 verbose #14850 > > #r
00:11:32 verbose #14851 > > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
00:11:32 verbose #14852 > > rp.Json.dll"
00:11:32 verbose #14853 > >
00:11:32 verbose #14854 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:32 verbose #14855 > > //// test
00:11:32 verbose #14856 > >
00:11:32 verbose #14857 > > Formatter.ListExpansionLimit <- 100
00:11:32 verbose #14858 > >
00:11:32 verbose #14859 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:32 verbose #14860 > > #if FABLE_COMPILER
00:11:32 verbose #14861 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:11:32 verbose #14862 > > #endif
00:11:32 verbose #14863 > > type std_env_VarError = class end
00:11:32 verbose #14864 > > #if FABLE_COMPILER
00:11:32 verbose #14865 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:32 verbose #14866 > > #endif
00:11:32 verbose #14867 > > type core_any_Any = class end
00:11:32 verbose #14868 > > #if FABLE_COMPILER
00:11:32 verbose #14869 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:32 verbose #14870 > > #endif
00:11:32 verbose #14871 > > type core_ops_Try<'T> = class end
00:11:32 verbose #14872 > > #if FABLE_COMPILER
00:11:32 verbose #14873 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:32 verbose #14874 > > #endif
00:11:32 verbose #14875 > > type Func0<'T> = class end
00:11:32 verbose #14876 > > #if FABLE_COMPILER
00:11:32 verbose #14877 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:32 verbose #14878 > > #endif
00:11:32 verbose #14879 > > type Func0<'T, 'U> = class end
00:11:32 verbose #14880 > > #if FABLE_COMPILER
00:11:32 verbose #14881 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:32 verbose #14882 > > #endif
00:11:32 verbose #14883 > > type Box<'T> = class end
00:11:32 verbose #14884 > > #if FABLE_COMPILER
00:11:32 verbose #14885 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:11:32 verbose #14886 > > #endif
00:11:32 verbose #14887 > > type Dyn<'T> = class end
00:11:32 verbose #14888 > > #if FABLE_COMPILER
00:11:32 verbose #14889 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:11:32 verbose #14890 > > #endif
00:11:32 verbose #14891 > > type Send<'T> = class end
00:11:32 verbose #14892 > > #if FABLE_COMPILER
00:11:32 verbose #14893 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:11:32 verbose #14894 > > #endif
00:11:32 verbose #14895 > > type Fn<'T> = class end
00:11:32 verbose #14896 > > #if FABLE_COMPILER
00:11:32 verbose #14897 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:11:32 verbose #14898 > > #endif
00:11:32 verbose #14899 > > type FnUnit = class end
00:11:32 verbose #14900 > > #if FABLE_COMPILER
00:11:32 verbose #14901 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:11:32 verbose #14902 > > #endif
00:11:32 verbose #14903 > > type FnOnce<'T> = class end
00:11:32 verbose #14904 > > #if FABLE_COMPILER
00:11:32 verbose #14905 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:11:32 verbose #14906 > > #endif
00:11:32 verbose #14907 > > type ActionFn<'T> = class end
00:11:32 verbose #14908 > > #if FABLE_COMPILER
00:11:32 verbose #14909 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:11:32 verbose #14910 > > #endif
00:11:32 verbose #14911 > > type ActionFn2<'T, 'U> = class end
00:11:32 verbose #14912 > > #if FABLE_COMPILER
00:11:32 verbose #14913 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:11:32 verbose #14914 > > #endif
00:11:32 verbose #14915 > > type Impl<'T> = class end
00:11:32 verbose #14916 > > #if FABLE_COMPILER
00:11:32 verbose #14917 > > [[<Fabl... _v5=None"
00:11:32 verbose #14918 > > US5_1
00:11:32 verbose #14919 > > and method6 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US4 =
00:11:32 verbose #14920 > > let v3 : (unit -> US4) = closure5(v0, v1, v2)
00:11:32 verbose #14921 > > let v4 : (US4 -> US5) = closure6()
00:11:32 verbose #14922 > > let v5 : (exn -> US5) = closure7(v2)
00:11:32 verbose #14923 > > let v6 : US5 = try v3 () |> v4 with ex -> v5 ex
00:11:32 verbose #14924 > > match v6 with
00:11:32 verbose #14925 > > | US5_1 -> (* None *)
00:11:32 verbose #14926 > > let v8 : int32 = v2 + 1
00:11:32 verbose #14927 > > method6(v0, v1, v8)
00:11:32 verbose #14928 > > | US5_0(v7) -> (* Some *)
00:11:32 verbose #14929 > > v7
00:11:32 verbose #14930 > > and closure4 (v0 : int32) (v1 : (unit -> unit)) : unit option =
00:11:32 verbose #14931 > > let v2 : int32 = 0
00:11:32 verbose #14932 > > let v3 : US4 = method6(v0, v1, v2)
00:11:32 verbose #14933 > > match v3 with
00:11:32 verbose #14934 > > | US4_1 -> (* None *)
00:11:32 verbose #14935 > > let v5 : unit option = None
00:11:32 verbose #14936 > > v5
00:11:32 verbose #14937 > > | US4_0 -> (* Some *)
00:11:32 verbose #14938 > > let v4 : unit option = Some ()
00:11:32 verbose #14939 > > v4
00:11:32 verbose #14940 > > and closure3 () (v0 : int32) : ((unit -> unit) -> unit option) =
00:11:32 verbose #14941 > > closure4(v0)
00:11:32 verbose #14942 > > and method12 (v0 : (unit -> unit)) : (unit -> unit) =
00:11:32 verbose #14943 > > v0
00:11:32 verbose #14944 > > and closure13 (v0 : Lazy<unit>) () : unit =
00:11:32 verbose #14945 > > v0.Value
00:11:32 verbose #14946 > > ()
00:11:32 verbose #14947 > > and closure12 () (v0 : (unit -> unit)) : (unit -> unit) =
00:11:32 verbose #14948 > > let v1 : (unit -> unit) = method12(v0)
00:11:32 verbose #14949 > > let v2 : Lazy<unit> = lazy v1 ()
00:11:32 verbose #14950 > > closure13(v2)
00:11:32 verbose #14951 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:11:32 verbose #14952 > > let v1 : US0 = US0_0
00:11:32 verbose #14953 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:11:32 verbose #14954 > > let v2 : ((unit -> unit) -> System.IDisposable) = closure2()
00:11:32 verbose #14955 > > let new_disposable x = v2 x
00:11:32 verbose #14956 > > let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
00:11:32 verbose #14957 > > let retry_fn x = v3 x
00:11:32 verbose #14958 > > let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
00:11:32 verbose #14959 > > let memoize x = v4 x
00:11:32 verbose #14960 > > ()
00:11:32 verbose #14961 > >
00:11:34 verbose #14962 > >
00:11:34 verbose #14963 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:34 verbose #14964 > > #if FABLE_COMPILER
00:11:34 verbose #14965 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:34 verbose #14966 > > #endif
00:11:34 verbose #14967 > > type core_any_Any = class end
00:11:34 verbose #14968 > > #if FABLE_COMPILER
00:11:34 verbose #14969 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:34 verbose #14970 > > #endif
00:11:34 verbose #14971 > > type core_ops_Try<'T> = class end
00:11:34 verbose #14972 > > #if FABLE_COMPILER
00:11:34 verbose #14973 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:34 verbose #14974 > > #endif
00:11:34 verbose #14975 > > type Func0<'T> = class end
00:11:34 verbose #14976 > > #if FABLE_COMPILER
00:11:34 verbose #14977 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:34 verbose #14978 > > #endif
00:11:34 verbose #14979 > > type Func0<'T, 'U> = class end
00:11:34 verbose #14980 > > #if FABLE_COMPILER
00:11:34 verbose #14981 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:34 verbose #14982 > > #endif
00:11:34 verbose #14983 > > type Box<'T> = class end
00:11:34 verbose #14984 > > #if FABLE_COMPILER
00:11:34 verbose #14985 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:11:34 verbose #14986 > > #endif
00:11:34 verbose #14987 > > type Dyn<'T> = class end
00:11:34 verbose #14988 > > #if FABLE_COMPILER
00:11:34 verbose #14989 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:11:34 verbose #14990 > > #endif
00:11:34 verbose #14991 > > type Send<'T> = class end
00:11:34 verbose #14992 > > #if FABLE_COMPILER
00:11:34 verbose #14993 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:11:34 verbose #14994 > > #endif
00:11:34 verbose #14995 > > type Fn<'T> = class end
00:11:34 verbose #14996 > > #if FABLE_COMPILER
00:11:34 verbose #14997 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:11:34 verbose #14998 > > #endif
00:11:34 verbose #14999 > > type FnUnit = class end
00:11:34 verbose #15000 > > #if FABLE_COMPILER
00:11:34 verbose #15001 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:11:34 verbose #15002 > > #endif
00:11:34 verbose #15003 > > type FnOnce<'T> = class end
00:11:34 verbose #15004 > > #if FABLE_COMPILER
00:11:34 verbose #15005 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:11:34 verbose #15006 > > #endif
00:11:34 verbose #15007 > > type ActionFn<'T> = class end
00:11:34 verbose #15008 > > #if FABLE_COMPILER
00:11:34 verbose #15009 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:11:34 verbose #15010 > > #endif
00:11:34 verbose #15011 > > type ActionFn2<'T, 'U> = class end
00:11:34 verbose #15012 > > #if FABLE_COMPILER
00:11:34 verbose #15013 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:11:34 verbose #15014 > > #endif
00:11:34 verbose #15015 > > type Impl<'T> = class end
00:11:34 verbose #15016 > > #if FABLE_COMPILER
00:11:34 verbose #15017 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:11:34 verbose #15018 > > #endif
00:11:34 verbose #15019 > > type Mut<'T> = class end
00:11:34 verbose #15020 > > #if FABLE_COMPILER
00:11:34 verbose #15021 > > [[<Fable.Core.Erase; Fable.C...-> (string -> (string -> string))) = closure10()
00:11:34 verbose #15022 > > let replace x = v4 x
00:11:34 verbose #15023 > > let v5 : (string -> (string -> (string -> string))) = closure13()
00:11:34 verbose #15024 > > let replace_regex x = v5 x
00:11:34 verbose #15025 > > let v6 : (int32 -> (int32 -> (string -> string))) = closure16()
00:11:34 verbose #15026 > > let slice x = v6 x
00:11:34 verbose #15027 > > let v7 : (string -> (string -> (string [[]]))) = closure19()
00:11:34 verbose #15028 > > let split x = v7 x
00:11:34 verbose #15029 > > let v8 : ((string [[]]) -> (string -> (string [[]]))) = closure21()
00:11:34 verbose #15030 > > let split_string x = v8 x
00:11:34 verbose #15031 > > let v9 : (string -> (string -> bool)) = closure23()
00:11:34 verbose #15032 > > let starts_with x = v9 x
00:11:34 verbose #15033 > > let v10 : (int32 -> (int32 -> (string -> string))) = closure25()
00:11:34 verbose #15034 > > let substring x = v10 x
00:11:34 verbose #15035 > > let v11 : (string -> string) = closure28()
00:11:34 verbose #15036 > > let to_lower x = v11 x
00:11:34 verbose #15037 > > let v12 : (string -> string) = closure29()
00:11:34 verbose #15038 > > let to_upper x = v12 x
00:11:34 verbose #15039 > > let v13 : (string -> string) = closure30()
00:11:34 verbose #15040 > > let trim x = v13 x
00:11:34 verbose #15041 > > let v14 : ((char [[]]) -> (string -> string)) = closure31()
00:11:34 verbose #15042 > > let trim_end x = v14 x
00:11:34 verbose #15043 > > let v15 : ((char [[]]) -> (string -> string)) = closure33()
00:11:34 verbose #15044 > > let trim_start x = v15 x
00:11:34 verbose #15045 > > let v16 : (int32 -> (string -> string)) = closure35()
00:11:34 verbose #15046 > > let ellipsis x = v16 x
00:11:34 verbose #15047 > > let v17 : (int64 -> (string -> string)) = closure37()
00:11:34 verbose #15048 > > let ellipsis_end x = v17 x
00:11:34 verbose #15049 > > let v18 : (exn -> string) = closure39()
00:11:34 verbose #15050 > > let format_exception x = v18 x
00:11:34 verbose #15051 > > let v19 : (string -> ((string [[]]) -> string)) = closure40()
00:11:34 verbose #15052 > > let concat_array_trailing x = v19 x
00:11:34 verbose #15053 > > let v20 : (string -> (string seq -> string)) = closure42()
00:11:34 verbose #15054 > > let concat x = v20 x
00:11:34 verbose #15055 > > let v21 : (string -> ((string [[]]) -> string)) = closure44()
00:11:34 verbose #15056 > > let join' x = v21 x
00:11:34 verbose #15057 > > let v22 : (string -> (char [[]])) = closure46()
00:11:34 verbose #15058 > > let to_char_array x = v22 x
00:11:34 verbose #15059 > > ()
00:11:34 verbose #15060 > >
00:11:35 verbose #15061 > >
00:11:35 verbose #15062 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:35 verbose #15063 > > #if FABLE_COMPILER
00:11:35 verbose #15064 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:35 verbose #15065 > > #endif
00:11:35 verbose #15066 > > type core_any_Any = class end
00:11:35 verbose #15067 > > #if FABLE_COMPILER
00:11:35 verbose #15068 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:35 verbose #15069 > > #endif
00:11:35 verbose #15070 > > type core_ops_Try<'T> = class end
00:11:35 verbose #15071 > > #if FABLE_COMPILER
00:11:35 verbose #15072 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:35 verbose #15073 > > #endif
00:11:35 verbose #15074 > > type Func0<'T> = class end
00:11:35 verbose #15075 > > #if FABLE_COMPILER
00:11:35 verbose #15076 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:35 verbose #15077 > > #endif
00:11:35 verbose #15078 > > type Func0<'T, 'U> = class end
00:11:35 verbose #15079 > > #if FABLE_COMPILER
00:11:35 verbose #15080 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:35 verbose #15081 > > #endif
00:11:35 verbose #15082 > > type Box<'T> = class end
00:11:35 verbose #15083 > > #if FABLE_COMPILER
00:11:35 verbose #15084 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:11:35 verbose #15085 > > #endif
00:11:35 verbose #15086 > > type Dyn<'T> = class end
00:11:35 verbose #15087 > > #if FABLE_COMPILER
00:11:35 verbose #15088 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:11:35 verbose #15089 > > #endif
00:11:35 verbose #15090 > > type Send<'T> = class end
00:11:35 verbose #15091 > > #if FABLE_COMPILER
00:11:35 verbose #15092 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:11:35 verbose #15093 > > #endif
00:11:35 verbose #15094 > > type Fn<'T> = class end
00:11:35 verbose #15095 > > #if FABLE_COMPILER
00:11:35 verbose #15096 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:11:35 verbose #15097 > > #endif
00:11:35 verbose #15098 > > type FnUnit = class end
00:11:35 verbose #15099 > > #if FABLE_COMPILER
00:11:35 verbose #15100 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:11:35 verbose #15101 > > #endif
00:11:35 verbose #15102 > > type FnOnce<'T> = class end
00:11:35 verbose #15103 > > #if FABLE_COMPILER
00:11:35 verbose #15104 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:11:35 verbose #15105 > > #endif
00:11:35 verbose #15106 > > type ActionFn<'T> = class end
00:11:35 verbose #15107 > > #if FABLE_COMPILER
00:11:35 verbose #15108 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:11:35 verbose #15109 > > #endif
00:11:35 verbose #15110 > > type ActionFn2<'T, 'U> = class end
00:11:35 verbose #15111 > > #if FABLE_COMPILER
00:11:35 verbose #15112 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:11:35 verbose #15113 > > #endif
00:11:35 verbose #15114 > > type Impl<'T> = class end
00:11:35 verbose #15115 > > #if FABLE_COMPILER
00:11:35 verbose #15116 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:11:35 verbose #15117 > > #endif
00:11:35 verbose #15118 > > type Mut<'T> = class end
00:11:35 verbose #15119 > > #if FABLE_COMPILER
00:11:35 verbose #15120 > > [[<Fable.Core.Erase; Fable.C...nterop.emitRustExpr v24 v27
00:11:35 verbose #15121 > > ()
00:11:35 verbose #15122 > > #endif
00:11:35 verbose #15123 > > #if FABLE_COMPILER_RUST && CONTRACT
00:11:35 verbose #15124 > > let v28 : string = @"println!(""{}"", $0)"
00:11:35 verbose #15125 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:11:35 verbose #15126 > > ()
00:11:35 verbose #15127 > > #endif
00:11:35 verbose #15128 > > #if FABLE_COMPILER_TYPESCRIPT
00:11:35 verbose #15129 > > System.Console.WriteLine v24
00:11:35 verbose #15130 > > ()
00:11:35 verbose #15131 > > #endif
00:11:35 verbose #15132 > > #if FABLE_COMPILER_PYTHON
00:11:35 verbose #15133 > > System.Console.WriteLine v24
00:11:35 verbose #15134 > > ()
00:11:35 verbose #15135 > > #endif
00:11:35 verbose #15136 > > #else
00:11:35 verbose #15137 > > System.Console.WriteLine v24
00:11:35 verbose #15138 > > ()
00:11:35 verbose #15139 > > #endif
00:11:35 verbose #15140 > > |> fun x -> _v25 <- Some x
00:11:35 verbose #15141 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:11:35 verbose #15142 > > _v25=None"
00:11:35 verbose #15143 > > let v29 : (string -> unit) = v8.l0
00:11:35 verbose #15144 > > v29 v24
00:11:35 verbose #15145 > > and method3 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:11:35 verbose #15146 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:11:35 verbose #15147 > > method11(v0, v3)
00:11:35 verbose #15148 > > and closure1 () (v0 : string) : uint16 =
00:11:35 verbose #15149 > > let v1 : char = v0.[[int 0]]
00:11:35 verbose #15150 > > let v2 : (char -> int32) = int32
00:11:35 verbose #15151 > > let v3 : int32 = v2 v1
00:11:35 verbose #15152 > > let v4 : string = v0.[[int 0..int 7]]
00:11:35 verbose #15153 > > let v5 : int32 = System.Convert.ToInt32 (v4, 16)
00:11:35 verbose #15154 > > let v6 : int32 = v5 + v3
00:11:35 verbose #15155 > > let v7 : (int32 -> uint16) = uint16
00:11:35 verbose #15156 > > let v8 : uint16 = v7 v6
00:11:35 verbose #15157 > > let v9 : US0 = US0_0
00:11:35 verbose #15158 > > let v10 : (unit -> string) = closure2()
00:11:35 verbose #15159 > > let v11 : (unit -> string) = closure3(v3, v4, v8)
00:11:35 verbose #15160 > > method3(v9, v10, v11)
00:11:35 verbose #15161 > > let v12 : uint16 = v8 % 48128us
00:11:35 verbose #15162 > > let v13 : uint16 = v12 + 1024us
00:11:35 verbose #15163 > > v13
00:11:35 verbose #15164 > > let v0 : (string -> string) = closure0()
00:11:35 verbose #15165 > > let hash_text x = v0 x
00:11:35 verbose #15166 > > let v1 : (string -> uint16) = closure1()
00:11:35 verbose #15167 > > let hash_to_port x = v1 x
00:11:35 verbose #15168 > > ()
00:11:35 verbose #15169 > >
00:11:35 verbose #15170 > >
00:11:35 verbose #15171 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:35 verbose #15172 > > #if FABLE_COMPILER
00:11:35 verbose #15173 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:35 verbose #15174 > > #endif
00:11:35 verbose #15175 > > type core_any_Any = class end
00:11:35 verbose #15176 > > #if FABLE_COMPILER
00:11:35 verbose #15177 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:35 verbose #15178 > > #endif
00:11:35 verbose #15179 > > type core_ops_Try<'T> = class end
00:11:35 verbose #15180 > > #if FABLE_COMPILER
00:11:35 verbose #15181 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:35 verbose #15182 > > #endif
00:11:35 verbose #15183 > > type Func0<'T> = class end
00:11:35 verbose #15184 > > #if FABLE_COMPILER
00:11:35 verbose #15185 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:35 verbose #15186 > > #endif
00:11:35 verbose #15187 > > type Func0<'T, 'U> = class end
00:11:35 verbose #15188 > > #if FABLE_COMPILER
00:11:35 verbose #15189 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:35 verbose #15190 > > #endif
00:11:35 verbose #15191 > > type Box<'T> = class end
00:11:35 verbose #15192 > > #if FABLE_COMPILER
00:11:35 verbose #15193 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:11:35 verbose #15194 > > #endif
00:11:35 verbose #15195 > > type Dyn<'T> = class end
00:11:35 verbose #15196 > > #if FABLE_COMPILER
00:11:35 verbose #15197 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:11:35 verbose #15198 > > #endif
00:11:35 verbose #15199 > > type Send<'T> = class end
00:11:35 verbose #15200 > > #if FABLE_COMPILER
00:11:35 verbose #15201 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:11:35 verbose #15202 > > #endif
00:11:35 verbose #15203 > > type Fn<'T> = class end
00:11:35 verbose #15204 > > #if FABLE_COMPILER
00:11:35 verbose #15205 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:11:35 verbose #15206 > > #endif
00:11:35 verbose #15207 > > type FnUnit = class end
00:11:35 verbose #15208 > > #if FABLE_COMPILER
00:11:35 verbose #15209 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:11:35 verbose #15210 > > #endif
00:11:35 verbose #15211 > > type FnOnce<'T> = class end
00:11:35 verbose #15212 > > #if FABLE_COMPILER
00:11:35 verbose #15213 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:11:35 verbose #15214 > > #endif
00:11:35 verbose #15215 > > type ActionFn<'T> = class end
00:11:35 verbose #15216 > > #if FABLE_COMPILER
00:11:35 verbose #15217 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:11:35 verbose #15218 > > #endif
00:11:35 verbose #15219 > > type ActionFn2<'T, 'U> = class end
00:11:35 verbose #15220 > > #if FABLE_COMPILER
00:11:35 verbose #15221 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:11:35 verbose #15222 > > #endif
00:11:35 verbose #15223 > > type Impl<'T> = class end
00:11:35 verbose #15224 > > #if FABLE_COMPILER
00:11:35 verbose #15225 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:11:35 verbose #15226 > > #endif
00:11:35 verbose #15227 > > type Mut<'T> = class end
00:11:35 verbose #15228 > > #if FABLE_COMPILER
00:11:35 verbose #15229 > > [[<Fable.Core.Erase; Fable.C...64) : System.Guid =
00:11:35 verbose #15230 > > let v1 : (unit -> System.Guid) = System.Guid.NewGuid
00:11:35 verbose #15231 > > let v2 : System.Guid = v1 ()
00:11:35 verbose #15232 > > let v3 : (System.Guid -> string) = _.ToString()
00:11:35 verbose #15233 > > let v4 : string = v3 v2
00:11:35 verbose #15234 > > let v5 : (int64 -> string) = _.ToString()
00:11:35 verbose #15235 > > let v6 : string = v5 v0
00:11:35 verbose #15236 > > let v7 : string = v6.PadLeft (18, '0')
00:11:35 verbose #15237 > > let v8 : System.Guid = System.Guid
00:11:35 verbose #15238 > > $"{v7.[[0..7]]}-{v7.[[8..11]]}-{v7.[[12..15]]}-{v7.[[16..17]]}{v4.[[21..]]}"
00:11:35 verbose #15239 > > v8
00:11:35 verbose #15240 > > and closure12 (v0 : string) (v1 : System.DateTime) : string =
00:11:35 verbose #15241 > > let v2 : (string -> string) = v1.ToString
00:11:35 verbose #15242 > > v2 v0
00:11:35 verbose #15243 > > and closure11 () (v0 : string) : (System.DateTime -> string) =
00:11:35 verbose #15244 > > closure12(v0)
00:11:35 verbose #15245 > > and closure13 () (v0 : System.DateTime) : string =
00:11:35 verbose #15246 > > let v1 : (string -> string) = v0.ToString
00:11:35 verbose #15247 > > let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff"
00:11:35 verbose #15248 > > v1 v2
00:11:35 verbose #15249 > > let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0()
00:11:35 verbose #15250 > > let date_time_guid_from_date_time x = v0 x
00:11:35 verbose #15251 > > let v1 : (System.Guid -> System.DateTime) = closure2()
00:11:35 verbose #15252 > > let date_time_from_guid x = v1 x
00:11:35 verbose #15253 > > let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6()
00:11:35 verbose #15254 > > let timestamp_guid_from_timestamp x = v2 x
00:11:35 verbose #15255 > > let v3 : (System.Guid -> int64) = closure8()
00:11:35 verbose #15256 > > let timestamp_from_guid x = v3 x
00:11:35 verbose #15257 > > let v4 : (System.DateTime -> System.Guid) = closure9()
00:11:35 verbose #15258 > > let new_guid_from_date_time x = v4 x
00:11:35 verbose #15259 > > let v5 : (int64 -> System.Guid) = closure10()
00:11:35 verbose #15260 > > let new_guid_from_timestamp x = v5 x
00:11:35 verbose #15261 > > let v6 : (string -> (System.DateTime -> string)) = closure11()
00:11:35 verbose #15262 > > let format x = v6 x
00:11:35 verbose #15263 > > let v7 : (System.DateTime -> string) = closure13()
00:11:35 verbose #15264 > > let format_iso8601 x = v7 x
00:11:35 verbose #15265 > > ()
00:11:35 verbose #15266 > >
00:11:36 verbose #15267 > >
00:11:36 verbose #15268 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:36 verbose #15269 > > #if FABLE_COMPILER
00:11:36 verbose #15270 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]]
00:11:36 verbose #15271 > > #endif
00:11:36 verbose #15272 > > type futures_future_JoinAll<'T> = class end
00:11:36 verbose #15273 > > #if FABLE_COMPILER
00:11:36 verbose #15274 > > [[<Fable.Core.Erase; Fable.Core.Emit("futures::future::TryJoinAll<$0>")>]]
00:11:36 verbose #15275 > > #endif
00:11:36 verbose #15276 > > type futures_future_TryJoinAll<'T> = class end
00:11:36 verbose #15277 > > #if FABLE_COMPILER
00:11:36 verbose #15278 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::iter::Map<$0, _>")>]]
00:11:36 verbose #15279 > > #endif
00:11:36 verbose #15280 > > type rayon_iter_Map<'T> = class end
00:11:36 verbose #15281 > > #if FABLE_COMPILER
00:11:36 verbose #15282 > > [[<Fable.Core.Erase; Fable.Core.Emit("rayon::vec::IntoIter<$0>")>]]
00:11:36 verbose #15283 > > #endif
00:11:36 verbose #15284 > > type rayon_vec_IntoIter<'T> = class end
00:11:36 verbose #15285 > > #if FABLE_COMPILER
00:11:36 verbose #15286 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::future::Future<Output = $0>")>]]
00:11:36 verbose #15287 > > #endif
00:11:36 verbose #15288 > > type std_future_Future<'T> = class end
00:11:36 verbose #15289 > > #if FABLE_COMPILER
00:11:36 verbose #15290 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::prelude::stream::Fuse<$0>")>]]
00:11:36 verbose #15291 > > #endif
00:11:36 verbose #15292 > > type futures_future_Fuse<'T> = class end
00:11:36 verbose #15293 > > #if FABLE_COMPILER
00:11:36 verbose #15294 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio::task::JoinHandle<$0>")>]]
00:11:36 verbose #15295 > > #endif
00:11:36 verbose #15296 > > type tokio_task_JoinHandle<'T> = class end
00:11:36 verbose #15297 > > #if FABLE_COMPILER
00:11:36 verbose #15298 > > [[<Fable.Core.Erase; Fable.Core.Emit("tokio_stream::StreamExt")>]]
00:11:36 verbose #15299 > > #endif
00:11:36 verbose #15300 > > type tokio_stream_StreamExt = class end
00:11:36 verbose #15301 > > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:11:36 verbose #15302 > > Async<System.Threading.CancellationToken> =
00:11:36 verbose #15303 > > let v1 : bool = true
00:11:36 verbose #15304 > > let mutable _v1 : Async<System.Threading.CancellationToken> option = None
00:11:36 verbose #15305 > >
00:11:36 verbose #15306 > > #if FABLE_COMPILER || WASM || CONTRACT
00:11:36 verbose #15307 > >
00:11:36 verbose #15308 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:11:36 verbose #15309 > > let v2 : Async<System.Threading.CancellationToken> = null |>
00:11:36 verbose #15310 > > unbox<Async<System.Threading.Canc...eading.CancellationToken>>
00:11:36 verbose #15311 > > v12
00:11:36 verbose #15312 > > #endif
00:11:36 verbose #15313 > > #else
00:11:36 verbose #15314 > > let v13 : Async<System.Threading.CancellationToken> option = None
00:11:36 verbose #15315 > > let mutable _v13 = v13
00:11:36 verbose #15316 > > async {
00:11:36 verbose #15317 > > let v14 : Async<System.Threading.CancellationToken> =
00:11:36 verbose #15318 > > Async.CancellationToken
00:11:36 verbose #15319 > > let! v14 = v14
00:11:36 verbose #15320 > > let v15 : System.Threading.CancellationToken = v14
00:11:36 verbose #15321 > > let v16 : System.Threading.CancellationToken =
00:11:36 verbose #15322 > > Async.DefaultCancellationToken
00:11:36 verbose #15323 > > let v17 : (System.Threading.CancellationToken [[]]) = [[|v15; v16; v0|]]
00:11:36 verbose #15324 > > let v18 : ((System.Threading.CancellationToken [[]]) ->
00:11:36 verbose #15325 > > System.Threading.CancellationTokenSource) =
00:11:36 verbose #15326 > > System.Threading.CancellationTokenSource.CreateLinkedTokenSource
00:11:36 verbose #15327 > > let v19 : System.Threading.CancellationTokenSource = v18 v17
00:11:36 verbose #15328 > > let v20 : System.Threading.CancellationToken = v19.Token
00:11:36 verbose #15329 > > return v20
00:11:36 verbose #15330 > > }
00:11:36 verbose #15331 > > |> fun x -> _v13 <- Some x
00:11:36 verbose #15332 > > let v21 : Async<System.Threading.CancellationToken> = match _v13 with Some x
00:11:36 verbose #15333 > > -> x | None -> failwith "async.new_async_unit / _v13=None"
00:11:36 verbose #15334 > > v21
00:11:36 verbose #15335 > > #endif
00:11:36 verbose #15336 > > |> fun x -> _v7 <- Some x
00:11:36 verbose #15337 > > let v22 : Async<System.Threading.CancellationToken> = match _v7 with Some x
00:11:36 verbose #15338 > > -> x | None -> failwith "base.run_target / _v7=None"
00:11:36 verbose #15339 > > v22
00:11:36 verbose #15340 > > #endif
00:11:36 verbose #15341 > > |> fun x -> _v1 <- Some x
00:11:36 verbose #15342 > > let v23 : Async<System.Threading.CancellationToken> = match _v1 with Some x
00:11:36 verbose #15343 > > -> x | None -> failwith "base.run_target / _v1=None"
00:11:36 verbose #15344 > > v23
00:11:36 verbose #15345 > > let v0 : (System.Threading.CancellationToken ->
00:11:36 verbose #15346 > > Async<System.Threading.CancellationToken>) = closure0()
00:11:36 verbose #15347 > > let merge_cancellation_token_with_default_async x = v0 x
00:11:36 verbose #15348 > > ()
00:11:36 verbose #15349 > >
00:11:36 verbose #15350 > >
00:11:36 verbose #15351 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:36 verbose #15352 > > #if FABLE_COMPILER
00:11:36 verbose #15353 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]]
00:11:36 verbose #15354 > > #endif
00:11:36 verbose #15355 > > type std_thread_JoinHandle<'T> = class end
00:11:36 verbose #15356 > > #if FABLE_COMPILER
00:11:36 verbose #15357 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>]]
00:11:36 verbose #15358 > > #endif
00:11:36 verbose #15359 > > type std_sync_Arc<'T> = class end
00:11:36 verbose #15360 > > #if FABLE_COMPILER
00:11:36 verbose #15361 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::Mutex<$0>")>]]
00:11:36 verbose #15362 > > #endif
00:11:36 verbose #15363 > > type std_sync_Mutex<'T> = class end
00:11:36 verbose #15364 > > #if FABLE_COMPILER
00:11:36 verbose #15365 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::MutexGuard<$0>")>]]
00:11:36 verbose #15366 > > #endif
00:11:36 verbose #15367 > > type std_sync_MutexGuard<'T> = class end
00:11:36 verbose #15368 > > #if FABLE_COMPILER
00:11:36 verbose #15369 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::PoisonError<$0>")>]]
00:11:36 verbose #15370 > > #endif
00:11:36 verbose #15371 > > type std_sync_PoisonError<'T> = class end
00:11:36 verbose #15372 > > #if FABLE_COMPILER
00:11:36 verbose #15373 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Receiver<$0>")>]]
00:11:36 verbose #15374 > > #endif
00:11:36 verbose #15375 > > type std_sync_mpsc_Receiver<'T> = class end
00:11:36 verbose #15376 > > #if FABLE_COMPILER
00:11:36 verbose #15377 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::SendError<$0>")>]]
00:11:36 verbose #15378 > > #endif
00:11:36 verbose #15379 > > type std_sync_mpsc_SendError<'T> = class end
00:11:36 verbose #15380 > > #if FABLE_COMPILER
00:11:36 verbose #15381 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::sync::mpsc::Sender<$0>")>]]
00:11:36 verbose #15382 > > #endif
00:11:36 verbose #15383 > > type std_sync_mpsc_Sender<'T> = class end
00:11:36 verbose #15384 > > type Disposable (f : unit -> unit) = interface System.IDisposable with member
00:11:36 verbose #15385 > > _.Dispose () = f ()
00:11:36 verbose #15386 > > type [[<Struct>]] US0 =
00:11:36 verbose #15387 > > | US0_0 of f0_0 : System.Threading.CancellationToken
00:11:36 verbose #15388 > > | US0_1
00:11:36 verbose #15389 > > let rec closure1 (v0 : System.Threading.CancellationTokenSource) () : unit =
00:11:36 verbose #15390 > > let v1 : bool = true
00:11:36 verbose #15391 > > let mutable _v1 : unit option = None
00:11:36 verbose #15392 > >
00:11:36 verbose #15393 > > #if FABLE_COMPILER || WASM || CONTRACT
00:11:36 verbose #15394 > >
00:11:36 verbose #15395 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRAC...ore.RustInterop.emitRustExpr v27
00:11:36 verbose #15396 > > "$0()" )
00:11:36 verbose #15397 > > v28
00:11:36 verbose #15398 > > #endif
00:11:36 verbose #15399 > > #if FABLE_COMPILER_RUST && WASM
00:11:36 verbose #15400 > > let v29 : (unit -> unit) = method0(v25)
00:11:36 verbose #15401 > > let v30 : System.IDisposable = new Disposable (fun () ->
00:11:36 verbose #15402 > > Fable.Core.RustInterop.emitRustExpr v29 "$0()" )
00:11:36 verbose #15403 > > v30
00:11:36 verbose #15404 > > #endif
00:11:36 verbose #15405 > > #if FABLE_COMPILER_RUST && CONTRACT
00:11:36 verbose #15406 > > let v31 : (unit -> unit) = method0(v25)
00:11:36 verbose #15407 > > let v32 : System.IDisposable = new Disposable (fun () ->
00:11:36 verbose #15408 > > Fable.Core.RustInterop.emitRustExpr v31 "$0()" )
00:11:36 verbose #15409 > > v32
00:11:36 verbose #15410 > > #endif
00:11:36 verbose #15411 > > #if FABLE_COMPILER_TYPESCRIPT
00:11:36 verbose #15412 > > let v33 : System.IDisposable = null |> unbox<System.IDisposable>
00:11:36 verbose #15413 > > v33
00:11:36 verbose #15414 > > #endif
00:11:36 verbose #15415 > > #if FABLE_COMPILER_PYTHON
00:11:36 verbose #15416 > > let v34 : System.IDisposable = null |> unbox<System.IDisposable>
00:11:36 verbose #15417 > > v34
00:11:36 verbose #15418 > > #endif
00:11:36 verbose #15419 > > #else
00:11:36 verbose #15420 > > let v35 : (unit -> unit) = method1(v25)
00:11:36 verbose #15421 > > let v36 : System.IDisposable = { new System.IDisposable with member
00:11:36 verbose #15422 > > _.Dispose () = v35 () }
00:11:36 verbose #15423 > > v36
00:11:36 verbose #15424 > > #endif
00:11:36 verbose #15425 > > |> fun x -> _v26 <- Some x
00:11:36 verbose #15426 > > let v37 : System.IDisposable = match _v26 with Some x -> x | None ->
00:11:36 verbose #15427 > > failwith "base.run_target / _v26=None"
00:11:36 verbose #15428 > > let v38 : System.Threading.CancellationToken = v25.Token
00:11:36 verbose #15429 > > struct (v38, v37)
00:11:36 verbose #15430 > > #endif
00:11:36 verbose #15431 > > |> fun x -> _v1 <- Some x
00:11:36 verbose #15432 > > let struct (v39 : System.Threading.CancellationToken, v40 :
00:11:36 verbose #15433 > > System.IDisposable) = match _v1 with Some x -> x | None -> failwith
00:11:36 verbose #15434 > > "base.run_target / _v1=None"
00:11:36 verbose #15435 > > struct (v39, v40)
00:11:36 verbose #15436 > > let v0 : (System.Threading.CancellationToken option -> struct
00:11:36 verbose #15437 > > (System.Threading.CancellationToken * System.IDisposable)) = closure0()
00:11:36 verbose #15438 > > let new_disposable_token x = v0 x
00:11:36 verbose #15439 > > ()
00:11:36 verbose #15440 > >
00:11:36 verbose #15441 > >
00:11:36 verbose #15442 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:36 verbose #15443 > > #if FABLE_COMPILER
00:11:36 verbose #15444 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]]
00:11:36 verbose #15445 > > #endif
00:11:36 verbose #15446 > > type reqwest_Error = class end
00:11:36 verbose #15447 > > #if FABLE_COMPILER
00:11:36 verbose #15448 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuilder")>]]
00:11:36 verbose #15449 > > #endif
00:11:36 verbose #15450 > > type reqwest_RequestBuilder = class end
00:11:36 verbose #15451 > > #if FABLE_COMPILER
00:11:36 verbose #15452 > > [[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Response")>]]
00:11:36 verbose #15453 > > #endif
00:11:36 verbose #15454 > > type reqwest_Response = class end
00:11:36 verbose #15455 > > #if FABLE_COMPILER
00:11:36 verbose #15456 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]]
00:11:36 verbose #15457 > > #endif
00:11:36 verbose #15458 > > type std_env_VarError = class end
00:11:36 verbose #15459 > > #if FABLE_COMPILER
00:11:36 verbose #15460 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:36 verbose #15461 > > #endif
00:11:36 verbose #15462 > > type core_any_Any = class end
00:11:36 verbose #15463 > > #if FABLE_COMPILER
00:11:36 verbose #15464 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:36 verbose #15465 > > #endif
00:11:36 verbose #15466 > > type core_ops_Try<'T> = class end
00:11:36 verbose #15467 > > #if FABLE_COMPILER
00:11:36 verbose #15468 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:36 verbose #15469 > > #endif
00:11:36 verbose #15470 > > type Func0<'T> = class end
00:11:36 verbose #15471 > > #if FABLE_COMPILER
00:11:36 verbose #15472 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:36 verbose #15473 > > #endif
00:11:36 verbose #15474 > > type Func0<'T, 'U> = class end
00:11:36 verbose #15475 > > #if FABLE_COMPILER
00:11:36 verbose #15476 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:36 verbose #15477 > > #endif
00:11:36 verbose #15478 > > type Box<'T> = class end
00:11:36 verbose #15479 > > #if FABLE_COMPILER
00:11:36 verbose #15480 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:11:36 verbose #15481 > > #endif
00:11:36 verbose #15482 > > type Dyn<'T> = class end
00:11:36 verbose #15483 > > #if FABLE_COMPILER
00:11:36 verbose #15484 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:11:36 verbose #15485 > > #endif
00:11:36 verbose #15486 > > type Send<'T> = class end
00:11:36 verbose #15487 > > #if FABLE_COMPILER
00:11:36 verbose #15488 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:11:36 verbose #15489 > > #endif
00:11:36 verbose #15490 > > type Fn<'T> = class end
00:11:36 verbose #15491 > > #if FABLE_COMPILER
00:11:36 verbose #15492 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:11:36 verbose #15493 > > #endif
00:11:36 verbose #15494 > > type FnUnit = class end
00:11:36 verbose #15495 > > #if FABLE_COMPILER
00:11:36 verbose #15496 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:11:36 verbose #15497 > > ... v212 = v212
00:11:36 verbose #15498 > > let v213 : bool = v212
00:11:36 verbose #15499 > > let v214 : bool = v213 = false
00:11:36 verbose #15500 > > if v214 then
00:11:36 verbose #15501 > > return v2
00:11:36 verbose #15502 > > (*
00:11:36 verbose #15503 > > ()
00:11:36 verbose #15504 > > else
00:11:36 verbose #15505 > > *) else
00:11:36 verbose #15506 > > let v215 : int32 = v2 + 1
00:11:36 verbose #15507 > > let v216 : Async<int32> = method10(v0, v1, v215)
00:11:36 verbose #15508 > > return! v216
00:11:36 verbose #15509 > > (*
00:11:36 verbose #15510 > > ()
00:11:36 verbose #15511 > > *)
00:11:36 verbose #15512 > > }
00:11:36 verbose #15513 > > |> fun x -> _v9 <- Some x
00:11:36 verbose #15514 > > let v217 : Async<int32> = match _v9 with Some x -> x | None -> failwith
00:11:36 verbose #15515 > > "async.new_async_unit / _v9=None"
00:11:36 verbose #15516 > > v217
00:11:36 verbose #15517 > > #endif
00:11:36 verbose #15518 > > |> fun x -> _v3 <- Some x
00:11:36 verbose #15519 > > let v218 : Async<int32> = match _v3 with Some x -> x | None -> failwith
00:11:36 verbose #15520 > > "base.run_target / _v3=None"
00:11:36 verbose #15521 > > v218
00:11:36 verbose #15522 > > and closure23 (v0 : int32 option, v1 : string) (v2 : int32) : Async<int32> =
00:11:36 verbose #15523 > > method10(v0, v1, v2)
00:11:36 verbose #15524 > > and closure22 (v0 : int32 option) (v1 : string) : (int32 -> Async<int32>) =
00:11:36 verbose #15525 > > closure23(v0, v1)
00:11:36 verbose #15526 > > and closure21 () (v0 : int32 option) : (string -> (int32 -> Async<int32>)) =
00:11:36 verbose #15527 > > closure22(v0)
00:11:36 verbose #15528 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:11:36 verbose #15529 > > let v1 : US0 = US0_0
00:11:36 verbose #15530 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:11:36 verbose #15531 > > let v2 : (string -> (int32 -> Async<bool>)) = closure2()
00:11:36 verbose #15532 > > let test_port_open x = v2 x
00:11:36 verbose #15533 > > let v3 : (int32 -> (string -> (int32 -> Async<bool>))) = closure7()
00:11:36 verbose #15534 > > let test_port_open_timeout x = v3 x
00:11:36 verbose #15535 > > let v4 : (int32 option -> (bool -> (string -> (int32 -> Async<int64>)))) =
00:11:36 verbose #15536 > > closure15()
00:11:36 verbose #15537 > > let wait_for_port_access x = v4 x
00:11:36 verbose #15538 > > let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
00:11:36 verbose #15539 > > let get_available_port x = v5 x
00:11:36 verbose #15540 > > ()
00:11:36 verbose #15541 > >
00:11:38 verbose #15542 > 00:11:37 debug #16 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/8917d8299cf2e44bc50a26d5256184137fcb3987b36c48aa070d4c9436065fbc/main.spi
00:11:39 verbose #15543 > >
00:11:39 verbose #15544 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:39 verbose #15545 > > type [[<Struct>]] US0 =
00:11:39 verbose #15546 > > | US0_0
00:11:39 verbose #15547 > > | US0_1
00:11:39 verbose #15548 > > | US0_2
00:11:39 verbose #15549 > > and [[<Struct>]] US1 =
00:11:39 verbose #15550 > > | US1_0 of f0_0 : US0
00:11:39 verbose #15551 > > | US1_1 of f1_0 : US0
00:11:39 verbose #15552 > > | US1_2 of f2_0 : US0
00:11:39 verbose #15553 > > | US1_3 of f3_0 : US0
00:11:39 verbose #15554 > > | US1_4 of f4_0 : US0
00:11:39 verbose #15555 > > let rec closure0 () () : bool =
00:11:39 verbose #15556 > > let v0 : bool = true
00:11:39 verbose #15557 > > let mutable _v0 : bool option = None
00:11:39 verbose #15558 > >
00:11:39 verbose #15559 > > #if FABLE_COMPILER || WASM || CONTRACT
00:11:39 verbose #15560 > >
00:11:39 verbose #15561 > > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:11:39 verbose #15562 > > let v1 : string = "cfg!(windows)"
00:11:39 verbose #15563 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:11:39 verbose #15564 > > v2
00:11:39 verbose #15565 > > #endif
00:11:39 verbose #15566 > > #if FABLE_COMPILER_RUST && WASM
00:11:39 verbose #15567 > > let v3 : string = "cfg!(windows)"
00:11:39 verbose #15568 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:11:39 verbose #15569 > > v4
00:11:39 verbose #15570 > > #endif
00:11:39 verbose #15571 > > #if FABLE_COMPILER_RUST && CONTRACT
00:11:39 verbose #15572 > > let v5 : string = "cfg!(windows)"
00:11:39 verbose #15573 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:11:39 verbose #15574 > > v6
00:11:39 verbose #15575 > > #endif
00:11:39 verbose #15576 > > #if FABLE_COMPILER_TYPESCRIPT
00:11:39 verbose #15577 > > let v7 : US0 = US0_0
00:11:39 verbose #15578 > > let v8 : US1 = US1_3(v7)
00:11:39 verbose #15579 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:11:39 verbose #15580 > > let v10 : bool = failwith<bool> v9
00:11:39 verbose #15581 > > v10
00:11:39 verbose #15582 > > #endif
00:11:39 verbose #15583 > > #if FABLE_COMPILER_PYTHON
00:11:39 verbose #15584 > > let v11 : US0 = US0_0
00:11:39 verbose #15585 > > let v12 : US1 = US1_4(v11)
00:11:39 verbose #15586 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:11:39 verbose #15587 > > let v14 : bool = failwith<bool> v13
00:11:39 verbose #15588 > > v14
00:11:39 verbose #15589 > > #endif
00:11:39 verbose #15590 > > #else
00:11:39 verbose #15591 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:11:39 verbose #15592 > > System.Runtime.InteropServices.OSPlatform.Windows
00:11:39 verbose #15593 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:11:39 verbose #15594 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:11:39 verbose #15595 > > let v17 : b...: string = "cfg!(windows)"
00:11:39 verbose #15596 > > let v2 : bool = Fable.Core.RustInterop.emitRustExpr () v1
00:11:39 verbose #15597 > > v2
00:11:39 verbose #15598 > > #endif
00:11:39 verbose #15599 > > #if FABLE_COMPILER_RUST && WASM
00:11:39 verbose #15600 > > let v3 : string = "cfg!(windows)"
00:11:39 verbose #15601 > > let v4 : bool = Fable.Core.RustInterop.emitRustExpr () v3
00:11:39 verbose #15602 > > v4
00:11:39 verbose #15603 > > #endif
00:11:39 verbose #15604 > > #if FABLE_COMPILER_RUST && CONTRACT
00:11:39 verbose #15605 > > let v5 : string = "cfg!(windows)"
00:11:39 verbose #15606 > > let v6 : bool = Fable.Core.RustInterop.emitRustExpr () v5
00:11:39 verbose #15607 > > v6
00:11:39 verbose #15608 > > #endif
00:11:39 verbose #15609 > > #if FABLE_COMPILER_TYPESCRIPT
00:11:39 verbose #15610 > > let v7 : US0 = US0_0
00:11:39 verbose #15611 > > let v8 : US1 = US1_3(v7)
00:11:39 verbose #15612 > > let v9 : string = $"platform.is_windows / target: {v8}"
00:11:39 verbose #15613 > > let v10 : bool = failwith<bool> v9
00:11:39 verbose #15614 > > v10
00:11:39 verbose #15615 > > #endif
00:11:39 verbose #15616 > > #if FABLE_COMPILER_PYTHON
00:11:39 verbose #15617 > > let v11 : US0 = US0_0
00:11:39 verbose #15618 > > let v12 : US1 = US1_4(v11)
00:11:39 verbose #15619 > > let v13 : string = $"platform.is_windows / target: {v12}"
00:11:39 verbose #15620 > > let v14 : bool = failwith<bool> v13
00:11:39 verbose #15621 > > v14
00:11:39 verbose #15622 > > #endif
00:11:39 verbose #15623 > > #else
00:11:39 verbose #15624 > > let v15 : System.Runtime.InteropServices.OSPlatform =
00:11:39 verbose #15625 > > System.Runtime.InteropServices.OSPlatform.Windows
00:11:39 verbose #15626 > > let v16 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:11:39 verbose #15627 > > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:11:39 verbose #15628 > > let v17 : bool = v16 v15
00:11:39 verbose #15629 > > v17
00:11:39 verbose #15630 > > #endif
00:11:39 verbose #15631 > > |> fun x -> _v0 <- Some x
00:11:39 verbose #15632 > > let v18 : bool = match _v0 with Some x -> x | None -> failwith
00:11:39 verbose #15633 > > "base.run_target / _v0=None"
00:11:39 verbose #15634 > > if v18 then
00:11:39 verbose #15635 > > let v19 : string = ".exe"
00:11:39 verbose #15636 > > v19
00:11:39 verbose #15637 > > else
00:11:39 verbose #15638 > > let v20 : string = ""
00:11:39 verbose #15639 > > v20
00:11:39 verbose #15640 > > let v0 : (unit -> bool) = closure0()
00:11:39 verbose #15641 > > let is_windows () = v0 ()
00:11:39 verbose #15642 > > let v1 : (unit -> string) = closure1()
00:11:39 verbose #15643 > > let get_executable_suffix () = v1 ()
00:11:39 verbose #15644 > > ()
00:11:39 verbose #15645 > >
00:11:39 verbose #15646 > >
00:11:39 verbose #15647 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:39 verbose #15648 > > #if FABLE_COMPILER
00:11:39 verbose #15649 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]]
00:11:39 verbose #15650 > > #endif
00:11:39 verbose #15651 > > type clap_Arg = class end
00:11:39 verbose #15652 > > #if FABLE_COMPILER
00:11:39 verbose #15653 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]]
00:11:39 verbose #15654 > > #endif
00:11:39 verbose #15655 > > type clap_ArgAction = class end
00:11:39 verbose #15656 > > #if FABLE_COMPILER
00:11:39 verbose #15657 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::Command")>]]
00:11:39 verbose #15658 > > #endif
00:11:39 verbose #15659 > > type clap_Command = class end
00:11:39 verbose #15660 > > #if FABLE_COMPILER
00:11:39 verbose #15661 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgMatches")>]]
00:11:39 verbose #15662 > > #endif
00:11:39 verbose #15663 > > type clap_ArgMatches = class end
00:11:39 verbose #15664 > > #if FABLE_COMPILER
00:11:39 verbose #15665 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueRange")>]]
00:11:39 verbose #15666 > > #endif
00:11:39 verbose #15667 > > type clap_builder_ValueRange = class end
00:11:39 verbose #15668 > > #if FABLE_COMPILER
00:11:39 verbose #15669 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::ValueParser")>]]
00:11:39 verbose #15670 > > #endif
00:11:39 verbose #15671 > > type clap_builder_ValueParser = class end
00:11:39 verbose #15672 > > #if FABLE_COMPILER
00:11:39 verbose #15673 > > [[<Fable.Core.Erase; Fable.Core.Emit("clap::builder::PossibleValue")>]]
00:11:39 verbose #15674 > > #endif
00:11:39 verbose #15675 > > type clap_builder_PossibleValue = class end
00:11:39 verbose #15676 > > #if FABLE_COMPILER
00:11:39 verbose #15677 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Child")>]]
00:11:39 verbose #15678 > > #endif
00:11:39 verbose #15679 > > type std_process_Child = class end
00:11:39 verbose #15680 > > #if FABLE_COMPILER
00:11:39 verbose #15681 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStderr")>]]
00:11:39 verbose #15682 > > #endif
00:11:39 verbose #15683 > > type std_process_ChildStderr = class end
00:11:39 verbose #15684 > > #if FABLE_COMPILER
00:11:39 verbose #15685 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdout")>]]
00:11:39 verbose #15686 > > #endif
00:11:39 verbose #15687 > > type std_process_ChildStdout = class end
00:11:39 verbose #15688 > > #if FABLE_COMPILER
00:11:39 verbose #15689 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::ChildStdin")>]]
00:11:39 verbose #15690 > > #endif
00:11:39 verbose #15691 > > type std_process_ChildStdin = class end
00:11:39 verbose #15692 > > #if FABLE_COMPILER
00:11:39 verbose #15693 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::process::Command")>]]
00:11:39 verbose #15694 > > #endif
00:11:39 verbose #15695 > > type std_process_Command = class... with
00:11:39 verbose #15696 > > | US14_1(v28) -> (* Error *)
00:11:39 verbose #15697 > > US8_1(v28)
00:11:39 verbose #15698 > > | US14_0(v26) -> (* Ok *)
00:11:39 verbose #15699 > > US8_0(v26)
00:11:39 verbose #15700 > > and closure19 () (v0 : string) : Result<(string [[]]), string> =
00:11:39 verbose #15701 > > let v1 : US8 = method16(v0)
00:11:39 verbose #15702 > > match v1 with
00:11:39 verbose #15703 > > | US8_1(v4) -> (* Error *)
00:11:39 verbose #15704 > > let v5 : Result<(string [[]]), string> = Error v4
00:11:39 verbose #15705 > > v5
00:11:39 verbose #15706 > > | US8_0(v2) -> (* Ok *)
00:11:39 verbose #15707 > > let v3 : Result<(string [[]]), string> = Ok v2
00:11:39 verbose #15708 > > v3
00:11:39 verbose #15709 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:11:39 verbose #15710 > > let v1 : US0 = US0_0
00:11:39 verbose #15711 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:11:39 verbose #15712 > > let v2 : (unit -> unit) = closure2()
00:11:39 verbose #15713 > > let current_process_kill () = v2 ()
00:11:39 verbose #15714 > > let v3 : (string -> Async<struct (int32 * string)>) = closure7()
00:11:39 verbose #15715 > > let execute_async x = v3 x
00:11:39 verbose #15716 > > let v4 : (struct (System.Threading.CancellationToken option * string * (struct
00:11:39 verbose #15717 > > (string * string) [[]]) * (struct (bool * string * int32) -> Async<unit>) option
00:11:39 verbose #15718 > > * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> -> unit) option * bool *
00:11:39 verbose #15719 > > string option) -> Async<struct (int32 * string)>) = closure17()
00:11:39 verbose #15720 > > let execute_with_options_async x = v4 x
00:11:39 verbose #15721 > > let v5 : ((Heap0 -> Heap0) -> struct (System.Threading.CancellationToken option
00:11:39 verbose #15722 > > * string * (struct (string * string) [[]]) * (struct (bool * string * int32) ->
00:11:39 verbose #15723 > > Async<unit>) option * (std_sync_Arc<std_sync_Mutex<std_process_ChildStdin>> ->
00:11:39 verbose #15724 > > unit) option * bool * string option)) = closure18()
00:11:39 verbose #15725 > > let execution_options x = v5 x
00:11:39 verbose #15726 > > let v6 : (string -> Result<(string [[]]), string>) = closure19()
00:11:39 verbose #15727 > > let split_args x = v6 x
00:11:39 verbose #15728 > > ()
00:11:39 verbose #15729 > >
00:11:42 verbose #15730 > >
00:11:42 verbose #15731 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:42 verbose #15732 > > #if FABLE_COMPILER
00:11:42 verbose #15733 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]]
00:11:42 verbose #15734 > > #endif
00:11:42 verbose #15735 > > type std_fs_File = class end
00:11:42 verbose #15736 > > #if FABLE_COMPILER
00:11:42 verbose #15737 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]]
00:11:42 verbose #15738 > > #endif
00:11:42 verbose #15739 > > type std_fs_FileType = class end
00:11:42 verbose #15740 > > #if FABLE_COMPILER
00:11:42 verbose #15741 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Display")>]]
00:11:42 verbose #15742 > > #endif
00:11:42 verbose #15743 > > type std_path_Display = class end
00:11:42 verbose #15744 > > #if FABLE_COMPILER
00:11:42 verbose #15745 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>]]
00:11:42 verbose #15746 > > #endif
00:11:42 verbose #15747 > > type std_path_Path = class end
00:11:42 verbose #15748 > > #if FABLE_COMPILER
00:11:42 verbose #15749 > > [[<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>]]
00:11:42 verbose #15750 > > #endif
00:11:42 verbose #15751 > > type std_path_PathBuf = class end
00:11:42 verbose #15752 > > #if FABLE_COMPILER
00:11:42 verbose #15753 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::DirEntry")>]]
00:11:42 verbose #15754 > > #endif
00:11:42 verbose #15755 > > type async_walkdir_DirEntry = class end
00:11:42 verbose #15756 > > #if FABLE_COMPILER
00:11:42 verbose #15757 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::Filtering")>]]
00:11:42 verbose #15758 > > #endif
00:11:42 verbose #15759 > > type async_walkdir_Filtering = class end
00:11:42 verbose #15760 > > #if FABLE_COMPILER
00:11:42 verbose #15761 > > [[<Fable.Core.Erase; Fable.Core.Emit("async_walkdir::WalkDir")>]]
00:11:42 verbose #15762 > > #endif
00:11:42 verbose #15763 > > type async_walkdir_WalkDir = class end
00:11:42 verbose #15764 > > #if FABLE_COMPILER
00:11:42 verbose #15765 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:42 verbose #15766 > > #endif
00:11:42 verbose #15767 > > type core_any_Any = class end
00:11:42 verbose #15768 > > #if FABLE_COMPILER
00:11:42 verbose #15769 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:42 verbose #15770 > > #endif
00:11:42 verbose #15771 > > type core_ops_Try<'T> = class end
00:11:42 verbose #15772 > > #if FABLE_COMPILER
00:11:42 verbose #15773 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:42 verbose #15774 > > #endif
00:11:42 verbose #15775 > > type Func0<'T> = class end
00:11:42 verbose #15776 > > #if FABLE_COMPILER
00:11:42 verbose #15777 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:42 verbose #15778 > > #endif
00:11:42 verbose #15779 > > type Func0<'T, 'U> = class end
00:11:42 verbose #15780 > > #if FABLE_COMPILER
00:11:42 verbose #15781 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:42 verbose #15782 > > #endif
00:11:42 verbose #15783 > > type Box<'T> = cla...4>) = closure12()
00:11:42 verbose #15784 > > let wait_for_file_access_read x = v4 x
00:11:42 verbose #15785 > > let v5 : (string -> Async<string>) = closure13()
00:11:42 verbose #15786 > > let read_all_text_async x = v5 x
00:11:42 verbose #15787 > > let v6 : (string -> (string -> Async<bool>)) = closure14()
00:11:42 verbose #15788 > > let file_exists_content x = v6 x
00:11:42 verbose #15789 > > let v7 : (string -> (string -> Async<unit>)) = closure16()
00:11:42 verbose #15790 > > let write_all_text_async x = v7 x
00:11:42 verbose #15791 > > let v8 : (string -> (string -> Async<unit>)) = closure18()
00:11:42 verbose #15792 > > let write_all_text_exists x = v8 x
00:11:42 verbose #15793 > > let v9 : (string -> Async<int64>) = closure20()
00:11:42 verbose #15794 > > let delete_file_async x = v9 x
00:11:42 verbose #15795 > > let v10 : (string -> (string -> Async<int64>)) = closure23()
00:11:42 verbose #15796 > > let move_file_async x = v10 x
00:11:42 verbose #15797 > > let v11 : (string -> Async<string option>) = closure27()
00:11:42 verbose #15798 > > let read_all_text_retry_async x = v11 x
00:11:42 verbose #15799 > > let v12 : (unit -> string) = closure35()
00:11:42 verbose #15800 > > let create_temp_path () = v12 ()
00:11:42 verbose #15801 > > let v13 : (unit -> struct (string * System.IDisposable)) = closure36()
00:11:42 verbose #15802 > > let create_temp_dir () = v13 ()
00:11:42 verbose #15803 > > let v14 : (string -> struct (string * System.IDisposable)) = closure48()
00:11:42 verbose #15804 > > let create_temp_dir' x = v14 x
00:11:42 verbose #15805 > > let v15 : (unit -> string) = closure49()
00:11:42 verbose #15806 > > let get_source_directory () = v15 ()
00:11:42 verbose #15807 > > let v16 : (string -> (bool -> (string -> string))) = closure50()
00:11:42 verbose #15808 > > let find_parent x = v16 x
00:11:42 verbose #15809 > > let v17 : (string -> string) = closure56()
00:11:42 verbose #15810 > > let normalize_path x = v17 x
00:11:42 verbose #15811 > > let v18 : (string -> string) = closure57()
00:11:42 verbose #15812 > > let new_file_uri x = v18 x
00:11:42 verbose #15813 > > let v19 : (unit -> string) = closure58()
00:11:42 verbose #15814 > > let get_workspace_root () = v19 ()
00:11:42 verbose #15815 > > let v20 : (bool -> unit) = closure59()
00:11:42 verbose #15816 > > let init_trace_file x = v20 x
00:11:42 verbose #15817 > > let v21 : (string -> (string -> string)) = closure61()
00:11:42 verbose #15818 > > let (</>) x = v21 x
00:11:42 verbose #15819 > > ()
00:11:42 verbose #15820 > >
00:11:45 verbose #15821 > >
00:11:45 verbose #15822 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:45 verbose #15823 > > #if FABLE_COMPILER
00:11:45 verbose #15824 > > [[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]]
00:11:45 verbose #15825 > > #endif
00:11:45 verbose #15826 > > type core_any_Any = class end
00:11:45 verbose #15827 > > #if FABLE_COMPILER
00:11:45 verbose #15828 > > [[<Fable.Core.Erase; Fable.Core.Emit("_")>]]
00:11:45 verbose #15829 > > #endif
00:11:45 verbose #15830 > > type core_ops_Try<'T> = class end
00:11:45 verbose #15831 > > #if FABLE_COMPILER
00:11:45 verbose #15832 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>]]
00:11:45 verbose #15833 > > #endif
00:11:45 verbose #15834 > > type Func0<'T> = class end
00:11:45 verbose #15835 > > #if FABLE_COMPILER
00:11:45 verbose #15836 > > [[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>]]
00:11:45 verbose #15837 > > #endif
00:11:45 verbose #15838 > > type Func0<'T, 'U> = class end
00:11:45 verbose #15839 > > #if FABLE_COMPILER
00:11:45 verbose #15840 > > [[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>]]
00:11:45 verbose #15841 > > #endif
00:11:45 verbose #15842 > > type Box<'T> = class end
00:11:45 verbose #15843 > > #if FABLE_COMPILER
00:11:45 verbose #15844 > > [[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>]]
00:11:45 verbose #15845 > > #endif
00:11:45 verbose #15846 > > type Dyn<'T> = class end
00:11:45 verbose #15847 > > #if FABLE_COMPILER
00:11:45 verbose #15848 > > [[<Fable.Core.Erase; Fable.Core.Emit("Send")>]]
00:11:45 verbose #15849 > > #endif
00:11:45 verbose #15850 > > type Send<'T> = class end
00:11:45 verbose #15851 > > #if FABLE_COMPILER
00:11:45 verbose #15852 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>]]
00:11:45 verbose #15853 > > #endif
00:11:45 verbose #15854 > > type Fn<'T> = class end
00:11:45 verbose #15855 > > #if FABLE_COMPILER
00:11:45 verbose #15856 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>]]
00:11:45 verbose #15857 > > #endif
00:11:45 verbose #15858 > > type FnUnit = class end
00:11:45 verbose #15859 > > #if FABLE_COMPILER
00:11:45 verbose #15860 > > [[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>]]
00:11:45 verbose #15861 > > #endif
00:11:45 verbose #15862 > > type FnOnce<'T> = class end
00:11:45 verbose #15863 > > #if FABLE_COMPILER
00:11:45 verbose #15864 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0)")>]]
00:11:45 verbose #15865 > > #endif
00:11:45 verbose #15866 > > type ActionFn<'T> = class end
00:11:45 verbose #15867 > > #if FABLE_COMPILER
00:11:45 verbose #15868 > > [[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>]]
00:11:45 verbose #15869 > > #endif
00:11:45 verbose #15870 > > type ActionFn2<'T, 'U> = class end
00:11:45 verbose #15871 > > #if FABLE_COMPILER
00:11:45 verbose #15872 > > [[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>]]
00:11:45 verbose #15873 > > #endif
00:11:45 verbose #15874 > > type Impl<'T> = class end
00:11:45 verbose #15875 > > #if FABLE_COMPILER
00:11:45 verbose #15876 > > [[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]]
00:11:45 verbose #15877 > > #endif
00:11:45 verbose #15878 > > type Mut<'T> = class end
00:11:45 verbose #15879 > > #if FABLE_COMPILER
00:11:45 verbose #15880 > > [[<Fable.Core.Erase; Fable.C... #endif
00:11:45 verbose #15881 > > #if FABLE_COMPILER_RUST && WASM
00:11:45 verbose #15882 > > let v27 : string = @"println!(""{}"", $0)"
00:11:45 verbose #15883 > > Fable.Core.RustInterop.emitRustExpr v24 v27
00:11:45 verbose #15884 > > ()
00:11:45 verbose #15885 > > #endif
00:11:45 verbose #15886 > > #if FABLE_COMPILER_RUST && CONTRACT
00:11:45 verbose #15887 > > let v28 : string = @"println!(""{}"", $0)"
00:11:45 verbose #15888 > > Fable.Core.RustInterop.emitRustExpr v24 v28
00:11:45 verbose #15889 > > ()
00:11:45 verbose #15890 > > #endif
00:11:45 verbose #15891 > > #if FABLE_COMPILER_TYPESCRIPT
00:11:45 verbose #15892 > > System.Console.WriteLine v24
00:11:45 verbose #15893 > > ()
00:11:45 verbose #15894 > > #endif
00:11:45 verbose #15895 > > #if FABLE_COMPILER_PYTHON
00:11:45 verbose #15896 > > System.Console.WriteLine v24
00:11:45 verbose #15897 > > ()
00:11:45 verbose #15898 > > #endif
00:11:45 verbose #15899 > > #else
00:11:45 verbose #15900 > > System.Console.WriteLine v24
00:11:45 verbose #15901 > > ()
00:11:45 verbose #15902 > > #endif
00:11:45 verbose #15903 > > |> fun x -> _v25 <- Some x
00:11:45 verbose #15904 > > match _v25 with Some x -> x | None -> failwith "base.run_target
00:11:45 verbose #15905 > > _v25=None"
00:11:45 verbose #15906 > > let v29 : (string -> unit) = v8.l0
00:11:45 verbose #15907 > > v29 v24
00:11:45 verbose #15908 > > and method4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit =
00:11:45 verbose #15909 > > let v3 : (unit -> string) = closure5(v0, v1, v2)
00:11:45 verbose #15910 > > method8(v0, v3)
00:11:45 verbose #15911 > > and closure4 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : unit =
00:11:45 verbose #15912 > > method4(v0, v1, v2)
00:11:45 verbose #15913 > > and closure3 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) =
00:11:45 verbose #15914 > > closure4(v0, v1)
00:11:45 verbose #15915 > > and closure2 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> unit)) =
00:11:45 verbose #15916 > > closure3(v0)
00:11:45 verbose #15917 > > let v0 : (US0 -> struct (Mut0 * Mut1 * Mut2 * int64 option * Mut3)) = closure0()
00:11:45 verbose #15918 > > let v1 : US0 = US0_0
00:11:45 verbose #15919 > > if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
00:11:45 verbose #15920 > > let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
00:11:45 verbose #15921 > > let trace x = v2 x
00:11:45 verbose #15922 > > ()
00:11:45 verbose #15923 > >
00:11:45 verbose #15924 > >
00:11:45 verbose #15925 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:45 verbose #15926 > > module SpiralTrace =
00:11:45 verbose #15927 > > let trace x =
00:11:45 verbose #15928 > > #if !INTERACTIVE
00:11:45 verbose #15929 > > Trace.trace x
00:11:45 verbose #15930 > > #else
00:11:45 verbose #15931 > > trace x
00:11:45 verbose #15932 > > #endif
00:11:45 verbose #15933 > >
00:11:45 verbose #15934 > > type TraceLevel =
00:11:45 verbose #15935 > > #if !INTERACTIVE
00:11:45 verbose #15936 > > Trace.US0
00:11:45 verbose #15937 > > #else
00:11:45 verbose #15938 > > US0
00:11:45 verbose #15939 > > #endif
00:11:45 verbose #15940 > >
00:11:45 verbose #15941 > > module SpiralCrypto =
00:11:45 verbose #15942 > > let hash_text x =
00:11:45 verbose #15943 > > #if !INTERACTIVE
00:11:45 verbose #15944 > > Crypto.hash_text x
00:11:45 verbose #15945 > > #else
00:11:45 verbose #15946 > > hash_text x
00:11:45 verbose #15947 > > #endif
00:11:45 verbose #15948 > >
00:11:45 verbose #15949 > > let hash_to_port x =
00:11:45 verbose #15950 > > #if !INTERACTIVE
00:11:45 verbose #15951 > > Crypto.hash_to_port x
00:11:45 verbose #15952 > > #else
00:11:45 verbose #15953 > > hash_to_port x
00:11:45 verbose #15954 > > #endif
00:11:45 verbose #15955 > >
00:11:45 verbose #15956 > > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:11:45 verbose #15957 > >
00:11:45 verbose #15958 > > module SpiralAsync =
00:11:45 verbose #15959 > > let merge_cancellation_token_with_default_async x =
00:11:45 verbose #15960 > > #if !INTERACTIVE
00:11:45 verbose #15961 > > Async_.merge_cancellation_token_with_default_async x
00:11:45 verbose #15962 > > #else
00:11:45 verbose #15963 > > merge_cancellation_token_with_default_async x
00:11:45 verbose #15964 > > #endif
00:11:45 verbose #15965 > >
00:11:45 verbose #15966 > > module SpiralThreading =
00:11:45 verbose #15967 > > let new_disposable_token x =
00:11:45 verbose #15968 > > #if !INTERACTIVE
00:11:45 verbose #15969 > > Threading.new_disposable_token x
00:11:45 verbose #15970 > > #else
00:11:45 verbose #15971 > > new_disposable_token x
00:11:45 verbose #15972 > > #endif
00:11:45 verbose #15973 > >
00:11:45 verbose #15974 > > module SpiralNetworking =
00:11:45 verbose #15975 > > let test_port_open x =
00:11:45 verbose #15976 > > #if !INTERACTIVE
00:11:45 verbose #15977 > > Networking.test_port_open x
00:11:45 verbose #15978 > > #else
00:11:45 verbose #15979 > > test_port_open x
00:11:45 verbose #15980 > > #endif
00:11:45 verbose #15981 > >
00:11:45 verbose #15982 > > let test_port_open_timeout x =
00:11:45 verbose #15983 > > #if !INTERACTIVE
00:11:45 verbose #15984 > > Networking.test_port_open_timeout x
00:11:45 verbose #15985 > > #else
00:11:45 verbose #15986 > > test_port_open_timeout x
00:11:45 verbose #15987 > > #endif
00:11:45 verbose #15988 > >
00:11:45 verbose #15989 > > let wait_for_port_access x =
00:11:45 verbose #15990 > > #if !INTERACTIVE
00:11:45 verbose #15991 > > Networking.wait_for_port_access x
00:11:45 verbose #15992 > > #else
00:11:45 verbose #15993 > > wait_for_port_access x
00:11:45 verbose #15994 > > #endif
00:11:45 verbose #15995 > >
00:11:45 verbose #15996 > > let get_available_port x =
00:11:45 verbose #15997 > > #if !INTERACTIVE
00:11:45 verbose #15998 > > Networking.get_available_port x
00:11:45 verbose #15999 > > #else
00:11:45 verbose #16000 > > get_available_port x
00:11:45 verbose #16001 > > #endif
00:11:45 verbose #16002 > >
00:11:45 verbose #16003 > > module SpiralPlatform =
00:11:45 verbose #16004 > > let get_executable_suffix () =
00:11:45 verbose #16005 > > #if !INTERACTIVE
00:11:45 verbose #16006 > > Platform.g...e.trace_state
00:11:45 verbose #16007 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:11:45 verbose #16008 > > level.l0 <-
00:11:45 verbose #16009 > > match new_level with
00:11:45 verbose #16010 > > | Trace.US0_0 -> File_system.US0_0
00:11:45 verbose #16011 > > | Trace.US0_1 -> File_system.US0_1
00:11:45 verbose #16012 > > | Trace.US0_2 -> File_system.US0_2
00:11:45 verbose #16013 > > | Trace.US0_3 -> File_system.US0_3
00:11:45 verbose #16014 > > | Trace.US0_4 -> File_system.US0_4
00:11:45 verbose #16015 > > )
00:11:45 verbose #16016 > >
00:11:45 verbose #16017 > > Runtime.State.trace_state
00:11:45 verbose #16018 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:11:45 verbose #16019 > > level.l0 <-
00:11:45 verbose #16020 > > match new_level with
00:11:45 verbose #16021 > > | Trace.US0_0 -> Runtime.US0_0
00:11:45 verbose #16022 > > | Trace.US0_1 -> Runtime.US0_1
00:11:45 verbose #16023 > > | Trace.US0_2 -> Runtime.US0_2
00:11:45 verbose #16024 > > | Trace.US0_3 -> Runtime.US0_3
00:11:45 verbose #16025 > > | Trace.US0_4 -> Runtime.US0_4
00:11:45 verbose #16026 > > )
00:11:45 verbose #16027 > >
00:11:45 verbose #16028 > > Common.State.trace_state
00:11:45 verbose #16029 > > |> Option.iter (fun struct (_, _, level, _, _) ->
00:11:45 verbose #16030 > > level.l0 <-
00:11:45 verbose #16031 > > match new_level with
00:11:45 verbose #16032 > > | Trace.US0_0 -> Common.US0_0
00:11:45 verbose #16033 > > | Trace.US0_1 -> Common.US0_1
00:11:45 verbose #16034 > > | Trace.US0_2 -> Common.US0_2
00:11:45 verbose #16035 > > | Trace.US0_3 -> Common.US0_3
00:11:45 verbose #16036 > > | Trace.US0_4 -> Common.US0_4
00:11:45 verbose #16037 > > )
00:11:45 verbose #16038 > >
00:11:45 verbose #16039 > > Trace.State.trace_state
00:11:45 verbose #16040 > > #else
00:11:45 verbose #16041 > > State.trace_state
00:11:45 verbose #16042 > > #endif
00:11:45 verbose #16043 > > |> Option.iter (fun (struct (_, _, level, _, _)) ->
00:11:45 verbose #16044 > > level.l0 <- new_level
00:11:45 verbose #16045 > > )
00:11:45 verbose #16046 > >
00:11:45 verbose #16047 > > let get_trace_level () =
00:11:45 verbose #16048 > > #if !INTERACTIVE
00:11:45 verbose #16049 > > Trace.State.trace_state
00:11:45 verbose #16050 > > #else
00:11:45 verbose #16051 > > State.trace_state
00:11:45 verbose #16052 > > #endif
00:11:45 verbose #16053 > > |> Option.map (fun struct (_, _, level, _, _) ->
00:11:45 verbose #16054 > > level.l0
00:11:45 verbose #16055 > > )
00:11:45 verbose #16056 > > |> Option.defaultWith (fun () -> failwith "lib.get_trace_level
00:11:45 verbose #16057 > > trace_state=None")
00:11:45 verbose #16058 > >
00:11:45 verbose #16059 > >
00:11:45 verbose #16060 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:45 verbose #16061 > > #if !INTERACTIVE
00:11:45 verbose #16062 > > namespace Polyglot
00:11:45 verbose #16063 > > #endif
00:11:45 verbose #16064 > >
00:11:45 verbose #16065 > > module Common =
00:11:45 verbose #16066 > >
00:11:45 verbose #16067 > > #if !INTERACTIVE
00:11:45 verbose #16068 > > open Lib
00:11:45 verbose #16069 > > #endif
00:11:45 verbose #16070 > >
00:11:45 verbose #16071 > > let nl = System.Environment.NewLine
00:11:45 verbose #16072 > > let q = @""""
00:11:45 verbose #16073 > >
00:11:45 verbose #16074 > > let inline cons head tail = head :: tail
00:11:45 verbose #16075 > >
00:11:45 verbose #16076 > > /// ## memoize
00:11:45 verbose #16077 > > let inline memoize fn =
00:11:45 verbose #16078 > > let result = lazy fn ()
00:11:45 verbose #16079 > > fun () -> result.Value
00:11:45 verbose #16080 > >
00:11:45 verbose #16081 > > /// ## TraceLevel
00:11:45 verbose #16082 > > type TraceLevel =
00:11:45 verbose #16083 > > | Verbose
00:11:45 verbose #16084 > > | Debug
00:11:45 verbose #16085 > > | Info
00:11:45 verbose #16086 > > | Warning
00:11:45 verbose #16087 > > | Critical
00:11:45 verbose #16088 > >
00:11:45 verbose #16089 > > let inline _locals () = ""
00:11:45 verbose #16090 > >
00:11:45 verbose #16091 > > /// ## trace
00:11:45 verbose #16092 > > let to_trace_level = function
00:11:45 verbose #16093 > > | Verbose -> SpiralTrace.TraceLevel.US0_0
00:11:45 verbose #16094 > > | Debug -> SpiralTrace.TraceLevel.US0_1
00:11:45 verbose #16095 > > | Info -> SpiralTrace.TraceLevel.US0_2
00:11:45 verbose #16096 > > | Warning -> SpiralTrace.TraceLevel.US0_3
00:11:45 verbose #16097 > > | Critical -> SpiralTrace.TraceLevel.US0_4
00:11:45 verbose #16098 > >
00:11:45 verbose #16099 > > let trace level fn locals =
00:11:45 verbose #16100 > > let level = level |> to_trace_level
00:11:45 verbose #16101 > > SpiralTrace.trace level fn locals
00:11:45 verbose #16102 > >
00:11:45 verbose #16103 > >
00:11:45 verbose #16104 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:45 verbose #16105 > > #if !INTERACTIVE
00:11:45 verbose #16106 > > namespace Polyglot
00:11:45 verbose #16107 > > #endif
00:11:45 verbose #16108 > >
00:11:45 verbose #16109 > > module CommonFSharp =
00:11:45 verbose #16110 > >
00:11:45 verbose #16111 > > open Common
00:11:45 verbose #16112 > >
00:11:45 verbose #16113 > > /// ## getUnionCaseName
00:11:45 verbose #16114 > > let inline getUnionCaseName<'T> (x: 'T) =
00:11:45 verbose #16115 > > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:11:45 verbose #16116 > > | case, _ -> case.Name
00:11:45 verbose #16117 > >
00:11:46 verbose #16118 > >
00:11:46 verbose #16119 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:46 verbose #16120 > > #if !INTERACTIVE
00:11:46 verbose #16121 > > namespace Polyglot
00:11:46 verbose #16122 > > #endif
00:11:46 verbose #16123 > >
00:11:46 verbose #16124 > > module Async =
00:11:46 verbose #16125 > >
00:11:46 verbose #16126 > > #if !INTERACTIVE
00:11:46 verbose #16127 > > open Lib
00:11:46 verbose #16128 > > #endif
00:11:46 verbose #16129 > >
00:11:46 verbose #16130 > > open Common
00:11:46 verbose #16131 > >
00:11:46 verbose #16132 > > /// ## choice
00:11:46 verbose #16133 > > let inline choice asyncs = async {
00:11:46 verbose #16134 > > let e = Event<_> ()
00:11:46 verbose #16135 > > use cts = new System.Threading.CancellationTokenSource ()
00:11:46 verbose #16136 > > let fn =
00:11:46 verbose #16137 > > asyncs
00:11:46 verbose #16138 > > |> Seq.map (fun a -> async {
00:11:46 verbose #16139 > > let! x = a
00:11:46 verbose #16140 > > e.Trigger x
00:11:46 verbose #16141 > > })
00:11:46 verbose #16142 > > |> Async.Parallel
00:11:46 verbose #16143 > > |> Async.Ignore
00:11:46 verbose #16144 > > Async.Start (fn, cts.Token)
00:11:46 verbose #16145 > > let! result = Async.AwaitEvent e.Publish
00:11:46 verbose #16146 > > cts.Cancel ()
00:11:46 verbose #16147 > > return result
00:11:46 verbose #16148 > > }
00:11:46 verbose #16149 > >
00:11:46 verbose #16150 > > /// ## map
00:11:46 verbose #16151 > > let inline map fn a = async {
00:11:46 verbose #16152 > > let! x = a
00:11:46 verbose #16153 > > return fn x
00:11:46 verbose #16154 > > }
00:11:46 verbose #16155 > >
00:11:46 verbose #16156 > > /// ## catch
00:11:46 verbose #16157 > > let inline catch a =
00:11:46 verbose #16158 > > a
00:11:46 verbose #16159 > > |> Async.Catch
00:11:46 verbose #16160 > > |> map (function
00:11:46 verbose #16161 > > | Choice1Of2 result -> Ok result
00:11:46 verbose #16162 > > | Choice2Of2 ex -> Error ex
00:11:46 verbose #16163 > > )
00:11:46 verbose #16164 > >
00:11:46 verbose #16165 > > /// ## runWithTimeoutChoiceAsync
00:11:46 verbose #16166 > > let inline runWithTimeoutChoiceAsync (timeout : int) fn =
00:11:46 verbose #16167 > > let _locals () = $"timeout: {timeout} / {_locals ()}"
00:11:46 verbose #16168 > >
00:11:46 verbose #16169 > > let timeoutTask = async {
00:11:46 verbose #16170 > > do! Async.Sleep timeout
00:11:46 verbose #16171 > > trace Debug (fun () -> "runWithTimeoutChoiceAsync") _locals
00:11:46 verbose #16172 > > return None
00:11:46 verbose #16173 > > }
00:11:46 verbose #16174 > >
00:11:46 verbose #16175 > > let task = async {
00:11:46 verbose #16176 > > try
00:11:46 verbose #16177 > > let! result = fn
00:11:46 verbose #16178 > > return Some result
00:11:46 verbose #16179 > > with
00:11:46 verbose #16180 > > | :? System.AggregateException as ex when
00:11:46 verbose #16181 > > ex.InnerExceptions
00:11:46 verbose #16182 > > |> Seq.exists (function :? Sy... None
00:11:46 verbose #16183 > >
00:11:46 verbose #16184 > > /// ## awaitValueTask
00:11:46 verbose #16185 > > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:11:46 verbose #16186 > > task.AsTask () |> Async.AwaitTask
00:11:46 verbose #16187 > >
00:11:46 verbose #16188 > > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:11:46 verbose #16189 > > task.AsTask () |> Async.AwaitTask
00:11:46 verbose #16190 > >
00:11:46 verbose #16191 > > /// ## init
00:11:46 verbose #16192 > > let inline init x = async {
00:11:46 verbose #16193 > > return x
00:11:46 verbose #16194 > > }
00:11:46 verbose #16195 > >
00:11:46 verbose #16196 > > /// ## withCancellationToken
00:11:46 verbose #16197 > > let inline withCancellationToken (ct : System.Threading.CancellationToken)
00:11:46 verbose #16198 > > fn =
00:11:46 verbose #16199 > > Async.StartImmediateAsTask (fn, ct)
00:11:46 verbose #16200 > > |> Async.AwaitTask
00:11:46 verbose #16201 > >
00:11:46 verbose #16202 > > /// ## retryAsync
00:11:46 verbose #16203 > > let inline retryAsync retries fn =
00:11:46 verbose #16204 > > let rec loop retry lastError = async {
00:11:46 verbose #16205 > > try
00:11:46 verbose #16206 > > return!
00:11:46 verbose #16207 > > if retry <= retries
00:11:46 verbose #16208 > > then fn |> map Ok
00:11:46 verbose #16209 > > else lastError |> Error |> init
00:11:46 verbose #16210 > > with ex ->
00:11:46 verbose #16211 > > trace Debug (fun () -> $"Async.retryAsync / retry:
00:11:46 verbose #16212 > > {retry}/{retries} / ex: {ex |> SpiralSm.format_exception}") _locals
00:11:46 verbose #16213 > > do! Async.Sleep 1
00:11:46 verbose #16214 > > return! loop (retry + 1) (ex |> SpiralSm.format_exception)
00:11:46 verbose #16215 > > }
00:11:46 verbose #16216 > > loop 1 "Async.retryAsync / invalid retries / retries: {retries}"
00:11:46 verbose #16217 > >
00:11:46 verbose #16218 > > /// ## fold
00:11:46 verbose #16219 > > let fold folder state array =
00:11:46 verbose #16220 > > let rec loop acc i =
00:11:46 verbose #16221 > > async {
00:11:46 verbose #16222 > > if i < Array.length array then
00:11:46 verbose #16223 > > let! newAcc = folder acc array.[[i]]
00:11:46 verbose #16224 > > return! loop newAcc (i + 1)
00:11:46 verbose #16225 > > else
00:11:46 verbose #16226 > > return acc
00:11:46 verbose #16227 > > }
00:11:46 verbose #16228 > > loop state 0
00:11:46 verbose #16229 > >
00:11:46 verbose #16230 > >
00:11:46 verbose #16231 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:46 verbose #16232 > > #if !INTERACTIVE
00:11:46 verbose #16233 > > namespace Polyglot
00:11:46 verbose #16234 > > #endif
00:11:46 verbose #16235 > >
00:11:46 verbose #16236 > > module AsyncSeq =
00:11:46 verbose #16237 > >
00:11:46 verbose #16238 > > #if !INTERACTIVE
00:11:46 verbose #16239 > > open Lib
00:11:46 verbose #16240 > > #endif
00:11:46 verbose #16241 > >
00:11:46 verbose #16242 > > open Common
00:11:46 verbose #16243 > >
00:11:46 verbose #16244 > > /// ## subscribeEvent
00:11:46 verbose #16245 > > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:11:46 verbose #16246 > > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:11:46 verbose #16247 > > 'A>(event.AddHandler, event.RemoveHandler)
00:11:46 verbose #16248 > > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:11:46 verbose #16249 > > event.EventArgs)
00:11:46 verbose #16250 > > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:11:46 verbose #16251 > >
00:11:46 verbose #16252 > > /// ## subscribeToken
00:11:46 verbose #16253 > > let subscribeToken (token : System.Threading.CancellationToken) =
00:11:46 verbose #16254 > > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:11:46 verbose #16255 > > System.Action tcs.SetResult |> token.Register |> ignore
00:11:46 verbose #16256 > > let start = System.DateTime.Now.Ticks
00:11:46 verbose #16257 > > FSharp.Control.AsyncSeq.unfoldAsync
00:11:46 verbose #16258 > > (fun () -> async {
00:11:46 verbose #16259 > > do! tcs.Task |> Async.AwaitTask
00:11:46 verbose #16260 > > return Some (System.DateTime.Now.Ticks - start, ())
00:11:46 verbose #16261 > > })
00:11:46 verbose #16262 > > ()
00:11:46 verbose #16263 > >
00:11:46 verbose #16264 > >
00:11:46 verbose #16265 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:46 verbose #16266 > > #if !INTERACTIVE
00:11:46 verbose #16267 > > namespace Polyglot
00:11:46 verbose #16268 > > #endif
00:11:46 verbose #16269 > >
00:11:46 verbose #16270 > > module Runtime =
00:11:46 verbose #16271 > >
00:11:46 verbose #16272 > > #if !INTERACTIVE
00:11:46 verbose #16273 > > open Lib
00:11:46 verbose #16274 > > #endif
00:11:46 verbose #16275 > >
00:11:46 verbose #16276 > > open Common
00:11:46 verbose #16277 > >
00:11:46 verbose #16278 > > /// ## parseArgs
00:11:46 verbose #16279 > > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:11:46 verbose #16280 > > let assemblyName =
00:11:46 verbose #16281 > > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:11:46 verbose #16282 > > let errorHandler : Argu.IExiter =
00:11:46 verbose #16283 > > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:11:46 verbose #16284 > > List.contains assemblyName
00:11:46 verbose #16285 > > then Argu.ExceptionExiter ()
00:11:46 verbose #16286 > > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None |
00:11:46 verbose #16287 > > _ -> Some System.ConsoleColor.Red)
00:11:46 verbose #16288 > >
00:11:46 verbose #16289 > > let parser =
00:11:46 verbose #16290 > > Argu.ArgumentParser.Create<'T> (
00:11:46 verbose #16291 > > programName =
00:11:46 verbose #16292 > > $"{assemblyName}{SpiralPlatform.get_executable_suffix ()}",
00:11:46 verbose #16293 > > errorHandler = errorHandler
00:11:46 verbose #16294 > > )
00:11:46 verbose #16295 > >
00:11:46 verbose #16296 > > parser.ParseCommandLine args
00:11:46 verbose #16297 > >
00:11:46 verbose #16298 > > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:11:46 verbose #16299 > > args
00:11:46 verbose #16300 > > |> parseArgs<'T>
00:11:46 verbose #16301 > > |> fun results -> results.GetAllResults ()
00:11:46 verbose #16302 > >
00:11:46 verbose #16303 > > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:11:46 verbose #16304 > > args
00:11:46 verbose #16305 > > |> parseAllArgs<'T>
00:11:46 verbose #16306 > > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:11:46 verbose #16307 > > |> Map.ofList
00:11:46 verbose #16308 > >
00:11:47 verbose #16309 > >
00:11:47 verbose #16310 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:47 verbose #16311 > > #if !INTERACTIVE
00:11:47 verbose #16312 > > namespace Polyglot
00:11:47 verbose #16313 > > #endif
00:11:47 verbose #16314 > >
00:11:47 verbose #16315 > > module FileSystem =
00:11:47 verbose #16316 > >
00:11:47 verbose #16317 > > #if !INTERACTIVE
00:11:47 verbose #16318 > > open Lib
00:11:47 verbose #16319 > > #endif
00:11:47 verbose #16320 > >
00:11:47 verbose #16321 > > open Common
00:11:47 verbose #16322 > > open SpiralFileSystem.Operators
00:11:47 verbose #16323 > >
00:11:47 verbose #16324 > > /// ## watchDirectory
00:11:47 verbose #16325 > > [[<RequireQualifiedAccess>]]
00:11:47 verbose #16326 > > type FileSystemChangeType =
00:11:47 verbose #16327 > > | Failure
00:11:47 verbose #16328 > > | Changed
00:11:47 verbose #16329 > > | Created
00:11:47 verbose #16330 > > | Deleted
00:11:47 verbose #16331 > > | Renamed
00:11:47 verbose #16332 > >
00:11:47 verbose #16333 > > [[<RequireQualifiedAccess>]]
00:11:47 verbose #16334 > > type FileSystemChange =
00:11:47 verbose #16335 > > | Failure of exn: exn
00:11:47 verbose #16336 > > | Changed of path: string * content: string option
00:11:47 verbose #16337 > > | Created of path: string * content: string option
00:11:47 verbose #16338 > > | Deleted of path: string
00:11:47 verbose #16339 > > | Renamed of oldPath: string * (string * string option)
00:11:47 verbose #16340 > >
00:11:47 verbose #16341 > >
00:11:47 verbose #16342 > > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:11:47 verbose #16343 > > let fullPath = path |> System.IO.Path.GetFullPath
00:11:47 verbose #16344 > > let _locals () = $"filter: {filter} / {_locals ()}"
00:11:47 verbose #16345 > >
00:11:47 verbose #16346 > > let watcher =
00:11:47 verbose #16347 > > new System.IO.FileSystemWatcher (
00:11:47 verbose #16348 > > Path = fullPath,
00:11:47 verbose #16349 > > NotifyFilter = filter,
00:11:47 verbose #16350 > > EnableRaisingEvents = true,
00:11:47 verbose #16351 > > IncludeSubdirectories = true
00:11:47 verbose #16352 > > )
00:11:47 verbose #16353 > >
00:11:47 verbose #16354 > > let inline getEventPath (path : string) =
00:11:47 verbose #16355 > > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:11:47 verbose #16356 > > SpiralSm.trim_start [[| '/'; '\\' |]]
00:11:47 verbose #16357 > >
00:11:47 verbose #16358 > > let inline ticks () =
00:11:47 verbose #16359 > > System.DateTime.UtcNow.Ticks
00:11:47 verbose #16360 > >
00:11:47 verbose #16361 > > let changedStream =
00:11:47 verbose #16362 > > AsyncSeq.subscribeEvent
00:11:47 verbose #16363 > > watcher.Changed
00:11:47 verbose #16364 > > (fun event ->
00:11:47 verbose #16365 > > ticks (),
00:11:47 verbose #16366 > > [[ FileSystemChang...d_all_text_retry_async
00:11:47 verbose #16367 > > return t, FileSystemChange.Changed (path, content)
00:11:47 verbose #16368 > > | true, FileSystemChange.Created (path, _) ->
00:11:47 verbose #16369 > > do! Async.Sleep 5
00:11:47 verbose #16370 > > let! content = fullPath </> path |>
00:11:47 verbose #16371 > > SpiralFileSystem.read_all_text_retry_async
00:11:47 verbose #16372 > > return t, FileSystemChange.Created (path, content)
00:11:47 verbose #16373 > > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:11:47 verbose #16374 > > let! content = fullPath </> newPath |>
00:11:47 verbose #16375 > > SpiralFileSystem.read_all_text_retry_async
00:11:47 verbose #16376 > > return t, FileSystemChange.Renamed (oldPath, (newPath,
00:11:47 verbose #16377 > > content))
00:11:47 verbose #16378 > > | _ -> return t, event
00:11:47 verbose #16379 > > })
00:11:47 verbose #16380 > >
00:11:47 verbose #16381 > > let disposable =
00:11:47 verbose #16382 > > new_disposable (fun () ->
00:11:47 verbose #16383 > > trace Debug (fun () -> "FileSystem.watchWithFilter / Disposing
00:11:47 verbose #16384 > > watch stream") _locals
00:11:47 verbose #16385 > > watcher.EnableRaisingEvents <- false
00:11:47 verbose #16386 > > watcher.Dispose ()
00:11:47 verbose #16387 > > )
00:11:47 verbose #16388 > >
00:11:47 verbose #16389 > > stream, disposable
00:11:47 verbose #16390 > >
00:11:47 verbose #16391 > > let inline watchDirectory path =
00:11:47 verbose #16392 > > watchDirectoryWithFilter
00:11:47 verbose #16393 > > (System.IO.NotifyFilters.FileName
00:11:47 verbose #16394 > > // ||| System.IO.NotifyFilters.DirectoryName
00:11:47 verbose #16395 > > // ||| System.IO.NotifyFilters.Attributes
00:11:47 verbose #16396 > > //// ||| System.IO.NotifyFilters.Size
00:11:47 verbose #16397 > > ||| System.IO.NotifyFilters.LastWrite
00:11:47 verbose #16398 > > //// ||| System.IO.NotifyFilters.LastAccess
00:11:47 verbose #16399 > > // ||| System.IO.NotifyFilters.CreationTime
00:11:47 verbose #16400 > > // ||| System.IO.NotifyFilters.Security
00:11:47 verbose #16401 > > )
00:11:47 verbose #16402 > > path
00:11:47 verbose #16403 > >
00:11:47 verbose #16404 > >
00:11:47 verbose #16405 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:47 verbose #16406 > > #if !INTERACTIVE
00:11:47 verbose #16407 > > open Lib
00:11:47 verbose #16408 > > #endif
00:11:47 verbose #16409 > >
00:11:47 verbose #16410 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:47 verbose #16411 > > open Common
00:11:47 verbose #16412 > > open SpiralFileSystem.Operators
00:11:47 verbose #16413 > >
00:11:47 verbose #16414 > > ── fsharp - import ─────────────────────────────────────────────────────────────
00:11:47 verbose #16415 > > let workspaceRoot = SpiralFileSystem.get_workspace_root ()
00:11:47 verbose #16416 > > let tmpSpiralPath = workspaceRoot </> "target/plot"
00:11:47 verbose #16417 > > let linePlotsDataPath = tmpSpiralPath </> "line_data"
00:11:47 verbose #16418 > > let linePlotsSvgPath = tmpSpiralPath </> "line_svg"
00:11:47 verbose #16419 > >
00:11:47 verbose #16420 > > [[ tmpSpiralPath; linePlotsDataPath; linePlotsSvgPath ]]
00:11:47 verbose #16421 > > |> List.iter (fun dir -> if Directory.Exists dir |> not then
00:11:47 verbose #16422 > > Directory.CreateDirectory dir |> ignore)
00:11:47 verbose #16423 > >
00:11:47 verbose #16424 > > Formatter.Register<struct (string * string * string * struct (string * float
00:11:47 verbose #16425 > > array * float array) array)> (
00:11:47 verbose #16426 > > (fun struct (caption, x_desc, y_desc, ys) ->
00:11:47 verbose #16427 > > let json = (caption, x_desc, y_desc, ys) |> FSharp.Json.Json.serialize
00:11:47 verbose #16428 > > async {
00:11:47 verbose #16429 > > let hashHex = json |> SpiralCrypto.hash_text
00:11:47 verbose #16430 > > let svgPath = linePlotsSvgPath </> $"{hashHex}.svg"
00:11:47 verbose #16431 > >
00:11:47 verbose #16432 > > if System.IO.File.Exists svgPath |> not then
00:11:47 verbose #16433 > > do! json |> SpiralFileSystem.write_all_text_async
00:11:47 verbose #16434 > > $"{linePlotsDataPath </> hashHex}.json"
00:11:47 verbose #16435 > >
00:11:47 verbose #16436 > > let ct =
00:11:47 verbose #16437 > > Microsoft.DotNet.Interactive.KernelInvocationContext.Current.CancellationToken
00:11:47 verbose #16438 > >
00:11:47 verbose #16439 > > let oldLevel = get_trace_level ()
00:11:47 verbose #16440 > > SpiralTrace.TraceLevel.US0_2
00:11:47 verbose #16441 > > |> set_trace_level
00:11:47 verbose #16442 > > use _ = (new_disposable (fun () ->
00:11:47 verbose #16443 > > oldLevel |> set_trace_level
00:11:47 verbose #16444 > > ))
00:11:47 verbose #16445 > >
00:11:47 verbose #16446 > > let plotExePath = workspaceRoot </>
00:11:47 verbose #16447 > > $"workspace/target/release/plot{SpiralPlatform.get_executable_suffix ()}"
00:11:47 verbose #16448 > > let! exitCode, result =
00:11:47 verbose #16449 > > SpiralRuntime.execution_options (fun x ->
00:11:47 verbose #16450 > > { x with
00:11:47 verbose #16451 > > l0 = Some ct
00:11:47 verbose #16452 > > l1 = plotExePath
00:11:47 verbose #16453 > > l6 = Some workspaceRoot
00:11:47 verbose #16454 > > }
00:11:47 verbose #16455 > > )
00:11:47 verbose #16456 > > |> SpiralRuntime.execute_with_options_async
00:11:47 verbose #16457 > > if exitCode <> 0 then
00:11:47 verbose #16458 > > return failwith $"plot failed with exit code {exitCode} and
00:11:47 verbose #16459 > > output {result}"
00:11:47 verbose #16460 > > return! svgPath |> SpiralFileSystem.read_all_text_async
00:11:47 verbose #16461 > > }
00:11:47 verbose #16462 > > |> Async.runWithTimeoutStrict 10000
00:11:47 verbose #16463 > > |> Option.defaultValue json
00:11:47 verbose #16464 > > ),
00:11:47 verbose #16465 > > "text/html"
00:11:47 verbose #16466 > > )
00:11:47 verbose #16467 > >
00:11:47 verbose #16468 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:47 verbose #16469 > > //// test
00:11:47 verbose #16470 > >
00:11:47 verbose #16471 > > open testing
00:11:47 verbose #16472 > >
00:11:47 verbose #16473 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:11:47 verbose #16474 > > #r
00:11:47 verbose #16475 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:47 verbose #16476 > > otNet.Interactive.Spiral.dll"
00:11:47 verbose #16477 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:11:47 verbose #16478 > > #r
00:11:47 verbose #16479 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:11:47 verbose #16480 > > otNet.Interactive.dll"
00:11:47 verbose #16481 > > open type Microsoft.DotNet.Interactive.Kernel
00:11:49 verbose #16482 > >
00:11:49 verbose #16483 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:49 verbose #16484 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:49 verbose #16485 > > │ ## init_series │
00:11:49 verbose #16486 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16487 > >
00:11:49 verbose #16488 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16489 > > //// test
00:11:49 verbose #16490 > >
00:11:49 verbose #16491 > > inl x : a _ f64 = am'.init_series -3 3 0.01
00:11:49 verbose #16492 > > inl y = x |> am.map math.square
00:11:49 verbose #16493 > > "square", "x", "y", ;[[ "square", x, y ]]
00:11:49 verbose #16494 > >
00:11:49 verbose #16495 > > ╭─[ 209.32ms - return value ]──────────────────────────────────────────────────╮
00:11:49 verbose #16496 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:49 verbose #16497 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:49 verbose #16498 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:49 verbose #16499 > > │ stroke="none"/> │
00:11:49 verbose #16500 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:49 verbose #16501 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16502 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16503 > > │ square │
00:11:49 verbose #16504 > > │ </text> │
00:11:49 verbose #16505 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:11:49 verbose #16506 > > │ y2="75"/> │
00:11:49 verbose #16507 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:49 verbose #16508 > > │ y2="75"/> │
00:11:49 verbose #16509 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:11:49 verbose #16510 > > │ y2="75"/> │
00:11:49 verbose #16511 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:11:49 verbose #16512 > > │ y2="75"/> │
00:11:49 verbose #16513 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:11:49 verbose #16514 > > │ y2="75"/> │
00:11:49 verbose #16515 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:11:49 verbose #16516 > > │ x2="103" y2="75"/> │
00:11:49 verbose #16517 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:11:49 verbose #16518 > > │ x2="111" y2="75"/> │
00:11:49 verbose #16519 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:49 verbose #16520 > > │ x2="119" y2="75"/> │
00:11:49 verbose #16521 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:11:49 verbose #16522 > > │ x2="128" y2="75"/> │
00:11:49 verbose #16523 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:11:49 verbose #16524 > > │ x2="136" y2="75"/> │
00:11:49 verbose #16525 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:11:49 verbose #16526 > > │ x2="144" y2="75"/> │
00:11:49 verbose #16527 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:11:49 verbose #16528 > > │ x2="153" y2="75"/> │
00:11:49 verbose #16529 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:11:49 verbose #16530 > > │ x2="161" y2="75"/> │
00:11:49 verbose #16531 > > │ <line opacity="1" stroke="#... 449,326 450,324 450,323 451,322 452,321 │
00:11:49 verbose #16532 > > │ 453,320 454,319 455,317 455,316 456,315 457,314 458,313 459,311 460,310 │
00:11:49 verbose #16533 > > │ 460,309 461,308 462,306 463,305 464,304 465,303 465,301 466,300 467,299 │
00:11:49 verbose #16534 > > │ 468,297 469,296 470,295 470,293 471,292 472,291 473,289 474,288 475,287 │
00:11:49 verbose #16535 > > │ 475,285 476,284 477,283 478,281 479,280 480,278 480,277 481,276 482,274 │
00:11:49 verbose #16536 > > │ 483,273 484,271 485,270 485,268 486,267 487,265 488,264 489,262 490,261 │
00:11:49 verbose #16537 > > │ 490,259 491,258 492,256 493,255 494,253 495,252 495,250 496,249 497,247 │
00:11:49 verbose #16538 > > │ 498,246 499,244 499,242 500,241 501,239 502,238 503,236 504,234 504,233 │
00:11:49 verbose #16539 > > │ 505,231 506,229 507,228 508,226 509,224 509,223 510,221 511,219 512,218 │
00:11:49 verbose #16540 > > │ 513,216 514,214 514,213 515,211 516,209 517,207 518,206 519,204 519,202 │
00:11:49 verbose #16541 > > │ 520,200 521,199 522,197 523,195 524,193 524,191 525,190 526,188 527,186 │
00:11:49 verbose #16542 > > │ 528,184 529,182 529,180 530,179 531,177 532,175 533,173 534,171 534,169 │
00:11:49 verbose #16543 > > │ 535,167 536,165 537,164 538,162 539,160 539,158 540,156 541,154 542,152 │
00:11:49 verbose #16544 > > │ 543,150 544,148 544,146 545,144 546,142 547,140 548,138 549,136 549,134 │
00:11:49 verbose #16545 > > │ 550,132 551,130 552,128 553,126 554,124 554,122 555,120 556,117 557,115 │
00:11:49 verbose #16546 > > │ 558,113 559,111 559,109 560,107 561,105 562,103 563,101 564,98 564,96 565,94 │
00:11:49 verbose #16547 > > │ 566,92 567,90 568,88 569,85 "/> │
00:11:49 verbose #16548 > > │ <rect x="497" y="235" width="83" height="30" opacity="1" fill="none" │
00:11:49 verbose #16549 > > │ stroke="#FFFFFF"/> │
00:11:49 verbose #16550 > > │ <text x="537" y="245" dy="0.76em" text-anchor="start" │
00:11:49 verbose #16551 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16552 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16553 > > │ square │
00:11:49 verbose #16554 > > │ </text> │
00:11:49 verbose #16555 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:49 verbose #16556 > > │ points="507,250 527,250 "/> │
00:11:49 verbose #16557 > > │ </svg> │
00:11:49 verbose #16558 > > │ │
00:11:49 verbose #16559 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16560 > >
00:11:49 verbose #16561 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16562 > > //// test
00:11:49 verbose #16563 > >
00:11:49 verbose #16564 > > inl x : a _ f64 = am'.init_series -10 10 0.1
00:11:49 verbose #16565 > > inl y_sin = x |> am.map sin
00:11:49 verbose #16566 > > inl y_cos = x |> am.map cos
00:11:49 verbose #16567 > > "sin cos", "x", "y", ;[[ "sin", x, y_sin; "cos", x, y_cos ]]
00:11:49 verbose #16568 > >
00:11:49 verbose #16569 > > ╭─[ 64.90ms - return value ]───────────────────────────────────────────────────╮
00:11:49 verbose #16570 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:49 verbose #16571 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:49 verbose #16572 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:49 verbose #16573 > > │ stroke="none"/> │
00:11:49 verbose #16574 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:49 verbose #16575 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16576 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16577 > > │ sin cos │
00:11:49 verbose #16578 > > │ </text> │
00:11:49 verbose #16579 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:11:49 verbose #16580 > > │ y2="75"/> │
00:11:49 verbose #16581 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:49 verbose #16582 > > │ y2="75"/> │
00:11:49 verbose #16583 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:11:49 verbose #16584 > > │ y2="75"/> │
00:11:49 verbose #16585 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:11:49 verbose #16586 > > │ y2="75"/> │
00:11:49 verbose #16587 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:11:49 verbose #16588 > > │ x2="107" y2="75"/> │
00:11:49 verbose #16589 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:49 verbose #16590 > > │ x2="119" y2="75"/> │
00:11:49 verbose #16591 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="132" y1="424" │
00:11:49 verbose #16592 > > │ x2="132" y2="75"/> │
00:11:49 verbose #16593 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:11:49 verbose #16594 > > │ x2="144" y2="75"/> │
00:11:49 verbose #16595 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="157" y1="424" │
00:11:49 verbose #16596 > > │ x2="157" y2="75"/> │
00:11:49 verbose #16597 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:49 verbose #16598 > > │ x2="169" y2="75"/> │
00:11:49 verbose #16599 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="182" y1="424" │
00:11:49 verbose #16600 > > │ x2="182" y2="75"/> │
00:11:49 verbose #16601 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="194" y1="424" │
00:11:49 verbose #16602 > > │ x2="194" y2="75"/> │
00:11:49 verbose #16603 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="207" y1="424" │
00:11:49 verbose #16604 > > │ x2="207" y2="75"/> │
00:11:49 verbose #16605 > > │ <line opacity="1" stroke...55 282,238 284,222 287,206 289,190 292,175 │
00:11:49 verbose #16606 > > │ 294,161 297,148 299,135 302,124 304,114 307,106 309,98 312,93 314,89 317,86 │
00:11:49 verbose #16607 > > │ 319,85 321,86 324,89 326,93 329,98 331,106 334,114 336,124 339,135 341,148 │
00:11:49 verbose #16608 > > │ 344,161 346,175 349,190 351,206 354,222 356,238 359,255 361,271 364,287 │
00:11:49 verbose #16609 > > │ 366,303 369,319 371,333 374,347 376,360 379,371 381,382 384,391 386,399 │
00:11:49 verbose #16610 > > │ 389,405 391,410 394,413 396,414 399,414 401,413 404,409 406,404 409,398 │
00:11:49 verbose #16611 > > │ 411,390 414,380 416,370 419,358 421,345 424,331 426,316 429,301 431,285 │
00:11:49 verbose #16612 > > │ 434,268 436,252 439,236 441,219 444,203 446,188 449,173 451,159 454,146 │
00:11:49 verbose #16613 > > │ 456,133 459,122 461,113 464,104 466,97 469,92 471,88 474,86 476,85 479,86 │
00:11:49 verbose #16614 > > │ 481,89 484,94 486,99 489,107 491,116 494,126 496,137 499,150 501,163 504,178 │
00:11:49 verbose #16615 > > │ 506,193 509,209 511,225 514,241 516,258 519,274 521,290 524,306 526,321 │
00:11:49 verbose #16616 > > │ 529,335 531,349 534,362 536,373 539,384 541,392 544,400 546,406 549,410 │
00:11:49 verbose #16617 > > │ 551,413 554,415 556,414 559,412 561,408 564,403 566,396 569,388 "/> │
00:11:49 verbose #16618 > > │ <rect x="514" y="227" width="66" height="45" opacity="1" fill="none" │
00:11:49 verbose #16619 > > │ stroke="#FFFFFF"/> │
00:11:49 verbose #16620 > > │ <text x="554" y="237" dy="0.76em" text-anchor="start" │
00:11:49 verbose #16621 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16622 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16623 > > │ sin │
00:11:49 verbose #16624 > > │ </text> │
00:11:49 verbose #16625 > > │ <text x="554" y="252" dy="0.76em" text-anchor="start" │
00:11:49 verbose #16626 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16627 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16628 > > │ cos │
00:11:49 verbose #16629 > > │ </text> │
00:11:49 verbose #16630 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:49 verbose #16631 > > │ points="524,242 544,242 "/> │
00:11:49 verbose #16632 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:11:49 verbose #16633 > > │ points="524,257 544,257 "/> │
00:11:49 verbose #16634 > > │ </svg> │
00:11:49 verbose #16635 > > │ │
00:11:49 verbose #16636 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16637 > >
00:11:49 verbose #16638 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16639 > > //// test
00:11:49 verbose #16640 > >
00:11:49 verbose #16641 > > inl y_pos y0 vy0 ay t =
00:11:49 verbose #16642 > > y0 + vy0 * t + ay * (t |> math.square) / 2
00:11:49 verbose #16643 > >
00:11:49 verbose #16644 > > inl x : a _ f64 = am'.init_series 0 5 0.01
00:11:49 verbose #16645 > > inl y = x |> am.map (y_pos 0 20 -9.8)
00:11:49 verbose #16646 > > "projectile motion", "time (s)", "", ;[[ "height of projectile (m)", x, y ]]
00:11:49 verbose #16647 > >
00:11:49 verbose #16648 > > ╭─[ 57.08ms - return value ]───────────────────────────────────────────────────╮
00:11:49 verbose #16649 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:49 verbose #16650 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:49 verbose #16651 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:49 verbose #16652 > > │ stroke="none"/> │
00:11:49 verbose #16653 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:49 verbose #16654 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16655 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16656 > > │ projectile motion │
00:11:49 verbose #16657 > > │ </text> │
00:11:49 verbose #16658 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:49 verbose #16659 > > │ y2="75"/> │
00:11:49 verbose #16660 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:49 verbose #16661 > > │ y2="75"/> │
00:11:49 verbose #16662 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:49 verbose #16663 > > │ y2="75"/> │
00:11:49 verbose #16664 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:49 verbose #16665 > > │ y2="75"/> │
00:11:49 verbose #16666 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:49 verbose #16667 > > │ y2="75"/> │
00:11:49 verbose #16668 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:49 verbose #16669 > > │ x2="109" y2="75"/> │
00:11:49 verbose #16670 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:49 verbose #16671 > > │ x2="119" y2="75"/> │
00:11:49 verbose #16672 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:49 verbose #16673 > > │ x2="129" y2="75"/> │
00:11:49 verbose #16674 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:49 verbose #16675 > > │ x2="139" y2="75"/> │
00:11:49 verbose #16676 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:49 verbose #16677 > > │ x2="149" y2="75"/> │
00:11:49 verbose #16678 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:49 verbose #16679 > > │ x2="159" y2="75"/> │
00:11:49 verbose #16680 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:49 verbose #16681 > > │ x2="169" y2="75"/> │
00:11:49 verbose #16682 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:49 verbose #16683 > > │ x2="179" y2="75"/> │
00:11:49 verbose #16684 > > │ <line opacity="1...28,176 429,177 430,178 431,179 432,180 433,182 434,183 │
00:11:49 verbose #16685 > > │ 435,184 436,185 437,186 438,188 439,189 440,190 441,191 442,193 443,194 │
00:11:49 verbose #16686 > > │ 444,195 445,197 446,198 447,199 448,200 449,202 450,203 451,204 452,206 │
00:11:49 verbose #16687 > > │ 453,207 454,208 455,210 456,211 457,213 458,214 459,215 460,217 461,218 │
00:11:49 verbose #16688 > > │ 462,220 463,221 464,222 465,224 466,225 467,227 468,228 469,230 470,231 │
00:11:49 verbose #16689 > > │ 471,233 472,234 473,236 474,237 475,239 476,240 477,242 478,243 479,245 │
00:11:49 verbose #16690 > > │ 480,246 481,248 482,249 483,251 484,253 485,254 486,256 487,257 488,259 │
00:11:49 verbose #16691 > > │ 489,261 490,262 491,264 492,266 493,267 494,269 495,271 496,272 497,274 │
00:11:49 verbose #16692 > > │ 498,276 499,277 500,279 501,281 502,282 503,284 504,286 505,288 506,289 │
00:11:49 verbose #16693 > > │ 507,291 508,293 509,295 510,296 511,298 512,300 513,302 514,304 515,305 │
00:11:49 verbose #16694 > > │ 516,307 517,309 518,311 519,313 520,315 521,316 522,318 523,320 524,322 │
00:11:49 verbose #16695 > > │ 525,324 526,326 527,328 528,330 529,332 530,334 531,335 532,337 533,339 │
00:11:49 verbose #16696 > > │ 534,341 535,343 536,345 537,347 538,349 539,351 540,353 541,355 542,357 │
00:11:49 verbose #16697 > > │ 543,359 544,361 545,363 546,365 547,367 548,370 549,372 550,374 551,376 │
00:11:49 verbose #16698 > > │ 552,378 553,380 554,382 555,384 556,386 557,388 558,391 559,393 560,395 │
00:11:49 verbose #16699 > > │ 561,397 562,399 563,401 564,404 565,406 566,408 567,410 568,412 569,415 "/> │
00:11:49 verbose #16700 > > │ <rect x="399" y="235" width="181" height="30" opacity="1" fill="none" │
00:11:49 verbose #16701 > > │ stroke="#FFFFFF"/> │
00:11:49 verbose #16702 > > │ <text x="439" y="245" dy="0.76em" text-anchor="start" │
00:11:49 verbose #16703 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16704 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16705 > > │ height of projectile (m) │
00:11:49 verbose #16706 > > │ </text> │
00:11:49 verbose #16707 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:49 verbose #16708 > > │ points="409,250 429,250 "/> │
00:11:49 verbose #16709 > > │ </svg> │
00:11:49 verbose #16710 > > │ │
00:11:49 verbose #16711 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16712 > >
00:11:49 verbose #16713 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:49 verbose #16714 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:49 verbose #16715 > > │ ## velocity_cf │
00:11:49 verbose #16716 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16717 > >
00:11:49 verbose #16718 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16719 > > type mass = f64
00:11:49 verbose #16720 > > type time = f64
00:11:49 verbose #16721 > > type position = f64
00:11:49 verbose #16722 > > type velocity = f64
00:11:49 verbose #16723 > > type force = f64
00:11:49 verbose #16724 > >
00:11:49 verbose #16725 > > type velocity_cf = mass -> velocity -> list force -> (time -> velocity)
00:11:49 verbose #16726 > >
00:11:49 verbose #16727 > > inl velocity_cf m v0 fs =
00:11:49 verbose #16728 > > inl f_net = fs |> listm'.sum
00:11:49 verbose #16729 > > inl a0 = f_net / m
00:11:49 verbose #16730 > > inl v t = v0 + a0 * t
00:11:49 verbose #16731 > > v
00:11:49 verbose #16732 > >
00:11:49 verbose #16733 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16734 > > //// test
00:11:49 verbose #16735 > >
00:11:49 verbose #16736 > > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 0
00:11:49 verbose #16737 > > |> _assert_eq 0.6
00:11:49 verbose #16738 > >
00:11:49 verbose #16739 > > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 1
00:11:49 verbose #16740 > > |> _assert_eq 0.2
00:11:49 verbose #16741 > >
00:11:49 verbose #16742 > > ╭─[ 45.28ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:49 verbose #16743 > > │ assert_eq / actual: 0.6 / expected: 0.6 │
00:11:49 verbose #16744 > > │ assert_eq / actual: 0.2 / expected: 0.2 │
00:11:49 verbose #16745 > > │ │
00:11:49 verbose #16746 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16747 > >
00:11:49 verbose #16748 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16749 > > //// test
00:11:49 verbose #16750 > >
00:11:49 verbose #16751 > > inl x = am'.init_series 0 4 0.1
00:11:49 verbose #16752 > > inl y = x |> am.map (velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]])
00:11:49 verbose #16753 > > "car on an air track", "time (s)", "", ;[[ "velocity of car (m/s)", x, y ]]
00:11:49 verbose #16754 > >
00:11:49 verbose #16755 > > ╭─[ 63.09ms - return value ]───────────────────────────────────────────────────╮
00:11:49 verbose #16756 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:49 verbose #16757 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:49 verbose #16758 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:49 verbose #16759 > > │ stroke="none"/> │
00:11:49 verbose #16760 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:49 verbose #16761 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16762 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16763 > > │ car on an air track │
00:11:49 verbose #16764 > > │ </text> │
00:11:49 verbose #16765 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:11:49 verbose #16766 > > │ y2="75"/> │
00:11:49 verbose #16767 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:49 verbose #16768 > > │ y2="75"/> │
00:11:49 verbose #16769 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:11:49 verbose #16770 > > │ y2="75"/> │
00:11:49 verbose #16771 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:11:49 verbose #16772 > > │ y2="75"/> │
00:11:49 verbose #16773 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:11:49 verbose #16774 > > │ x2="107" y2="75"/> │
00:11:49 verbose #16775 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:49 verbose #16776 > > │ x2="119" y2="75"/> │
00:11:49 verbose #16777 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="132" y1="424" │
00:11:49 verbose #16778 > > │ x2="132" y2="75"/> │
00:11:49 verbose #16779 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:11:49 verbose #16780 > > │ x2="144" y2="75"/> │
00:11:49 verbose #16781 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="157" y1="424" │
00:11:49 verbose #16782 > > │ x2="157" y2="75"/> │
00:11:49 verbose #16783 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:49 verbose #16784 > > │ x2="169" y2="75"/> │
00:11:49 verbose #16785 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="182" y1="424" │
00:11:49 verbose #16786 > > │ x2="182" y2="75"/> │
00:11:49 verbose #16787 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="194" y1="424" │
00:11:49 verbose #16788 > > │ x2="194" y2="75"/> │
00:11:49 verbose #16789 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="207" y1="424" │
00:11:49 verbose #16790 > > │ x2="207" y2="75"/> │
00:11:49 verbose #16791 > > │ <line opacit...85,209 590,209 "/> │
00:11:49 verbose #16792 > > │ <text x="617" y="168" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:11:49 verbose #16793 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:49 verbose #16794 > > │ 0.2 │
00:11:49 verbose #16795 > > │ </text> │
00:11:49 verbose #16796 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:49 verbose #16797 > > │ points="585,168 590,168 "/> │
00:11:49 verbose #16798 > > │ <text x="617" y="127" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:11:49 verbose #16799 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:49 verbose #16800 > > │ 0.4 │
00:11:49 verbose #16801 > > │ </text> │
00:11:49 verbose #16802 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:49 verbose #16803 > > │ points="585,127 590,127 "/> │
00:11:49 verbose #16804 > > │ <text x="617" y="85" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:11:49 verbose #16805 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:49 verbose #16806 > > │ 0.6 │
00:11:49 verbose #16807 > > │ </text> │
00:11:49 verbose #16808 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:49 verbose #16809 > > │ points="585,85 590,85 "/> │
00:11:49 verbose #16810 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:49 verbose #16811 > > │ points="69,85 82,94 94,102 107,110 119,118 132,127 144,135 157,143 169,151 │
00:11:49 verbose #16812 > > │ 182,159 194,168 207,176 219,184 232,192 244,201 257,209 269,217 282,225 │
00:11:49 verbose #16813 > > │ 294,234 307,242 319,250 331,258 344,266 356,275 369,283 381,291 394,299 │
00:11:49 verbose #16814 > > │ 406,308 419,316 431,324 444,332 456,341 469,349 481,357 494,365 506,373 │
00:11:49 verbose #16815 > > │ 519,382 531,390 544,398 556,406 569,415 "/> │
00:11:49 verbose #16816 > > │ <rect x="415" y="235" width="165" height="30" opacity="1" fill="none" │
00:11:49 verbose #16817 > > │ stroke="#FFFFFF"/> │
00:11:49 verbose #16818 > > │ <text x="455" y="245" dy="0.76em" text-anchor="start" │
00:11:49 verbose #16819 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:49 verbose #16820 > > │ fill="#FFFFFF"> │
00:11:49 verbose #16821 > > │ velocity of car (m/s) │
00:11:49 verbose #16822 > > │ </text> │
00:11:49 verbose #16823 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:49 verbose #16824 > > │ points="425,250 445,250 "/> │
00:11:49 verbose #16825 > > │ </svg> │
00:11:49 verbose #16826 > > │ │
00:11:49 verbose #16827 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16828 > >
00:11:49 verbose #16829 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:49 verbose #16830 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:49 verbose #16831 > > │ ## derivative │
00:11:49 verbose #16832 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16833 > >
00:11:49 verbose #16834 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16835 > > type derivative = (f64 -> f64) -> f64 -> f64
00:11:49 verbose #16836 > >
00:11:49 verbose #16837 > > inl derivative dt : derivative =
00:11:49 verbose #16838 > > fun x t =>
00:11:49 verbose #16839 > > (x (t + dt / 2) - x (t - dt / 2)) / dt
00:11:49 verbose #16840 > >
00:11:49 verbose #16841 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16842 > > //// test
00:11:49 verbose #16843 > >
00:11:49 verbose #16844 > > derivative 1 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16845 > > |> _assert_approx_eq None 0.25
00:11:49 verbose #16846 > >
00:11:49 verbose #16847 > > derivative 0.001 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16848 > > |> _assert_approx_eq None 0.0000002499998827953931
00:11:49 verbose #16849 > >
00:11:49 verbose #16850 > > derivative 0.000001 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16851 > > |> _assert_approx_eq None 0.000000000001000088900582341
00:11:49 verbose #16852 > >
00:11:49 verbose #16853 > > derivative 0.000000001 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16854 > > |> _assert_approx_eq None 0.00000008274037099909037
00:11:49 verbose #16855 > >
00:11:49 verbose #16856 > > derivative 0.000000000001 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16857 > > |> _assert_approx_eq None 0.00008890058234101161
00:11:49 verbose #16858 > >
00:11:49 verbose #16859 > > derivative 0.000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16860 > > |> _assert_approx_eq None -0.0007992778373592246
00:11:49 verbose #16861 > >
00:11:49 verbose #16862 > > derivative 0.000000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:11:49 verbose #16863 > > |> _assert_approx_eq None -1
00:11:49 verbose #16864 > >
00:11:49 verbose #16865 > > ╭─[ 44.40ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:49 verbose #16866 > > │ assert_approx_eq / actual: 0.25 / expected: 0.25 │
00:11:49 verbose #16867 > > │ assert_approx_eq / actual: 2.499998828e-07 / expected: 2.499998828e-07 │
00:11:49 verbose #16868 > > │ assert_approx_eq / actual: 1.000088901e-12 / expected: 1.000088901e-12 │
00:11:49 verbose #16869 > > │ assert_approx_eq / actual: 8.2740371e-08 / expected: 8.2740371e-08 │
00:11:49 verbose #16870 > > │ assert_approx_eq / actual: 8.890058234e-05 / expected: 8.890058234e-05 │
00:11:49 verbose #16871 > > │ assert_approx_eq / actual: -0.0007992778374 / expected: -0.0007992778374 │
00:11:49 verbose #16872 > > │ assert_approx_eq / actual: -1.0 / expected: -1.0 │
00:11:49 verbose #16873 > > │ │
00:11:49 verbose #16874 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16875 > >
00:11:49 verbose #16876 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:49 verbose #16877 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:49 verbose #16878 > > │ ## integration │
00:11:49 verbose #16879 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16880 > >
00:11:49 verbose #16881 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16882 > > type integration = (f64 -> f64) -> f64 -> f64 -> f64
00:11:49 verbose #16883 > >
00:11:49 verbose #16884 > > inl integral dt : integration =
00:11:49 verbose #16885 > > fun f a b =>
00:11:49 verbose #16886 > > inl rec loop t y =
00:11:49 verbose #16887 > > if t < b
00:11:49 verbose #16888 > > then loop (t + dt) (y + f t * dt)
00:11:49 verbose #16889 > > else t, y
00:11:49 verbose #16890 > > loop (a + dt / 2) 0
00:11:49 verbose #16891 > > |> snd
00:11:49 verbose #16892 > >
00:11:49 verbose #16893 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16894 > > //// test
00:11:49 verbose #16895 > >
00:11:49 verbose #16896 > > integral 0.01 math.square 0 1
00:11:49 verbose #16897 > > |> _assert_approx_eq None 0.33332500000000004
00:11:49 verbose #16898 > >
00:11:49 verbose #16899 > > ╭─[ 26.23ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:49 verbose #16900 > > │ assert_approx_eq / actual: 0.333325 / expected: 0.333325 │
00:11:49 verbose #16901 > > │ │
00:11:49 verbose #16902 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:49 verbose #16903 > >
00:11:49 verbose #16904 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16905 > > inl integral' dt : integration =
00:11:49 verbose #16906 > > fun f a b =>
00:11:49 verbose #16907 > > listm'.init_series (a + dt / 2) (b - dt / 2) dt
00:11:49 verbose #16908 > > |> listm.map (f >> (*) dt)
00:11:49 verbose #16909 > > |> listm'.sum
00:11:49 verbose #16910 > >
00:11:49 verbose #16911 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:49 verbose #16912 > > //// test
00:11:49 verbose #16913 > >
00:11:49 verbose #16914 > > integral' 0.1 math.square 0 1
00:11:49 verbose #16915 > > |> _assert_approx_eq None (integral 0.1 math.square 0 1)
00:11:50 verbose #16916 > >
00:11:50 verbose #16917 > > ╭─[ 36.88ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:50 verbose #16918 > > │ assert_approx_eq / actual: 0.3325 / expected: 0.3325 │
00:11:50 verbose #16919 > > │ │
00:11:50 verbose #16920 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #16921 > >
00:11:50 verbose #16922 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #16923 > > inl integral'' dt : integration =
00:11:50 verbose #16924 > > fun f a b =>
00:11:50 verbose #16925 > > am'.init_series (a + dt / 2) (b - dt / 2) dt
00:11:50 verbose #16926 > > |> am.map (f >> (*) dt)
00:11:50 verbose #16927 > > |> am'.sum
00:11:50 verbose #16928 > >
00:11:50 verbose #16929 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #16930 > > //// test
00:11:50 verbose #16931 > >
00:11:50 verbose #16932 > > integral'' 0.01 math.square 0 1
00:11:50 verbose #16933 > > |> _assert_approx_eq None (integral 0.01 math.square 0 1)
00:11:50 verbose #16934 > >
00:11:50 verbose #16935 > > ╭─[ 68.34ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:50 verbose #16936 > > │ assert_approx_eq / actual: 0.333325 / expected: 0.333325 │
00:11:50 verbose #16937 > > │ │
00:11:50 verbose #16938 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #16939 > >
00:11:50 verbose #16940 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:50 verbose #16941 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:50 verbose #16942 > > │ ## anti_derivative │
00:11:50 verbose #16943 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #16944 > >
00:11:50 verbose #16945 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #16946 > > inl anti_derivative dt v0 a t =
00:11:50 verbose #16947 > > v0 + integral' dt a 0 t
00:11:50 verbose #16948 > >
00:11:50 verbose #16949 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:50 verbose #16950 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:50 verbose #16951 > > │ ## velocity_ft │
00:11:50 verbose #16952 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #16953 > >
00:11:50 verbose #16954 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #16955 > > type velocity_ft = mass -> velocity -> list (time -> force) -> (time ->
00:11:50 verbose #16956 > > velocity)
00:11:50 verbose #16957 > >
00:11:50 verbose #16958 > > inl velocity_ft dt : velocity_ft =
00:11:50 verbose #16959 > > fun m v0 fs =>
00:11:50 verbose #16960 > > inl f_net t = fs |> listm.map (fun f => f t) |> listm'.sum
00:11:50 verbose #16961 > > inl a t = f_net t / m
00:11:50 verbose #16962 > > anti_derivative dt v0 a
00:11:50 verbose #16963 > >
00:11:50 verbose #16964 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:50 verbose #16965 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:50 verbose #16966 > > │ ## position_ft │
00:11:50 verbose #16967 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #16968 > >
00:11:50 verbose #16969 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #16970 > > type position_ft = mass -> position -> velocity -> list (time -> force) -> (time
00:11:50 verbose #16971 > > -> position)
00:11:50 verbose #16972 > >
00:11:50 verbose #16973 > > inl position_ft dt : position_ft =
00:11:50 verbose #16974 > > fun m x0 v0 fs =>
00:11:50 verbose #16975 > > velocity_ft dt m v0 fs
00:11:50 verbose #16976 > > |> anti_derivative dt x0
00:11:50 verbose #16977 > >
00:11:50 verbose #16978 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #16979 > > //// test
00:11:50 verbose #16980 > >
00:11:50 verbose #16981 > > inl pedal_coast (t : time) : force =
00:11:50 verbose #16982 > > inl t_cycle = 20
00:11:50 verbose #16983 > > inl n_complete : i32 = t / t_cycle |> conv
00:11:50 verbose #16984 > > inl remainder = t - conv n_complete * t_cycle
00:11:50 verbose #16985 > > if remainder > 0 && remainder < 10
00:11:50 verbose #16986 > > then 10
00:11:50 verbose #16987 > > else 0
00:11:50 verbose #16988 > >
00:11:50 verbose #16989 > > inl x = am'.init_series -5 45 0.1
00:11:50 verbose #16990 > > inl y = x |> am.map pedal_coast
00:11:50 verbose #16991 > > "child pedaling then coasting", "time (s)", "", ;[[ "force on bike (N)", x, y ]]
00:11:50 verbose #16992 > >
00:11:50 verbose #16993 > > ╭─[ 60.63ms - return value ]───────────────────────────────────────────────────╮
00:11:50 verbose #16994 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:50 verbose #16995 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:50 verbose #16996 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:50 verbose #16997 > > │ stroke="none"/> │
00:11:50 verbose #16998 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:50 verbose #16999 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17000 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17001 > > │ child pedaling then coasting │
00:11:50 verbose #17002 > > │ </text> │
00:11:50 verbose #17003 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:50 verbose #17004 > > │ y2="75"/> │
00:11:50 verbose #17005 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:50 verbose #17006 > > │ y2="75"/> │
00:11:50 verbose #17007 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:50 verbose #17008 > > │ y2="75"/> │
00:11:50 verbose #17009 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:50 verbose #17010 > > │ y2="75"/> │
00:11:50 verbose #17011 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:50 verbose #17012 > > │ y2="75"/> │
00:11:50 verbose #17013 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:50 verbose #17014 > > │ x2="109" y2="75"/> │
00:11:50 verbose #17015 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:50 verbose #17016 > > │ x2="119" y2="75"/> │
00:11:50 verbose #17017 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:50 verbose #17018 > > │ x2="129" y2="75"/> │
00:11:50 verbose #17019 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:50 verbose #17020 > > │ x2="139" y2="75"/> │
00:11:50 verbose #17021 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:50 verbose #17022 > > │ x2="149" y2="75"/> │
00:11:50 verbose #17023 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:50 verbose #17024 > > │ x2="159" y2="75"/> │
00:11:50 verbose #17025 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:50 verbose #17026 > > │ x2="169" y2="75"/> │
00:11:50 verbose #17027 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:50 verbose #17028 > > │ x2="179" y2="75"/> │
00:11:50 verbose #17029 > > │ <line...421,415 422,415 423,415 424,415 425,415 426,415 427,415 428,415 │
00:11:50 verbose #17030 > > │ 429,415 430,415 431,415 432,415 433,415 434,415 435,415 436,415 437,415 │
00:11:50 verbose #17031 > > │ 438,415 439,415 440,415 441,415 442,415 443,415 444,415 445,415 446,415 │
00:11:50 verbose #17032 > > │ 447,415 448,415 449,415 450,415 451,415 452,415 453,415 454,415 455,415 │
00:11:50 verbose #17033 > > │ 456,415 457,415 458,415 459,415 460,415 461,415 462,415 463,415 464,415 │
00:11:50 verbose #17034 > > │ 465,415 466,415 467,415 468,415 469,415 470,415 471,415 472,415 473,415 │
00:11:50 verbose #17035 > > │ 474,415 475,415 476,415 477,415 478,415 479,415 480,415 481,415 482,415 │
00:11:50 verbose #17036 > > │ 483,415 484,415 485,415 486,415 487,415 488,415 489,415 490,415 491,415 │
00:11:50 verbose #17037 > > │ 492,415 493,415 494,415 495,415 496,415 497,415 498,415 499,415 500,415 │
00:11:50 verbose #17038 > > │ 501,415 502,415 503,415 504,415 505,415 506,415 507,415 508,415 509,415 │
00:11:50 verbose #17039 > > │ 510,415 511,415 512,415 513,415 514,415 515,415 516,415 517,415 518,415 │
00:11:50 verbose #17040 > > │ 519,415 520,85 521,85 522,85 523,85 524,85 525,85 526,85 527,85 528,85 │
00:11:50 verbose #17041 > > │ 529,85 530,85 531,85 532,85 533,85 534,85 535,85 536,85 537,85 538,85 539,85 │
00:11:50 verbose #17042 > > │ 540,85 541,85 542,85 543,85 544,85 545,85 546,85 547,85 548,85 549,85 550,85 │
00:11:50 verbose #17043 > > │ 551,85 552,85 553,85 554,85 555,85 556,85 557,85 558,85 559,85 560,85 561,85 │
00:11:50 verbose #17044 > > │ 562,85 563,85 564,85 565,85 566,85 567,85 568,85 569,85 "/> │
00:11:50 verbose #17045 > > │ <rect x="437" y="235" width="143" height="30" opacity="1" fill="none" │
00:11:50 verbose #17046 > > │ stroke="#FFFFFF"/> │
00:11:50 verbose #17047 > > │ <text x="477" y="245" dy="0.76em" text-anchor="start" │
00:11:50 verbose #17048 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17049 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17050 > > │ force on bike (N) │
00:11:50 verbose #17051 > > │ </text> │
00:11:50 verbose #17052 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:50 verbose #17053 > > │ points="447,250 467,250 "/> │
00:11:50 verbose #17054 > > │ </svg> │
00:11:50 verbose #17055 > > │ │
00:11:50 verbose #17056 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #17057 > >
00:11:50 verbose #17058 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #17059 > > //// test
00:11:50 verbose #17060 > >
00:11:50 verbose #17061 > > inl x = am'.init_series -5 45 1
00:11:50 verbose #17062 > > inl y = x |> am.map (position_ft 0.1f64 20 0 0 [[ pedal_coast ]])
00:11:50 verbose #17063 > > "child pedaling then coasting", "time (s)", "", ;[[ "position of bike (m)", x, y
00:11:50 verbose #17064 > > ]]
00:11:50 verbose #17065 > >
00:11:50 verbose #17066 > > ╭─[ 344.21ms - return value ]──────────────────────────────────────────────────╮
00:11:50 verbose #17067 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:50 verbose #17068 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:50 verbose #17069 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:50 verbose #17070 > > │ stroke="none"/> │
00:11:50 verbose #17071 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:50 verbose #17072 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17073 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17074 > > │ child pedaling then coasting │
00:11:50 verbose #17075 > > │ </text> │
00:11:50 verbose #17076 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:50 verbose #17077 > > │ y2="75"/> │
00:11:50 verbose #17078 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:50 verbose #17079 > > │ y2="75"/> │
00:11:50 verbose #17080 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:50 verbose #17081 > > │ y2="75"/> │
00:11:50 verbose #17082 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:50 verbose #17083 > > │ y2="75"/> │
00:11:50 verbose #17084 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:50 verbose #17085 > > │ y2="75"/> │
00:11:50 verbose #17086 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:50 verbose #17087 > > │ x2="109" y2="75"/> │
00:11:50 verbose #17088 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:50 verbose #17089 > > │ x2="119" y2="75"/> │
00:11:50 verbose #17090 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:50 verbose #17091 > > │ x2="129" y2="75"/> │
00:11:50 verbose #17092 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:50 verbose #17093 > > │ x2="139" y2="75"/> │
00:11:50 verbose #17094 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:50 verbose #17095 > > │ x2="149" y2="75"/> │
00:11:50 verbose #17096 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:50 verbose #17097 > > │ x2="159" y2="75"/> │
00:11:50 verbose #17098 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:50 verbose #17099 > > │ x2="169" y2="75"/> │
00:11:50 verbose #17100 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:50 verbose #17101 > > │ x2="179" y2="75"/> │
00:11:50 verbose #17102 > > │ <line...serif" font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:50 verbose #17103 > > │ 200.0 │
00:11:50 verbose #17104 > > │ </text> │
00:11:50 verbose #17105 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:50 verbose #17106 > > │ points="585,201 590,201 "/> │
00:11:50 verbose #17107 > > │ <text x="595" y="147" dy="0.5ex" text-anchor="start" │
00:11:50 verbose #17108 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17109 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17110 > > │ 250.0 │
00:11:50 verbose #17111 > > │ </text> │
00:11:50 verbose #17112 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:50 verbose #17113 > > │ points="585,147 590,147 "/> │
00:11:50 verbose #17114 > > │ <text x="595" y="94" dy="0.5ex" text-anchor="start" font-family="sans-serif" │
00:11:50 verbose #17115 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:50 verbose #17116 > > │ 300.0 │
00:11:50 verbose #17117 > > │ </text> │
00:11:50 verbose #17118 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:50 verbose #17119 > > │ points="585,94 590,94 "/> │
00:11:50 verbose #17120 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:50 verbose #17121 > > │ points="69,415 79,415 89,415 99,415 109,415 119,415 129,414 139,413 149,412 │
00:11:50 verbose #17122 > > │ 159,410 169,408 179,405 189,401 199,397 209,393 219,388 229,382 239,377 │
00:11:50 verbose #17123 > > │ 249,372 259,366 269,361 279,356 289,350 299,345 309,340 319,334 329,329 │
00:11:50 verbose #17124 > > │ 339,322 349,316 359,308 369,301 379,292 389,284 399,274 409,264 419,254 │
00:11:50 verbose #17125 > > │ 429,243 439,232 449,221 459,210 469,199 479,189 489,178 499,167 509,157 │
00:11:50 verbose #17126 > > │ 519,146 529,135 539,123 549,111 559,99 569,85 "/> │
00:11:50 verbose #17127 > > │ <rect x="421" y="235" width="159" height="30" opacity="1" fill="none" │
00:11:50 verbose #17128 > > │ stroke="#FFFFFF"/> │
00:11:50 verbose #17129 > > │ <text x="461" y="245" dy="0.76em" text-anchor="start" │
00:11:50 verbose #17130 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17131 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17132 > > │ position of bike (m) │
00:11:50 verbose #17133 > > │ </text> │
00:11:50 verbose #17134 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:50 verbose #17135 > > │ points="431,250 451,250 "/> │
00:11:50 verbose #17136 > > │ </svg> │
00:11:50 verbose #17137 > > │ │
00:11:50 verbose #17138 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #17139 > >
00:11:50 verbose #17140 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:50 verbose #17141 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:50 verbose #17142 > > │ ## velocity_fv │
00:11:50 verbose #17143 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #17144 > >
00:11:50 verbose #17145 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #17146 > > inl newton_second_v m fs v0 =
00:11:50 verbose #17147 > > fs |> listm.map (fun f => f v0) |> listm'.sum |> fun x => x / m
00:11:50 verbose #17148 > >
00:11:50 verbose #17149 > > inl update_velocity dt m fs v0 =
00:11:50 verbose #17150 > > v0 + newton_second_v m fs v0 * dt
00:11:50 verbose #17151 > >
00:11:50 verbose #17152 > > inl velocity_fv dt m v0 fs t =
00:11:50 verbose #17153 > > stream.iterate (update_velocity dt m fs) v0
00:11:50 verbose #17154 > > |> stream.try_item (t / dt |> math.round |> abs)
00:11:50 verbose #17155 > > |> optionm'.default_value 0
00:11:50 verbose #17156 > >
00:11:50 verbose #17157 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #17158 > > inl f_air drag rho area v =
00:11:50 verbose #17159 > > -drag * rho * area * abs v * v / 2
00:11:50 verbose #17160 > >
00:11:50 verbose #17161 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #17162 > > //// test
00:11:50 verbose #17163 > >
00:11:50 verbose #17164 > > inl x = am'.init_series 0 60 0.5
00:11:50 verbose #17165 > > inl y = x |> am.map (velocity_fv 1 70 0f64 [[ fun _ => 100; f_air 2 1.225 0.6
00:11:50 verbose #17166 > > ]])
00:11:50 verbose #17167 > > "bike velocity", "time (s)", "", ;[[ "velocity of bike (m/s)", x, y ]]
00:11:50 verbose #17168 > >
00:11:50 verbose #17169 > > ╭─[ 266.05ms - return value ]──────────────────────────────────────────────────╮
00:11:50 verbose #17170 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:50 verbose #17171 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:50 verbose #17172 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:50 verbose #17173 > > │ stroke="none"/> │
00:11:50 verbose #17174 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:50 verbose #17175 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17176 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17177 > > │ bike velocity │
00:11:50 verbose #17178 > > │ </text> │
00:11:50 verbose #17179 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:11:50 verbose #17180 > > │ y2="75"/> │
00:11:50 verbose #17181 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:50 verbose #17182 > > │ y2="75"/> │
00:11:50 verbose #17183 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:11:50 verbose #17184 > > │ y2="75"/> │
00:11:50 verbose #17185 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:11:50 verbose #17186 > > │ y2="75"/> │
00:11:50 verbose #17187 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:11:50 verbose #17188 > > │ y2="75"/> │
00:11:50 verbose #17189 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:11:50 verbose #17190 > > │ x2="103" y2="75"/> │
00:11:50 verbose #17191 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:11:50 verbose #17192 > > │ x2="111" y2="75"/> │
00:11:50 verbose #17193 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:50 verbose #17194 > > │ x2="119" y2="75"/> │
00:11:50 verbose #17195 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:11:50 verbose #17196 > > │ x2="128" y2="75"/> │
00:11:50 verbose #17197 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:11:50 verbose #17198 > > │ x2="136" y2="75"/> │
00:11:50 verbose #17199 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:11:50 verbose #17200 > > │ x2="144" y2="75"/> │
00:11:50 verbose #17201 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:11:50 verbose #17202 > > │ x2="153" y2="75"/> │
00:11:50 verbose #17203 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:11:50 verbose #17204 > > │ x2="161" y2="75"/> │
00:11:50 verbose #17205 > > │ <line opacity="1" st...t" font-family="sans-serif" │
00:11:50 verbose #17206 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:50 verbose #17207 > > │ 12.0 │
00:11:50 verbose #17208 > > │ </text> │
00:11:50 verbose #17209 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:50 verbose #17210 > > │ points="585,76 590,76 "/> │
00:11:50 verbose #17211 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:50 verbose #17212 > > │ points="69,415 74,415 78,374 82,335 86,335 90,335 94,297 99,261 103,261 │
00:11:50 verbose #17213 > > │ 107,261 111,230 115,202 119,202 124,202 128,179 132,159 136,159 140,159 │
00:11:50 verbose #17214 > > │ 144,143 148,130 153,130 157,130 161,120 165,112 169,112 173,112 178,106 │
00:11:50 verbose #17215 > > │ 182,101 186,101 190,101 194,97 198,94 203,94 207,94 211,92 215,91 219,91 │
00:11:50 verbose #17216 > > │ 223,91 228,89 232,88 236,88 240,88 244,88 248,87 252,87 257,87 261,87 265,86 │
00:11:50 verbose #17217 > > │ 269,86 273,86 277,86 282,86 286,86 290,86 294,86 298,86 302,86 307,86 311,86 │
00:11:50 verbose #17218 > > │ 315,86 319,86 323,86 327,86 331,85 336,85 340,85 344,85 348,85 352,85 356,85 │
00:11:50 verbose #17219 > > │ 361,85 365,85 369,85 373,85 377,85 381,85 386,85 390,85 394,85 398,85 402,85 │
00:11:50 verbose #17220 > > │ 406,85 410,85 415,85 419,85 423,85 427,85 431,85 435,85 440,85 444,85 448,85 │
00:11:50 verbose #17221 > > │ 452,85 456,85 460,85 465,85 469,85 473,85 477,85 481,85 485,85 490,85 494,85 │
00:11:50 verbose #17222 > > │ 498,85 502,85 506,85 510,85 514,85 519,85 523,85 527,85 531,85 535,85 539,85 │
00:11:50 verbose #17223 > > │ 544,85 548,85 552,85 556,85 560,85 564,85 569,85 "/> │
00:11:50 verbose #17224 > > │ <rect x="410" y="235" width="170" height="30" opacity="1" fill="none" │
00:11:50 verbose #17225 > > │ stroke="#FFFFFF"/> │
00:11:50 verbose #17226 > > │ <text x="450" y="245" dy="0.76em" text-anchor="start" │
00:11:50 verbose #17227 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:50 verbose #17228 > > │ fill="#FFFFFF"> │
00:11:50 verbose #17229 > > │ velocity of bike (m/s) │
00:11:50 verbose #17230 > > │ </text> │
00:11:50 verbose #17231 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:50 verbose #17232 > > │ points="420,250 440,250 "/> │
00:11:50 verbose #17233 > > │ </svg> │
00:11:50 verbose #17234 > > │ │
00:11:50 verbose #17235 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #17236 > >
00:11:50 verbose #17237 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:50 verbose #17238 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:50 verbose #17239 > > │ ## velocity_ftv │
00:11:50 verbose #17240 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:50 verbose #17241 > >
00:11:50 verbose #17242 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #17243 > > inl newton_second_tv m fs (t, v0) =
00:11:50 verbose #17244 > > inl f_net = fs |> listm.map (fun f => f (t, v0)) |> listm'.sum
00:11:50 verbose #17245 > > inl acc = f_net / m
00:11:50 verbose #17246 > > 1, acc
00:11:50 verbose #17247 > >
00:11:50 verbose #17248 > > inl update_tv dt m fs (t, v0) =
00:11:50 verbose #17249 > > inl dtdt, dvdt = newton_second_tv m fs (t, v0)
00:11:50 verbose #17250 > > t + dtdt * dt, v0 + dvdt * dt
00:11:50 verbose #17251 > >
00:11:50 verbose #17252 > > inl velocity_ftv dt m tv0 fs t =
00:11:50 verbose #17253 > > stream.iterate (join update_tv dt m fs) tv0
00:11:50 verbose #17254 > > |> stream.try_item (t / dt |> math.round |> abs)
00:11:50 verbose #17255 > > |> optionm.map snd
00:11:50 verbose #17256 > > |> optionm'.default_value 0
00:11:50 verbose #17257 > >
00:11:50 verbose #17258 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:50 verbose #17259 > > //// test
00:11:50 verbose #17260 > >
00:11:50 verbose #17261 > > inl x = am'.init_series 0 100 0.1
00:11:50 verbose #17262 > > inl y =
00:11:50 verbose #17263 > > x
00:11:50 verbose #17264 > > |> am.map (
00:11:50 verbose #17265 > > velocity_ftv 0.1 20 (dyn (0, 0)) [[ fun (t, _) => pedal_coast t; fun (_,
00:11:50 verbose #17266 > > v) => f_air 2 1.225 0.5 v ]]
00:11:50 verbose #17267 > > )
00:11:50 verbose #17268 > > "pedaling and coasting with air", "time (s)", "", ;[[ "velocity of bike (m/s)",
00:11:50 verbose #17269 > > x, y ]]
00:11:51 verbose #17270 > >
00:11:51 verbose #17271 > > ╭─[ 281.99ms - return value ]──────────────────────────────────────────────────╮
00:11:51 verbose #17272 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:51 verbose #17273 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:51 verbose #17274 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:51 verbose #17275 > > │ stroke="none"/> │
00:11:51 verbose #17276 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:51 verbose #17277 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:51 verbose #17278 > > │ fill="#FFFFFF"> │
00:11:51 verbose #17279 > > │ pedaling and coasting with air │
00:11:51 verbose #17280 > > │ </text> │
00:11:51 verbose #17281 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:51 verbose #17282 > > │ y2="75"/> │
00:11:51 verbose #17283 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:51 verbose #17284 > > │ y2="75"/> │
00:11:51 verbose #17285 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:51 verbose #17286 > > │ y2="75"/> │
00:11:51 verbose #17287 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:51 verbose #17288 > > │ y2="75"/> │
00:11:51 verbose #17289 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:51 verbose #17290 > > │ y2="75"/> │
00:11:51 verbose #17291 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:51 verbose #17292 > > │ x2="109" y2="75"/> │
00:11:51 verbose #17293 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:51 verbose #17294 > > │ x2="119" y2="75"/> │
00:11:51 verbose #17295 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:51 verbose #17296 > > │ x2="129" y2="75"/> │
00:11:51 verbose #17297 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:51 verbose #17298 > > │ x2="139" y2="75"/> │
00:11:51 verbose #17299 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:51 verbose #17300 > > │ x2="149" y2="75"/> │
00:11:51 verbose #17301 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:51 verbose #17302 > > │ x2="159" y2="75"/> │
00:11:51 verbose #17303 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:51 verbose #17304 > > │ x2="169" y2="75"/> │
00:11:51 verbose #17305 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:51 verbose #17306 > > │ x2="179" y2="75"/> │
00:11:51 verbose #17307 > > │ <li... 497,128 497,126 498,125 498,123 499,122 499,121 500,119 500,118 │
00:11:51 verbose #17308 > > │ 501,117 501,116 502,114 502,113 503,112 503,111 504,110 504,109 505,108 │
00:11:51 verbose #17309 > > │ 505,107 506,106 506,105 507,104 507,103 508,102 508,101 509,100 509,99 │
00:11:51 verbose #17310 > > │ 510,98 510,98 511,97 511,96 512,95 512,94 513,94 513,93 514,92 514,92 515,91 │
00:11:51 verbose #17311 > > │ 515,90 516,90 516,89 517,88 517,88 518,87 518,87 519,86 519,85 520,89 520,93 │
00:11:51 verbose #17312 > > │ 521,97 521,100 522,104 522,107 523,110 523,114 524,117 524,120 525,123 │
00:11:51 verbose #17313 > > │ 525,126 526,129 526,132 527,135 527,137 528,140 528,143 529,145 529,148 │
00:11:51 verbose #17314 > > │ 530,150 530,153 531,155 531,158 532,160 532,162 533,165 533,167 534,169 │
00:11:51 verbose #17315 > > │ 534,171 535,173 535,175 536,177 536,179 537,181 537,183 538,185 538,187 │
00:11:51 verbose #17316 > > │ 539,189 539,190 540,192 540,194 541,196 541,197 542,199 542,201 543,202 │
00:11:51 verbose #17317 > > │ 543,204 544,205 544,207 545,208 545,210 546,211 546,213 547,214 547,216 │
00:11:51 verbose #17318 > > │ 548,217 548,219 549,220 549,221 550,223 550,224 551,225 551,226 552,228 │
00:11:51 verbose #17319 > > │ 552,229 553,230 553,231 554,232 554,234 555,235 555,236 556,237 556,238 │
00:11:51 verbose #17320 > > │ 557,239 557,240 558,241 558,242 559,243 559,245 560,246 560,247 561,248 │
00:11:51 verbose #17321 > > │ 561,249 562,249 562,250 563,251 563,252 564,253 564,254 565,255 565,256 │
00:11:51 verbose #17322 > > │ 566,257 566,258 567,259 567,259 568,260 568,261 569,262 "/> │
00:11:51 verbose #17323 > > │ <rect x="410" y="235" width="170" height="30" opacity="1" fill="none" │
00:11:51 verbose #17324 > > │ stroke="#FFFFFF"/> │
00:11:51 verbose #17325 > > │ <text x="450" y="245" dy="0.76em" text-anchor="start" │
00:11:51 verbose #17326 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:51 verbose #17327 > > │ fill="#FFFFFF"> │
00:11:51 verbose #17328 > > │ velocity of bike (m/s) │
00:11:51 verbose #17329 > > │ </text> │
00:11:51 verbose #17330 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:51 verbose #17331 > > │ points="420,250 440,250 "/> │
00:11:51 verbose #17332 > > │ </svg> │
00:11:51 verbose #17333 > > │ │
00:11:51 verbose #17334 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17335 > >
00:11:51 verbose #17336 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17337 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17338 > > │ ## velocity_ftxv │
00:11:51 verbose #17339 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17340 > >
00:11:51 verbose #17341 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17342 > > nominal state_1d = time * position * velocity
00:11:51 verbose #17343 > > nominal rrr = f64 * f64 * f64
00:11:51 verbose #17344 > >
00:11:51 verbose #17345 > > inl newton_second_1d m fs (state_1d (t, x0, v0)) =
00:11:51 verbose #17346 > > inl f_net = fs |> listm.map (fun f => f (state_1d (t, x0, v0))) |>
00:11:51 verbose #17347 > > listm'.sum
00:11:51 verbose #17348 > > inl acc = f_net / m
00:11:51 verbose #17349 > > rrr (1f64, v0, acc)
00:11:51 verbose #17350 > >
00:11:51 verbose #17351 > > inl euler_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:11:51 verbose #17352 > > inl (rrr (_, _, dvdt)) = deriv t
00:11:51 verbose #17353 > > inl t1 = t0 + dt
00:11:51 verbose #17354 > > inl x1 = x0 + v0 * dt
00:11:51 verbose #17355 > > inl v1 = v0 + dvdt * dt
00:11:51 verbose #17356 > > state_1d (t1, x1, v1)
00:11:51 verbose #17357 > >
00:11:51 verbose #17358 > > inl update_txv dt m fs =
00:11:51 verbose #17359 > > newton_second_1d m fs |> euler_1d dt
00:11:51 verbose #17360 > >
00:11:51 verbose #17361 > > inl states_txv dt m txv0 fs =
00:11:51 verbose #17362 > > seq.iterate_ (update_txv dt m fs) txv0
00:11:51 verbose #17363 > >
00:11:51 verbose #17364 > > inl velocity_1d sts t =
00:11:51 verbose #17365 > > inl (state_1d (t0, _, _)) = sts 0
00:11:51 verbose #17366 > > inl (state_1d (t1, _, _)) = sts 1
00:11:51 verbose #17367 > > inl dt = t1 - t0
00:11:51 verbose #17368 > > inl num_steps = t / dt |> math.round |> abs
00:11:51 verbose #17369 > > inl (state_1d (_, _, v0)) = sts num_steps
00:11:51 verbose #17370 > > v0
00:11:51 verbose #17371 > >
00:11:51 verbose #17372 > > inl velocity_ftxv dt m txv0 fs =
00:11:51 verbose #17373 > > states_txv dt m txv0 fs |> velocity_1d
00:11:51 verbose #17374 > >
00:11:51 verbose #17375 > > inl position_1d sts t =
00:11:51 verbose #17376 > > inl (state_1d (t0, _, _)) = sts 0
00:11:51 verbose #17377 > > inl (state_1d (t1, _, _)) = sts 1
00:11:51 verbose #17378 > > inl dt = t1 - t0
00:11:51 verbose #17379 > > inl num_steps = t / dt |> math.round |> abs
00:11:51 verbose #17380 > > inl (state_1d (_, x0, _)) = sts num_steps
00:11:51 verbose #17381 > > x0
00:11:51 verbose #17382 > >
00:11:51 verbose #17383 > > inl position_ftxv dt m txv0 fs =
00:11:51 verbose #17384 > > states_txv dt m txv0 fs |> position_1d
00:11:51 verbose #17385 > >
00:11:51 verbose #17386 > > inl spring_force k (state_1d (_, x0, _)) =
00:11:51 verbose #17387 > > -k * x0
00:11:51 verbose #17388 > >
00:11:51 verbose #17389 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17390 > > //// test
00:11:51 verbose #17391 > >
00:11:51 verbose #17392 > > inl damped_ho_forces () =
00:11:51 verbose #17393 > > [[
00:11:51 verbose #17394 > > spring_force 0.8
00:11:51 verbose #17395 > > fun (state_1d (_, _, v0)) => f_air 2 1.225 (pi * math.square 0.02) v0
00:11:51 verbose #17396 > > fun _ => -0.0027 * 9.80665
00:11:51 verbose #17397 > > ]]
00:11:51 verbose #17398 > >
00:11:51 verbose #17399 > > inl damped_ho_states () =
00:11:51 verbose #17400 > > states_txv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ())
00:11:51 verbose #17401 > >
00:11:51 verbose #17402 > > inl pingpong_position t =
00:11:51 verbose #17403 > > position_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:11:51 verbose #17404 > >
00:11:51 verbose #17405 > > inl x : a _ f64 = am'.init_series 0 3 0.01
00:11:51 verbose #17406 > > inl y = x |> am.map pingpong_position
00:11:51 verbose #17407 > > "ping pong ball on a slinky", "time (s)", "", ;[[ "position (m)", x, y ]]
00:11:51 verbose #17408 > >
00:11:51 verbose #17409 > > ╭─[ 85.63ms - return value ]───────────────────────────────────────────────────╮
00:11:51 verbose #17410 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:51 verbose #17411 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:51 verbose #17412 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:51 verbose #17413 > > │ stroke="none"/> │
00:11:51 verbose #17414 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:51 verbose #17415 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:51 verbose #17416 > > │ fill="#FFFFFF"> │
00:11:51 verbose #17417 > > │ ping pong ball on a slinky │
00:11:51 verbose #17418 > > │ </text> │
00:11:51 verbose #17419 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:11:51 verbose #17420 > > │ y2="75"/> │
00:11:51 verbose #17421 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:51 verbose #17422 > > │ y2="75"/> │
00:11:51 verbose #17423 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:11:51 verbose #17424 > > │ y2="75"/> │
00:11:51 verbose #17425 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:11:51 verbose #17426 > > │ y2="75"/> │
00:11:51 verbose #17427 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:11:51 verbose #17428 > > │ y2="75"/> │
00:11:51 verbose #17429 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:11:51 verbose #17430 > > │ x2="103" y2="75"/> │
00:11:51 verbose #17431 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:11:51 verbose #17432 > > │ x2="111" y2="75"/> │
00:11:51 verbose #17433 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:51 verbose #17434 > > │ x2="119" y2="75"/> │
00:11:51 verbose #17435 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:11:51 verbose #17436 > > │ x2="128" y2="75"/> │
00:11:51 verbose #17437 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:11:51 verbose #17438 > > │ x2="136" y2="75"/> │
00:11:51 verbose #17439 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:11:51 verbose #17440 > > │ x2="144" y2="75"/> │
00:11:51 verbose #17441 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:11:51 verbose #17442 > > │ x2="153" y2="75"/> │
00:11:51 verbose #17443 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:11:51 verbose #17444 > > │ x2="161" y2="75"/> │
00:11:51 verbose #17445 > > │ <line o...88 332,305 334,321 336,334 337,346 339,354 341,360 342,363 344,362 │
00:11:51 verbose #17446 > > │ 346,359 347,352 349,342 351,330 352,316 354,300 356,283 357,265 359,247 │
00:11:51 verbose #17447 > > │ 361,229 362,212 364,197 366,183 367,172 369,163 371,156 372,153 374,153 │
00:11:51 verbose #17448 > > │ 376,156 377,161 379,170 381,181 382,194 384,209 386,226 387,243 389,260 │
00:11:51 verbose #17449 > > │ 391,277 392,294 394,309 396,323 397,335 399,344 401,351 402,355 404,356 │
00:11:51 verbose #17450 > > │ 406,354 407,349 409,341 410,331 412,319 414,305 415,289 417,273 419,256 │
00:11:51 verbose #17451 > > │ 420,239 422,223 424,208 425,194 427,182 429,172 430,165 432,161 434,159 │
00:11:51 verbose #17452 > > │ 435,160 437,164 439,171 440,180 442,192 444,205 445,220 447,235 449,252 │
00:11:51 verbose #17453 > > │ 450,268 452,284 454,299 455,313 457,325 459,335 460,342 462,347 464,350 │
00:11:51 verbose #17454 > > │ 465,349 467,346 469,340 470,332 472,321 474,309 475,295 477,280 479,264 │
00:11:51 verbose #17455 > > │ 480,248 482,232 484,217 485,204 487,192 489,181 490,173 492,168 494,165 │
00:11:51 verbose #17456 > > │ 495,165 497,167 499,172 500,180 502,189 504,201 505,215 507,229 509,244 │
00:11:51 verbose #17457 > > │ 510,260 512,275 514,290 515,303 517,316 519,326 520,335 522,341 524,344 │
00:11:51 verbose #17458 > > │ 525,345 527,343 529,339 530,332 532,323 534,312 535,300 537,286 539,271 │
00:11:51 verbose #17459 > > │ 540,256 542,241 544,226 545,213 547,200 549,190 550,181 552,175 554,171 │
00:11:51 verbose #17460 > > │ 555,169 557,170 559,174 560,180 562,188 564,198 565,210 567,223 569,238 "/> │
00:11:51 verbose #17461 > > │ <rect x="464" y="235" width="116" height="30" opacity="1" fill="none" │
00:11:51 verbose #17462 > > │ stroke="#FFFFFF"/> │
00:11:51 verbose #17463 > > │ <text x="504" y="245" dy="0.76em" text-anchor="start" │
00:11:51 verbose #17464 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:51 verbose #17465 > > │ fill="#FFFFFF"> │
00:11:51 verbose #17466 > > │ position (m) │
00:11:51 verbose #17467 > > │ </text> │
00:11:51 verbose #17468 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:51 verbose #17469 > > │ points="474,250 494,250 "/> │
00:11:51 verbose #17470 > > │ </svg> │
00:11:51 verbose #17471 > > │ │
00:11:51 verbose #17472 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17473 > >
00:11:51 verbose #17474 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17475 > > //// test
00:11:51 verbose #17476 > >
00:11:51 verbose #17477 > > inl pingpong_velocity t =
00:11:51 verbose #17478 > > velocity_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:11:51 verbose #17479 > >
00:11:51 verbose #17480 > > inl x = am'.init_series 0 3 0.01
00:11:51 verbose #17481 > > inl y = x |> am.map pingpong_velocity
00:11:51 verbose #17482 > > "ping pong ball on a slinky", "time (s)", "", ;[[ "velocity (m/s)", x, y ]]
00:11:51 verbose #17483 > >
00:11:51 verbose #17484 > > ╭─[ 82.96ms - return value ]───────────────────────────────────────────────────╮
00:11:51 verbose #17485 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:51 verbose #17486 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:51 verbose #17487 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:51 verbose #17488 > > │ stroke="none"/> │
00:11:51 verbose #17489 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:51 verbose #17490 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:51 verbose #17491 > > │ fill="#FFFFFF"> │
00:11:51 verbose #17492 > > │ ping pong ball on a slinky │
00:11:51 verbose #17493 > > │ </text> │
00:11:51 verbose #17494 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:11:51 verbose #17495 > > │ y2="75"/> │
00:11:51 verbose #17496 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:51 verbose #17497 > > │ y2="75"/> │
00:11:51 verbose #17498 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:11:51 verbose #17499 > > │ y2="75"/> │
00:11:51 verbose #17500 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:11:51 verbose #17501 > > │ y2="75"/> │
00:11:51 verbose #17502 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:11:51 verbose #17503 > > │ y2="75"/> │
00:11:51 verbose #17504 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="103" y1="424" │
00:11:51 verbose #17505 > > │ x2="103" y2="75"/> │
00:11:51 verbose #17506 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="111" y1="424" │
00:11:51 verbose #17507 > > │ x2="111" y2="75"/> │
00:11:51 verbose #17508 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:51 verbose #17509 > > │ x2="119" y2="75"/> │
00:11:51 verbose #17510 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="128" y1="424" │
00:11:51 verbose #17511 > > │ x2="128" y2="75"/> │
00:11:51 verbose #17512 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="136" y1="424" │
00:11:51 verbose #17513 > > │ x2="136" y2="75"/> │
00:11:51 verbose #17514 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="144" y1="424" │
00:11:51 verbose #17515 > > │ x2="144" y2="75"/> │
00:11:51 verbose #17516 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:11:51 verbose #17517 > > │ x2="153" y2="75"/> │
00:11:51 verbose #17518 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="161" y1="424" │
00:11:51 verbose #17519 > > │ x2="161" y2="75"/> │
00:11:51 verbose #17520 > > │ <line o... 332,343 334,332 336,319 337,304 339,287 341,269 342,250 344,231 │
00:11:51 verbose #17521 > > │ 346,212 347,195 349,178 351,164 352,153 354,144 356,138 357,136 359,136 │
00:11:51 verbose #17522 > > │ 361,140 362,147 364,157 366,169 367,183 369,199 371,216 372,234 374,253 │
00:11:51 verbose #17523 > > │ 376,271 377,288 379,304 381,318 382,330 384,339 386,346 387,349 389,349 │
00:11:51 verbose #17524 > > │ 391,346 392,340 394,332 396,321 397,307 399,292 401,276 402,258 404,241 │
00:11:51 verbose #17525 > > │ 406,223 407,206 409,190 410,176 412,164 414,154 415,148 417,144 419,143 │
00:11:51 verbose #17526 > > │ 420,145 422,150 424,158 425,168 427,180 429,194 430,210 432,227 434,244 │
00:11:51 verbose #17527 > > │ 435,261 437,278 439,293 440,307 442,320 444,330 445,337 447,341 449,343 │
00:11:51 verbose #17528 > > │ 450,342 452,338 454,331 455,322 457,310 459,297 460,282 462,266 464,249 │
00:11:51 verbose #17529 > > │ 465,233 467,216 469,201 470,187 472,174 474,164 475,156 477,151 479,149 │
00:11:51 verbose #17530 > > │ 480,149 482,153 484,159 485,167 487,178 489,190 490,204 492,220 494,236 │
00:11:51 verbose #17531 > > │ 495,252 497,268 499,283 500,297 502,310 504,320 505,329 507,334 509,337 │
00:11:51 verbose #17532 > > │ 510,337 512,335 514,330 515,322 517,312 519,300 520,287 522,272 524,257 │
00:11:51 verbose #17533 > > │ 525,241 527,226 529,210 530,196 532,184 534,173 535,164 537,158 539,154 │
00:11:51 verbose #17534 > > │ 540,154 542,155 544,160 545,167 547,176 549,187 550,199 552,213 554,228 │
00:11:51 verbose #17535 > > │ 555,244 557,259 559,274 560,288 562,301 564,312 565,321 567,327 569,332 "/> │
00:11:51 verbose #17536 > > │ <rect x="454" y="235" width="126" height="30" opacity="1" fill="none" │
00:11:51 verbose #17537 > > │ stroke="#FFFFFF"/> │
00:11:51 verbose #17538 > > │ <text x="494" y="245" dy="0.76em" text-anchor="start" │
00:11:51 verbose #17539 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:51 verbose #17540 > > │ fill="#FFFFFF"> │
00:11:51 verbose #17541 > > │ velocity (m/s) │
00:11:51 verbose #17542 > > │ </text> │
00:11:51 verbose #17543 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:51 verbose #17544 > > │ points="464,250 484,250 "/> │
00:11:51 verbose #17545 > > │ </svg> │
00:11:51 verbose #17546 > > │ │
00:11:51 verbose #17547 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17548 > >
00:11:51 verbose #17549 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17550 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17551 > > │ ## shift │
00:11:51 verbose #17552 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17553 > >
00:11:51 verbose #17554 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17555 > > type update_function s = s -> s
00:11:51 verbose #17556 > >
00:11:51 verbose #17557 > > type differential_equation s ds = s -> ds
00:11:51 verbose #17558 > >
00:11:51 verbose #17559 > > type numerical_method s ds = differential_equation s ds -> update_function s
00:11:51 verbose #17560 > >
00:11:51 verbose #17561 > >
00:11:51 verbose #17562 > > inl solver method =
00:11:51 verbose #17563 > > method >> seq.iterate
00:11:51 verbose #17564 > > inl solver' method =
00:11:51 verbose #17565 > > method >> seq.iterate'
00:11:51 verbose #17566 > > inl solver_ method =
00:11:51 verbose #17567 > > method >> seq.iterate_
00:11:51 verbose #17568 > >
00:11:51 verbose #17569 > >
00:11:51 verbose #17570 > > inl euler_cromer_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:11:51 verbose #17571 > > inl (rrr (_, _, dvdt)) = deriv t
00:11:51 verbose #17572 > > inl t1 = t0 + dt
00:11:51 verbose #17573 > > inl v1 = v0 + dvdt * dt
00:11:51 verbose #17574 > > inl x1 = x0 + v1 * dt
00:11:51 verbose #17575 > > state_1d (t1, x1, v1)
00:11:51 verbose #17576 > >
00:11:51 verbose #17577 > > inl update_txv_ec dt m fs =
00:11:51 verbose #17578 > > euler_cromer_1d dt (newton_second_1d m fs)
00:11:51 verbose #17579 > >
00:11:51 verbose #17580 > > prototype (+++) ds : ds -> ds -> ds
00:11:51 verbose #17581 > > prototype scale ds : f64 -> ds -> ds
00:11:51 verbose #17582 > >
00:11:51 verbose #17583 > > instance (+++) rrr = fun (rrr (dtdt0, dxdt0, dvdt0)) (rrr (dtdt1, dxdt1, dvdt1))
00:11:51 verbose #17584 > > =>
00:11:51 verbose #17585 > > rrr (dtdt0 + dtdt1, dxdt0 + dxdt1, dvdt0 + dvdt1)
00:11:51 verbose #17586 > >
00:11:51 verbose #17587 > > instance scale rrr = fun w (rrr (dtdt0, dxdt0, dvdt0)) =>
00:11:51 verbose #17588 > > rrr (w * dtdt0, w * dxdt0, w * dvdt0)
00:11:51 verbose #17589 > >
00:11:51 verbose #17590 > > prototype shift s : forall ds. f64 -> ds -> s -> s
00:11:51 verbose #17591 > >
00:11:51 verbose #17592 > > instance shift state_1d = fun dt ds (state_1d (t, x, v)) =>
00:11:51 verbose #17593 > > inl dtdt, dxdt, dvdt =
00:11:51 verbose #17594 > > real
00:11:51 verbose #17595 > > match ds with
00:11:51 verbose #17596 > > | rrr x => x
00:11:51 verbose #17597 > > | state_1d x => x
00:11:51 verbose #17598 > > state_1d (t + dtdt * dt, x + dxdt * dt, v + dvdt * dt)
00:11:51 verbose #17599 > >
00:11:51 verbose #17600 > > inl euler dt deriv st0 =
00:11:51 verbose #17601 > > shift dt (deriv st0) st0
00:11:51 verbose #17602 > >
00:11:51 verbose #17603 > > inl runge_kutta_4 dt deriv st0 =
00:11:51 verbose #17604 > > inl m0 = deriv st0
00:11:51 verbose #17605 > > inl m1 = deriv (shift (dt / 2) m0 st0)
00:11:51 verbose #17606 > > inl m2 = deriv (shift (dt / 2) m1 st0)
00:11:51 verbose #17607 > > inl m3 = deriv (shift dt m2 st0)
00:11:51 verbose #17608 > > shift (dt / 6) (m0 +++ m1 +++ m1 +++ m2 +++ m2 +++ m3) st0
00:11:51 verbose #17609 > >
00:11:51 verbose #17610 > > inl exponential (_, x0, v0) =
00:11:51 verbose #17611 > > 1f64, v0, x0
00:11:51 verbose #17612 > >
00:11:51 verbose #17613 > > inl of_state_1d (state_1d (t, x, v)) =
00:11:51 verbose #17614 > > t, x, v
00:11:51 verbose #17615 > >
00:11:51 verbose #17616 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17617 > > //// test
00:11:51 verbose #17618 > >
00:11:51 verbose #17619 > > solver (euler 0.01) (of_state_1d >> exponential >> state_1d) (state_1d (0, 1,
00:11:51 verbose #17620 > > 1)) 800i32
00:11:51 verbose #17621 > > |> _assert_eq (state_1d (7.999999999999874, 2864.8311229272326,
00:11:51 verbose #17622 > > 2864.8311229272326))
00:11:51 verbose #17623 > >
00:11:51 verbose #17624 > > solver (euler_cromer_1d 0.1) (of_state_1d >> exponential >> rrr) (state_1d (0,
00:11:51 verbose #17625 > > 1, 1)) 80i32
00:11:51 verbose #17626 > > |> _assert_eq (state_1d (7.999999999999988, 3043.379244966009,
00:11:51 verbose #17627 > > 2895.0121485099035))
00:11:51 verbose #17628 > >
00:11:51 verbose #17629 > > solver (runge_kutta_4 1) (of_state_1d >> exponential >> rrr) (state_1d (0, 1,
00:11:51 verbose #17630 > > 1)) 8i32
00:11:51 verbose #17631 > > |> _assert_eq (state_1d (8.0, 2894.789038540849, 2894.789038540849))
00:11:51 verbose #17632 > >
00:11:51 verbose #17633 > > ╭─[ 43.10ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17634 > > │ assert_eq / actual: struct (8.0, 2864.831123, 2864.831123) / expected: │
00:11:51 verbose #17635 > > │ struct (8.0, 2864.831123, 2864.831123) │
00:11:51 verbose #17636 > > │ assert_eq / actual: struct (8.0, 3043.379245, 2895.012149) / expected: │
00:11:51 verbose #17637 > > │ struct (8.0, 3043.379245, 2895.012149) │
00:11:51 verbose #17638 > > │ assert_eq / actual: struct (8.0, 2894.789039, 2894.789039) / expected: │
00:11:51 verbose #17639 > > │ struct (8.0, 2894.789039, 2894.789039) │
00:11:51 verbose #17640 > > │ │
00:11:51 verbose #17641 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17642 > >
00:11:51 verbose #17643 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17644 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17645 > > │ ## vec │
00:11:51 verbose #17646 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17647 > >
00:11:51 verbose #17648 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17649 > > type vec =
00:11:51 verbose #17650 > > {
00:11:51 verbose #17651 > > x : f64
00:11:51 verbose #17652 > > y : f64
00:11:51 verbose #17653 > > z : f64
00:11:51 verbose #17654 > > }
00:11:51 verbose #17655 > >
00:11:51 verbose #17656 > > inl vec x y z : vec =
00:11:51 verbose #17657 > > { x y z }
00:11:51 verbose #17658 > >
00:11:51 verbose #17659 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17660 > > //// test
00:11:51 verbose #17661 > >
00:11:51 verbose #17662 > > vec 1 2 3 .z
00:11:51 verbose #17663 > > |> _assert_eq 3
00:11:51 verbose #17664 > >
00:11:51 verbose #17665 > > ╭─[ 30.48ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17666 > > │ assert_eq / actual: 3.0 / expected: 3.0 │
00:11:51 verbose #17667 > > │ │
00:11:51 verbose #17668 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17669 > >
00:11:51 verbose #17670 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17671 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17672 > > │ ### consts │
00:11:51 verbose #17673 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17674 > >
00:11:51 verbose #17675 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17676 > > inl i_hat () = vec 1 0 0
00:11:51 verbose #17677 > > inl j_hat () = vec 0 1 0
00:11:51 verbose #17678 > > inl k_hat () = vec 0 0 1
00:11:51 verbose #17679 > > inl zero_vec () = vec 0 0 0
00:11:51 verbose #17680 > >
00:11:51 verbose #17681 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17682 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17683 > > │ ### ^+^ │
00:11:51 verbose #17684 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17685 > >
00:11:51 verbose #17686 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17687 > > inl (^+^) (a : vec) (b : vec) =
00:11:51 verbose #17688 > > vec (a.x + b.x) (a.y + b.y) (a.z + b.z)
00:11:51 verbose #17689 > >
00:11:51 verbose #17690 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17691 > > //// test
00:11:51 verbose #17692 > >
00:11:51 verbose #17693 > > vec 1 2 3 ^+^ vec 4 5 6
00:11:51 verbose #17694 > > |> _assert_eq (vec 5 7 9)
00:11:51 verbose #17695 > >
00:11:51 verbose #17696 > > ╭─[ 31.10ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17697 > > │ assert_eq / actual: struct (5.0, 7.0, 9.0) / expected: struct (5.0, 7.0, │
00:11:51 verbose #17698 > > │ 9.0) │
00:11:51 verbose #17699 > > │ │
00:11:51 verbose #17700 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17701 > >
00:11:51 verbose #17702 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17703 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17704 > > │ ### sum_vec │
00:11:51 verbose #17705 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17706 > >
00:11:51 verbose #17707 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17708 > > inl sum_vec vs =
00:11:51 verbose #17709 > > vs |> listm.fold (^+^) (zero_vec ())
00:11:51 verbose #17710 > >
00:11:51 verbose #17711 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17712 > > //// test
00:11:51 verbose #17713 > >
00:11:51 verbose #17714 > > [[ vec 1 2 3; vec 4 5 6 ]]
00:11:51 verbose #17715 > > |> sum_vec
00:11:51 verbose #17716 > > |> _assert_eq (vec 5 7 9)
00:11:51 verbose #17717 > >
00:11:51 verbose #17718 > > ╭─[ 26.13ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17719 > > │ assert_eq / actual: struct (5.0, 7.0, 9.0) / expected: struct (5.0, 7.0, │
00:11:51 verbose #17720 > > │ 9.0) │
00:11:51 verbose #17721 > > │ │
00:11:51 verbose #17722 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17723 > >
00:11:51 verbose #17724 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17725 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17726 > > │ ### *^ │
00:11:51 verbose #17727 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17728 > >
00:11:51 verbose #17729 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17730 > > inl (*^) c { x y z } =
00:11:51 verbose #17731 > > vec (c * x) (c * y) (c * z)
00:11:51 verbose #17732 > >
00:11:51 verbose #17733 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17734 > > //// test
00:11:51 verbose #17735 > >
00:11:51 verbose #17736 > > 5 *^ vec 1 2 3
00:11:51 verbose #17737 > > |> _assert_eq (vec 5 10 15)
00:11:51 verbose #17738 > >
00:11:51 verbose #17739 > > ╭─[ 28.94ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17740 > > │ assert_eq / actual: struct (5.0, 10.0, 15.0) / expected: struct (5.0, 10.0, │
00:11:51 verbose #17741 > > │ 15.0) │
00:11:51 verbose #17742 > > │ │
00:11:51 verbose #17743 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17744 > >
00:11:51 verbose #17745 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17746 > > //// test
00:11:51 verbose #17747 > >
00:11:51 verbose #17748 > > 3 *^ i_hat () ^+^ 4 *^ k_hat ()
00:11:51 verbose #17749 > > |> _assert_eq (vec 3 0 4)
00:11:51 verbose #17750 > >
00:11:51 verbose #17751 > > ╭─[ 28.98ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17752 > > │ assert_eq / actual: struct (3.0, 0.0, 4.0) / expected: struct (3.0, 0.0, │
00:11:51 verbose #17753 > > │ 4.0) │
00:11:51 verbose #17754 > > │ │
00:11:51 verbose #17755 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17756 > >
00:11:51 verbose #17757 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17758 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17759 > > │ ### ^* │
00:11:51 verbose #17760 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17761 > >
00:11:51 verbose #17762 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17763 > > inl (^*) v c =
00:11:51 verbose #17764 > > (*^) c v
00:11:51 verbose #17765 > >
00:11:51 verbose #17766 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17767 > > //// test
00:11:51 verbose #17768 > >
00:11:51 verbose #17769 > > vec 1 2 3 ^* 5
00:11:51 verbose #17770 > > |> _assert_eq (vec 5 10 15)
00:11:51 verbose #17771 > >
00:11:51 verbose #17772 > > ╭─[ 26.77ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17773 > > │ assert_eq / actual: struct (5.0, 10.0, 15.0) / expected: struct (5.0, 10.0, │
00:11:51 verbose #17774 > > │ 15.0) │
00:11:51 verbose #17775 > > │ │
00:11:51 verbose #17776 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17777 > >
00:11:51 verbose #17778 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17779 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17780 > > │ ### ^/ │
00:11:51 verbose #17781 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17782 > >
00:11:51 verbose #17783 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17784 > > inl (^/) { x y z } c =
00:11:51 verbose #17785 > > vec (x / c) (y / c) (z / c)
00:11:51 verbose #17786 > >
00:11:51 verbose #17787 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17788 > > //// test
00:11:51 verbose #17789 > >
00:11:51 verbose #17790 > > vec 1 2 3 ^/ 5
00:11:51 verbose #17791 > > |> _assert_eq (vec 0.2 0.4 0.6)
00:11:51 verbose #17792 > >
00:11:51 verbose #17793 > > ╭─[ 29.04ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17794 > > │ assert_eq / actual: struct (0.2, 0.4, 0.6) / expected: struct (0.2, 0.4, │
00:11:51 verbose #17795 > > │ 0.6) │
00:11:51 verbose #17796 > > │ │
00:11:51 verbose #17797 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17798 > >
00:11:51 verbose #17799 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17800 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17801 > > │ ### negate_vec │
00:11:51 verbose #17802 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17803 > >
00:11:51 verbose #17804 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17805 > > inl negate_vec v =
00:11:51 verbose #17806 > > v ^* -1
00:11:51 verbose #17807 > >
00:11:51 verbose #17808 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17809 > > //// test
00:11:51 verbose #17810 > >
00:11:51 verbose #17811 > > vec 1 2 3
00:11:51 verbose #17812 > > |> negate_vec
00:11:51 verbose #17813 > > |> _assert_eq (vec -1 -2 -3)
00:11:51 verbose #17814 > >
00:11:51 verbose #17815 > > ╭─[ 29.14ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17816 > > │ assert_eq / actual: struct (-1.0, -2.0, -3.0) / expected: struct (-1.0, │
00:11:51 verbose #17817 > > │ -2.0, -3.0) │
00:11:51 verbose #17818 > > │ │
00:11:51 verbose #17819 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17820 > >
00:11:51 verbose #17821 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17822 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17823 > > │ ### ^-^ │
00:11:51 verbose #17824 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17825 > >
00:11:51 verbose #17826 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17827 > > inl (^-^) a b =
00:11:51 verbose #17828 > > a ^+^ (negate_vec b)
00:11:51 verbose #17829 > >
00:11:51 verbose #17830 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17831 > > //// test
00:11:51 verbose #17832 > >
00:11:51 verbose #17833 > > vec 1 2 3 ^-^ vec 4 5 6
00:11:51 verbose #17834 > > |> _assert_eq (vec -3 -3 -3)
00:11:51 verbose #17835 > >
00:11:51 verbose #17836 > > ╭─[ 29.18ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:51 verbose #17837 > > │ assert_eq / actual: struct (-3.0, -3.0, -3.0) / expected: struct (-3.0, │
00:11:51 verbose #17838 > > │ -3.0, -3.0) │
00:11:51 verbose #17839 > > │ │
00:11:51 verbose #17840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17841 > >
00:11:51 verbose #17842 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:51 verbose #17843 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:51 verbose #17844 > > │ ### <.> │
00:11:51 verbose #17845 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:51 verbose #17846 > >
00:11:51 verbose #17847 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17848 > > inl (<.>) { x = ax y = ay z = az } { x = bx y = by z = bz } =
00:11:51 verbose #17849 > > ax * bx + ay * by + az * bz
00:11:51 verbose #17850 > >
00:11:51 verbose #17851 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:51 verbose #17852 > > //// test
00:11:51 verbose #17853 > >
00:11:51 verbose #17854 > > vec 1 2 3 <.> vec 4 5 6
00:11:51 verbose #17855 > > |> _assert_eq 32
00:11:52 verbose #17856 > >
00:11:52 verbose #17857 > > ╭─[ 29.95ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:52 verbose #17858 > > │ assert_eq / actual: 32.0 / expected: 32.0 │
00:11:52 verbose #17859 > > │ │
00:11:52 verbose #17860 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17861 > >
00:11:52 verbose #17862 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:52 verbose #17863 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:52 verbose #17864 > > │ ### \>\< │
00:11:52 verbose #17865 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17866 > >
00:11:52 verbose #17867 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17868 > > inl (><) (a : vec) (b : vec) =
00:11:52 verbose #17869 > > vec
00:11:52 verbose #17870 > > (a.y * b.z - a.z * b.y)
00:11:52 verbose #17871 > > (a.z * b.x - a.x * b.z)
00:11:52 verbose #17872 > > (a.x * b.y - a.y * b.x)
00:11:52 verbose #17873 > >
00:11:52 verbose #17874 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17875 > > //// test
00:11:52 verbose #17876 > >
00:11:52 verbose #17877 > > vec 1 2 3 >< vec 4 5 6
00:11:52 verbose #17878 > > |> _assert_eq (vec -3 6 -3)
00:11:52 verbose #17879 > >
00:11:52 verbose #17880 > > ╭─[ 32.01ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:52 verbose #17881 > > │ assert_eq / actual: struct (-3.0, 6.0, -3.0) / expected: struct (-3.0, 6.0, │
00:11:52 verbose #17882 > > │ -3.0) │
00:11:52 verbose #17883 > > │ │
00:11:52 verbose #17884 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17885 > >
00:11:52 verbose #17886 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:52 verbose #17887 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:52 verbose #17888 > > │ ### magnitude │
00:11:52 verbose #17889 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17890 > >
00:11:52 verbose #17891 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17892 > > inl magnitude v =
00:11:52 verbose #17893 > > v <.> v |> sqrt
00:11:52 verbose #17894 > >
00:11:52 verbose #17895 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17896 > > //// test
00:11:52 verbose #17897 > >
00:11:52 verbose #17898 > > vec 1 2 3
00:11:52 verbose #17899 > > |> magnitude
00:11:52 verbose #17900 > > |> _assert_approx_eq None 3.7416573867739413
00:11:52 verbose #17901 > >
00:11:52 verbose #17902 > > ╭─[ 30.80ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:52 verbose #17903 > > │ assert_approx_eq / actual: 3.741657387 / expected: 3.741657387 │
00:11:52 verbose #17904 > > │ │
00:11:52 verbose #17905 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17906 > >
00:11:52 verbose #17907 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:52 verbose #17908 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:52 verbose #17909 > > │ ### v1 │
00:11:52 verbose #17910 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17911 > >
00:11:52 verbose #17912 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17913 > > inl v1 t =
00:11:52 verbose #17914 > > 2 *^ (t ** 2 *^ i_hat () ^+^ 3 *^ (t ** 3 *^ j_hat () ^+^ t ** 4 *^ k_hat
00:11:52 verbose #17915 > > ()))
00:11:52 verbose #17916 > >
00:11:52 verbose #17917 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17918 > > //// test
00:11:52 verbose #17919 > >
00:11:52 verbose #17920 > > v1 1
00:11:52 verbose #17921 > > |> _assert_eq (vec 2 6 6)
00:11:52 verbose #17922 > >
00:11:52 verbose #17923 > > ╭─[ 31.01ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:52 verbose #17924 > > │ assert_eq / actual: struct (2.0, 6.0, 6.0) / expected: struct (2.0, 6.0, │
00:11:52 verbose #17925 > > │ 6.0) │
00:11:52 verbose #17926 > > │ │
00:11:52 verbose #17927 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17928 > >
00:11:52 verbose #17929 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:52 verbose #17930 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:52 verbose #17931 > > │ ### vec_derivative │
00:11:52 verbose #17932 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17933 > >
00:11:52 verbose #17934 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17935 > > type vec_derivative = (f64 -> vec) -> f64 -> vec
00:11:52 verbose #17936 > >
00:11:52 verbose #17937 > > inl vec_derivative dt : vec_derivative =
00:11:52 verbose #17938 > > fun v t =>
00:11:52 verbose #17939 > > (v (t + dt / 2) ^-^ v (t - dt / 2)) ^/ dt
00:11:52 verbose #17940 > >
00:11:52 verbose #17941 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17942 > > //// test
00:11:52 verbose #17943 > >
00:11:52 verbose #17944 > > vec_derivative 0.01 v1 3 .x
00:11:52 verbose #17945 > > |> _assert_approx_eq None (derivative 0.01 (v1 >> fun v => v.x) 3)
00:11:52 verbose #17946 > >
00:11:52 verbose #17947 > > ╭─[ 29.52ms - stdout ]─────────────────────────────────────────────────────────╮
00:11:52 verbose #17948 > > │ assert_approx_eq / actual: 12.0 / expected: 12.0 │
00:11:52 verbose #17949 > > │ │
00:11:52 verbose #17950 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17951 > >
00:11:52 verbose #17952 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:52 verbose #17953 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:52 verbose #17954 > > │ ## states_ps │
00:11:52 verbose #17955 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:52 verbose #17956 > >
00:11:52 verbose #17957 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #17958 > > nominal particle_state =
00:11:52 verbose #17959 > > {
00:11:52 verbose #17960 > > mass : f64
00:11:52 verbose #17961 > > charge : f64
00:11:52 verbose #17962 > > time : f64
00:11:52 verbose #17963 > > pos_vec : vec
00:11:52 verbose #17964 > > velocity : vec
00:11:52 verbose #17965 > > }
00:11:52 verbose #17966 > >
00:11:52 verbose #17967 > > inl default_particle_state () : particle_state =
00:11:52 verbose #17968 > > particle_state {
00:11:52 verbose #17969 > > mass = 1
00:11:52 verbose #17970 > > charge = 0
00:11:52 verbose #17971 > > time = 0
00:11:52 verbose #17972 > > pos_vec = zero_vec ()
00:11:52 verbose #17973 > > velocity = zero_vec ()
00:11:52 verbose #17974 > > }
00:11:52 verbose #17975 > >
00:11:52 verbose #17976 > > type one_body_force = particle_state -> vec
00:11:52 verbose #17977 > >
00:11:52 verbose #17978 > > nominal d_particle_state =
00:11:52 verbose #17979 > > {
00:11:52 verbose #17980 > > dmdt : f64
00:11:52 verbose #17981 > > dqdt : f64
00:11:52 verbose #17982 > > dtdt : f64
00:11:52 verbose #17983 > > drdt : vec
00:11:52 verbose #17984 > > dvdt : vec
00:11:52 verbose #17985 > > }
00:11:52 verbose #17986 > >
00:11:52 verbose #17987 > > inl newton_second_ps (fs : list one_body_force) (st : particle_state) :
00:11:52 verbose #17988 > > d_particle_state =
00:11:52 verbose #17989 > > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:11:52 verbose #17990 > > d_particle_state {
00:11:52 verbose #17991 > > dmdt = 0
00:11:52 verbose #17992 > > dqdt = 0
00:11:52 verbose #17993 > > dtdt = 1
00:11:52 verbose #17994 > > drdt = st.velocity
00:11:52 verbose #17995 > > dvdt = f_net ^/ st.mass
00:11:52 verbose #17996 > > }
00:11:52 verbose #17997 > >
00:11:52 verbose #17998 > > inl earth_surface_gravity (st : particle_state) =
00:11:52 verbose #17999 > > inl g = 9.80665
00:11:52 verbose #18000 > > -st.mass * g *^ k_hat ()
00:11:52 verbose #18001 > >
00:11:52 verbose #18002 > > inl air_resistance drag rho area (st : particle_state) =
00:11:52 verbose #18003 > > -0.5 * drag * rho * area * magnitude st.velocity *^ st.velocity
00:11:52 verbose #18004 > >
00:11:52 verbose #18005 > > inl euler_cromer_ps dt (deriv : particle_state -> d_particle_state)
00:11:52 verbose #18006 > > (particle_state st) =
00:11:52 verbose #18007 > > inl dst : d_particle_state = deriv (particle_state st)
00:11:52 verbose #18008 > > inl v' = st.velocity ^+^ dst.dvdt ^* dt
00:11:52 verbose #18009 > > particle_state { st with
00:11:52 verbose #18010 > > time = st.time + dt
00:11:52 verbose #18011 > > pos_vec = st.pos_vec ^+^ v' ^* dt
00:11:52 verbose #18012 > > velocity = st.velocity ^+^ dst.dvdt ^* dt
00:11:52 verbose #18013 > > }
00:11:52 verbose #18014 > >
00:11:52 verbose #18015 > > instance (+++) d_particle_state = fun (dps : d_particle_state) (dps' :
00:11:52 verbose #18016 > > d_particle_state) =>
00:11:52 verbose #18017 > > d_particle_state {
00:11:52 verbose #18018 > > dmdt = dps.dmdt + dps'.dmdt
00:11:52 verbose #18019 > > dqdt = dps.dqdt + dps'.dqdt
00:11:52 verbose #18020 > > dtdt = dps.dtdt + dps'.dtdt
00:11:52 verbose #18021 > > drdt = dps.drdt ^+^ dps'.drdt
00:11:52 verbose #18022 > > dvdt = dps.dvdt ^+^ dps'.dvdt
00:11:52 verbose #18023 > > }
00:11:52 verbose #18024 > >
00:11:52 verbose #18025 > > instance scale d_particle_state = fun w (dps : d_particle_state) =>
00:11:52 verbose #18026 > > d_particle_state {
00:11:52 verbose #18027 > > dmdt = w * dps.dmdt
00:11:52 verbose #18028 > > dqdt = w * dps.dqdt
00:11:52 verbose #18029 > > dtdt = w * dps.dtdt
00:11:52 verbose #18030 > > drdt = w *^ dps.drdt
00:11:52 verbose #18031 > > dvdt = w *^ dps.dvdt
00:11:52 verbose #18032 > > }
00:11:52 verbose #18033 > >
00:11:52 verbose #18034 > > instance shift particle_state = fun dt dps (particle_state st) =>
00:11:52 verbose #18035 > > inl (d_particle_state dps) =
00:11:52 verbose #18036 > > real
00:11:52 verbose #18037 > > match dps with
00:11:52 verbose #18038 > > | d_particle_state _ => dps
00:11:52 verbose #18039 > > particle_state { st with
00:11:52 verbose #18040 > > time = st.time + dps.dtdt * dt
00:11:52 verbose #18041 > > pos_vec = st.pos_vec ^+^ dps.drdt ^* dt
00:11:52 verbose #18042 > > velocity = st.velocity ^+^ dps.dvdt ^* dt
00:11:52 verbose #18043 > > }
00:11:52 verbose #18044 > >
00:11:52 verbose #18045 > > inl states_ps (method : numerical_method particle_state d_particle_state) : _ ->
00:11:52 verbose #18046 > > _ -> i32 -> particle_state =
00:11:52 verbose #18047 > > newton_second_ps >> method >> seq.iterate_
00:11:52 verbose #18048 > >
00:11:52 verbose #18049 > > inl z_ge0 sts =
00:11:52 verbose #18050 > > sts
00:11:52 verbose #18051 > > |> seq.take_while_ (fun (particle_state st) _ => st.pos_vec.z >= 0)
00:11:52 verbose #18052 > >
00:11:52 verbose #18053 > > inl trajectory sts =
00:11:52 verbose #18054 > > sts |> listm.map (fun (particle_state st) => st.pos_vec.y, st.pos_vec.z)
00:11:52 verbose #18055 > >
00:11:52 verbose #18056 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #18057 > > //// test
00:11:52 verbose #18058 > >
00:11:52 verbose #18059 > > inl update_ps (method : numerical_method particle_state d_particle_state) =
00:11:52 verbose #18060 > > newton_second_ps >> method
00:11:52 verbose #18061 > >
00:11:52 verbose #18062 > > inl position_ps (method : numerical_method particle_state d_particle_state) fs
00:11:52 verbose #18063 > > st t =
00:11:52 verbose #18064 > > inl states : i32 -> particle_state = states_ps method fs st
00:11:52 verbose #18065 > > inl dt = (states 1).time - (states 0).time
00:11:52 verbose #18066 > > inl num_steps = t / dt |> math.round |> abs
00:11:52 verbose #18067 > > inl st1 = solver' method (newton_second_ps fs) st num_steps
00:11:52 verbose #18068 > > st1.pos_vec
00:11:52 verbose #18069 > >
00:11:52 verbose #18070 > > inl sun_gravity (st : particle_state) : vec =
00:11:52 verbose #18071 > > inl big_g = 0.0000000000667408
00:11:52 verbose #18072 > > inl sun_mass = 1988480000000000000000000000000
00:11:52 verbose #18073 > > -big_g * sun_mass * st.mass *^ st.pos_vec ^/ magnitude st.pos_vec ** 3
00:11:52 verbose #18074 > >
00:11:52 verbose #18075 > > inl wind_force v_wind drag rho area (st : particle_state) =
00:11:52 verbose #18076 > > inl v_rel = st.velocity ^-^ v_wind
00:11:52 verbose #18077 > > -0.5 * drag * rho * area * magnitude v_rel *^ v_rel
00:11:52 verbose #18078 > >
00:11:52 verbose #18079 > > inl rock_state () =
00:11:52 verbose #18080 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:52 verbose #18081 > > particle_state { default_particle_state' with
00:11:52 verbose #18082 > > mass = 2
00:11:52 verbose #18083 > > velocity = vec 3 0 4
00:11:52 verbose #18084 > > }
00:11:52 verbose #18085 > >
00:11:52 verbose #18086 > > inl halley_update dt =
00:11:52 verbose #18087 > > update_ps (euler_cromer_ps dt) [[ sun_gravity ]]
00:11:52 verbose #18088 > >
00:11:52 verbose #18089 > > inl halley_initial () =
00:11:52 verbose #18090 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:52 verbose #18091 > > particle_state { default_particle_state' with
00:11:52 verbose #18092 > > mass = 220000000000000
00:11:52 verbose #18093 > > pos_vec = 87660000000 *^ i_hat ()
00:11:52 verbose #18094 > > velocity = 54569 *^ j_hat ()
00:11:52 verbose #18095 > > }
00:11:52 verbose #18096 > >
00:11:52 verbose #18097 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:52 verbose #18098 > > //// test
00:11:52 verbose #18099 > >
00:11:52 verbose #18100 > > inl baseball_forces () =
00:11:52 verbose #18101 > > inl area = pi * (0.074 / 2) ** 2
00:11:52 verbose #18102 > > [[
00:11:52 verbose #18103 > > earth_surface_gravity
00:11:52 verbose #18104 > > air_resistance 0.3 1.225 area
00:11:52 verbose #18105 > > ]]
00:11:52 verbose #18106 > >
00:11:52 verbose #18107 > > inl baseball_trajectory dt v0 theta_deg =
00:11:52 verbose #18108 > > inl theta_rad = theta_deg * pi / 180
00:11:52 verbose #18109 > > inl vy0 = v0 * cos theta_rad
00:11:52 verbose #18110 > > inl vz0 = v0 * sin theta_rad
00:11:52 verbose #18111 > > inl initial_state =
00:11:52 verbose #18112 > > particle_state {
00:11:52 verbose #18113 > > mass = 0.145
00:11:52 verbose #18114 > > charge = 0
00:11:52 verbose #18115 > > time = 0
00:11:52 verbose #18116 > > pos_vec = zero_vec ()
00:11:52 verbose #18117 > > velocity = vec 0 vy0 vz0
00:11:52 verbose #18118 > > }
00:11:52 verbose #18119 > > states_ps (euler_cromer_ps dt) (baseball_forces ()) initial_state
00:11:52 verbose #18120 > > >> Some
00:11:52 verbose #18121 > > |> z_ge0
00:11:52 verbose #18122 > > |> trajectory
00:11:52 verbose #18123 > >
00:11:52 verbose #18124 > > inl baseball_range dt v0 theta_deg =
00:11:52 verbose #18125 > > baseball_trajectory dt v0 theta_deg
00:11:52 verbose #18126 > > |> listm.fold (fun _ (y, _) => y) 0
00:11:52 verbose #18127 > >
00:11:52 verbose #18128 > > inl x : a _ f64 = am'.init_series 10 80 1
00:11:52 verbose #18129 > > inl y = x |> am.map (baseball_range 0.01 45)
00:11:52 verbose #18130 > > "range for a baseball hit at 45 m/s",
00:11:52 verbose #18131 > > "angle above horizontal (degrees)",
00:11:52 verbose #18132 > > "",
00:11:52 verbose #18133 > > ;[[ "horizontal range (m)", x, y ]]
00:11:53 verbose #18134 > >
00:11:53 verbose #18135 > > ╭─[ 763.85ms - return value ]──────────────────────────────────────────────────╮
00:11:53 verbose #18136 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:53 verbose #18137 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:53 verbose #18138 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:53 verbose #18139 > > │ stroke="none"/> │
00:11:53 verbose #18140 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:53 verbose #18141 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18142 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18143 > > │ range for a baseball hit at 45 m/s │
00:11:53 verbose #18144 > > │ </text> │
00:11:53 verbose #18145 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="55" y1="424" x2="55" │
00:11:53 verbose #18146 > > │ y2="75"/> │
00:11:53 verbose #18147 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:11:53 verbose #18148 > > │ y2="75"/> │
00:11:53 verbose #18149 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:53 verbose #18150 > > │ y2="75"/> │
00:11:53 verbose #18151 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:11:53 verbose #18152 > > │ y2="75"/> │
00:11:53 verbose #18153 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="84" y1="424" x2="84" │
00:11:53 verbose #18154 > > │ y2="75"/> │
00:11:53 verbose #18155 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="91" y1="424" x2="91" │
00:11:53 verbose #18156 > > │ y2="75"/> │
00:11:53 verbose #18157 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="98" y1="424" x2="98" │
00:11:53 verbose #18158 > > │ y2="75"/> │
00:11:53 verbose #18159 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="105" y1="424" │
00:11:53 verbose #18160 > > │ x2="105" y2="75"/> │
00:11:53 verbose #18161 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="112" y1="424" │
00:11:53 verbose #18162 > > │ x2="112" y2="75"/> │
00:11:53 verbose #18163 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:53 verbose #18164 > > │ x2="119" y2="75"/> │
00:11:53 verbose #18165 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="127" y1="424" │
00:11:53 verbose #18166 > > │ x2="127" y2="75"/> │
00:11:53 verbose #18167 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="134" y1="424" │
00:11:53 verbose #18168 > > │ x2="134" y2="75"/> │
00:11:53 verbose #18169 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="141" y1="424" │
00:11:53 verbose #18170 > > │ x2="141" y2="75"/> │
00:11:53 verbose #18171 > > │ <li...nts="585,199 590,199 "/> │
00:11:53 verbose #18172 > > │ <text x="595" y="156" dy="0.5ex" text-anchor="start" │
00:11:53 verbose #18173 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18174 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18175 > > │ 100.0 │
00:11:53 verbose #18176 > > │ </text> │
00:11:53 verbose #18177 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:53 verbose #18178 > > │ points="585,156 590,156 "/> │
00:11:53 verbose #18179 > > │ <text x="595" y="114" dy="0.5ex" text-anchor="start" │
00:11:53 verbose #18180 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18181 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18182 > > │ 110.0 │
00:11:53 verbose #18183 > > │ </text> │
00:11:53 verbose #18184 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:53 verbose #18185 > > │ points="585,114 590,114 "/> │
00:11:53 verbose #18186 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:53 verbose #18187 > > │ points="69,343 77,325 84,307 91,290 98,275 105,259 112,245 119,231 127,219 │
00:11:53 verbose #18188 > > │ 134,207 141,196 148,184 155,174 162,164 169,155 176,147 184,139 191,132 │
00:11:53 verbose #18189 > > │ 198,126 205,119 212,114 219,109 226,104 233,100 241,96 248,93 255,91 262,89 │
00:11:53 verbose #18190 > > │ 269,88 276,86 283,86 290,85 298,86 305,87 312,88 319,90 326,92 333,95 340,98 │
00:11:53 verbose #18191 > > │ 348,102 355,106 362,110 369,115 376,120 383,126 390,132 397,139 405,146 │
00:11:53 verbose #18192 > > │ 412,153 419,161 426,169 433,178 440,187 447,197 454,207 462,217 469,228 │
00:11:53 verbose #18193 > > │ 476,239 483,250 490,262 497,274 504,287 511,300 519,313 526,326 533,340 │
00:11:53 verbose #18194 > > │ 540,355 547,369 554,384 561,399 569,415 "/> │
00:11:53 verbose #18195 > > │ <rect x="421" y="235" width="159" height="30" opacity="1" fill="none" │
00:11:53 verbose #18196 > > │ stroke="#FFFFFF"/> │
00:11:53 verbose #18197 > > │ <text x="461" y="245" dy="0.76em" text-anchor="start" │
00:11:53 verbose #18198 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18199 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18200 > > │ horizontal range (m) │
00:11:53 verbose #18201 > > │ </text> │
00:11:53 verbose #18202 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:53 verbose #18203 > > │ points="431,250 451,250 "/> │
00:11:53 verbose #18204 > > │ </svg> │
00:11:53 verbose #18205 > > │ │
00:11:53 verbose #18206 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:53 verbose #18207 > >
00:11:53 verbose #18208 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:53 verbose #18209 > > //// test
00:11:53 verbose #18210 > >
00:11:53 verbose #18211 > > inl best_angle (min, max) =
00:11:53 verbose #18212 > > let rec loop theta_deg (best_range, best_theta_deg) =
00:11:53 verbose #18213 > > if theta_deg > max
00:11:53 verbose #18214 > > then best_range, best_theta_deg
00:11:53 verbose #18215 > > else
00:11:53 verbose #18216 > > inl range = baseball_range 0.01 45 theta_deg
00:11:53 verbose #18217 > > loop
00:11:53 verbose #18218 > > (theta_deg + 1)
00:11:53 verbose #18219 > > (if range > best_range
00:11:53 verbose #18220 > > then range, theta_deg
00:11:53 verbose #18221 > > else best_range, best_theta_deg)
00:11:53 verbose #18222 > > loop min (0f64, min)
00:11:53 verbose #18223 > >
00:11:53 verbose #18224 > > best_angle (30f64, 60f64)
00:11:53 verbose #18225 > > |> _assert_eq (116.77499158246208, 41)
00:11:53 verbose #18226 > >
00:11:53 verbose #18227 > > ╭─[ 407.10ms - stdout ]────────────────────────────────────────────────────────╮
00:11:53 verbose #18228 > > │ assert_eq / actual: struct (116.7749916, 41.0) / expected: struct │
00:11:53 verbose #18229 > > │ (116.7749916, 41.0) │
00:11:53 verbose #18230 > > │ │
00:11:53 verbose #18231 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:53 verbose #18232 > >
00:11:53 verbose #18233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:53 verbose #18234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:53 verbose #18235 > > │ ## relativity_ps │
00:11:53 verbose #18236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:53 verbose #18237 > >
00:11:53 verbose #18238 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:53 verbose #18239 > > inl relativity_ps fs (st : particle_state) =
00:11:53 verbose #18240 > > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:11:53 verbose #18241 > > inl c = 299792458
00:11:53 verbose #18242 > > inl u = st.velocity ^/ c
00:11:53 verbose #18243 > > inl acc = sqrt (1 - (u <.> u)) *^ (f_net ^-^ (f_net <.> u) *^ u) ^/ st.mass
00:11:53 verbose #18244 > > d_particle_state {
00:11:53 verbose #18245 > > dmdt = 0
00:11:53 verbose #18246 > > dqdt = 0
00:11:53 verbose #18247 > > dtdt = 1
00:11:53 verbose #18248 > > drdt = st.velocity
00:11:53 verbose #18249 > > dvdt = acc
00:11:53 verbose #18250 > > }
00:11:53 verbose #18251 > >
00:11:53 verbose #18252 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:53 verbose #18253 > > //// test
00:11:53 verbose #18254 > >
00:11:53 verbose #18255 > > inl year = 365.25 * 24 * 60 * 60
00:11:53 verbose #18256 > > inl c = 299792458
00:11:53 verbose #18257 > > inl ~method = runge_kutta_4 100000
00:11:53 verbose #18258 > > inl forces = [[ fun _ => 10 *^ i_hat () ]]
00:11:53 verbose #18259 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:53 verbose #18260 > > inl initial_state =
00:11:53 verbose #18261 > > particle_state { default_particle_state' with
00:11:53 verbose #18262 > > mass = 1
00:11:53 verbose #18263 > > }
00:11:53 verbose #18264 > >
00:11:53 verbose #18265 > > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:11:53 verbose #18266 > > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:11:53 verbose #18267 > >
00:11:53 verbose #18268 > > inl newton_x, newton_y =
00:11:53 verbose #18269 > > newton_states
00:11:53 verbose #18270 > > >> Some
00:11:53 verbose #18271 > > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:11:53 verbose #18272 > > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:11:53 verbose #18273 > > |> listm'.unzip
00:11:53 verbose #18274 > >
00:11:53 verbose #18275 > > inl _, relativity_y =
00:11:53 verbose #18276 > > relativity_states
00:11:53 verbose #18277 > > >> Some
00:11:53 verbose #18278 > > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:11:53 verbose #18279 > > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:11:53 verbose #18280 > > |> listm'.unzip
00:11:53 verbose #18281 > >
00:11:53 verbose #18282 > > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:11:53 verbose #18283 > > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:11:53 verbose #18284 > > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:11:53 verbose #18285 > >
00:11:53 verbose #18286 > > "response to a constant force",
00:11:53 verbose #18287 > > "time (years)",
00:11:53 verbose #18288 > > "velocity (multiples of c)",
00:11:53 verbose #18289 > > ;[[
00:11:53 verbose #18290 > > "newtonian", newton_x, newton_y
00:11:53 verbose #18291 > > "relativistic", newton_x, relativity_y
00:11:53 verbose #18292 > > ]]
00:11:53 verbose #18293 > >
00:11:53 verbose #18294 > > ╭─[ 375.81ms - return value ]──────────────────────────────────────────────────╮
00:11:53 verbose #18295 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:53 verbose #18296 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:53 verbose #18297 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:53 verbose #18298 > > │ stroke="none"/> │
00:11:53 verbose #18299 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:53 verbose #18300 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18301 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18302 > > │ response to a constant force │
00:11:53 verbose #18303 > > │ </text> │
00:11:53 verbose #18304 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:53 verbose #18305 > > │ y2="75"/> │
00:11:53 verbose #18306 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:53 verbose #18307 > > │ y2="75"/> │
00:11:53 verbose #18308 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:53 verbose #18309 > > │ y2="75"/> │
00:11:53 verbose #18310 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:53 verbose #18311 > > │ y2="75"/> │
00:11:53 verbose #18312 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:53 verbose #18313 > > │ y2="75"/> │
00:11:53 verbose #18314 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:53 verbose #18315 > > │ x2="109" y2="75"/> │
00:11:53 verbose #18316 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:53 verbose #18317 > > │ x2="119" y2="75"/> │
00:11:53 verbose #18318 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:53 verbose #18319 > > │ x2="129" y2="75"/> │
00:11:53 verbose #18320 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:53 verbose #18321 > > │ x2="139" y2="75"/> │
00:11:53 verbose #18322 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:53 verbose #18323 > > │ x2="149" y2="75"/> │
00:11:53 verbose #18324 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:53 verbose #18325 > > │ x2="159" y2="75"/> │
00:11:53 verbose #18326 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:53 verbose #18327 > > │ x2="169" y2="75"/> │
00:11:53 verbose #18328 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:53 verbose #18329 > > │ x2="179" y2="75"/> │
00:11:53 verbose #18330 > > │ <line... 393,238 394,238 396,237 397,237 399,236 401,235 402,235 404,234 │
00:11:53 verbose #18331 > > │ 405,234 407,233 409,233 410,232 412,231 413,231 415,230 416,230 418,229 │
00:11:53 verbose #18332 > > │ 420,229 421,228 423,228 424,227 426,227 428,226 429,225 431,225 432,224 │
00:11:53 verbose #18333 > > │ 434,224 435,223 437,223 439,222 440,222 442,221 443,221 445,220 447,220 │
00:11:53 verbose #18334 > > │ 448,219 450,219 451,218 453,218 454,217 456,217 458,216 459,216 461,215 │
00:11:53 verbose #18335 > > │ 462,215 464,214 466,214 467,213 469,213 470,213 472,212 473,212 475,211 │
00:11:53 verbose #18336 > > │ 477,211 478,210 480,210 481,209 483,209 485,208 486,208 488,208 489,207 │
00:11:53 verbose #18337 > > │ 491,207 492,206 494,206 496,205 497,205 499,204 500,204 502,204 504,203 │
00:11:53 verbose #18338 > > │ 505,203 507,202 508,202 510,202 511,201 513,201 515,200 516,200 518,200 │
00:11:53 verbose #18339 > > │ 519,199 521,199 523,198 524,198 526,198 527,197 529,197 531,196 532,196 │
00:11:53 verbose #18340 > > │ 534,196 535,195 537,195 538,194 540,194 542,194 543,193 545,193 546,193 │
00:11:53 verbose #18341 > > │ 548,192 550,192 551,192 553,191 554,191 556,190 557,190 559,190 561,189 │
00:11:53 verbose #18342 > > │ 562,189 564,189 565,188 567,188 569,188 "/> │
00:11:53 verbose #18343 > > │ <rect x="464" y="227" width="116" height="45" opacity="1" fill="none" │
00:11:53 verbose #18344 > > │ stroke="#FFFFFF"/> │
00:11:53 verbose #18345 > > │ <text x="504" y="237" dy="0.76em" text-anchor="start" │
00:11:53 verbose #18346 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18347 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18348 > > │ newtonian │
00:11:53 verbose #18349 > > │ </text> │
00:11:53 verbose #18350 > > │ <text x="504" y="252" dy="0.76em" text-anchor="start" │
00:11:53 verbose #18351 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:53 verbose #18352 > > │ fill="#FFFFFF"> │
00:11:53 verbose #18353 > > │ relativistic │
00:11:53 verbose #18354 > > │ </text> │
00:11:53 verbose #18355 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:53 verbose #18356 > > │ points="474,242 494,242 "/> │
00:11:53 verbose #18357 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:11:53 verbose #18358 > > │ points="474,257 494,257 "/> │
00:11:53 verbose #18359 > > │ </svg> │
00:11:53 verbose #18360 > > │ │
00:11:53 verbose #18361 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:53 verbose #18362 > >
00:11:53 verbose #18363 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:53 verbose #18364 > > inl uniform_lorentz_force v_e v_b (st : particle_state) =
00:11:53 verbose #18365 > > st.charge *^ (v_e ^+^ st.velocity >< v_b)
00:11:53 verbose #18366 > >
00:11:53 verbose #18367 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:53 verbose #18368 > > //// test
00:11:53 verbose #18369 > >
00:11:53 verbose #18370 > > inl c : f64 = 299792458
00:11:53 verbose #18371 > > inl ~method = runge_kutta_4 0.000000001
00:11:53 verbose #18372 > > inl forces = [[ uniform_lorentz_force (zero_vec ()) (k_hat ()) ]]
00:11:53 verbose #18373 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:53 verbose #18374 > > inl initial_state =
00:11:53 verbose #18375 > > particle_state { default_particle_state' with
00:11:53 verbose #18376 > > mass = 0.000000000000000000000000001672621898
00:11:53 verbose #18377 > > charge = 0.0000000000000000001602176621
00:11:53 verbose #18378 > > velocity = 0.8 *^ (c *^ j_hat ())
00:11:53 verbose #18379 > > }
00:11:53 verbose #18380 > >
00:11:53 verbose #18381 > > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:11:53 verbose #18382 > > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:11:53 verbose #18383 > >
00:11:53 verbose #18384 > > inl newton_x, newton_y =
00:11:53 verbose #18385 > > newton_states
00:11:53 verbose #18386 > > >> Some
00:11:53 verbose #18387 > > |> seq.take_while_ (fun (particle_state st) i => i < 100i32)
00:11:53 verbose #18388 > > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:11:53 verbose #18389 > > |> listm'.unzip
00:11:53 verbose #18390 > >
00:11:53 verbose #18391 > > inl relativity_x, relativity_y =
00:11:53 verbose #18392 > > relativity_states
00:11:53 verbose #18393 > > >> Some
00:11:53 verbose #18394 > > |> seq.take_while_ (fun (particle_state st) i => i < 165i32)
00:11:53 verbose #18395 > > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:11:53 verbose #18396 > > |> listm'.unzip
00:11:53 verbose #18397 > >
00:11:53 verbose #18398 > > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:11:53 verbose #18399 > > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:11:53 verbose #18400 > >
00:11:53 verbose #18401 > > inl relativity_x : a i32 _ = relativity_x |> listm.toArray
00:11:53 verbose #18402 > > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:11:53 verbose #18403 > >
00:11:53 verbose #18404 > > "proton in a 1-t magnetic field",
00:11:53 verbose #18405 > > "x (m)",
00:11:53 verbose #18406 > > "y (m)",
00:11:53 verbose #18407 > > ;[[
00:11:53 verbose #18408 > > "newtonian", newton_x, newton_y
00:11:53 verbose #18409 > > "relativistic", relativity_x, relativity_y
00:11:53 verbose #18410 > > ]]
00:11:54 verbose #18411 > >
00:11:54 verbose #18412 > > ╭─[ 324.69ms - return value ]──────────────────────────────────────────────────╮
00:11:54 verbose #18413 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:54 verbose #18414 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:54 verbose #18415 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:54 verbose #18416 > > │ stroke="none"/> │
00:11:54 verbose #18417 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:54 verbose #18418 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:54 verbose #18419 > > │ fill="#FFFFFF"> │
00:11:54 verbose #18420 > > │ proton in a 1-t magnetic field │
00:11:54 verbose #18421 > > │ </text> │
00:11:54 verbose #18422 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="58" y1="424" x2="58" │
00:11:54 verbose #18423 > > │ y2="75"/> │
00:11:54 verbose #18424 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:54 verbose #18425 > > │ y2="75"/> │
00:11:54 verbose #18426 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="81" y1="424" x2="81" │
00:11:54 verbose #18427 > > │ y2="75"/> │
00:11:54 verbose #18428 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:11:54 verbose #18429 > > │ y2="75"/> │
00:11:54 verbose #18430 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="105" y1="424" │
00:11:54 verbose #18431 > > │ x2="105" y2="75"/> │
00:11:54 verbose #18432 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="117" y1="424" │
00:11:54 verbose #18433 > > │ x2="117" y2="75"/> │
00:11:54 verbose #18434 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:54 verbose #18435 > > │ x2="129" y2="75"/> │
00:11:54 verbose #18436 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="141" y1="424" │
00:11:54 verbose #18437 > > │ x2="141" y2="75"/> │
00:11:54 verbose #18438 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="153" y1="424" │
00:11:54 verbose #18439 > > │ x2="153" y2="75"/> │
00:11:54 verbose #18440 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="165" y1="424" │
00:11:54 verbose #18441 > > │ x2="165" y2="75"/> │
00:11:54 verbose #18442 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="177" y1="424" │
00:11:54 verbose #18443 > > │ x2="177" y2="75"/> │
00:11:54 verbose #18444 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="189" y1="424" │
00:11:54 verbose #18445 > > │ x2="189" y2="75"/> │
00:11:54 verbose #18446 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="201" y1="424" │
00:11:54 verbose #18447 > > │ x2="201" y2="75"/> │
00:11:54 verbose #18448 > > │ <...555,197 560,206 563,216 566,225 567,234 568,244 568,253 568,263 566,272 │
00:11:54 verbose #18449 > > │ 564,281 561,291 557,300 552,309 547,317 540,326 533,334 526,342 517,350 │
00:11:54 verbose #18450 > > │ 508,357 499,364 488,371 478,377 466,383 455,388 442,393 430,398 417,402 │
00:11:54 verbose #18451 > > │ 403,405 390,408 376,410 362,412 348,414 333,414 319,415 305,414 290,414 │
00:11:54 verbose #18452 > > │ 276,412 262,410 248,408 235,405 221,401 208,397 196,393 183,388 171,383 │
00:11:54 verbose #18453 > > │ 160,377 149,371 139,364 129,357 120,350 112,342 104,334 97,326 91,317 86,309 │
00:11:54 verbose #18454 > > │ 81,300 77,290 74,281 72,272 70,263 70,253 70,244 71,234 72,225 75,215 78,206 │
00:11:54 verbose #18455 > > │ 83,197 88,188 93,180 100,171 107,163 115,155 124,148 133,140 143,133 153,127 │
00:11:54 verbose #18456 > > │ 164,121 176,115 188,110 200,105 213,101 226,97 239,94 253,91 267,89 281,87 │
00:11:54 verbose #18457 > > │ 295,86 310,85 324,85 338,86 353,87 367,88 381,90 394,93 408,96 421,100 │
00:11:54 verbose #18458 > > │ 434,104 447,109 459,114 470,119 482,125 492,131 502,138 512,145 520,153 │
00:11:54 verbose #18459 > > │ 529,161 536,169 543,177 549,186 554,194 558,203 562,213 565,222 567,231 │
00:11:54 verbose #18460 > > │ 568,241 569,250 "/> │
00:11:54 verbose #18461 > > │ <rect x="464" y="227" width="116" height="45" opacity="1" fill="none" │
00:11:54 verbose #18462 > > │ stroke="#FFFFFF"/> │
00:11:54 verbose #18463 > > │ <text x="504" y="237" dy="0.76em" text-anchor="start" │
00:11:54 verbose #18464 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:54 verbose #18465 > > │ fill="#FFFFFF"> │
00:11:54 verbose #18466 > > │ newtonian │
00:11:54 verbose #18467 > > │ </text> │
00:11:54 verbose #18468 > > │ <text x="504" y="252" dy="0.76em" text-anchor="start" │
00:11:54 verbose #18469 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:54 verbose #18470 > > │ fill="#FFFFFF"> │
00:11:54 verbose #18471 > > │ relativistic │
00:11:54 verbose #18472 > > │ </text> │
00:11:54 verbose #18473 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:54 verbose #18474 > > │ points="474,242 494,242 "/> │
00:11:54 verbose #18475 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:11:54 verbose #18476 > > │ points="474,257 494,257 "/> │
00:11:54 verbose #18477 > > │ </svg> │
00:11:54 verbose #18478 > > │ │
00:11:54 verbose #18479 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:54 verbose #18480 > >
00:11:54 verbose #18481 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:54 verbose #18482 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:54 verbose #18483 > > │ ### system kinetic energy versus time 1 │
00:11:54 verbose #18484 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:54 verbose #18485 > >
00:11:54 verbose #18486 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:54 verbose #18487 > > //// test
00:11:54 verbose #18488 > >
00:11:54 verbose #18489 > > inl central_force f (particle_state st1) (particle_state st2) =
00:11:54 verbose #18490 > > inl r1 = st1.pos_vec
00:11:54 verbose #18491 > > inl r2 = st2.pos_vec
00:11:54 verbose #18492 > > inl r21 = r2 ^-^ r1
00:11:54 verbose #18493 > > inl r21mag = magnitude r21
00:11:54 verbose #18494 > > f r21mag *^ r21 ^/ r21mag
00:11:54 verbose #18495 > >
00:11:54 verbose #18496 > > inl billiard_force k re =
00:11:54 verbose #18497 > > inl f r =
00:11:54 verbose #18498 > > if r >= re
00:11:54 verbose #18499 > > then 0
00:11:54 verbose #18500 > > else -k * (r - re)
00:11:54 verbose #18501 > > central_force f
00:11:54 verbose #18502 > >
00:11:54 verbose #18503 > > type force_vector = vec
00:11:54 verbose #18504 > > type two_body_force = particle_state -> particle_state -> force_vector
00:11:54 verbose #18505 > >
00:11:54 verbose #18506 > > union force =
00:11:54 verbose #18507 > > | ExternalForce : i32 * one_body_force
00:11:54 verbose #18508 > > | InternalForce : i32 * i32 * two_body_force
00:11:54 verbose #18509 > >
00:11:54 verbose #18510 > > nominal multi_particle_state = list particle_state
00:11:54 verbose #18511 > >
00:11:54 verbose #18512 > > nominal d_multi_particle_state = list d_particle_state
00:11:54 verbose #18513 > >
00:11:54 verbose #18514 > > inl force_on n sts force =
00:11:54 verbose #18515 > > match force with
00:11:54 verbose #18516 > > | ExternalForce (n0, f_one_body) =>
00:11:54 verbose #18517 > > if n = n0
00:11:54 verbose #18518 > > then f_one_body
00:11:54 verbose #18519 > > else fun _ => zero_vec ()
00:11:54 verbose #18520 > > | InternalForce (n0, n1, f_two_body) =>
00:11:54 verbose #18521 > > if n = n0
00:11:54 verbose #18522 > > then f_two_body (sts |> listm'.item n1)
00:11:54 verbose #18523 > > elif n = n1
00:11:54 verbose #18524 > > then f_two_body (sts |> listm'.item n0)
00:11:54 verbose #18525 > > else fun _ => zero_vec ()
00:11:54 verbose #18526 > >
00:11:54 verbose #18527 > > inl forces_on n (multi_particle_state sts) fs =
00:11:54 verbose #18528 > > fs |> listm.map (force_on n sts)
00:11:54 verbose #18529 > >
00:11:54 verbose #18530 > > inl newton_second_mps fs (multi_particle_state sts) : d_multi_particle_state =
00:11:54 verbose #18531 > > inl deriv (n, st) =
00:11:54 verbose #18532 > > newton_second_ps (forces_on n (multi_particle_state sts) fs) st
00:11:54 verbose #18533 > > sts |> listm'.indexed |> listm.map deriv |> d_multi_particle_state
00:11:54 verbose #18534 > >
00:11:54 verbose #18535 > > instance (+++) d_multi_particle_state = fun (d_multi_particle_state dsts1)
00:11:54 verbose #18536 > > (d_multi_particle_state dsts2) =>
00:11:54 verbose #18537 > > d_multi_particle_state (listm'.zip_with_ (+++) dsts1 dsts2)
00:11:54 verbose #18538 > >
00:11:54 verbose #18539 > > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:11:54 verbose #18540 > > d_multi_particle_state (dsts |> listm.map (scale w))
00:11:54 verbose #18541 > >
00:11:54 verbose #18542 > > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:11:54 verbose #18543 > > inl (d_multi_particle_state dsts) =
00:11:54 verbose #18544 > > real
00:11:54 verbose #18545 > > match dsts with
00:11:54 verbose #18546 > > | d_multi_particle_state _ => dsts
00:11:54 verbose #18547 > > listm'.zip_with_ (shift dt) dsts sts |> multi_particle_state
00:11:54 verbose #18548 > >
00:11:54 verbose #18549 > > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:11:54 verbose #18550 > > d_multi_particle_state =
00:11:54 verbose #18551 > > fun deriv mpst0 =>
00:11:54 verbose #18552 > > inl mpst1 = euler dt deriv mpst0
00:11:54 verbose #18553 > > inl (multi_particle_state sts0) = mpst0
00:11:54 verbose #18554 > > inl (multi_particle_state sts1) = mpst1
00:11:54 verbose #18555 > > sts1
00:11:54 verbose #18556 > > |> listm'.zip_ sts0
00:11:54 verbose #18557 > > |> listm.map (fun ((particle_state st0), (particle_state st1)) =>
00:11:54 verbose #18558 > > particle_state {
00:11:54 verbose #18559 > > st1 with
00:11:54 verbose #18560 > > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:11:54 verbose #18561 > > }
00:11:54 verbose #18562 > > )
00:11:54 verbose #18563 > > |> multi_particle_state
00:11:54 verbose #18564 > >
00:11:54 verbose #18565 > > inl update_mps (method : numerical_method multi_particle_state
00:11:54 verbose #18566 > > d_multi_particle_state) =
00:11:54 verbose #18567 > > newton_second_mps >> method
00:11:54 verbose #18568 > >
00:11:54 verbose #18569 > > inl states_mps (method : numerical_method multi_particle_state
00:11:54 verbose #18570 > > d_multi_particle_state) =
00:11:54 verbose #18571 > > newton_second_mps >> method >> seq.iterate_
00:11:54 verbose #18572 > >
00:11:54 verbose #18573 > >
00:11:54 verbose #18574 > > inl kinetic_energy (particle_state st) =
00:11:54 verbose #18575 > > inl m = st.mass
00:11:54 verbose #18576 > > inl v = magnitude st.velocity
00:11:54 verbose #18577 > > 0.5 * m * v ** 2
00:11:54 verbose #18578 > >
00:11:54 verbose #18579 > > inl system_ke (multi_particle_state sts) =
00:11:54 verbose #18580 > > sts |> listm.map kinetic_energy |> listm'.sum
00:11:54 verbose #18581 > >
00:11:54 verbose #18582 > > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:11:54 verbose #18583 > > inl r1 = st1.pos_vec
00:11:54 verbose #18584 > > inl r2 = st2.pos_vec
00:11:54 verbose #18585 > > inl r21 = r2 ^-^ r1
00:11:54 verbose #18586 > > inl r21mag = magnitude r21
00:11:54 verbose #18587 > > k * (r21mag - re) ** 2 / 2
00:11:54 verbose #18588 > >
00:11:54 verbose #18589 > > inl earth_surface_gravity_pe (particle_state st) =
00:11:54 verbose #18590 > > inl g = 9.80665
00:11:54 verbose #18591 > > inl m = st.mass
00:11:54 verbose #18592 > > inl z = st.pos_vec.z
00:11:54 verbose #18593 > > m * g * z
00:11:54 verbose #18594 > >
00:11:54 verbose #18595 > > inl two_springs_pe (multi_particle_state sts) =
00:11:54 verbose #18596 > > inl st0 = sts |> listm'.item 0i32
00:11:54 verbose #18597 > > inl st1 = sts |> listm'.item 1i32
00:11:54 verbose #18598 > > linear_spring_pe 100 0.5 (default_particle_state ()) st0
00:11:54 verbose #18599 > > + linear_spring_pe 100 0.5 st0 st1
00:11:54 verbose #18600 > > + earth_surface_gravity_pe st0
00:11:54 verbose #18601 > > + earth_surface_gravity_pe st1
00:11:54 verbose #18602 > >
00:11:54 verbose #18603 > > inl two_springs_me mpst =
00:11:54 verbose #18604 > > system_ke mpst + two_springs_pe mpst
00:11:54 verbose #18605 > >
00:11:54 verbose #18606 > > inl ball_radius () = 0.03
00:11:54 verbose #18607 > >
00:11:54 verbose #18608 > > inl billiard_forces k =
00:11:54 verbose #18609 > > [[ InternalForce (0, 1, billiard_force k (2 * ball_radius ())) ]]
00:11:54 verbose #18610 > >
00:11:54 verbose #18611 > > inl billiard_update n_method k dt =
00:11:54 verbose #18612 > > update_mps (n_method dt) (billiard_forces k)
00:11:54 verbose #18613 > >
00:11:54 verbose #18614 > > inl billiard_initial () =
00:11:54 verbose #18615 > > inl ball_mass = 0.160
00:11:54 verbose #18616 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:54 verbose #18617 > > multi_particle_state [[
00:11:54 verbose #18618 > > particle_state {
00:11:54 verbose #18619 > > default_particle_state' with
00:11:54 verbose #18620 > > mass = ball_mass
00:11:54 verbose #18621 > > pos_vec = zero_vec ()
00:11:54 verbose #18622 > > velocity = 0.2 *^ i_hat ()
00:11:54 verbose #18623 > > }
00:11:54 verbose #18624 > > particle_state {
00:11:54 verbose #18625 > > default_particle_state' with
00:11:54 verbose #18626 > > mass = ball_mass
00:11:54 verbose #18627 > > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:11:54 verbose #18628 > > velocity = zero_vec ()
00:11:54 verbose #18629 > > }
00:11:54 verbose #18630 > > ]]
00:11:54 verbose #18631 > >
00:11:54 verbose #18632 > > inl billiard_states ~n_method k dt =
00:11:54 verbose #18633 > > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:11:54 verbose #18634 > >
00:11:54 verbose #18635 > > inl billiard_states_finite n_method k dt =
00:11:54 verbose #18636 > > billiard_states n_method k dt
00:11:54 verbose #18637 > > >> Some
00:11:54 verbose #18638 > > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:11:54 verbose #18639 > > (mpst |> listm'.item 0i32).time <= 10
00:11:54 verbose #18640 > > )
00:11:54 verbose #18641 > >
00:11:54 verbose #18642 > > inl momentum (particle_state st) =
00:11:54 verbose #18643 > > inl m = st.mass
00:11:54 verbose #18644 > > inl v = st.velocity
00:11:54 verbose #18645 > > m *^ v
00:11:54 verbose #18646 > >
00:11:54 verbose #18647 > > inl system_p (multi_particle_state sts) =
00:11:54 verbose #18648 > > sts |> listm.map momentum |> sum_vec
00:11:54 verbose #18649 > >
00:11:54 verbose #18650 > >
00:11:54 verbose #18651 > > inl time_ke_ec_x, time_ke_ec_y =
00:11:54 verbose #18652 > > billiard_states_finite euler_cromer_mps 30 0.03
00:11:54 verbose #18653 > > |> listm.map (fun (multi_particle_state mpst) =>
00:11:54 verbose #18654 > > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:11:54 verbose #18655 > > )
00:11:54 verbose #18656 > > |> listm'.unzip
00:11:54 verbose #18657 > >
00:11:54 verbose #18658 > > inl time_ke_rk4_x, time_ke_rk4_y =
00:11:54 verbose #18659 > > billiard_states_finite runge_kutta_4 30 0.03
00:11:54 verbose #18660 > > |> listm.map (fun (multi_particle_state mpst) =>
00:11:54 verbose #18661 > > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:11:54 verbose #18662 > > )
00:11:54 verbose #18663 > > |> listm'.unzip
00:11:54 verbose #18664 > >
00:11:54 verbose #18665 > > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:11:54 verbose #18666 > > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:11:54 verbose #18667 > >
00:11:54 verbose #18668 > > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:11:54 verbose #18669 > > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:11:54 verbose #18670 > >
00:11:54 verbose #18671 > > "system kinetic energy versus time",
00:11:54 verbose #18672 > > "time (s)",
00:11:54 verbose #18673 > > "system kinetic energy (j)",
00:11:54 verbose #18674 > > ;[[
00:11:54 verbose #18675 > > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:11:54 verbose #18676 > > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:11:54 verbose #18677 > > ]]
00:11:55 verbose #18678 > >
00:11:55 verbose #18679 > > ╭─[ 1.42s - return value ]─────────────────────────────────────────────────────╮
00:11:55 verbose #18680 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:55 verbose #18681 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:55 verbose #18682 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:55 verbose #18683 > > │ stroke="none"/> │
00:11:55 verbose #18684 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:55 verbose #18685 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:55 verbose #18686 > > │ fill="#FFFFFF"> │
00:11:55 verbose #18687 > > │ system kinetic energy versus time │
00:11:55 verbose #18688 > > │ </text> │
00:11:55 verbose #18689 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:55 verbose #18690 > > │ y2="75"/> │
00:11:55 verbose #18691 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:55 verbose #18692 > > │ y2="75"/> │
00:11:55 verbose #18693 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:55 verbose #18694 > > │ y2="75"/> │
00:11:55 verbose #18695 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:55 verbose #18696 > > │ y2="75"/> │
00:11:55 verbose #18697 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:55 verbose #18698 > > │ y2="75"/> │
00:11:55 verbose #18699 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:55 verbose #18700 > > │ x2="109" y2="75"/> │
00:11:55 verbose #18701 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:55 verbose #18702 > > │ x2="119" y2="75"/> │
00:11:55 verbose #18703 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:55 verbose #18704 > > │ x2="129" y2="75"/> │
00:11:55 verbose #18705 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:55 verbose #18706 > > │ x2="139" y2="75"/> │
00:11:55 verbose #18707 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:55 verbose #18708 > > │ x2="149" y2="75"/> │
00:11:55 verbose #18709 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:55 verbose #18710 > > │ x2="159" y2="75"/> │
00:11:55 verbose #18711 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:55 verbose #18712 > > │ x2="169" y2="75"/> │
00:11:55 verbose #18713 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:55 verbose #18714 > > │ x2="179" y2="75"/> │
00:11:55 verbose #18715 > > │ ...,104 404,104 405,104 407,104 408,104 410,104 411,104 413,104 414,104 │
00:11:55 verbose #18716 > > │ 416,104 417,104 419,104 420,104 422,104 423,104 425,104 426,104 428,104 │
00:11:55 verbose #18717 > > │ 429,104 431,104 432,104 434,104 435,104 437,104 438,104 440,104 441,104 │
00:11:55 verbose #18718 > > │ 443,104 444,104 446,104 447,104 449,104 450,104 452,104 453,104 455,104 │
00:11:55 verbose #18719 > > │ 456,104 458,104 459,104 461,104 462,104 464,104 465,104 467,104 468,104 │
00:11:55 verbose #18720 > > │ 470,104 471,104 473,104 474,104 476,104 477,104 479,104 480,104 482,104 │
00:11:55 verbose #18721 > > │ 483,104 485,104 486,104 488,104 489,104 491,104 492,104 494,104 495,104 │
00:11:55 verbose #18722 > > │ 497,104 498,104 500,104 501,104 503,104 504,104 506,104 507,104 509,104 │
00:11:55 verbose #18723 > > │ 510,104 512,104 513,104 515,104 516,104 518,104 519,104 521,104 522,104 │
00:11:55 verbose #18724 > > │ 524,104 525,104 527,104 528,104 530,104 531,104 533,104 534,104 536,104 │
00:11:55 verbose #18725 > > │ 537,104 539,104 540,104 542,104 543,104 545,104 546,104 548,104 549,104 │
00:11:55 verbose #18726 > > │ 551,104 552,104 554,104 555,104 557,104 558,104 560,104 561,104 563,104 │
00:11:55 verbose #18727 > > │ 564,104 566,104 567,104 569,104 "/> │
00:11:55 verbose #18728 > > │ <rect x="459" y="227" width="121" height="45" opacity="1" fill="none" │
00:11:55 verbose #18729 > > │ stroke="#FFFFFF"/> │
00:11:55 verbose #18730 > > │ <text x="499" y="237" dy="0.76em" text-anchor="start" │
00:11:55 verbose #18731 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:55 verbose #18732 > > │ fill="#FFFFFF"> │
00:11:55 verbose #18733 > > │ euler-cromer │
00:11:55 verbose #18734 > > │ </text> │
00:11:55 verbose #18735 > > │ <text x="499" y="252" dy="0.76em" text-anchor="start" │
00:11:55 verbose #18736 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:55 verbose #18737 > > │ fill="#FFFFFF"> │
00:11:55 verbose #18738 > > │ runge-kutta 4 │
00:11:55 verbose #18739 > > │ </text> │
00:11:55 verbose #18740 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:55 verbose #18741 > > │ points="469,242 489,242 "/> │
00:11:55 verbose #18742 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:11:55 verbose #18743 > > │ points="469,257 489,257 "/> │
00:11:55 verbose #18744 > > │ </svg> │
00:11:55 verbose #18745 > > │ │
00:11:55 verbose #18746 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:55 verbose #18747 > >
00:11:55 verbose #18748 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:55 verbose #18749 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:55 verbose #18750 > > │ ### wave 1 │
00:11:55 verbose #18751 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:55 verbose #18752 > >
00:11:55 verbose #18753 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:55 verbose #18754 > > //// test
00:11:55 verbose #18755 > >
00:11:55 verbose #18756 > > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:11:55 verbose #18757 > > inl r1 = st1.pos_vec
00:11:55 verbose #18758 > > inl r2 = st2.pos_vec
00:11:55 verbose #18759 > > inl r21 = r2 ^-^ r1
00:11:55 verbose #18760 > > inl r21mag = magnitude r21
00:11:55 verbose #18761 > > -k * (r21mag - re) *^ r21 ^/ r21mag
00:11:55 verbose #18762 > >
00:11:55 verbose #18763 > > inl fixed_linear_spring k re r1 =
00:11:55 verbose #18764 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:55 verbose #18765 > > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:11:55 verbose #18766 > > r1 })
00:11:55 verbose #18767 > >
00:11:55 verbose #18768 > > inl forces_string () =
00:11:55 verbose #18769 > > [[
00:11:55 verbose #18770 > > ExternalForce (0, fixed_linear_spring 5384 0 (zero_vec ()))
00:11:55 verbose #18771 > > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:11:55 verbose #18772 > > ]] ++ (
00:11:55 verbose #18773 > > listm'.init_series 0 59 1
00:11:55 verbose #18774 > > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:11:55 verbose #18775 > > )
00:11:55 verbose #18776 > >
00:11:55 verbose #18777 > > inl string_update dt =
00:11:55 verbose #18778 > > update_mps (runge_kutta_4 dt) (forces_string ())
00:11:55 verbose #18779 > >
00:11:55 verbose #18780 > > inl string_initial_overtone n =
00:11:55 verbose #18781 > > inl ball_mass = 0.0008293 * 0.65 / 64
00:11:55 verbose #18782 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:55 verbose #18783 > > listm'.init_series 0.01 0.64 0.01
00:11:55 verbose #18784 > > |> listm.map (fun x =>
00:11:55 verbose #18785 > > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:11:55 verbose #18786 > > particle_state {
00:11:55 verbose #18787 > > default_particle_state' with
00:11:55 verbose #18788 > > mass = ball_mass
00:11:55 verbose #18789 > > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:11:55 verbose #18790 > > velocity = zero_vec ()
00:11:55 verbose #18791 > > }
00:11:55 verbose #18792 > > )
00:11:55 verbose #18793 > > |> multi_particle_state
00:11:55 verbose #18794 > >
00:11:55 verbose #18795 > > inl string_initial_pluck () =
00:11:55 verbose #18796 > > inl ball_mass = 0.0008293 * 0.65 / 64
00:11:55 verbose #18797 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:55 verbose #18798 > > listm'.init_series 0.01 0.64 0.01
00:11:55 verbose #18799 > > |> listm.map (fun x =>
00:11:55 verbose #18800 > > inl y =
00:11:55 verbose #18801 > > inl n = if x <= 0.51 then 0 else 0.65
00:11:55 verbose #18802 > > 0.005 / (0.51 - n) * (x - n)
00:11:55 verbose #18803 > > particle_state {
00:11:55 verbose #18804 > > default_particle_state' with
00:11:55 verbose #18805 > > mass = ball_mass
00:11:55 verbose #18806 > > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:11:55 verbose #18807 > > velocity = zero_vec ()
00:11:55 verbose #18808 > > }
00:11:55 verbose #18809 > > )
00:11:55 verbose #18810 > > |> multi_particle_state
00:11:55 verbose #18811 > >
00:11:55 verbose #18812 > > let main () =
00:11:55 verbose #18813 > > inl ~frames = listm'.init_series 0 9 1f64
00:11:55 verbose #18814 > > inl initial_state = string_initial_overtone 3i32
00:11:55 verbose #18815 > > inl frames =
00:11:55 verbose #18816 > > frames
00:11:55 verbose #18817 > > |> listm.map (fun n =>
00:11:55 verbose #18818 > > inl (multi_particle_state sts) =
00:11:55 verbose #18819 > > seq.iterate' (string_update 0.000025) initial_state |> fun f =>
00:11:55 verbose #18820 > > f 0f64
00:11:55 verbose #18821 > > inl rs =
00:11:55 verbose #18822 > > [[ zero_vec () ]]
00:11:55 verbose #18823 > > ++ (sts |> listm.map (fun (particle_state st) => st.pos_vec))
00:11:55 verbose #18824 > > ++ [[ 0.65 *^ i_hat () ]]
00:11:55 verbose #18825 > > inl x, y =
00:11:55 verbose #18826 > > rs
00:11:55 verbose #18827 > > |> listm.map (fun r => r.x, r.y)
00:11:55 verbose #18828 > > |> listm'.unzip
00:11:55 verbose #18829 > > inl x : a i32 _ = x |> listm.toArray
00:11:55 verbose #18830 > > inl y : a i32 _ = y |> listm.toArray
00:11:55 verbose #18831 > > x, y
00:11:55 verbose #18832 > > )
00:11:55 verbose #18833 > > |> listm.toArray : a i32 _
00:11:55 verbose #18834 > >
00:11:55 verbose #18835 > > inl n = 0i32
00:11:55 verbose #18836 > >
00:11:55 verbose #18837 > > inl x, y = index frames n
00:11:55 verbose #18838 > >
00:11:55 verbose #18839 > > "wave",
00:11:55 verbose #18840 > > "position (m)",
00:11:55 verbose #18841 > > "displacement (m)",
00:11:55 verbose #18842 > > ;[[
00:11:55 verbose #18843 > > ($'$"{!n}"' : string), x, y
00:11:55 verbose #18844 > > ]]
00:11:55 verbose #18845 > >
00:11:55 verbose #18846 > > ╭─[ 190.15ms - return value ]──────────────────────────────────────────────────╮
00:11:55 verbose #18847 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:55 verbose #18848 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:55 verbose #18849 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:55 verbose #18850 > > │ stroke="none"/> │
00:11:55 verbose #18851 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:55 verbose #18852 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:55 verbose #18853 > > │ fill="#FFFFFF"> │
00:11:55 verbose #18854 > > │ wave │
00:11:55 verbose #18855 > > │ </text> │
00:11:55 verbose #18856 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:11:55 verbose #18857 > > │ y2="75"/> │
00:11:55 verbose #18858 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:55 verbose #18859 > > │ y2="75"/> │
00:11:55 verbose #18860 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:11:55 verbose #18861 > > │ y2="75"/> │
00:11:55 verbose #18862 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:11:55 verbose #18863 > > │ y2="75"/> │
00:11:55 verbose #18864 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:11:55 verbose #18865 > > │ y2="75"/> │
00:11:55 verbose #18866 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="100" y1="424" │
00:11:55 verbose #18867 > > │ x2="100" y2="75"/> │
00:11:55 verbose #18868 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="108" y1="424" │
00:11:55 verbose #18869 > > │ x2="108" y2="75"/> │
00:11:55 verbose #18870 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="116" y1="424" │
00:11:55 verbose #18871 > > │ x2="116" y2="75"/> │
00:11:55 verbose #18872 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="123" y1="424" │
00:11:55 verbose #18873 > > │ x2="123" y2="75"/> │
00:11:55 verbose #18874 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="131" y1="424" │
00:11:55 verbose #18875 > > │ x2="131" y2="75"/> │
00:11:55 verbose #18876 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:55 verbose #18877 > > │ x2="139" y2="75"/> │
00:11:55 verbose #18878 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="146" y1="424" │
00:11:55 verbose #18879 > > │ x2="146" y2="75"/> │
00:11:55 verbose #18880 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="154" y1="424" │
00:11:55 verbose #18881 > > │ x2="154" y2="75"/> │
00:11:55 verbose #18882 > > │ <line opacity="1" stroke="#32...ne fill="none" opacity="1" stroke="#FFFFFF" │
00:11:55 verbose #18883 > > │ stroke-width="1" points="585,250 590,250 "/> │
00:11:55 verbose #18884 > > │ <text x="617" y="184" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:11:55 verbose #18885 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:55 verbose #18886 > > │ 0.0 │
00:11:55 verbose #18887 > > │ </text> │
00:11:55 verbose #18888 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:55 verbose #18889 > > │ points="585,184 590,184 "/> │
00:11:55 verbose #18890 > > │ <text x="617" y="118" dy="0.5ex" text-anchor="end" font-family="sans-serif" │
00:11:55 verbose #18891 > > │ font-size="9.67741935483871" opacity="1" fill="#FFFFFF"> │
00:11:55 verbose #18892 > > │ 0.0 │
00:11:55 verbose #18893 > > │ </text> │
00:11:55 verbose #18894 > > │ <polyline fill="none" opacity="1" stroke="#FFFFFF" stroke-width="1" │
00:11:55 verbose #18895 > > │ points="585,118 590,118 "/> │
00:11:55 verbose #18896 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:55 verbose #18897 > > │ points="69,250 77,226 85,203 93,181 100,160 108,141 116,124 123,110 131,99 │
00:11:55 verbose #18898 > > │ 139,91 146,87 154,85 162,88 169,93 177,102 185,115 192,129 200,147 208,167 │
00:11:55 verbose #18899 > > │ 215,188 223,211 231,234 238,258 246,282 254,305 261,327 269,347 277,365 │
00:11:55 verbose #18900 > > │ 284,381 292,394 300,404 307,411 315,415 323,415 331,411 338,404 346,394 │
00:11:55 verbose #18901 > > │ 354,381 361,365 369,347 377,327 384,305 392,282 400,258 407,234 415,211 │
00:11:55 verbose #18902 > > │ 423,188 430,167 438,147 446,129 453,115 461,102 469,93 476,88 484,85 492,87 │
00:11:55 verbose #18903 > > │ 499,91 507,99 515,110 522,124 530,141 538,160 545,181 553,203 561,226 │
00:11:55 verbose #18904 > > │ 569,250 "/> │
00:11:55 verbose #18905 > > │ <rect x="525" y="235" width="55" height="30" opacity="1" fill="none" │
00:11:55 verbose #18906 > > │ stroke="#FFFFFF"/> │
00:11:55 verbose #18907 > > │ <text x="565" y="245" dy="0.76em" text-anchor="start" │
00:11:55 verbose #18908 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:55 verbose #18909 > > │ fill="#FFFFFF"> │
00:11:55 verbose #18910 > > │ 0 │
00:11:55 verbose #18911 > > │ </text> │
00:11:55 verbose #18912 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:55 verbose #18913 > > │ points="535,250 555,250 "/> │
00:11:55 verbose #18914 > > │ </svg> │
00:11:55 verbose #18915 > > │ │
00:11:55 verbose #18916 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:55 verbose #18917 > >
00:11:55 verbose #18918 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:55 verbose #18919 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:55 verbose #18920 > > │ ### system kinetic energy versus time 2 │
00:11:55 verbose #18921 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:55 verbose #18922 > >
00:11:55 verbose #18923 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:55 verbose #18924 > > //// test
00:11:55 verbose #18925 > >
00:11:55 verbose #18926 > > inl central_force f (particle_state st1) (particle_state st2) =
00:11:55 verbose #18927 > > inl r1 = st1.pos_vec
00:11:55 verbose #18928 > > inl r2 = st2.pos_vec
00:11:55 verbose #18929 > > inl r21 = r2 ^-^ r1
00:11:55 verbose #18930 > > inl r21mag = magnitude r21
00:11:55 verbose #18931 > > f r21mag *^ r21 ^/ r21mag
00:11:55 verbose #18932 > >
00:11:55 verbose #18933 > > inl billiard_force k re =
00:11:55 verbose #18934 > > inl f r =
00:11:55 verbose #18935 > > if r >= re
00:11:55 verbose #18936 > > then 0
00:11:55 verbose #18937 > > else -k * (r - re)
00:11:55 verbose #18938 > > central_force f
00:11:55 verbose #18939 > >
00:11:55 verbose #18940 > > type force_vector = vec
00:11:55 verbose #18941 > > type two_body_force = particle_state -> particle_state -> force_vector
00:11:55 verbose #18942 > >
00:11:55 verbose #18943 > > union force t =
00:11:55 verbose #18944 > > | ExternalForce : t * one_body_force
00:11:55 verbose #18945 > > | InternalForce : t * t * two_body_force
00:11:55 verbose #18946 > >
00:11:55 verbose #18947 > > nominal multi_particle_state = stream.stream particle_state
00:11:55 verbose #18948 > >
00:11:55 verbose #18949 > > nominal d_multi_particle_state = stream.stream d_particle_state
00:11:55 verbose #18950 > >
00:11:55 verbose #18951 > > inl force_on n s force =
00:11:55 verbose #18952 > > match force with
00:11:55 verbose #18953 > > | ExternalForce (n0, f_one_body) =>
00:11:55 verbose #18954 > > if n = n0
00:11:55 verbose #18955 > > then f_one_body
00:11:55 verbose #18956 > > else fun _ => zero_vec ()
00:11:55 verbose #18957 > > | InternalForce (n0, n1, f_two_body) =>
00:11:55 verbose #18958 > > if n = n0
00:11:55 verbose #18959 > > then s |> stream.try_item n1 |> optionm.map f_two_body
00:11:55 verbose #18960 > > elif n = n1
00:11:55 verbose #18961 > > then s |> stream.try_item n0 |> optionm.map f_two_body
00:11:55 verbose #18962 > > else None
00:11:55 verbose #18963 > > |> optionm'.default_value (fun _ => zero_vec ())
00:11:55 verbose #18964 > >
00:11:55 verbose #18965 > > inl forces_on n (multi_particle_state sts) fs =
00:11:55 verbose #18966 > > fs
00:11:55 verbose #18967 > > |> listm.map (force_on n sts)
00:11:55 verbose #18968 > >
00:11:55 verbose #18969 > > inl newton_second_mps fs ((multi_particle_state sts) as mpst) =
00:11:55 verbose #18970 > > inl deriv (n, st) =
00:11:55 verbose #18971 > > newton_second_ps (forces_on n mpst fs) st
00:11:55 verbose #18972 > > sts |> stream.indexed |> stream.map deriv |> d_multi_particle_state
00:11:55 verbose #18973 > >
00:11:55 verbose #18974 > > instance (+++) d_multi_particle_state =
00:11:55 verbose #18975 > > fun (d_multi_particle_state dsts1) (d_multi_particle_state dsts2) =>
00:11:55 verbose #18976 > > (dsts1, dsts2)
00:11:55 verbose #18977 > > ||> stream.zip_with (+++)
00:11:55 verbose #18978 > > |> d_multi_particle_state
00:11:55 verbose #18979 > >
00:11:55 verbose #18980 > > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:11:55 verbose #18981 > > dsts
00:11:55 verbose #18982 > > |> stream.map (scale w)
00:11:55 verbose #18983 > > |> d_multi_particle_state
00:11:55 verbose #18984 > >
00:11:55 verbose #18985 > > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:11:55 verbose #18986 > > inl (d_multi_particle_state dsts) =
00:11:55 verbose #18987 > > real
00:11:55 verbose #18988 > > match dsts with
00:11:55 verbose #18989 > > | d_multi_particle_state _ => dsts
00:11:55 verbose #18990 > > (dsts, sts)
00:11:55 verbose #18991 > > ||> stream.zip_with (shift dt)
00:11:55 verbose #18992 > > |> stream.memoize
00:11:55 verbose #18993 > > |> fun x => x ()
00:11:55 verbose #18994 > > |> multi_particle_state
00:11:55 verbose #18995 > >
00:11:55 verbose #18996 > > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:11:55 verbose #18997 > > d_multi_particle_state =
00:11:55 verbose #18998 > > fun deriv ((multi_particle_state sts0) as mpst0) =>
00:11:55 verbose #18999 > > inl (multi_particle_state sts1) = euler dt deriv mpst0
00:11:55 verbose #19000 > > (sts0, sts1)
00:11:55 verbose #19001 > > ||> stream.zip
00:11:55 verbose #19002 > > |> stream.map (fun ((particle_state st0), (particle_state st1)) =>
00:11:55 verbose #19003 > > particle_state {
00:11:55 verbose #19004 > > st1 with
00:11:55 verbose #19005 > > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:11:55 verbose #19006 > > }
00:11:55 verbose #19007 > > )
00:11:55 verbose #19008 > > |> multi_particle_state
00:11:55 verbose #19009 > >
00:11:55 verbose #19010 > > inl update_mps (method : numerical_method multi_particle_state
00:11:55 verbose #19011 > > d_multi_particle_state) =
00:11:55 verbose #19012 > > newton_second_mps >> method
00:11:55 verbose #19013 > >
00:11:55 verbose #19014 > > inl states_mps (method : numerical_method multi_particle_state
00:11:55 verbose #19015 > > d_multi_particle_state) =
00:11:55 verbose #19016 > > newton_second_mps
00:11:55 verbose #19017 > > >> method
00:11:55 verbose #19018 > > >> (fun x (multi_particle_state y) =>
00:11:55 verbose #19019 > > y
00:11:55 verbose #19020 > > |> stream.memoize
00:11:55 verbose #19021 > > |> (fun x => x ())
00:11:55 verbose #19022 > > |> multi_particle_state |> x
00:11:55 verbose #19023 > > )
00:11:55 verbose #19024 > > // >> stream.iterate
00:11:55 verbose #19025 > > >> seq.iterate'
00:11:55 verbose #19026 > >
00:11:55 verbose #19027 > > inl kinetic_energy (particle_state st) =
00:11:55 verbose #19028 > > inl m = st.mass
00:11:55 verbose #19029 > > inl v = magnitude st.velocity
00:11:55 verbose #19030 > > 0.5 * m * v ** 2
00:11:55 verbose #19031 > >
00:11:55 verbose #19032 > > inl system_ke (multi_particle_state sts) =
00:11:55 verbose #19033 > > sts
00:11:55 verbose #19034 > > |> stream.map kinetic_energy
00:11:55 verbose #19035 > > |> stream.sum
00:11:55 verbose #19036 > >
00:11:55 verbose #19037 > > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:11:55 verbose #19038 > > inl r1 = st1.pos_vec
00:11:55 verbose #19039 > > inl r2 = st2.pos_vec
00:11:55 verbose #19040 > > inl r21 = r2 ^-^ r1
00:11:55 verbose #19041 > > inl r21mag = magnitude r21
00:11:55 verbose #19042 > > k * (r21mag - re) ** 2 / 2
00:11:55 verbose #19043 > >
00:11:55 verbose #19044 > > inl earth_surface_gravity_pe (particle_state st) =
00:11:55 verbose #19045 > > inl g = 9.80665
00:11:55 verbose #19046 > > inl m = st.mass
00:11:55 verbose #19047 > > inl z = st.pos_vec.z
00:11:55 verbose #19048 > > m * g * z
00:11:55 verbose #19049 > >
00:11:55 verbose #19050 > > inl ball_radius () = 0.03
00:11:55 verbose #19051 > >
00:11:55 verbose #19052 > > inl billiard_forces k =
00:11:55 verbose #19053 > > [[ InternalForce (0i32, 1, billiard_force k (2 * ball_radius ())) ]]
00:11:55 verbose #19054 > >
00:11:55 verbose #19055 > > inl billiard_initial () =
00:11:55 verbose #19056 > > inl ball_mass = 0.160
00:11:55 verbose #19057 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:55 verbose #19058 > > [[
00:11:55 verbose #19059 > > particle_state {
00:11:55 verbose #19060 > > default_particle_state' with
00:11:55 verbose #19061 > > mass = ball_mass
00:11:55 verbose #19062 > > pos_vec = zero_vec ()
00:11:55 verbose #19063 > > velocity = 0.2 *^ i_hat ()
00:11:55 verbose #19064 > > }
00:11:55 verbose #19065 > > particle_state {
00:11:55 verbose #19066 > > default_particle_state' with
00:11:55 verbose #19067 > > mass = ball_mass
00:11:55 verbose #19068 > > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:11:55 verbose #19069 > > velocity = zero_vec ()
00:11:55 verbose #19070 > > }
00:11:55 verbose #19071 > > ]]
00:11:55 verbose #19072 > > |> stream.from_list
00:11:55 verbose #19073 > > |> multi_particle_state
00:11:55 verbose #19074 > >
00:11:55 verbose #19075 > > inl billiard_states ~n_method k dt =
00:11:55 verbose #19076 > > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:11:55 verbose #19077 > >
00:11:55 verbose #19078 > > inl billiard_states_finite n_method k dt =
00:11:55 verbose #19079 > > billiard_states n_method k dt
00:11:55 verbose #19080 > > >> Some
00:11:55 verbose #19081 > > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:11:55 verbose #19082 > > match mpst |> stream.try_item 0i32 with
00:11:55 verbose #19083 > > | Some st =>
00:11:55 verbose #19084 > > st.time <= 10
00:11:55 verbose #19085 > > | None => false
00:11:55 verbose #19086 > > )
00:11:55 verbose #19087 > >
00:11:55 verbose #19088 > > inl momentum (particle_state st) =
00:11:55 verbose #19089 > > inl m = st.mass
00:11:55 verbose #19090 > > inl v = st.velocity
00:11:55 verbose #19091 > > m *^ v
00:11:55 verbose #19092 > >
00:11:55 verbose #19093 > > inl system_p (multi_particle_state sts) =
00:11:55 verbose #19094 > > sts
00:11:55 verbose #19095 > > |> stream.map momentum
00:11:55 verbose #19096 > > |> stream.fold (^+^) (zero_vec ())
00:11:55 verbose #19097 > >
00:11:55 verbose #19098 > > inl time_ke_ec_x, time_ke_ec_y =
00:11:55 verbose #19099 > > billiard_states_finite euler_cromer_mps 30 0.03
00:11:55 verbose #19100 > > |> listm.map (fun (multi_particle_state mpst) =>
00:11:55 verbose #19101 > > mpst |> stream.try_item 0i32
00:11:55 verbose #19102 > > |> optionm.map (fun st =>
00:11:55 verbose #19103 > > st.time, system_ke (multi_particle_state mpst)
00:11:55 verbose #19104 > > )
00:11:55 verbose #19105 > > )
00:11:55 verbose #19106 > > // |> stream.to_list
00:11:55 verbose #19107 > > |> listm'.choose id
00:11:55 verbose #19108 > > |> listm'.unzip
00:11:55 verbose #19109 > >
00:11:55 verbose #19110 > > inl time_ke_rk4_x, time_ke_rk4_y =
00:11:55 verbose #19111 > > billiard_states_finite runge_kutta_4 30 0.03
00:11:55 verbose #19112 > > |> listm.map (fun (multi_particle_state mpst) =>
00:11:55 verbose #19113 > > mpst |> stream.try_item 0i32
00:11:55 verbose #19114 > > |> optionm.map (fun st =>
00:11:55 verbose #19115 > > st.time, system_ke (multi_particle_state mpst)
00:11:55 verbose #19116 > > )
00:11:55 verbose #19117 > > )
00:11:55 verbose #19118 > > // |> stream.to_list
00:11:55 verbose #19119 > > |> listm'.choose id
00:11:55 verbose #19120 > > |> listm'.unzip
00:11:55 verbose #19121 > >
00:11:55 verbose #19122 > > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:11:55 verbose #19123 > > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:11:55 verbose #19124 > >
00:11:55 verbose #19125 > > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:11:55 verbose #19126 > > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:11:55 verbose #19127 > >
00:11:55 verbose #19128 > > "system kinetic energy versus time",
00:11:55 verbose #19129 > > "time (s)",
00:11:55 verbose #19130 > > "system kinetic energy (j)",
00:11:55 verbose #19131 > > ;[[
00:11:55 verbose #19132 > > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:11:55 verbose #19133 > > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:11:55 verbose #19134 > > ]]
00:11:58 verbose #19135 > >
00:11:58 verbose #19136 > > ╭─[ 2.25s - return value ]─────────────────────────────────────────────────────╮
00:11:58 verbose #19137 > > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:11:58 verbose #19138 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:11:58 verbose #19139 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:11:58 verbose #19140 > > │ stroke="none"/> │
00:11:58 verbose #19141 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:11:58 verbose #19142 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:58 verbose #19143 > > │ fill="#FFFFFF"> │
00:11:58 verbose #19144 > > │ system kinetic energy versus time │
00:11:58 verbose #19145 > > │ </text> │
00:11:58 verbose #19146 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:11:58 verbose #19147 > > │ y2="75"/> │
00:11:58 verbose #19148 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:11:58 verbose #19149 > > │ y2="75"/> │
00:11:58 verbose #19150 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:11:58 verbose #19151 > > │ y2="75"/> │
00:11:58 verbose #19152 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:11:58 verbose #19153 > > │ y2="75"/> │
00:11:58 verbose #19154 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="424" x2="99" │
00:11:58 verbose #19155 > > │ y2="75"/> │
00:11:58 verbose #19156 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="109" y1="424" │
00:11:58 verbose #19157 > > │ x2="109" y2="75"/> │
00:11:58 verbose #19158 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="119" y1="424" │
00:11:58 verbose #19159 > > │ x2="119" y2="75"/> │
00:11:58 verbose #19160 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="129" y1="424" │
00:11:58 verbose #19161 > > │ x2="129" y2="75"/> │
00:11:58 verbose #19162 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:11:58 verbose #19163 > > │ x2="139" y2="75"/> │
00:11:58 verbose #19164 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="149" y1="424" │
00:11:58 verbose #19165 > > │ x2="149" y2="75"/> │
00:11:58 verbose #19166 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="159" y1="424" │
00:11:58 verbose #19167 > > │ x2="159" y2="75"/> │
00:11:58 verbose #19168 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="169" y1="424" │
00:11:58 verbose #19169 > > │ x2="169" y2="75"/> │
00:11:58 verbose #19170 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="179" y1="424" │
00:11:58 verbose #19171 > > │ x2="179" y2="75"/> │
00:11:58 verbose #19172 > > │ ...,104 404,104 405,104 407,104 408,104 410,104 411,104 413,104 414,104 │
00:11:58 verbose #19173 > > │ 416,104 417,104 419,104 420,104 422,104 423,104 425,104 426,104 428,104 │
00:11:58 verbose #19174 > > │ 429,104 431,104 432,104 434,104 435,104 437,104 438,104 440,104 441,104 │
00:11:58 verbose #19175 > > │ 443,104 444,104 446,104 447,104 449,104 450,104 452,104 453,104 455,104 │
00:11:58 verbose #19176 > > │ 456,104 458,104 459,104 461,104 462,104 464,104 465,104 467,104 468,104 │
00:11:58 verbose #19177 > > │ 470,104 471,104 473,104 474,104 476,104 477,104 479,104 480,104 482,104 │
00:11:58 verbose #19178 > > │ 483,104 485,104 486,104 488,104 489,104 491,104 492,104 494,104 495,104 │
00:11:58 verbose #19179 > > │ 497,104 498,104 500,104 501,104 503,104 504,104 506,104 507,104 509,104 │
00:11:58 verbose #19180 > > │ 510,104 512,104 513,104 515,104 516,104 518,104 519,104 521,104 522,104 │
00:11:58 verbose #19181 > > │ 524,104 525,104 527,104 528,104 530,104 531,104 533,104 534,104 536,104 │
00:11:58 verbose #19182 > > │ 537,104 539,104 540,104 542,104 543,104 545,104 546,104 548,104 549,104 │
00:11:58 verbose #19183 > > │ 551,104 552,104 554,104 555,104 557,104 558,104 560,104 561,104 563,104 │
00:11:58 verbose #19184 > > │ 564,104 566,104 567,104 569,104 "/> │
00:11:58 verbose #19185 > > │ <rect x="459" y="227" width="121" height="45" opacity="1" fill="none" │
00:11:58 verbose #19186 > > │ stroke="#FFFFFF"/> │
00:11:58 verbose #19187 > > │ <text x="499" y="237" dy="0.76em" text-anchor="start" │
00:11:58 verbose #19188 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:58 verbose #19189 > > │ fill="#FFFFFF"> │
00:11:58 verbose #19190 > > │ euler-cromer │
00:11:58 verbose #19191 > > │ </text> │
00:11:58 verbose #19192 > > │ <text x="499" y="252" dy="0.76em" text-anchor="start" │
00:11:58 verbose #19193 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:11:58 verbose #19194 > > │ fill="#FFFFFF"> │
00:11:58 verbose #19195 > > │ runge-kutta 4 │
00:11:58 verbose #19196 > > │ </text> │
00:11:58 verbose #19197 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:11:58 verbose #19198 > > │ points="469,242 489,242 "/> │
00:11:58 verbose #19199 > > │ <polyline fill="none" opacity="1" stroke="#0000FF" stroke-width="1" │
00:11:58 verbose #19200 > > │ points="469,257 489,257 "/> │
00:11:58 verbose #19201 > > │ </svg> │
00:11:58 verbose #19202 > > │ │
00:11:58 verbose #19203 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:58 verbose #19204 > >
00:11:58 verbose #19205 > > ── markdown ────────────────────────────────────────────────────────────────────
00:11:58 verbose #19206 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:11:58 verbose #19207 > > │ ### wave 2 │
00:11:58 verbose #19208 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:11:58 verbose #19209 > >
00:11:58 verbose #19210 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:11:58 verbose #19211 > > //// test
00:11:58 verbose #19212 > >
00:11:58 verbose #19213 > > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:11:58 verbose #19214 > > inl r1 = st1.pos_vec
00:11:58 verbose #19215 > > inl r2 = st2.pos_vec
00:11:58 verbose #19216 > > inl r21 = r2 ^-^ r1
00:11:58 verbose #19217 > > inl r21mag = magnitude r21
00:11:58 verbose #19218 > > -k * (r21mag - re) *^ r21 ^/ r21mag
00:11:58 verbose #19219 > >
00:11:58 verbose #19220 > > inl fixed_linear_spring k re r1 =
00:11:58 verbose #19221 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:58 verbose #19222 > > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:11:58 verbose #19223 > > r1 })
00:11:58 verbose #19224 > >
00:11:58 verbose #19225 > > inl forces_string () =
00:11:58 verbose #19226 > > [[
00:11:58 verbose #19227 > > ExternalForce (0i32, fixed_linear_spring 5384 0 (zero_vec ()))
00:11:58 verbose #19228 > > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:11:58 verbose #19229 > > ]] ++ (
00:11:58 verbose #19230 > > listm'.init_series 0 59 1
00:11:58 verbose #19231 > > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:11:58 verbose #19232 > > )
00:11:58 verbose #19233 > >
00:11:58 verbose #19234 > > inl string_update dt =
00:11:58 verbose #19235 > > update_mps (join runge_kutta_4 dt) (join forces_string ())
00:11:58 verbose #19236 > >
00:11:58 verbose #19237 > > inl string_initial_overtone n =
00:11:58 verbose #19238 > > inl ball_mass = 0.0008293 * 0.65 / 64
00:11:58 verbose #19239 > > inl (particle_state default_particle_state') = default_particle_state ()
00:11:58 verbose #19240 > > listm'.init_series 0.01 0.64 0.01
00:11:58 verbose #19241 > > |> listm.map (fun x =>
00:11:58 verbose #19242 > > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:11:58 verbose #19243 > > particle_state {
00:11:58 verbose #19244 > > default_particle_state' with
00:11:58 verbose #19245 > > mass = ball_mass
00:11:58 verbose #19246 > > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:11:58 verbose #19247 > > velocity = zero_vec ()
00:11:58 verbose #19248 > > }
00:11:58 verbose #19249 > > )
00:11:58 verbose #19250 > > |> stream.from_list
00:11:58 verbose #19251 > > |> multi_particle_state
00:11:58 verbose #19252 > >
00:11:58 verbose #19253 > > let main () =
00:11:58 verbose #19254 > > inl ~frames = listm'.init_series 0 65 1f64 |> stream.from_list
00:11:58 verbose #19255 > > inl ~initial_state = string_initial_overtone 3i32
00:11:58 verbose #19256 > > inl frames =
00:11:58 verbose #19257 > > frames
00:11:58 verbose #19258 > > |> stream.map (fun n =>
00:11:58 verbose #19259 > > inl (multi_particle_state sts) =
00:11:58 verbose #19260 > > stream.iterate (string_update 0.000025) initial_state |>
00:11:58 verbose #19261 > > stream.item n
00:11:58 verbose #19262 > > inl x, y =
00:11:58 verbose #19263 > > [[ zero_vec () ]]
00:11:58 verbose #19264 > > ++ (sts |> stream.map (fun (particle_state st) => st.pos_vec) |>
00:11:58 verbose #19265 > > stream.to_list)
00:11:58 verbose #19266 > > ++ [[ 0.65 *^ i_hat () ]]
00:11:58 verbose #19267 > > |> listm.map (fun r => r.x, r.y)
00:11:58 verbose #19268 > > |> stream.from_list
00:11:58 verbose #19269 > > |> stream.unzip
00:11:58 verbose #19270 > > inl x : a i32 _ = x |> stream.to_list |> listm.toArray
00:11:58 verbose #19271 > > inl y : a i32 _ = y |> stream.to_list |> listm.toArray
00:11:58 verbose #19272 > > x, y
00:11:58 verbose #19273 > > )
00:11:58 verbose #19274 > >
00:11:58 verbose #19275 > > inl plots =
00:11:58 verbose #19276 > > frames
00:11:58 verbose #19277 > > |> stream.indexed
00:11:58 verbose #19278 > > |> stream.map (fun ((n : i32), (x, y)) =>
00:11:58 verbose #19279 > > "wave",
00:11:58 verbose #19280 > > "position (m)",
00:11:58 verbose #19281 > > "displacement (m)",
00:11:58 verbose #19282 > > ;[[
00:11:58 verbose #19283 > > ($'$"{!n}"' : string), x, y
00:11:58 verbose #19284 > > ]]
00:11:58 verbose #19285 > > )
00:11:58 verbose #19286 > >
00:11:58 verbose #19287 > > plots |> stream.to_list |> listm.toArray : a i32 _
00:12:05 verbose #19288 > >
00:12:05 verbose #19289 > > ╭─[ 7.29s - return value ]─────────────────────────────────────────────────────╮
00:12:05 verbose #19290 > > │ <table><thead><tr><th><i>index</i></th><th>value</th></tr></thead><tbody><tr │
00:12:05 verbose #19291 > > │ ><td>0</td><td><svg width="640" height="480" viewBox="0 0 640 480" │
00:12:05 verbose #19292 > > │ xmlns="http://www.w3.org/2000/svg"> │
00:12:05 verbose #19293 > > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:12:05 verbose #19294 > > │ stroke="none"/> │
00:12:05 verbose #19295 > > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:12:05 verbose #19296 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:12:05 verbose #19297 > > │ fill="#FFFFFF"> │
00:12:05 verbose #19298 > > │ wave │
00:12:05 verbose #19299 > > │ </text> │
00:12:05 verbose #19300 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:12:05 verbose #19301 > > │ y2="75"/> │
00:12:05 verbose #19302 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:12:05 verbose #19303 > > │ y2="75"/> │
00:12:05 verbose #19304 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:12:05 verbose #19305 > > │ y2="75"/> │
00:12:05 verbose #19306 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:12:05 verbose #19307 > > │ y2="75"/> │
00:12:05 verbose #19308 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:12:05 verbose #19309 > > │ y2="75"/> │
00:12:05 verbose #19310 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="100" y1="424" │
00:12:05 verbose #19311 > > │ x2="100" y2="75"/> │
00:12:05 verbose #19312 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="108" y1="424" │
00:12:05 verbose #19313 > > │ x2="108" y2="75"/> │
00:12:05 verbose #19314 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="116" y1="424" │
00:12:05 verbose #19315 > > │ x2="116" y2="75"/> │
00:12:05 verbose #19316 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="123" y1="424" │
00:12:05 verbose #19317 > > │ x2="123" y2="75"/> │
00:12:05 verbose #19318 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="131" y1="424" │
00:12:05 verbose #19319 > > │ x2="131" y2="75"/> │
00:12:05 verbose #19320 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="139" y1="424" │
00:12:05 verbose #19321 > > │ x2="139" y2="75"/> │
00:12:05 verbose #19322 > > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="146" y1="424" │
00:12:05 verbose #19323 > > │ x2="146" y2="75"/> │
00:12:05 verbose #19324 > > │ <line opacity="1" stroke="#...28 590,128 "/> │
00:12:05 verbose #19325 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:12:05 verbose #19326 > > │ points="69,363 77,322 85,283 92,246 100,211 107,179 115,151 122,127 130,108 │
00:12:05 verbose #19327 > > │ 138,95 145,87 153,85 160,89 168,99 175,114 183,134 190,159 198,188 205,220 │
00:12:05 verbose #19328 > > │ 212,253 218,284 223,311 226,329 227,337 226,337 224,333 223,334 223,344 │
00:12:05 verbose #19329 > > │ 224,357 225,367 224,370 223,374 224,383 224,393 224,397 224,400 224,406 │
00:12:05 verbose #19330 > > │ 224,411 224,412 224,413 224,415 224,413 224,411 224,409 224,405 224,400 │
00:12:05 verbose #19331 > > │ 224,395 224,388 224,382 224,375 224,367 224,360 224,353 224,346 224,339 │
00:12:05 verbose #19332 > > │ 224,332 224,327 224,322 224,318 224,314 224,312 224,311 539,239 546,279 │
00:12:05 verbose #19333 > > │ 569,403 561,363 "/> │
00:12:05 verbose #19334 > > │ <rect x="519" y="235" width="61" height="30" opacity="1" fill="none" │
00:12:05 verbose #19335 > > │ stroke="#FFFFFF"/> │
00:12:05 verbose #19336 > > │ <text x="559" y="245" dy="0.76em" text-anchor="start" │
00:12:05 verbose #19337 > > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:12:05 verbose #19338 > > │ fill="#FFFFFF"> │
00:12:05 verbose #19339 > > │ 65 │
00:12:05 verbose #19340 > > │ </text> │
00:12:05 verbose #19341 > > │ <polyline fill="none" opacity="1" stroke="#FF0000" stroke-width="1" │
00:12:05 verbose #19342 > > │ points="529,250 549,250 "/> │
00:12:05 verbose #19343 > > │ </svg> │
00:12:05 verbose #19344 > > │ </td></tr></tbody></table><style> │
00:12:05 verbose #19345 > > │ .dni-code-hint { │
00:12:05 verbose #19346 > > │ font-style: italic; │
00:12:05 verbose #19347 > > │ overflow: hidden; │
00:12:05 verbose #19348 > > │ white-space: nowrap; │
00:12:05 verbose #19349 > > │ } │
00:12:05 verbose #19350 > > │ .dni-treeview { │
00:12:05 verbose #19351 > > │ white-space: nowrap; │
00:12:05 verbose #19352 > > │ } │
00:12:05 verbose #19353 > > │ .dni-treeview td { │
00:12:05 verbose #19354 > > │ vertical-align: top; │
00:12:05 verbose #19355 > > │ text-align: start; │
00:12:05 verbose #19356 > > │ } │
00:12:05 verbose #19357 > > │ details.dni-treeview { │
00:12:05 verbose #19358 > > │ padding-left: 1em; │
00:12:05 verbose #19359 > > │ } │
00:12:05 verbose #19360 > > │ table td { │
00:12:05 verbose #19361 > > │ text-align: start; │
00:12:05 verbose #19362 > > │ } │
00:12:05 verbose #19363 > > │ table tr { │
00:12:05 verbose #19364 > > │ vertical-align: top; │
00:12:05 verbose #19365 > > │ margin: 0em 0px; │
00:12:05 verbose #19366 > > │ } │
00:12:05 verbose #19367 > > │ table tr td pre │
00:12:05 verbose #19368 > > │ { │
00:12:05 verbose #19369 > > │ vertical-align: top !important; │
00:12:05 verbose #19370 > > │ margin: 0em 0px !important; │
00:12:05 verbose #19371 > > │ } │
00:12:05 verbose #19372 > > │ table th { │
00:12:05 verbose #19373 > > │ text-align: start; │
00:12:05 verbose #19374 > > │ } │
00:12:05 verbose #19375 > > │ </style> │
00:12:05 verbose #19376 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:05 verbose #19377 > >
00:12:05 verbose #19378 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:05 verbose #19379 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:05 verbose #19380 > > │ ## end │
00:12:05 verbose #19381 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:05 verbose #19382 > 00:00:41 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 209290
00:12:05 verbose #19383 > 00:00:41 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/physics.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:12:08 verbose #19384 > 00:00:43 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/physics.dib.ipynb to html
00:12:08 verbose #19385 > 00:00:43 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:12:08 verbose #19386 > 00:00:43 verbose #7 ! validate(nb)
00:12:09 verbose #19387 > 00:12:08 debug #17 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/8917d8299cf2e44bc50a26d5256184137fcb3987b36c48aa070d4c9436065fbc/main.spi
00:12:13 verbose #19388 > 00:00:49 verbose #8 ! [NbConvertApp] Writing 2510600 bytes to c:\home\git\polyglot\lib\spiral\physics.dib.html
00:12:13 verbose #19389 > 00:00:49 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 646
00:12:13 verbose #19390 > 00:00:49 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 646
00:12:13 verbose #19391 > 00:00:49 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/physics.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/physics.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:12:14 verbose #19392 > 00:00:50 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:12:14 verbose #19393 > 00:00:50 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:12:15 verbose #19394 > 00:00:51 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 209995
00:12:15 debug #19395 runtime.execute_with_options_async / exit_code: 0 / output.Length: 221437
00:12:15 debug #27 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path physics.dib --retries 3
00:12:15 debug #19396 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path benchmark.dib --retries 3",
[||], None, None, true, None)
00:12:16 verbose #19397 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "benchmark.dib", "--retries", "3"])
00:12:16 verbose #19398 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/benchmark.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/benchmark.dib" --output-path "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:12:18 verbose #19399 > >
00:12:18 verbose #19400 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:18 verbose #19401 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:18 verbose #19402 > > │ ## benchmark (Polyglot) │
00:12:18 verbose #19403 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:18 verbose #19404 > >
00:12:18 verbose #19405 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:18 verbose #19406 > > //// test
00:12:18 verbose #19407 > >
00:12:18 verbose #19408 > > open testing
00:12:18 verbose #19409 > >
00:12:18 verbose #19410 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:12:18 verbose #19411 > > #r
00:12:18 verbose #19412 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:18 verbose #19413 > > otNet.Interactive.Spiral.dll"
00:12:18 verbose #19414 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:12:18 verbose #19415 > > #r
00:12:18 verbose #19416 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:18 verbose #19417 > > otNet.Interactive.dll"
00:12:18 verbose #19418 > > open type Microsoft.DotNet.Interactive.Kernel
00:12:22 verbose #19419 > >
00:12:22 verbose #19420 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:22 verbose #19421 > > inl gc_collect () =
00:12:22 verbose #19422 > > run_target function
00:12:22 verbose #19423 > > | Fsharp _ => fun () => $'System.GC.Collect' ()
00:12:22 verbose #19424 > > | _ => fun () => ()
00:12:22 verbose #19425 > >
00:12:22 verbose #19426 > > inl printfn x =
00:12:22 verbose #19427 > > console.write_line x
00:12:22 verbose #19428 > >
00:12:22 verbose #19429 > > nominal stopwatch = $'System.Diagnostics.Stopwatch'
00:12:22 verbose #19430 > >
00:12:22 verbose #19431 > > inl stopwatch () : stopwatch =
00:12:22 verbose #19432 > > $'`stopwatch ' ()
00:12:22 verbose #19433 > >
00:12:22 verbose #19434 > > inl stopwatch_elapsed_milliseconds (stopwatch : stopwatch) : i64 =
00:12:22 verbose #19435 > > $'!stopwatch.ElapsedMilliseconds'
00:12:22 verbose #19436 > >
00:12:22 verbose #19437 > > inl stopwatch_start (stopwatch : stopwatch) : () =
00:12:22 verbose #19438 > > $'!stopwatch.Start' ()
00:12:22 verbose #19439 > >
00:12:22 verbose #19440 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:22 verbose #19441 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:22 verbose #19442 > > │ ## test_case_result │
00:12:22 verbose #19443 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:22 verbose #19444 > >
00:12:22 verbose #19445 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:22 verbose #19446 > > type test_case_result =
00:12:22 verbose #19447 > > {
00:12:22 verbose #19448 > > Input : string
00:12:22 verbose #19449 > > Expected : string
00:12:22 verbose #19450 > > Result : string
00:12:22 verbose #19451 > > TimeList : a u64 i64
00:12:22 verbose #19452 > > }
00:12:23 verbose #19453 > >
00:12:23 verbose #19454 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:23 verbose #19455 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:23 verbose #19456 > > │ ## run │
00:12:23 verbose #19457 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:23 verbose #19458 > >
00:12:23 verbose #19459 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:23 verbose #19460 > > inl run forall input expected.
00:12:23 verbose #19461 > > count
00:12:23 verbose #19462 > > (solutions : list (string * (input -> expected)))
00:12:23 verbose #19463 > > ((input, expected) : (input * expected))
00:12:23 verbose #19464 > > : test_case_result
00:12:23 verbose #19465 > > =
00:12:23 verbose #19466 > > inl input_str = input |> sm'.format_debug
00:12:23 verbose #19467 > >
00:12:23 verbose #19468 > > printfn ""
00:12:23 verbose #19469 > > printfn ($'$"Solution: {!input_str} "' : string)
00:12:23 verbose #19470 > >
00:12:23 verbose #19471 > > inl performance_invoke (fn : () -> expected) =
00:12:23 verbose #19472 > > gc_collect ()
00:12:23 verbose #19473 > > inl stopwatch = stopwatch ()
00:12:23 verbose #19474 > > stopwatch |> stopwatch_start
00:12:23 verbose #19475 > > inl time1 = stopwatch |> stopwatch_elapsed_milliseconds
00:12:23 verbose #19476 > > inl result : expected =
00:12:23 verbose #19477 > > am'.init_series 0 count 1i32
00:12:23 verbose #19478 > > |> am'.parallel_map fun _n => fn ()
00:12:23 verbose #19479 > > |> am'.last
00:12:23 verbose #19480 > > inl time2 = (stopwatch |> stopwatch_elapsed_milliseconds) - time1
00:12:23 verbose #19481 > > result, time2
00:12:23 verbose #19482 > >
00:12:23 verbose #19483 > > inl results_with_time : a u64 _ =
00:12:23 verbose #19484 > > solutions
00:12:23 verbose #19485 > > |> listm'.indexed
00:12:23 verbose #19486 > > |> listm.toArray
00:12:23 verbose #19487 > > |> am.map fun ((i : i32), (test_name, solution)) =>
00:12:23 verbose #19488 > > inl result, time = performance_invoke fun () => solution input
00:12:23 verbose #19489 > > printfn ($'$"Test case {!i + 1}. {!test_name}. Time: {!time} "' :
00:12:23 verbose #19490 > > string)
00:12:23 verbose #19491 > > result, time
00:12:23 verbose #19492 > >
00:12:23 verbose #19493 > > match results_with_time |> am.map fst with
00:12:23 verbose #19494 > > | array when length array <= 1 => ()
00:12:23 verbose #19495 > > | array when array |> am.forall' ((=) (index array 0)) => ()
00:12:23 verbose #19496 > > | results => failwith ($'$"Challenge error: {!results}"' : string)
00:12:23 verbose #19497 > >
00:12:23 verbose #19498 > > {
00:12:23 verbose #19499 > > Input = input_str
00:12:23 verbose #19500 > > Expected = expected |> sm'.format_debug
00:12:23 verbose #19501 > > Result = results_with_time |> am.map fst |> fun array => index array 0
00:12:23 verbose #19502 > > |> sm'.format_debug
00:12:23 verbose #19503 > > TimeList = results_with_time |> am.map snd
00:12:23 verbose #19504 > > }
00:12:23 verbose #19505 > >
00:12:23 verbose #19506 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:23 verbose #19507 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:23 verbose #19508 > > │ ## run_all │
00:12:23 verbose #19509 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:23 verbose #19510 > >
00:12:23 verbose #19511 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:23 verbose #19512 > > inl run_all forall input expected.
00:12:23 verbose #19513 > > test_name
00:12:23 verbose #19514 > > count
00:12:23 verbose #19515 > > (solutions : list (string * (input -> expected)))
00:12:23 verbose #19516 > > test_cases
00:12:23 verbose #19517 > > =
00:12:23 verbose #19518 > > printfn ""
00:12:23 verbose #19519 > > printfn ""
00:12:23 verbose #19520 > > printfn ($'$"Test: {!test_name}"' : string)
00:12:23 verbose #19521 > > test_cases
00:12:23 verbose #19522 > > |> listm.toArray
00:12:23 verbose #19523 > > |> am.map (run count solutions)
00:12:23 verbose #19524 > >
00:12:23 verbose #19525 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:23 verbose #19526 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:23 verbose #19527 > > │ ## sort_result_list │
00:12:23 verbose #19528 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:23 verbose #19529 > >
00:12:23 verbose #19530 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:23 verbose #19531 > > inl sort_result_list results =
00:12:23 verbose #19532 > > inl table =
00:12:23 verbose #19533 > > inl rows =
00:12:23 verbose #19534 > > results
00:12:23 verbose #19535 > > |> am.map fun (result : test_case_result) =>
00:12:23 verbose #19536 > > inl best =
00:12:23 verbose #19537 > > result.TimeList
00:12:23 verbose #19538 > > |> am'.indexed
00:12:23 verbose #19539 > > |> am.map fun (i, time) =>
00:12:23 verbose #19540 > > i + 1i64, time
00:12:23 verbose #19541 > > |> am'.sort_by snd
00:12:23 verbose #19542 > > |> fun array => index array 0i32
00:12:23 verbose #19543 > > |> sm'.format_debug
00:12:23 verbose #19544 > > inl row =
00:12:23 verbose #19545 > > [[
00:12:23 verbose #19546 > > result.Input
00:12:23 verbose #19547 > > result.Expected
00:12:23 verbose #19548 > > result.Result
00:12:23 verbose #19549 > > best
00:12:23 verbose #19550 > > ]]
00:12:23 verbose #19551 > > inl color : option console.console_color =
00:12:23 verbose #19552 > > open console
00:12:23 verbose #19553 > > match result.Expected = result.Result with
00:12:23 verbose #19554 > > | true => Some $'`console_color.DarkGreen'
00:12:23 verbose #19555 > > | false => Some $'`console_color.DarkRed'
00:12:23 verbose #19556 > > row, color
00:12:23 verbose #19557 > >
00:12:23 verbose #19558 > > inl header =
00:12:23 verbose #19559 > > [[
00:12:23 verbose #19560 > > [[
00:12:23 verbose #19561 > > "Input"
00:12:23 verbose #19562 > > "Expected"
00:12:23 verbose #19563 > > "Result"
00:12:23 verbose #19564 > > "Best"
00:12:23 verbose #19565 > > ]]
00:12:23 verbose #19566 > > [[
00:12:23 verbose #19567 > > "---"
00:12:23 verbose #19568 > > "---"
00:12:23 verbose #19569 > > "---"
00:12:23 verbose #19570 > > "---"
00:12:23 verbose #19571 > > ]]
00:12:23 verbose #19572 > > ]]
00:12:23 verbose #19573 > > |> listm.map fun row => row, None
00:12:23 verbose #19574 > > |> listm.toArray
00:12:23 verbose #19575 > > rows |> am.append header
00:12:23 verbose #19576 > >
00:12:23 verbose #19577 > > inl formattedTable =
00:12:23 verbose #19578 > > inl lengthMap : mapm.map i32 i64 =
00:12:23 verbose #19579 > > table
00:12:23 verbose #19580 > > |> am.map (fst >> listm.toArray)
00:12:23 verbose #19581 > > |> am'.transpose
00:12:23 verbose #19582 > > |> am.map fun column =>
00:12:23 verbose #19583 > > column
00:12:23 verbose #19584 > > |> am.map sm.length
00:12:23 verbose #19585 > > |> am'.sort_descending
00:12:23 verbose #19586 > > |> am'.try_item 0i32
00:12:23 verbose #19587 > > |> optionm'.default_value 0i64
00:12:23 verbose #19588 > > |> am'.indexed
00:12:23 verbose #19589 > > |> fun (x : a i32 _) => x
00:12:23 verbose #19590 > > |> mapm.of_array
00:12:23 verbose #19591 > > table
00:12:23 verbose #19592 > > |> am.map fun (row, color) =>
00:12:23 verbose #19593 > > inl newRow =
00:12:23 verbose #19594 > > row
00:12:23 verbose #19595 > > |> listm'.indexed
00:12:23 verbose #19596 > > |> listm.map fun (i, cell) =>
00:12:23 verbose #19597 > > cell |> sm'.pad_right (lengthMap |> mapm.item i |> conv) ' '
00:12:23 verbose #19598 > > |> listm.toArray
00:12:23 verbose #19599 > > newRow, color
00:12:23 verbose #19600 > >
00:12:23 verbose #19601 > > printfn ""
00:12:23 verbose #19602 > > formattedTable
00:12:23 verbose #19603 > > |> am.iter fun ((row : a i32 string), color) =>
00:12:23 verbose #19604 > > match color with
00:12:23 verbose #19605 > > | Some color => color |> console.set_foreground_color
00:12:23 verbose #19606 > > | None => console.reset_color ()
00:12:23 verbose #19607 > >
00:12:23 verbose #19608 > > printfn (row |> sm'.join' "\t| ")
00:12:23 verbose #19609 > >
00:12:23 verbose #19610 > > console.reset_color ()
00:12:23 verbose #19611 > >
00:12:23 verbose #19612 > > inl averages : a u64 _ =
00:12:23 verbose #19613 > > results
00:12:23 verbose #19614 > > |> am.map fun result =>
00:12:23 verbose #19615 > > result.TimeList
00:12:23 verbose #19616 > > |> am.map ($'float' : i64 -> f64)
00:12:23 verbose #19617 > > |> am'.transpose
00:12:23 verbose #19618 > > |> am.map am'.average
00:12:23 verbose #19619 > > |> am.map ($'int64' : f64 -> i64)
00:12:23 verbose #19620 > > |> am'.indexed
00:12:23 verbose #19621 > >
00:12:23 verbose #19622 > > printfn ""
00:12:23 verbose #19623 > > printfn "Average Ranking "
00:12:23 verbose #19624 > > averages
00:12:23 verbose #19625 > > |> am'.sort_by snd
00:12:23 verbose #19626 > > |> am.iter fun ((i : i32), avg) =>
00:12:23 verbose #19627 > > printfn ($'$"Test case %d{!i + 1}. Average Time: %A{!avg} "' : string)
00:12:23 verbose #19628 > >
00:12:23 verbose #19629 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:23 verbose #19630 > > //// test
00:12:23 verbose #19631 > >
00:12:23 verbose #19632 > > inl is_fast () =
00:12:23 verbose #19633 > > false
00:12:23 verbose #19634 > >
00:12:23 verbose #19635 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:23 verbose #19636 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:23 verbose #19637 > > │ ## empty2Tests │
00:12:23 verbose #19638 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:23 verbose #19639 > >
00:12:23 verbose #19640 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:23 verbose #19641 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:23 verbose #19642 > > │ Test: Empty2 │
00:12:23 verbose #19643 > > │ │
00:12:23 verbose #19644 > > │ Solution: (a, a) │
00:12:23 verbose #19645 > > │ Test case 1. A. Time: 59L │
00:12:23 verbose #19646 > > │ │
00:12:23 verbose #19647 > > │ Solution: (a, a) │
00:12:23 verbose #19648 > > │ Test case 1. A. Time: 53L │
00:12:23 verbose #19649 > > │ │
00:12:23 verbose #19650 > > │ Input | Expected | Result | Best │
00:12:23 verbose #19651 > > │ --- | --- | --- | --- │
00:12:23 verbose #19652 > > │ (a, a) | a | a | (1, 59) │
00:12:23 verbose #19653 > > │ (a, a) | a | a | (1, 53) │
00:12:23 verbose #19654 > > │ │
00:12:23 verbose #19655 > > │ Averages │
00:12:23 verbose #19656 > > │ Test case 1. Average Time: 56L │
00:12:23 verbose #19657 > > │ │
00:12:23 verbose #19658 > > │ Ranking │
00:12:23 verbose #19659 > > │ Test case 1. Average Time: 56L │
00:12:23 verbose #19660 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:23 verbose #19661 > >
00:12:23 verbose #19662 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:23 verbose #19663 > > //// test
00:12:23 verbose #19664 > >
00:12:23 verbose #19665 > > inl get_solutions () =
00:12:23 verbose #19666 > > [[
00:12:23 verbose #19667 > > "A",
00:12:23 verbose #19668 > > fun (a, _b) =>
00:12:23 verbose #19669 > > a
00:12:23 verbose #19670 > >
00:12:23 verbose #19671 > > "B",
00:12:23 verbose #19672 > > fun (_a, b) =>
00:12:23 verbose #19673 > > b
00:12:23 verbose #19674 > > ]]
00:12:23 verbose #19675 > >
00:12:23 verbose #19676 > > inl rec empty_2_tests () =
00:12:23 verbose #19677 > > inl test_cases = [[
00:12:23 verbose #19678 > > ("a", "a"), "a"
00:12:23 verbose #19679 > > ("b", "b"), "b"
00:12:23 verbose #19680 > > ]]
00:12:23 verbose #19681 > >
00:12:23 verbose #19682 > > inl solutions = get_solutions ()
00:12:23 verbose #19683 > >
00:12:23 verbose #19684 > > // inl is_fast () = true
00:12:23 verbose #19685 > >
00:12:23 verbose #19686 > > inl count =
00:12:23 verbose #19687 > > if is_fast ()
00:12:23 verbose #19688 > > then 1000i32
00:12:23 verbose #19689 > > else 2000000i32
00:12:23 verbose #19690 > >
00:12:23 verbose #19691 > > run_all (nameof empty_2_tests) count solutions test_cases
00:12:23 verbose #19692 > > |> sort_result_list
00:12:23 verbose #19693 > >
00:12:23 verbose #19694 > > empty_2_tests ()
00:12:32 verbose #19695 > >
00:12:32 verbose #19696 > > ╭─[ 9.52s - stdout ]───────────────────────────────────────────────────────────╮
00:12:32 verbose #19697 > > │ │
00:12:32 verbose #19698 > > │ │
00:12:32 verbose #19699 > > │ Test: v0 │
00:12:32 verbose #19700 > > │ │
00:12:32 verbose #19701 > > │ Solution: struct ("a", "a") │
00:12:32 verbose #19702 > > │ Test case 1. A. Time: 95 │
00:12:32 verbose #19703 > > │ Test case 2. B. Time: 90 │
00:12:32 verbose #19704 > > │ │
00:12:32 verbose #19705 > > │ Solution: struct ("b", "b") │
00:12:32 verbose #19706 > > │ Test case 1. A. Time: 109 │
00:12:32 verbose #19707 > > │ Test case 2. B. Time: 114 │
00:12:32 verbose #19708 > > │ │
00:12:32 verbose #19709 > > │ Input | Expected | Result | Best │
00:12:32 verbose #19710 > > │ --- | --- | --- | --- │
00:12:32 verbose #19711 > > │ struct ("a", "a") | "a" | "a" | struct (2L, 90L) │
00:12:32 verbose #19712 > > │ struct ("b", "b") | "b" | "b" | struct (1L, 109L) │
00:12:32 verbose #19713 > > │ │
00:12:32 verbose #19714 > > │ Average Ranking │
00:12:32 verbose #19715 > > │ Test case 1. Average Time: 102L │
00:12:32 verbose #19716 > > │ Test case 2. Average Time: 102L │
00:12:32 verbose #19717 > > │ │
00:12:32 verbose #19718 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:32 verbose #19719 > >
00:12:32 verbose #19720 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:32 verbose #19721 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:32 verbose #19722 > > │ ## emptyTests │
00:12:32 verbose #19723 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:32 verbose #19724 > >
00:12:32 verbose #19725 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:32 verbose #19726 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:32 verbose #19727 > > │ Test: Empty │
00:12:32 verbose #19728 > > │ │
00:12:32 verbose #19729 > > │ Solution: 0 │
00:12:32 verbose #19730 > > │ Test case 1. A. Time: 61L │
00:12:32 verbose #19731 > > │ │
00:12:32 verbose #19732 > > │ Solution: 2 │
00:12:32 verbose #19733 > > │ Test case 1. A. Time: 62L │
00:12:32 verbose #19734 > > │ │
00:12:32 verbose #19735 > > │ Solution: 5 │
00:12:32 verbose #19736 > > │ Test case 1. A. Time: 70L │
00:12:32 verbose #19737 > > │ │
00:12:32 verbose #19738 > > │ Input | Expected | Result | Best │
00:12:32 verbose #19739 > > │ --- | --- | --- | --- │
00:12:32 verbose #19740 > > │ 0 | 0 | 0 | (1, 61) │
00:12:32 verbose #19741 > > │ 2 | 2 | 2 | (1, 62) │
00:12:32 verbose #19742 > > │ 5 | 5 | 5 | (1, 70) │
00:12:32 verbose #19743 > > │ │
00:12:32 verbose #19744 > > │ Averages │
00:12:32 verbose #19745 > > │ Test case 1. Average Time: 64L │
00:12:32 verbose #19746 > > │ │
00:12:32 verbose #19747 > > │ Ranking │
00:12:32 verbose #19748 > > │ Test case 1. Average Time: 64L │
00:12:32 verbose #19749 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:32 verbose #19750 > >
00:12:32 verbose #19751 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:32 verbose #19752 > > //// test
00:12:32 verbose #19753 > >
00:12:32 verbose #19754 > > inl get_solutions () =
00:12:32 verbose #19755 > > [[
00:12:32 verbose #19756 > > "A",
00:12:32 verbose #19757 > > fun n =>
00:12:32 verbose #19758 > > n + 1f64
00:12:32 verbose #19759 > > ]]
00:12:32 verbose #19760 > >
00:12:32 verbose #19761 > > inl rec empty_1_tests () =
00:12:32 verbose #19762 > > inl test_cases = [[
00:12:32 verbose #19763 > > 0, 1
00:12:32 verbose #19764 > > 2, 3
00:12:32 verbose #19765 > > 5, 6
00:12:32 verbose #19766 > > ]]
00:12:32 verbose #19767 > >
00:12:32 verbose #19768 > > inl solutions = get_solutions ()
00:12:32 verbose #19769 > >
00:12:32 verbose #19770 > > // inl is_fast () = true
00:12:32 verbose #19771 > >
00:12:32 verbose #19772 > > inl count =
00:12:32 verbose #19773 > > if is_fast ()
00:12:32 verbose #19774 > > then 1000i32
00:12:32 verbose #19775 > > else 2000000i32
00:12:32 verbose #19776 > >
00:12:32 verbose #19777 > > run_all (nameof empty_1_tests) count solutions test_cases
00:12:32 verbose #19778 > > |> sort_result_list
00:12:32 verbose #19779 > >
00:12:32 verbose #19780 > > empty_1_tests ()
00:12:37 verbose #19781 > >
00:12:37 verbose #19782 > > ╭─[ 5.20s - stdout ]───────────────────────────────────────────────────────────╮
00:12:37 verbose #19783 > > │ │
00:12:37 verbose #19784 > > │ │
00:12:37 verbose #19785 > > │ Test: v0 │
00:12:37 verbose #19786 > > │ │
00:12:37 verbose #19787 > > │ Solution: 0.0 │
00:12:37 verbose #19788 > > │ Test case 1. A. Time: 24 │
00:12:37 verbose #19789 > > │ │
00:12:37 verbose #19790 > > │ Solution: 2.0 │
00:12:37 verbose #19791 > > │ Test case 1. A. Time: 15 │
00:12:37 verbose #19792 > > │ │
00:12:37 verbose #19793 > > │ Solution: 5.0 │
00:12:37 verbose #19794 > > │ Test case 1. A. Time: 12 │
00:12:37 verbose #19795 > > │ │
00:12:37 verbose #19796 > > │ Input | Expected | Result | Best │
00:12:37 verbose #19797 > > │ --- | --- | --- | --- │
00:12:37 verbose #19798 > > │ 0.0 | 1.0 | 1.0 | struct (1L, 24L) │
00:12:37 verbose #19799 > > │ 2.0 | 3.0 | 3.0 | struct (1L, 15L) │
00:12:37 verbose #19800 > > │ 5.0 | 6.0 | 6.0 | struct (1L, 12L) │
00:12:37 verbose #19801 > > │ │
00:12:37 verbose #19802 > > │ Average Ranking │
00:12:37 verbose #19803 > > │ Test case 1. Average Time: 17L │
00:12:37 verbose #19804 > > │ │
00:12:37 verbose #19805 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:38 verbose #19806 > 00:00:22 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 17485
00:12:38 verbose #19807 > 00:00:22 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:12:40 verbose #19808 > 00:00:24 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/benchmark.dib.ipynb to html
00:12:40 verbose #19809 > 00:00:24 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:12:40 verbose #19810 > 00:00:24 verbose #7 ! validate(nb)
00:12:41 verbose #19811 > 00:00:25 verbose #8 ! [NbConvertApp] Writing 310154 bytes to c:\home\git\polyglot\lib\spiral\benchmark.dib.html
00:12:41 verbose #19812 > 00:00:25 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:12:41 verbose #19813 > 00:00:25 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:12:41 verbose #19814 > 00:00:25 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/benchmark.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/benchmark.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:12:42 verbose #19815 > 00:00:26 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:12:42 verbose #19816 > 00:00:26 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:12:43 verbose #19817 > 00:00:27 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 18193
00:12:43 debug #19818 runtime.execute_with_options_async / exit_code: 0 / output.Length: 21291
00:12:43 debug #28 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path benchmark.dib --retries 3
00:12:43 debug #19819 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path file_system.dib --retries 3",
[||], None, None, true, None)
00:12:43 verbose #19820 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "file_system.dib", "--retries", "3"])
00:12:43 verbose #19821 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/file_system.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/file_system.dib" --output-path "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:12:45 verbose #19822 > >
00:12:45 verbose #19823 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:45 verbose #19824 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:45 verbose #19825 > > │ # file_system │
00:12:45 verbose #19826 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:45 verbose #19827 > >
00:12:45 verbose #19828 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:45 verbose #19829 > > open sm'_operators
00:12:45 verbose #19830 > > open rust_operators
00:12:45 verbose #19831 > >
00:12:45 verbose #19832 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:12:45 verbose #19833 > > #r
00:12:45 verbose #19834 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:45 verbose #19835 > > otNet.Interactive.Spiral.dll"
00:12:45 verbose #19836 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:12:45 verbose #19837 > > #r
00:12:45 verbose #19838 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:12:45 verbose #19839 > > otNet.Interactive.dll"
00:12:45 verbose #19840 > > open type Microsoft.DotNet.Interactive.Kernel
00:12:49 verbose #19841 > >
00:12:49 verbose #19842 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:49 verbose #19843 > > //// test
00:12:49 verbose #19844 > >
00:12:49 verbose #19845 > > open testing
00:12:49 verbose #19846 > >
00:12:49 verbose #19847 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:49 verbose #19848 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:49 verbose #19849 > > │ ## types │
00:12:49 verbose #19850 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:49 verbose #19851 > >
00:12:49 verbose #19852 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:49 verbose #19853 > > inl types () =
00:12:49 verbose #19854 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19855 > > Fable.Core.Emit(\"std::fs::File\")>]]\n#endif\ntype std_fs_File = class end"
00:12:49 verbose #19856 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19857 > > Fable.Core.Emit(\"std::fs::FileType\")>]]\n#endif\ntype std_fs_FileType = class
00:12:49 verbose #19858 > > end"
00:12:49 verbose #19859 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19860 > > Fable.Core.Emit(\"std::path::Display\")>]]\n#endif\ntype std_path_Display =
00:12:49 verbose #19861 > > class end"
00:12:49 verbose #19862 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19863 > > Fable.Core.Emit(\"std::path::Path\")>]]\n#endif\ntype std_path_Path = class end"
00:12:49 verbose #19864 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19865 > > Fable.Core.Emit(\"std::path::PathBuf\")>]]\n#endif\ntype std_path_PathBuf =
00:12:49 verbose #19866 > > class end"
00:12:49 verbose #19867 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19868 > > Fable.Core.Emit(\"async_walkdir::DirEntry\")>]]\n#endif\ntype
00:12:49 verbose #19869 > > async_walkdir_DirEntry = class end"
00:12:49 verbose #19870 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19871 > > Fable.Core.Emit(\"async_walkdir::Filtering\")>]]\n#endif\ntype
00:12:49 verbose #19872 > > async_walkdir_Filtering = class end"
00:12:49 verbose #19873 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:12:49 verbose #19874 > > Fable.Core.Emit(\"async_walkdir::WalkDir\")>]]\n#endif\ntype
00:12:49 verbose #19875 > > async_walkdir_WalkDir = class end"
00:12:49 verbose #19876 > >
00:12:49 verbose #19877 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:49 verbose #19878 > > inl types () =
00:12:49 verbose #19879 > > types ()
00:12:49 verbose #19880 > > date_time.types ()
00:12:49 verbose #19881 > > env.types ()
00:12:49 verbose #19882 > > rust.types ()
00:12:49 verbose #19883 > > sm'.types ()
00:12:49 verbose #19884 > > stream.types ()
00:12:49 verbose #19885 > > threading.types ()
00:12:49 verbose #19886 > >
00:12:49 verbose #19887 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:49 verbose #19888 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:49 verbose #19889 > > │ ## fsharp │
00:12:49 verbose #19890 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:49 verbose #19891 > >
00:12:49 verbose #19892 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:49 verbose #19893 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:49 verbose #19894 > > │ ### file_mode │
00:12:49 verbose #19895 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:49 verbose #19896 > >
00:12:49 verbose #19897 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:49 verbose #19898 > > nominal file_mode' = $'System.IO.FileMode'
00:12:49 verbose #19899 > >
00:12:49 verbose #19900 > > union file_mode =
00:12:49 verbose #19901 > > | ModeCreateNew
00:12:49 verbose #19902 > > | ModeCreate
00:12:49 verbose #19903 > > | ModeOpen
00:12:49 verbose #19904 > > | ModeOpenOrCreate
00:12:49 verbose #19905 > > | Truncate
00:12:49 verbose #19906 > > | Append
00:12:49 verbose #19907 > >
00:12:49 verbose #19908 > > inl file_mode = function
00:12:49 verbose #19909 > > | ModeCreateNew => $'System.IO.FileMode.CreateNew' : file_mode'
00:12:49 verbose #19910 > > | ModeCreate => $'System.IO.FileMode.Create' : file_mode'
00:12:49 verbose #19911 > > | ModeOpen => $'System.IO.FileMode.Open' : file_mode'
00:12:49 verbose #19912 > > | ModeOpenOrCreate => $'System.IO.FileMode.OpenOrCreate' : file_mode'
00:12:49 verbose #19913 > > | Truncate => $'System.IO.FileMode.Truncate' : file_mode'
00:12:49 verbose #19914 > > | Append => $'System.IO.FileMode.Append' : file_mode'
00:12:49 verbose #19915 > >
00:12:49 verbose #19916 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:49 verbose #19917 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:49 verbose #19918 > > │ ### file_access │
00:12:49 verbose #19919 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:49 verbose #19920 > >
00:12:49 verbose #19921 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:49 verbose #19922 > > nominal file_access' = $'System.IO.FileAccess'
00:12:49 verbose #19923 > >
00:12:49 verbose #19924 > > union file_access =
00:12:49 verbose #19925 > > | AccessRead
00:12:49 verbose #19926 > > | AccessWrite
00:12:49 verbose #19927 > > | AccessReadWrite
00:12:49 verbose #19928 > >
00:12:49 verbose #19929 > > inl file_access = function
00:12:49 verbose #19930 > > | AccessRead => $'System.IO.FileAccess.Read' : file_access'
00:12:49 verbose #19931 > > | AccessWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:12:49 verbose #19932 > > | AccessReadWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:12:50 verbose #19933 > >
00:12:50 verbose #19934 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #19935 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #19936 > > │ ### file_share │
00:12:50 verbose #19937 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #19938 > >
00:12:50 verbose #19939 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #19940 > > nominal file_share' = $'System.IO.FileShare'
00:12:50 verbose #19941 > >
00:12:50 verbose #19942 > > union file_share =
00:12:50 verbose #19943 > > | ShareNone
00:12:50 verbose #19944 > > | ShareRead
00:12:50 verbose #19945 > > | ShareWrite
00:12:50 verbose #19946 > > | ShareReadWrite
00:12:50 verbose #19947 > > | ShareDelete
00:12:50 verbose #19948 > >
00:12:50 verbose #19949 > > inl file_share = function
00:12:50 verbose #19950 > > | ShareNone => $'System.IO.FileShare.None' : file_share'
00:12:50 verbose #19951 > > | ShareRead => $'System.IO.FileShare.Read' : file_share'
00:12:50 verbose #19952 > > | ShareWrite => $'System.IO.FileShare.Write' : file_share'
00:12:50 verbose #19953 > > | ShareReadWrite => $'System.IO.FileShare.ReadWrite' : file_share'
00:12:50 verbose #19954 > > | ShareDelete => $'System.IO.FileShare.Delete' : file_share'
00:12:50 verbose #19955 > >
00:12:50 verbose #19956 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #19957 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #19958 > > │ ### file_stream │
00:12:50 verbose #19959 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #19960 > >
00:12:50 verbose #19961 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #19962 > > nominal file_stream' = $'System.IO.FileStream'
00:12:50 verbose #19963 > >
00:12:50 verbose #19964 > > inl file_stream (path : string) mode access share : file_stream' =
00:12:50 verbose #19965 > > run_target function
00:12:50 verbose #19966 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #19967 > > inl mode = mode |> file_mode
00:12:50 verbose #19968 > > inl access = access |> file_access
00:12:50 verbose #19969 > > inl share = share |> file_share
00:12:50 verbose #19970 > > $'new System.IO.FileStream (!path, !mode, !access, !share)'
00:12:50 verbose #19971 > > | _ => fun () => null ()
00:12:50 verbose #19972 > >
00:12:50 verbose #19973 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #19974 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #19975 > > │ ### directory_info │
00:12:50 verbose #19976 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #19977 > >
00:12:50 verbose #19978 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #19979 > > nominal directory_info = $'System.IO.DirectoryInfo'
00:12:50 verbose #19980 > >
00:12:50 verbose #19981 > > inl directory_info (path : string) : directory_info =
00:12:50 verbose #19982 > > path |> $'`directory_info '
00:12:50 verbose #19983 > >
00:12:50 verbose #19984 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #19985 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #19986 > > │ ### directory_info_exists │
00:12:50 verbose #19987 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #19988 > >
00:12:50 verbose #19989 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #19990 > > inl directory_info_exists (info : directory_info) : bool =
00:12:50 verbose #19991 > > run_target function
00:12:50 verbose #19992 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #19993 > > $'!info.Exists'
00:12:50 verbose #19994 > > | _ => fun () => null ()
00:12:50 verbose #19995 > >
00:12:50 verbose #19996 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #19997 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #19998 > > │ ### directory_info_creation_time │
00:12:50 verbose #19999 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20000 > >
00:12:50 verbose #20001 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20002 > > inl directory_info_creation_time (info : directory_info) : date_time.date_time =
00:12:50 verbose #20003 > > run_target function
00:12:50 verbose #20004 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20005 > > $'!info.CreationTime'
00:12:50 verbose #20006 > > | _ => fun () => null ()
00:12:50 verbose #20007 > >
00:12:50 verbose #20008 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20009 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20010 > > │ ### directory_info_name │
00:12:50 verbose #20011 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20012 > >
00:12:50 verbose #20013 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20014 > > inl directory_info_name (info : directory_info) : string =
00:12:50 verbose #20015 > > run_target function
00:12:50 verbose #20016 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20017 > > $'!info.Name'
00:12:50 verbose #20018 > > | _ => fun () => null ()
00:12:50 verbose #20019 > >
00:12:50 verbose #20020 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20021 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20022 > > │ ### directory_info_full_name │
00:12:50 verbose #20023 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20024 > >
00:12:50 verbose #20025 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20026 > > inl directory_info_full_name (info : directory_info) : string =
00:12:50 verbose #20027 > > run_target function
00:12:50 verbose #20028 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20029 > > $'!info.FullName'
00:12:50 verbose #20030 > > | _ => fun () => null ()
00:12:50 verbose #20031 > >
00:12:50 verbose #20032 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20033 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20034 > > │ ### create_directory │
00:12:50 verbose #20035 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20036 > >
00:12:50 verbose #20037 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20038 > > inl create_directory (path : string) : directory_info =
00:12:50 verbose #20039 > > run_target function
00:12:50 verbose #20040 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20041 > > path |> $'System.IO.Directory.CreateDirectory'
00:12:50 verbose #20042 > > | _ => fun () => null ()
00:12:50 verbose #20043 > >
00:12:50 verbose #20044 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20045 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20046 > > │ ### directory_get_files │
00:12:50 verbose #20047 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20048 > >
00:12:50 verbose #20049 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20050 > > inl directory_get_files (path : string) : array_base string =
00:12:50 verbose #20051 > > run_target function
00:12:50 verbose #20052 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20053 > > path |> $'System.IO.Directory.GetFiles'
00:12:50 verbose #20054 > > | _ => fun () => null ()
00:12:50 verbose #20055 > >
00:12:50 verbose #20056 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20057 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20058 > > │ ### file_move │
00:12:50 verbose #20059 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20060 > >
00:12:50 verbose #20061 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20062 > > inl file_move (new_path : string) (old_path : string) : () =
00:12:50 verbose #20063 > > run_target function
00:12:50 verbose #20064 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20065 > > $'System.IO.File.Move (!old_path, !new_path)'
00:12:50 verbose #20066 > > | _ => fun () => null ()
00:12:50 verbose #20067 > >
00:12:50 verbose #20068 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20069 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20070 > > │ ### read_all_text_async │
00:12:50 verbose #20071 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20072 > >
00:12:50 verbose #20073 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20074 > > inl read_all_text_async (path : string) : _ string =
00:12:50 verbose #20075 > > run_target function
00:12:50 verbose #20076 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20077 > > path |> $'System.IO.File.ReadAllTextAsync' |> async.await_task
00:12:50 verbose #20078 > > | _ => fun () => null ()
00:12:50 verbose #20079 > >
00:12:50 verbose #20080 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20081 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20082 > > │ ### write_all_text_async │
00:12:50 verbose #20083 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20084 > >
00:12:50 verbose #20085 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20086 > > inl write_all_text_async (path : string) (text : string) : _ () =
00:12:50 verbose #20087 > > run_target function
00:12:50 verbose #20088 > > | Fsharp (Native) => fun () =>
00:12:50 verbose #20089 > > $'System.IO.File.WriteAllTextAsync (!path, !text)' |>
00:12:50 verbose #20090 > > async.await_task
00:12:50 verbose #20091 > > | _ => fun () => null ()
00:12:50 verbose #20092 > >
00:12:50 verbose #20093 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20094 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20095 > > │ ### file_system_info │
00:12:50 verbose #20096 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20097 > >
00:12:50 verbose #20098 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20099 > > nominal file_system_info = $'System.IO.FileSystemInfo'
00:12:50 verbose #20100 > >
00:12:50 verbose #20101 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20102 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20103 > > │ ## rust │
00:12:50 verbose #20104 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20105 > >
00:12:50 verbose #20106 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20107 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20108 > > │ ### display │
00:12:50 verbose #20109 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20110 > >
00:12:50 verbose #20111 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20112 > > nominal display = $'std_path_Display'
00:12:50 verbose #20113 > >
00:12:50 verbose #20114 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20115 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20116 > > │ ### path │
00:12:50 verbose #20117 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20118 > >
00:12:50 verbose #20119 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20120 > > nominal path = $'std_path_Path'
00:12:50 verbose #20121 > > nominal path = $'std_path_Path'
00:12:50 verbose #20122 > > nominal path_buf = $'std_path_PathBuf'
00:12:50 verbose #20123 > >
00:12:50 verbose #20124 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20125 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20126 > > │ ### new_path_buf │
00:12:50 verbose #20127 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20128 > >
00:12:50 verbose #20129 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20130 > > inl new_path_buf (path : sm'.std_string) : path_buf =
00:12:50 verbose #20131 > > open rust_operators
00:12:50 verbose #20132 > > !\\(path, $'"std::path::PathBuf::from($0)"')
00:12:50 verbose #20133 > >
00:12:50 verbose #20134 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20135 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20136 > > │ ### path_buf_from │
00:12:50 verbose #20137 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20138 > >
00:12:50 verbose #20139 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20140 > > inl path_buf_from (path : rust.box path) : path_buf =
00:12:50 verbose #20141 > > open rust_operators
00:12:50 verbose #20142 > > !\\(path, $'"std::path::PathBuf::from($0)"')
00:12:50 verbose #20143 > >
00:12:50 verbose #20144 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20145 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20146 > > │ ### path_buf_join │
00:12:50 verbose #20147 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20148 > >
00:12:50 verbose #20149 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20150 > > inl path_buf_join (s : string) (path_buf : path_buf) : path_buf =
00:12:50 verbose #20151 > > open rust_operators
00:12:50 verbose #20152 > > !\\((path_buf, s |> sm'.to_std_string), $'"$0.join($1)"')
00:12:50 verbose #20153 > >
00:12:50 verbose #20154 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20155 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20156 > > │ ### path_buf_strip_prefix │
00:12:50 verbose #20157 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20158 > >
00:12:50 verbose #20159 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20160 > > inl path_buf_strip_prefix (s : string) (path_buf : path_buf) : path_buf =
00:12:50 verbose #20161 > > open rust_operators
00:12:50 verbose #20162 > > !\\((path_buf, s |> sm'.to_std_string),
00:12:50 verbose #20163 > > $'"$0.strip_prefix($1).unwrap().to_path_buf()"')
00:12:50 verbose #20164 > >
00:12:50 verbose #20165 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20166 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20167 > > │ ### path_display │
00:12:50 verbose #20168 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20169 > >
00:12:50 verbose #20170 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20171 > > inl path_display (path : rust.ref' path) : display =
00:12:50 verbose #20172 > > open rust_operators
00:12:50 verbose #20173 > > !\\(path, $'"$0.display()"')
00:12:50 verbose #20174 > >
00:12:50 verbose #20175 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20176 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20177 > > │ ### path_buf_display │
00:12:50 verbose #20178 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20179 > >
00:12:50 verbose #20180 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20181 > > inl path_buf_display (path_buf : path_buf) : display =
00:12:50 verbose #20182 > > open rust_operators
00:12:50 verbose #20183 > > !\\(path_buf, $'"$0.display()"')
00:12:50 verbose #20184 > >
00:12:50 verbose #20185 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20186 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20187 > > │ ### path_buf_file_name │
00:12:50 verbose #20188 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20189 > >
00:12:50 verbose #20190 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20191 > > inl path_buf_file_name (path : path_buf) : optionm'.option' (rust.ref'
00:12:50 verbose #20192 > > sm'.os_str) =
00:12:50 verbose #20193 > > open rust_operators
00:12:50 verbose #20194 > > !\($'"!path.file_name()"')
00:12:50 verbose #20195 > >
00:12:50 verbose #20196 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20197 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20198 > > │ ### path_buf_exists │
00:12:50 verbose #20199 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20200 > >
00:12:50 verbose #20201 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20202 > > inl path_buf_exists (path_buf : path_buf) : bool =
00:12:50 verbose #20203 > > open rust_operators
00:12:50 verbose #20204 > > !\\(path_buf, $'"$0.exists()"')
00:12:50 verbose #20205 > >
00:12:50 verbose #20206 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20207 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20208 > > │ ### path_buf_is_dir │
00:12:50 verbose #20209 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20210 > >
00:12:50 verbose #20211 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20212 > > inl path_buf_is_dir (path_buf : path_buf) : bool =
00:12:50 verbose #20213 > > open rust_operators
00:12:50 verbose #20214 > > !\\(path_buf, $'"$0.is_dir()"')
00:12:50 verbose #20215 > >
00:12:50 verbose #20216 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20217 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20218 > > │ ### path_buf_is_file │
00:12:50 verbose #20219 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20220 > >
00:12:50 verbose #20221 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20222 > > inl path_buf_is_file (path_buf : path_buf) : bool =
00:12:50 verbose #20223 > > open rust_operators
00:12:50 verbose #20224 > > !\\(path_buf, $'"$0.is_file()"')
00:12:50 verbose #20225 > >
00:12:50 verbose #20226 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20227 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20228 > > │ ### path_buf_is_symlink │
00:12:50 verbose #20229 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20230 > >
00:12:50 verbose #20231 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20232 > > inl path_buf_is_symlink (path_buf : path_buf) : bool =
00:12:50 verbose #20233 > > open rust_operators
00:12:50 verbose #20234 > > !\\(path_buf, $'"$0.is_symlink()"')
00:12:50 verbose #20235 > >
00:12:50 verbose #20236 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20237 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20238 > > │ ### path_buf_parent │
00:12:50 verbose #20239 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20240 > >
00:12:50 verbose #20241 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20242 > > inl path_buf_parent (path_buf : path_buf) : optionm'.option' path_buf =
00:12:50 verbose #20243 > > open rust_operators
00:12:50 verbose #20244 > > !\\(path_buf, $'"$0.parent().map(std::path::PathBuf::from)"')
00:12:50 verbose #20245 > >
00:12:50 verbose #20246 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20247 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20248 > > │ ### dir_entry │
00:12:50 verbose #20249 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20250 > >
00:12:50 verbose #20251 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20252 > > nominal dir_entry = $'async_walkdir_DirEntry'
00:12:50 verbose #20253 > >
00:12:50 verbose #20254 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20255 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20256 > > │ ### walk_dir │
00:12:50 verbose #20257 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20258 > >
00:12:50 verbose #20259 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20260 > > nominal walk_dir = $'async_walkdir_WalkDir'
00:12:50 verbose #20261 > >
00:12:50 verbose #20262 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20263 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20264 > > │ ### async_walkdir_filtering │
00:12:50 verbose #20265 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20266 > >
00:12:50 verbose #20267 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20268 > > nominal async_walkdir_filtering = $'async_walkdir_Filtering'
00:12:50 verbose #20269 > >
00:12:50 verbose #20270 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20271 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20272 > > │ ### filtering │
00:12:50 verbose #20273 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20274 > >
00:12:50 verbose #20275 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20276 > > union filtering =
00:12:50 verbose #20277 > > | Ignore
00:12:50 verbose #20278 > > | IgnoreDir
00:12:50 verbose #20279 > > | Continue
00:12:50 verbose #20280 > >
00:12:50 verbose #20281 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20282 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20283 > > │ ### stream_filter_map │
00:12:50 verbose #20284 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20285 > >
00:12:50 verbose #20286 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20287 > > inl stream_filter_map forall t.
00:12:50 verbose #20288 > > (fn : resultm.result' dir_entry stream.io_error -> optionm'.option' t)
00:12:50 verbose #20289 > > (stream : walk_dir)
00:12:50 verbose #20290 > > : am'.vec t =
00:12:50 verbose #20291 > >
00:12:50 verbose #20292 > > inl fn = join fn
00:12:50 verbose #20293 > > inl result : am'.vec t =
00:12:50 verbose #20294 > >
00:12:50 verbose #20295 > > !\($'"tokio_stream::StreamExt::collect(tokio_stream::StreamExt::filter_map(!stre
00:12:50 verbose #20296 > > am, |x| !fn(x))).await"')
00:12:50 verbose #20297 > > result
00:12:50 verbose #20298 > >
00:12:50 verbose #20299 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20300 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20301 > > │ ### new_walk_dir │
00:12:50 verbose #20302 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20303 > >
00:12:50 verbose #20304 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20305 > > inl new_walk_dir (dir : string) : walk_dir =
00:12:50 verbose #20306 > > !\\(dir, $'"async_walkdir::WalkDir::new(&*$0)"')
00:12:50 verbose #20307 > > // inl walk_dir : walk_dir = walk_dir |> rust.to_mut
00:12:50 verbose #20308 > > // (!\($'"true; let mut !walk_dir = !walk_dir"') : bool) |> ignore
00:12:50 verbose #20309 > >
00:12:50 verbose #20310 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20311 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20312 > > │ ### walk_dir_filter │
00:12:50 verbose #20313 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20314 > >
00:12:50 verbose #20315 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20316 > > inl walk_dir_filter (fn : dir_entry -> async.future_pin_send filtering)
00:12:50 verbose #20317 > > (walk_dir : walk_dir) : walk_dir =
00:12:50 verbose #20318 > > inl fn entry = async.future_init_send (2, 1) 0 fun () =>
00:12:50 verbose #20319 > > inl result = fn entry |> async.await_send
00:12:50 verbose #20320 > > inl filtering : async_walkdir_filtering =
00:12:50 verbose #20321 > > match result with
00:12:50 verbose #20322 > > | Ignore => !\($'"async_walkdir::Filtering::Ignore"')
00:12:50 verbose #20323 > > | IgnoreDir => !\($'"async_walkdir::Filtering::IgnoreDir"')
00:12:50 verbose #20324 > > | Continue => !\($'"async_walkdir::Filtering::Continue"')
00:12:50 verbose #20325 > > filtering
00:12:50 verbose #20326 > > !\\((walk_dir, fn), $'"async_walkdir::WalkDir::filter($0, |x| $1(x))"')
00:12:50 verbose #20327 > >
00:12:50 verbose #20328 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20329 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20330 > > │ ### file_type │
00:12:50 verbose #20331 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20332 > >
00:12:50 verbose #20333 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20334 > > nominal file_type = $'std_fs_FileType'
00:12:50 verbose #20335 > >
00:12:50 verbose #20336 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20337 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20338 > > │ ### dir_entry_file_type │
00:12:50 verbose #20339 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20340 > >
00:12:50 verbose #20341 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20342 > > inl dir_entry_file_type (dir_entry : dir_entry) : async.future_pin_send
00:12:50 verbose #20343 > > (resultm.result' file_type stream.io_error) =
00:12:50 verbose #20344 > > inl dir_entry = join dir_entry
00:12:50 verbose #20345 > > !\($'"Box::pin(async_walkdir::DirEntry::file_type(&!dir_entry))"')
00:12:50 verbose #20346 > >
00:12:50 verbose #20347 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20348 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20349 > > │ ### file_type_is_dir │
00:12:50 verbose #20350 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20351 > >
00:12:50 verbose #20352 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20353 > > inl file_type_is_dir (file_type : file_type) : bool =
00:12:50 verbose #20354 > > inl file_type = join file_type
00:12:50 verbose #20355 > > !\($'"std::fs::FileType::is_dir(&!file_type)"')
00:12:50 verbose #20356 > >
00:12:50 verbose #20357 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20358 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20359 > > │ ### file │
00:12:50 verbose #20360 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20361 > >
00:12:50 verbose #20362 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20363 > > nominal file = $'std_fs_File'
00:12:50 verbose #20364 > >
00:12:50 verbose #20365 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20366 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20367 > > │ ### file_open │
00:12:50 verbose #20368 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20369 > >
00:12:50 verbose #20370 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20371 > > inl file_open (path : string) : resultm.result' file stream.io_error =
00:12:50 verbose #20372 > > !\($'"std::fs::File::open(&*!path)"')
00:12:50 verbose #20373 > >
00:12:50 verbose #20374 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20375 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20376 > > │ ### dir_entry_path │
00:12:50 verbose #20377 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20378 > >
00:12:50 verbose #20379 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20380 > > inl dir_entry_path (dir_entry : dir_entry) : path_buf =
00:12:50 verbose #20381 > > !\\(dir_entry, $'"async_walkdir::DirEntry::path(&$0)"')
00:12:50 verbose #20382 > >
00:12:50 verbose #20383 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:50 verbose #20384 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:50 verbose #20385 > > │ ### create_dir_all │
00:12:50 verbose #20386 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:50 verbose #20387 > >
00:12:50 verbose #20388 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:50 verbose #20389 > > inl create_dir_all (path : string) : resultm.result' () stream.io_error =
00:12:50 verbose #20390 > > !\\(path, $'"std::fs::create_dir_all(&*$0)"')
00:12:51 verbose #20391 > >
00:12:51 verbose #20392 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20393 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20394 > > │ ### read_link │
00:12:51 verbose #20395 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20396 > >
00:12:51 verbose #20397 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20398 > > inl read_link (path : string) : resultm.result' path_buf stream.io_error =
00:12:51 verbose #20399 > > open rust_operators
00:12:51 verbose #20400 > > !\\(path, $'"std::fs::read_link(&*$0)"')
00:12:51 verbose #20401 > >
00:12:51 verbose #20402 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20403 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20404 > > │ ## typescript │
00:12:51 verbose #20405 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20406 > >
00:12:51 verbose #20407 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20408 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20409 > > │ ### ts_path_join │
00:12:51 verbose #20410 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20411 > >
00:12:51 verbose #20412 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20413 > > inl ts_path_join (b : string) (a : string) : string =
00:12:51 verbose #20414 > > open ts_operators
00:12:51 verbose #20415 > > global "type IPathJoin = abstract join: [[<System.ParamArray>]] paths:
00:12:51 verbose #20416 > > string[[]] -> string"
00:12:51 verbose #20417 > > inl path : $'IPathJoin' = ts.import_all "path"
00:12:51 verbose #20418 > > !\\((join a, join b), $'"!path.join($0, $1)"')
00:12:51 verbose #20419 > >
00:12:51 verbose #20420 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20421 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20422 > > │ ## (< />) │
00:12:51 verbose #20423 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20424 > >
00:12:51 verbose #20425 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20426 > > let (</>) (a : string) (b : string) : string =
00:12:51 verbose #20427 > > run_target function
00:12:51 verbose #20428 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20429 > > | Rust (Native) => fun () =>
00:12:51 verbose #20430 > > a
00:12:51 verbose #20431 > > |> sm'.to_std_string
00:12:51 verbose #20432 > > |> new_path_buf
00:12:51 verbose #20433 > > |> path_buf_join b
00:12:51 verbose #20434 > > |> path_buf_display
00:12:51 verbose #20435 > > |> sm'.format'
00:12:51 verbose #20436 > > |> sm'.from_std_string
00:12:51 verbose #20437 > > | TypeScript (Native) => fun () =>
00:12:51 verbose #20438 > > a |> ts_path_join b
00:12:51 verbose #20439 > > | Fsharp (Native) => fun () =>
00:12:51 verbose #20440 > > $'System.IO.Path.Combine (!a, !b)'
00:12:51 verbose #20441 > > | target => fun () => failwith $'$"file_system.(</>) / target: {!target}
00:12:51 verbose #20442 > > / a: {!a} / b: {!b}"'
00:12:51 verbose #20443 > >
00:12:51 verbose #20444 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20445 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20446 > > │ ## get_temp_path │
00:12:51 verbose #20447 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20448 > >
00:12:51 verbose #20449 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20450 > > let get_temp_path () : string =
00:12:51 verbose #20451 > > run_target function
00:12:51 verbose #20452 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20453 > > | Rust (Native) => fun () =>
00:12:51 verbose #20454 > > open rust_operators
00:12:51 verbose #20455 > > !\($'"std::env::temp_dir()"')
00:12:51 verbose #20456 > > |> path_buf_display
00:12:51 verbose #20457 > > |> sm'.format'
00:12:51 verbose #20458 > > |> sm'.from_std_string
00:12:51 verbose #20459 > > | Fsharp (Native) => fun () =>
00:12:51 verbose #20460 > > $'System.IO.Path.GetTempPath' ()
00:12:51 verbose #20461 > > | target => fun () => failwith $'$"file_system.get_temp_path / target:
00:12:51 verbose #20462 > > {!target}"'
00:12:51 verbose #20463 > >
00:12:51 verbose #20464 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20465 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20466 > > │ ## get_file_name │
00:12:51 verbose #20467 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20468 > >
00:12:51 verbose #20469 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20470 > > let get_file_name (path : string) : string =
00:12:51 verbose #20471 > > run_target function
00:12:51 verbose #20472 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20473 > > | Rust (Native) => fun () =>
00:12:51 verbose #20474 > > open rust_operators
00:12:51 verbose #20475 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:12:51 verbose #20476 > > !\\(path_buf, $'"$0.file_name()"')
00:12:51 verbose #20477 > > |> optionm'.unwrap
00:12:51 verbose #20478 > > |> sm'.from_os_str_ref
00:12:51 verbose #20479 > > | Fsharp (Native) => fun () =>
00:12:51 verbose #20480 > > path |> $'System.IO.Path.GetFileName'
00:12:51 verbose #20481 > > | target => fun () => failwith $'$"file_system.get_file_name / target:
00:12:51 verbose #20482 > > {!target} / path: {!path}"'
00:12:51 verbose #20483 > >
00:12:51 verbose #20484 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20485 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20486 > > │ ## get_file_name_without_extension │
00:12:51 verbose #20487 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20488 > >
00:12:51 verbose #20489 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20490 > > let get_file_name_without_extension (path : string) : string =
00:12:51 verbose #20491 > > run_target function
00:12:51 verbose #20492 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20493 > > | Rust (Native) => fun () =>
00:12:51 verbose #20494 > > open rust_operators
00:12:51 verbose #20495 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:12:51 verbose #20496 > > !\\(path_buf, $'"$0.file_stem()"')
00:12:51 verbose #20497 > > |> optionm'.unwrap
00:12:51 verbose #20498 > > |> sm'.from_os_str_ref
00:12:51 verbose #20499 > > | _ => fun () =>
00:12:51 verbose #20500 > > path |> $'System.IO.Path.GetFileNameWithoutExtension'
00:12:51 verbose #20501 > >
00:12:51 verbose #20502 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20503 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20504 > > │ ## get_directory_name │
00:12:51 verbose #20505 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20506 > >
00:12:51 verbose #20507 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20508 > > let get_directory_name (path : string) : string =
00:12:51 verbose #20509 > > run_target function
00:12:51 verbose #20510 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20511 > > | Rust (Native) => fun () =>
00:12:51 verbose #20512 > > open rust_operators
00:12:51 verbose #20513 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:12:51 verbose #20514 > > !\\(path_buf, $'"$0.parent()"')
00:12:51 verbose #20515 > > |> optionm'.unwrap
00:12:51 verbose #20516 > > |> path_display
00:12:51 verbose #20517 > > |> sm'.format'
00:12:51 verbose #20518 > > |> sm'.from_std_string
00:12:51 verbose #20519 > > | _ => fun () =>
00:12:51 verbose #20520 > > path |> $'System.IO.Path.GetDirectoryName'
00:12:51 verbose #20521 > >
00:12:51 verbose #20522 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20523 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20524 > > │ ## get_extension │
00:12:51 verbose #20525 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20526 > >
00:12:51 verbose #20527 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20528 > > let get_extension (path : string) : string =
00:12:51 verbose #20529 > > run_target function
00:12:51 verbose #20530 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20531 > > | Rust (Native) => fun () =>
00:12:51 verbose #20532 > > open rust_operators
00:12:51 verbose #20533 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:12:51 verbose #20534 > > !\\(path_buf, $'"$0.extension()"')
00:12:51 verbose #20535 > > |> optionm'.unwrap
00:12:51 verbose #20536 > > |> sm'.from_os_str_ref
00:12:51 verbose #20537 > > | _ => fun () =>
00:12:51 verbose #20538 > > path |> $'System.IO.Path.GetExtension'
00:12:51 verbose #20539 > >
00:12:51 verbose #20540 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20541 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20542 > > │ ## directory_separator_char │
00:12:51 verbose #20543 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20544 > >
00:12:51 verbose #20545 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20546 > > let directory_separator_char () : char =
00:12:51 verbose #20547 > > run_target function
00:12:51 verbose #20548 > > | Rust (Native) => fun () =>
00:12:51 verbose #20549 > > open rust_operators
00:12:51 verbose #20550 > > !\($'"std::path::MAIN_SEPARATOR"')
00:12:51 verbose #20551 > > | _ => fun () =>
00:12:51 verbose #20552 > > $'System.IO.Path.DirectorySeparatorChar'
00:12:51 verbose #20553 > > | _ => fun () => null ()
00:12:51 verbose #20554 > >
00:12:51 verbose #20555 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:51 verbose #20556 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:51 verbose #20557 > > │ ## get_current_directory │
00:12:51 verbose #20558 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:51 verbose #20559 > >
00:12:51 verbose #20560 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20561 > > let get_current_directory () : string =
00:12:51 verbose #20562 > > run_target function
00:12:51 verbose #20563 > > | Rust (Contract) => fun () => null ()
00:12:51 verbose #20564 > > | Rust (Native) => fun () =>
00:12:51 verbose #20565 > > open rust_operators
00:12:51 verbose #20566 > > inl current_dir = !\($'"std::env::current_dir()"') : resultm.result'
00:12:51 verbose #20567 > > path_buf stream.io_error
00:12:51 verbose #20568 > > current_dir
00:12:51 verbose #20569 > > |> resultm.unwrap'
00:12:51 verbose #20570 > > |> path_buf_display
00:12:51 verbose #20571 > > |> sm'.format'
00:12:51 verbose #20572 > > |> sm'.from_std_string
00:12:51 verbose #20573 > > | _ => fun () =>
00:12:51 verbose #20574 > > $'System.IO.Directory.GetCurrentDirectory' ()
00:12:51 verbose #20575 > >
00:12:51 verbose #20576 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:51 verbose #20577 > > //// test
00:12:51 verbose #20578 > >
00:12:51 verbose #20579 > > get_current_directory ()
00:12:51 verbose #20580 > > |> _assert_contains (directory_separator_char ())
00:12:52 verbose #20581 > >
00:12:52 verbose #20582 > > ╭─[ 1.24s - stdout ]───────────────────────────────────────────────────────────╮
00:12:52 verbose #20583 > > │ assert_contains / actual: "C:\home\git\polyglot\lib\spiral" / expected: '\\' │
00:12:52 verbose #20584 > > │ │
00:12:52 verbose #20585 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:52 verbose #20586 > >
00:12:52 verbose #20587 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:52 verbose #20588 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:52 verbose #20589 > > │ ## normalize_path │
00:12:52 verbose #20590 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:52 verbose #20591 > >
00:12:52 verbose #20592 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:52 verbose #20593 > > let normalize_path (path : string) : string =
00:12:52 verbose #20594 > > inl path = path |> sm'.replace_regex @"^\\\\\?\\" ""
00:12:52 verbose #20595 > > $'$"{!path.[[0]] |> string |> _.ToLower()}{!path.[[1..]]}"' |> sm'.replace
00:12:52 verbose #20596 > > "\\" "/"
00:12:52 verbose #20597 > >
00:12:52 verbose #20598 > > ── markdown ────────────────────────────────────────────────────────────────────
00:12:52 verbose #20599 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:12:52 verbose #20600 > > │ ## get_full_path │
00:12:52 verbose #20601 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:52 verbose #20602 > >
00:12:52 verbose #20603 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:52 verbose #20604 > > let get_full_path (path : string) : string =
00:12:52 verbose #20605 > > run_target function
00:12:52 verbose #20606 > > | Fsharp (Native) => fun () =>
00:12:52 verbose #20607 > > inl path = join path
00:12:52 verbose #20608 > > path |> $'System.IO.Path.GetFullPath'
00:12:52 verbose #20609 > > | Rust (Native) => fun () =>
00:12:52 verbose #20610 > > inl path = join path
00:12:52 verbose #20611 > > open rust_operators
00:12:52 verbose #20612 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:12:52 verbose #20613 > > if path_buf |> path_buf_exists |> not then
00:12:52 verbose #20614 > > inl current_dir = get_current_directory ()
00:12:52 verbose #20615 > > current_dir </> path
00:12:52 verbose #20616 > > |> normalize_path
00:12:52 verbose #20617 > > |> sm'.split "/"
00:12:52 verbose #20618 > > |> fun x =>
00:12:52 verbose #20619 > > ((a x : _ i32 _), (0i32, (a ;[[]] : _ i32 _)))
00:12:52 verbose #20620 > > ||> am.foldBack fun x level, acc =>
00:12:52 verbose #20621 > > match x, level with
00:12:52 verbose #20622 > > | "..", _ => level + 1, acc
00:12:52 verbose #20623 > > | ".", _ => level, acc
00:12:52 verbose #20624 > > | _, 0 when x |> sm'.ends_with ":" => 0, a ;[[
00:12:52 verbose #20625 > > $'$"{!current_dir.[[0]]}:"' ]] ++ acc
00:12:52 verbose #20626 > > | _, 0 => 0, a ;[[ x ]] ++ acc
00:12:52 verbose #20627 > > | _ => level - 1, acc
00:12:52 verbose #20628 > > |> snd
00:12:52 verbose #20629 > > |> seq.of_array'
00:12:52 verbose #20630 > > |> sm'.concat (directory_separator_char () |> sm'.obj_to_string)
00:12:52 verbose #20631 > > else
00:12:52 verbose #20632 > > inl path = !\\(path, $'"std::fs::canonicalize(&*$0)"') :
00:12:52 verbose #20633 > > resultm.result' path_buf stream.io_error
00:12:52 verbose #20634 > > path
00:12:52 verbose #20635 > > |> resultm.unwrap'
00:12:52 verbose #20636 > > |> path_buf_display
00:12:52 verbose #20637 > > |> sm'.format'
00:12:52 verbose #20638 > > |> sm'.from_std_string
00:12:52 verbose #20639 > > | _ => fun () => null ()
00:12:52 verbose #20640 > >
00:12:52 verbose #20641 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:52 verbose #20642 > > //// test
00:12:52 verbose #20643 > >
00:12:52 verbose #20644 > > "."
00:12:52 verbose #20645 > > |> get_full_path
00:12:52 verbose #20646 > > |> directory_info
00:12:52 verbose #20647 > > |> directory_info_name
00:12:52 verbose #20648 > > |> _assert_eq "spiral"
00:12:52 verbose #20649 > >
00:12:52 verbose #20650 > > ╭─[ 356.48ms - stdout ]────────────────────────────────────────────────────────╮
00:12:52 verbose #20651 > > │ assert_eq / actual: "spiral" / expected: "spiral" │
00:12:52 verbose #20652 > > │ │
00:12:52 verbose #20653 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:52 verbose #20654 > >
00:12:52 verbose #20655 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:52 verbose #20656 > > //// test
00:12:52 verbose #20657 > >
00:12:52 verbose #20658 > > "dir/.././._file"
00:12:52 verbose #20659 > > |> get_full_path
00:12:52 verbose #20660 > > |> _assert_eq (get_current_directory () </> "._file")
00:12:53 verbose #20661 > >
00:12:53 verbose #20662 > > ╭─[ 203.22ms - stdout ]────────────────────────────────────────────────────────╮
00:12:53 verbose #20663 > > │ assert_eq / actual: "C:\home\git\polyglot\lib\spiral\._file" / expected: │
00:12:53 verbose #20664 > > │ "C:\home\git\polyglot\lib\spiral\._file" │
00:12:53 verbose #20665 > > │ │
00:12:53 verbose #20666 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:53 verbose #20667 > >
00:12:53 verbose #20668 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:53 verbose #20669 > > //// test
00:12:53 verbose #20670 > > ///! rust -d regex
00:12:53 verbose #20671 > >
00:12:53 verbose #20672 > > types ()
00:12:53 verbose #20673 > > "."
00:12:53 verbose #20674 > > |> get_full_path
00:12:53 verbose #20675 > > |> sm'.to_std_string
00:12:53 verbose #20676 > > |> new_path_buf
00:12:53 verbose #20677 > > |> path_buf_file_name
00:12:53 verbose #20678 > > |> optionm'.unwrap
00:12:53 verbose #20679 > > |> sm'.from_os_str_ref
00:12:53 verbose #20680 > > |> _assert_eq "spiral"
00:12:57 verbose #20681 > >
00:12:57 verbose #20682 > > ╭─[ 4.11s - return value ]─────────────────────────────────────────────────────╮
00:12:57 verbose #20683 > > │ assert_eq / actual: "spiral" / expected: "spiral" │
00:12:57 verbose #20684 > > │ │
00:12:57 verbose #20685 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:12:57 verbose #20686 > >
00:12:57 verbose #20687 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:12:57 verbose #20688 > > //// test
00:12:57 verbose #20689 > > ///! rust -d regex
00:12:57 verbose #20690 > >
00:12:57 verbose #20691 > > types ()
00:12:57 verbose #20692 > > "dir/.././._file"
00:12:57 verbose #20693 > > |> get_full_path
00:12:57 verbose #20694 > > |> _assert_eq (get_current_directory () </> "._file")
00:13:01 verbose #20695 > >
00:13:01 verbose #20696 > > ╭─[ 3.90s - return value ]─────────────────────────────────────────────────────╮
00:13:01 verbose #20697 > > │ assert_eq / actual: "C:\home\git\polyglot\lib\spiral\._file" / expected: │
00:13:01 verbose #20698 > > │ "C:\home\git\polyglot\lib\spiral\._file" │
00:13:01 verbose #20699 > > │ │
00:13:01 verbose #20700 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:01 verbose #20701 > >
00:13:01 verbose #20702 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:01 verbose #20703 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:01 verbose #20704 > > │ ## create_temp_path' │
00:13:01 verbose #20705 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:01 verbose #20706 > >
00:13:01 verbose #20707 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:01 verbose #20708 > > let create_temp_path' (guid : guid.guid) =
00:13:01 verbose #20709 > > run_target function
00:13:01 verbose #20710 > > | Rust (Contract) => fun () => null ()
00:13:01 verbose #20711 > > | _ => fun () =>
00:13:01 verbose #20712 > > get_temp_path ()
00:13:01 verbose #20713 > > </> (join "!create_temp_path_")
00:13:01 verbose #20714 > > </> (env.get_entry_assembly_name ())
00:13:01 verbose #20715 > > </> (guid |> sm'.obj_to_string)
00:13:01 verbose #20716 > >
00:13:01 verbose #20717 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:01 verbose #20718 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:01 verbose #20719 > > │ ## create_temp_path │
00:13:01 verbose #20720 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:01 verbose #20721 > >
00:13:01 verbose #20722 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:01 verbose #20723 > > let create_temp_path () =
00:13:01 verbose #20724 > > run_target function
00:13:01 verbose #20725 > > | Rust (Contract) => fun () => null ()
00:13:01 verbose #20726 > > | _ => fun () =>
00:13:01 verbose #20727 > > date_time.now ()
00:13:01 verbose #20728 > > |> date_time.new_guid_from_date_time
00:13:01 verbose #20729 > > |> create_temp_path'
00:13:01 verbose #20730 > >
00:13:01 verbose #20731 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:01 verbose #20732 > > //// test
00:13:01 verbose #20733 > >
00:13:01 verbose #20734 > > types ()
00:13:01 verbose #20735 > > create_temp_path ()
00:13:01 verbose #20736 > > |> _assert_contains (directory_separator_char ())
00:13:01 verbose #20737 > >
00:13:01 verbose #20738 > > ╭─[ 501.88ms - stdout ]────────────────────────────────────────────────────────╮
00:13:01 verbose #20739 > > │ assert_contains / actual: │
00:13:01 verbose #20740 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\20240605-2 │
00:13:01 verbose #20741 > > │ 311-2178-7824-7004004d480c" / expected: '\\' │
00:13:01 verbose #20742 > > │ │
00:13:01 verbose #20743 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:01 verbose #20744 > >
00:13:01 verbose #20745 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:01 verbose #20746 > > //// test
00:13:01 verbose #20747 > > ///! rust -d chrono
00:13:01 verbose #20748 > >
00:13:01 verbose #20749 > > types ()
00:13:01 verbose #20750 > > create_temp_path ()
00:13:01 verbose #20751 > > |> _assert_contains (directory_separator_char ())
00:13:05 verbose #20752 > >
00:13:05 verbose #20753 > > ╭─[ 3.61s - return value ]─────────────────────────────────────────────────────╮
00:13:05 verbose #20754 > > │ assert_contains / actual: │
00:13:05 verbose #20755 > > │ "C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_40b9719 │
00:13:05 verbose #20756 > > │ 7de9408f1f6aa71c856c642373eda8d0dd6ca3ca61d4c0ad2a3bbb416\20240605-2311-2535 │
00:13:05 verbose #20757 > > │ -0209-0000003cdc21" / expected: '\\' │
00:13:05 verbose #20758 > > │ │
00:13:05 verbose #20759 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20760 > >
00:13:05 verbose #20761 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20762 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20763 > > │ ## get_source_directory │
00:13:05 verbose #20764 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20765 > >
00:13:05 verbose #20766 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20767 > > inl get_source_directory () =
00:13:05 verbose #20768 > > $'__SOURCE_DIRECTORY__' : string
00:13:05 verbose #20769 > >
00:13:05 verbose #20770 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20771 > > //// test
00:13:05 verbose #20772 > >
00:13:05 verbose #20773 > > get_source_directory ()
00:13:05 verbose #20774 > > |> directory_info
00:13:05 verbose #20775 > > |> directory_info_name
00:13:05 verbose #20776 > > |> _assert_eq "spiral"
00:13:05 verbose #20777 > >
00:13:05 verbose #20778 > > ╭─[ 54.55ms - stdout ]─────────────────────────────────────────────────────────╮
00:13:05 verbose #20779 > > │ assert_eq / actual: "spiral" / expected: "spiral" │
00:13:05 verbose #20780 > > │ │
00:13:05 verbose #20781 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20782 > >
00:13:05 verbose #20783 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20784 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20785 > > │ ## directory_exists │
00:13:05 verbose #20786 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20787 > >
00:13:05 verbose #20788 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20789 > > let directory_exists (path : string) : bool =
00:13:05 verbose #20790 > > run_target function
00:13:05 verbose #20791 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20792 > > path |> $'System.IO.Directory.Exists'
00:13:05 verbose #20793 > > | Rust (Native) => fun () =>
00:13:05 verbose #20794 > > inl path = path |> sm'.to_std_string |> new_path_buf
00:13:05 verbose #20795 > > path_buf_exists path || path_buf_is_dir path || path_buf_is_symlink
00:13:05 verbose #20796 > > path
00:13:05 verbose #20797 > > | TypeScript (Native) => fun () =>
00:13:05 verbose #20798 > > global "type IFsExistsSync = abstract existsSync: path: string ->
00:13:05 verbose #20799 > > bool"
00:13:05 verbose #20800 > > open ts_operators
00:13:05 verbose #20801 > > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:13:05 verbose #20802 > > !\\((fs, path), $'"$0.existsSync($1)"')
00:13:05 verbose #20803 > > | _ => fun () => null ()
00:13:05 verbose #20804 > >
00:13:05 verbose #20805 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20806 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20807 > > │ ## directory_get_parent │
00:13:05 verbose #20808 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20809 > >
00:13:05 verbose #20810 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20811 > > let directory_get_parent (path : string) : optionm'.option' string =
00:13:05 verbose #20812 > > run_target function
00:13:05 verbose #20813 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20814 > > inl parent : directory_info = path |>
00:13:05 verbose #20815 > > $'System.IO.Directory.GetParent'
00:13:05 verbose #20816 > > if parent =. null ()
00:13:05 verbose #20817 > > then None
00:13:05 verbose #20818 > > else parent |> directory_info_full_name |> Some
00:13:05 verbose #20819 > > | Rust (Native) => fun () =>
00:13:05 verbose #20820 > > path
00:13:05 verbose #20821 > > |> sm'.to_std_string
00:13:05 verbose #20822 > > |> new_path_buf
00:13:05 verbose #20823 > > |> path_buf_parent
00:13:05 verbose #20824 > > |> optionm'.try'
00:13:05 verbose #20825 > > |> path_buf_display
00:13:05 verbose #20826 > > |> sm'.format'
00:13:05 verbose #20827 > > |> sm'.from_std_string
00:13:05 verbose #20828 > > |> Some
00:13:05 verbose #20829 > > | TypeScript _ => fun () =>
00:13:05 verbose #20830 > > global "type IPathDirname = abstract dirname: path: string ->
00:13:05 verbose #20831 > > string"
00:13:05 verbose #20832 > > inl fs : $'IPathDirname' = ts.import_all "path"
00:13:05 verbose #20833 > > ts.emit_expr path $'"!fs.dirname($0)"' |> Some
00:13:05 verbose #20834 > > | _ => fun () => null ()
00:13:05 verbose #20835 > > |> optionm'.box
00:13:05 verbose #20836 > >
00:13:05 verbose #20837 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20838 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20839 > > │ ## file_copy │
00:13:05 verbose #20840 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20841 > >
00:13:05 verbose #20842 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20843 > > let file_copy (new_path : string) (old_path : string) : () =
00:13:05 verbose #20844 > > run_target function
00:13:05 verbose #20845 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20846 > > $'System.IO.File.Copy (!old_path, !new_path, true)'
00:13:05 verbose #20847 > > | Rust (Native) => fun () =>
00:13:05 verbose #20848 > > open rust_operators
00:13:05 verbose #20849 > > inl new_path = join new_path
00:13:05 verbose #20850 > > !\\(old_path, $'"std::fs::copy(&*$0, &*!new_path)"')
00:13:05 verbose #20851 > > |> fun x => x : _ u64 stream.io_error
00:13:05 verbose #20852 > > |> resultm.unwrap'
00:13:05 verbose #20853 > > |> ignore
00:13:05 verbose #20854 > > | _ => fun () => null ()
00:13:05 verbose #20855 > >
00:13:05 verbose #20856 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20857 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20858 > > │ ## file_exists │
00:13:05 verbose #20859 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20860 > >
00:13:05 verbose #20861 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20862 > > let file_exists (path : string) : bool =
00:13:05 verbose #20863 > > run_target function
00:13:05 verbose #20864 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20865 > > path |> $'System.IO.File.Exists'
00:13:05 verbose #20866 > > | Rust (Native) => fun () =>
00:13:05 verbose #20867 > > inl path_buf = path |> sm'.to_std_string |> new_path_buf
00:13:05 verbose #20868 > > path_buf_exists path_buf && path_buf_is_file path_buf
00:13:05 verbose #20869 > > | TypeScript (Native) => fun () =>
00:13:05 verbose #20870 > > open ts_operators
00:13:05 verbose #20871 > > global "type IFsExistsSync = abstract existsSync: path: string ->
00:13:05 verbose #20872 > > bool"
00:13:05 verbose #20873 > > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:13:05 verbose #20874 > > !\\((fs, path), $'"$0.existsSync($1)"')
00:13:05 verbose #20875 > > | _ => fun () => null ()
00:13:05 verbose #20876 > >
00:13:05 verbose #20877 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20878 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20879 > > │ ## directory_delete │
00:13:05 verbose #20880 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20881 > >
00:13:05 verbose #20882 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20883 > > let directory_delete recursive (path : string) : () =
00:13:05 verbose #20884 > > run_target function
00:13:05 verbose #20885 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20886 > > $'System.IO.Directory.Delete (!path, !recursive)'
00:13:05 verbose #20887 > > | Rust (Native) => fun () =>
00:13:05 verbose #20888 > > inl path = join path
00:13:05 verbose #20889 > > if path |> directory_exists then
00:13:05 verbose #20890 > > open rust_operators
00:13:05 verbose #20891 > > if recursive
00:13:05 verbose #20892 > > then !\\(path, $'"std::fs::remove_dir_all(&*$0).unwrap()"')
00:13:05 verbose #20893 > > else !\\(path, $'"std::fs::remove_dir(&*$0).unwrap()"')
00:13:05 verbose #20894 > > | _ => fun () => null ()
00:13:05 verbose #20895 > >
00:13:05 verbose #20896 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20897 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20898 > > │ ## write_all_text │
00:13:05 verbose #20899 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20900 > >
00:13:05 verbose #20901 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20902 > > inl write_all_text (path : string) (text : string) : () =
00:13:05 verbose #20903 > > run_target function
00:13:05 verbose #20904 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20905 > > inl text = join text
00:13:05 verbose #20906 > > $'System.IO.File.WriteAllText (!path, !text)'
00:13:05 verbose #20907 > > | Rust (Native) => fun () =>
00:13:05 verbose #20908 > > open rust_operators
00:13:05 verbose #20909 > > !\\((path, text), $'"std::fs::write(&*$0, &*$1).unwrap()"')
00:13:05 verbose #20910 > > | _ => fun () => null ()
00:13:05 verbose #20911 > >
00:13:05 verbose #20912 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20913 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20914 > > │ ## read_all_bytes │
00:13:05 verbose #20915 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20916 > >
00:13:05 verbose #20917 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20918 > > inl read_all_bytes (path : string) : am'.vec u8 =
00:13:05 verbose #20919 > > run_target function
00:13:05 verbose #20920 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20921 > > $'!path |> System.IO.File.ReadAllBytes'
00:13:05 verbose #20922 > > |> am'.to_vec
00:13:05 verbose #20923 > > | Rust (Native) => fun () =>
00:13:05 verbose #20924 > > open rust_operators
00:13:05 verbose #20925 > > !\\(path, $'"std::fs::read(&*$0).unwrap()"')
00:13:05 verbose #20926 > > | _ => fun () => null ()
00:13:05 verbose #20927 > >
00:13:05 verbose #20928 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20929 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20930 > > │ ## read_all_text │
00:13:05 verbose #20931 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20932 > >
00:13:05 verbose #20933 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20934 > > inl read_all_text (path : string) : string =
00:13:05 verbose #20935 > > run_target function
00:13:05 verbose #20936 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20937 > > $'!path |> System.IO.File.ReadAllText'
00:13:05 verbose #20938 > > | Rust (Native) => fun () =>
00:13:05 verbose #20939 > > path
00:13:05 verbose #20940 > > |> read_all_bytes
00:13:05 verbose #20941 > > |> sm'.string_from_utf8
00:13:05 verbose #20942 > > |> resultm.unwrap'
00:13:05 verbose #20943 > > |> sm'.from_std_string
00:13:05 verbose #20944 > > | _ => fun () => null ()
00:13:05 verbose #20945 > >
00:13:05 verbose #20946 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20947 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20948 > > │ ## directory_create_symbolic_link │
00:13:05 verbose #20949 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20950 > >
00:13:05 verbose #20951 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20952 > > inl directory_create_symbolic_link (target : string) (path : string) : () =
00:13:05 verbose #20953 > > run_target function
00:13:05 verbose #20954 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20955 > > ($'System.IO.Directory.CreateSymbolicLink (!path, !target)' :
00:13:05 verbose #20956 > > file_system_info)
00:13:05 verbose #20957 > > |> ignore
00:13:05 verbose #20958 > > | Rust (Native) => fun () =>
00:13:05 verbose #20959 > > open rust_operators
00:13:05 verbose #20960 > > platform.run_platform function
00:13:05 verbose #20961 > > | Windows => fun () => !\\((target, path),
00:13:05 verbose #20962 > > $'"std::os::windows::fs::symlink_dir(&*$0, &*$1).unwrap()"')
00:13:05 verbose #20963 > > | _ => fun () => !\\((target, path),
00:13:05 verbose #20964 > > $'"std::os::unix::fs::symlink(&*$0, &*$1).unwrap()"')
00:13:05 verbose #20965 > > | _ => fun () => null ()
00:13:05 verbose #20966 > >
00:13:05 verbose #20967 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:05 verbose #20968 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:05 verbose #20969 > > │ ## wait_for_file_access │
00:13:05 verbose #20970 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:05 verbose #20971 > >
00:13:05 verbose #20972 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #20973 > > inl wait_for_file_access access path =
00:13:05 verbose #20974 > > run_target function
00:13:05 verbose #20975 > > | Fsharp (Native) => fun () =>
00:13:05 verbose #20976 > > inl file_access, file_share =
00:13:05 verbose #20977 > > access
00:13:05 verbose #20978 > > |> optionm'.default_value (AccessReadWrite, ShareRead)
00:13:05 verbose #20979 > > let rec loop (retry : i64) : _ i64 =
00:13:05 verbose #20980 > > fun () =>
00:13:05 verbose #20981 > > try_unit
00:13:05 verbose #20982 > > fun () =>
00:13:05 verbose #20983 > > file_stream
00:13:05 verbose #20984 > > path
00:13:05 verbose #20985 > > ModeOpen
00:13:05 verbose #20986 > > file_access
00:13:05 verbose #20987 > > file_share
00:13:05 verbose #20988 > > |> use
00:13:05 verbose #20989 > > |> ignore
00:13:05 verbose #20990 > > retry |> return
00:13:05 verbose #20991 > > fun ex =>
00:13:05 verbose #20992 > > if retry > 0 && retry % 100i64 = 0 then
00:13:05 verbose #20993 > > inl ex = ex |> sm'.format_exception
00:13:05 verbose #20994 > > trace Debug
00:13:05 verbose #20995 > > fun () => "file_system.wait_for_file_access"
00:13:05 verbose #20996 > > fun () => $'$"path: {!path |>
00:13:05 verbose #20997 > > !get_file_name} / retry: {!retry} / ex: {!ex} / {!_locals ()}"'
00:13:05 verbose #20998 > > async.sleep 10i32 |> async.do
00:13:05 verbose #20999 > > loop (retry + 1) |> async.return_await
00:13:05 verbose #21000 > > |> async.new_async
00:13:05 verbose #21001 > > loop 0
00:13:05 verbose #21002 > > | _ => fun () => null ()
00:13:05 verbose #21003 > >
00:13:05 verbose #21004 > > inl wait_for_file_access_read path =
00:13:05 verbose #21005 > > path
00:13:05 verbose #21006 > > |> wait_for_file_access (Some (
00:13:05 verbose #21007 > > AccessRead,
00:13:05 verbose #21008 > > ShareRead
00:13:05 verbose #21009 > > ))
00:13:05 verbose #21010 > >
00:13:05 verbose #21011 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:05 verbose #21012 > > //// test
00:13:05 verbose #21013 > >
00:13:05 verbose #21014 > > inl lock_file path =
00:13:05 verbose #21015 > > fun () =>
00:13:05 verbose #21016 > > trace Debug (fun () => "_1") _locals
00:13:05 verbose #21017 > > inl stream : file_stream' =
00:13:05 verbose #21018 > > file_stream
00:13:05 verbose #21019 > > path
00:13:05 verbose #21020 > > ModeOpen
00:13:05 verbose #21021 > > AccessReadWrite
00:13:05 verbose #21022 > > ShareNone
00:13:05 verbose #21023 > > |> use
00:13:05 verbose #21024 > > trace Debug (fun () => "_2") _locals
00:13:05 verbose #21025 > > async.sleep 2000 |> async.do
00:13:05 verbose #21026 > > trace Debug (fun () => "_3") _locals
00:13:05 verbose #21027 > > ($'!stream.Seek (0L, System.IO.SeekOrigin.Begin)' : i64) |> ignore
00:13:05 verbose #21028 > > trace Debug (fun () => "_4") _locals
00:13:05 verbose #21029 > > $'!stream.WriteByte' 49u8
00:13:05 verbose #21030 > > trace Debug (fun () => "_5") _locals
00:13:05 verbose #21031 > > stream |> $'_.Flush()'
00:13:05 verbose #21032 > > trace Debug (fun () => "_6") _locals
00:13:05 verbose #21033 > > |> async.new_async
00:13:05 verbose #21034 > >
00:13:05 verbose #21035 > > types ()
00:13:05 verbose #21036 > >
00:13:05 verbose #21037 > > inl file_name = "test.txt"
00:13:05 verbose #21038 > > inl text = "0"
00:13:05 verbose #21039 > >
00:13:05 verbose #21040 > > inl temp_dir, disposable =
00:13:05 verbose #21041 > > (file_name, text)
00:13:05 verbose #21042 > > |> sm'.format_debug
00:13:05 verbose #21043 > > |> crypto.hash_text
00:13:05 verbose #21044 > > |> file_system.create_temp_dir'
00:13:05 verbose #21045 > > disposable |> use |> ignore
00:13:05 verbose #21046 > > inl path = temp_dir </> file_name
00:13:05 verbose #21047 > >
00:13:05 verbose #21048 > > fun () =>
00:13:05 verbose #21049 > > trace Debug (fun () => "1") _locals
00:13:05 verbose #21050 > > text |> write_all_text_async path |> async.do
00:13:05 verbose #21051 > > trace Debug (fun () => "2") _locals
00:13:05 verbose #21052 > > inl child = path |> lock_file |> async.start_child |> async.let'
00:13:05 verbose #21053 > > trace Debug (fun () => "3") _locals
00:13:05 verbose #21054 > > async.sleep 1 |> async.do
00:13:05 verbose #21055 > > trace Debug (fun () => "4") _locals
00:13:05 verbose #21056 > > inl retries = path |> wait_for_file_access None |> async.let'
00:13:05 verbose #21057 > > trace Debug (fun () => "5") _locals
00:13:05 verbose #21058 > > inl text = path |> read_all_text_async |> async.let'
00:13:05 verbose #21059 > > trace Debug (fun () => "6") _locals
00:13:05 verbose #21060 > > child |> async.do
00:13:05 verbose #21061 > > trace Debug (fun () => "7") _locals
00:13:05 verbose #21062 > > (retries, text) |> return
00:13:05 verbose #21063 > > |> async.new_async_unit
00:13:05 verbose #21064 > > |> async.run_with_timeout 3000
00:13:05 verbose #21065 > > |> function
00:13:05 verbose #21066 > > | Some ((retries : i64), text) =>
00:13:05 verbose #21067 > > retries
00:13:05 verbose #21068 > > |> _assert_between
00:13:05 verbose #21069 > > (if platform.is_windows () then 50 else 100)
00:13:05 verbose #21070 > > (if platform.is_windows () then 150 else 200)
00:13:05 verbose #21071 > >
00:13:05 verbose #21072 > > text |> _assert_eq (join "1")
00:13:05 verbose #21073 > >
00:13:05 verbose #21074 > > true
00:13:05 verbose #21075 > > | _ => false
00:13:05 verbose #21076 > > |> _assert_eq true
00:13:09 verbose #21077 > >
00:13:09 verbose #21078 > > ╭─[ 3.77s - stdout ]───────────────────────────────────────────────────────────╮
00:13:09 verbose #21079 > > │ 00:00:00 debug #1 1 │
00:13:09 verbose #21080 > > │ 00:00:00 debug #2 2 │
00:13:09 verbose #21081 > > │ 00:00:00 debug #3 3 │
00:13:09 verbose #21082 > > │ 00:00:00 debug #4 _1 │
00:13:09 verbose #21083 > > │ 00:00:00 debug #5 _2 │
00:13:09 verbose #21084 > > │ 00:00:00 debug #6 4 │
00:13:09 verbose #21085 > > │ 00:00:01 debug #7 file_system.wait_for_file_access / path: test.txt / │
00:13:09 verbose #21086 > > │ retry: 100 / ex: System.IO.IOException: The process cannot access the file │
00:13:09 verbose #21087 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-0 │
00:13:09 verbose #21088 > > │ 16e-d959-8d21-02dc1c63c252\test.txt' because it is being used by another │
00:13:09 verbose #21089 > > │ process. │
00:13:09 verbose #21090 > > │ 00:00:02 debug #8 _3 │
00:13:09 verbose #21091 > > │ 00:00:02 debug #9 _4 │
00:13:09 verbose #21092 > > │ 00:00:02 debug #10 _5 │
00:13:09 verbose #21093 > > │ 00:00:02 debug #11 _6 │
00:13:09 verbose #21094 > > │ 00:00:02 debug #12 5 │
00:13:09 verbose #21095 > > │ 00:00:02 debug #13 6 │
00:13:09 verbose #21096 > > │ 00:00:02 debug #14 7 │
00:13:09 verbose #21097 > > │ assert_between / actual: 128L / expected: struct (50L, 150L) │
00:13:09 verbose #21098 > > │ assert_eq / actual: "1" / expected: "1" │
00:13:09 verbose #21099 > > │ assert_eq / actual: true / expected: true │
00:13:09 verbose #21100 > > │ │
00:13:09 verbose #21101 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:09 verbose #21102 > >
00:13:09 verbose #21103 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:09 verbose #21104 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:09 verbose #21105 > > │ ## read_all_text_retry_async │
00:13:09 verbose #21106 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:09 verbose #21107 > >
00:13:09 verbose #21108 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:09 verbose #21109 > > inl read_all_text_retry_async full_path : async.async (optionm'.option' string)
00:13:09 verbose #21110 > > =
00:13:09 verbose #21111 > > run_target function
00:13:09 verbose #21112 > > | Fsharp (Native) => fun () =>
00:13:09 verbose #21113 > > let rec loop (retry : i64) =
00:13:09 verbose #21114 > > fun () =>
00:13:09 verbose #21115 > > try_unit
00:13:09 verbose #21116 > > fun () =>
00:13:09 verbose #21117 > > if retry > 0
00:13:09 verbose #21118 > > then
00:13:09 verbose #21119 > > full_path
00:13:09 verbose #21120 > > |> wait_for_file_access_read
00:13:09 verbose #21121 > > |> async.run_with_timeout_async 1000
00:13:09 verbose #21122 > > |> async.ignore
00:13:09 verbose #21123 > > |> async.do
00:13:09 verbose #21124 > > full_path |> read_all_text_async |> async.map (Some
00:13:09 verbose #21125 > > >> optionm'.box) |> async.return_await
00:13:09 verbose #21126 > > fun ex =>
00:13:09 verbose #21127 > > fix_condition
00:13:09 verbose #21128 > > fun () => retry <> 0
00:13:09 verbose #21129 > > fun () =>
00:13:09 verbose #21130 > > inl ex = ex |> sm'.format_exception
00:13:09 verbose #21131 > > let _locals () = $'$"retry: {!retry} / ex:
00:13:09 verbose #21132 > > {!ex} / {!_locals ()}"'
00:13:09 verbose #21133 > > trace Debug (fun () =>
00:13:09 verbose #21134 > > $'"read_all_text_retry_async"' : string) _locals
00:13:09 verbose #21135 > > (None : _ string) |> optionm'.box |> return
00:13:09 verbose #21136 > > fun () =>
00:13:09 verbose #21137 > > loop (retry + 1) |> async.return_await
00:13:09 verbose #21138 > > |> async.new_async
00:13:09 verbose #21139 > > loop 0
00:13:09 verbose #21140 > > | _ => fun () => null ()
00:13:09 verbose #21141 > >
00:13:09 verbose #21142 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:09 verbose #21143 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:09 verbose #21144 > > │ ## delete_directory_async │
00:13:09 verbose #21145 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:09 verbose #21146 > >
00:13:09 verbose #21147 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:09 verbose #21148 > > inl delete_directory_async path : _ i64 =
00:13:09 verbose #21149 > > run_target function
00:13:09 verbose #21150 > > | Fsharp (Native) => fun () =>
00:13:09 verbose #21151 > > let rec loop (retry : i64) =
00:13:09 verbose #21152 > > fun () =>
00:13:09 verbose #21153 > > try_unit
00:13:09 verbose #21154 > > fun () =>
00:13:09 verbose #21155 > > path |> directory_delete true
00:13:09 verbose #21156 > > retry |> return
00:13:09 verbose #21157 > > fun ex =>
00:13:09 verbose #21158 > > if retry % 100i64 = 0 then
00:13:09 verbose #21159 > > inl ex = ex |> sm'.format_exception
00:13:09 verbose #21160 > > trace Debug
00:13:09 verbose #21161 > > fun () =>
00:13:09 verbose #21162 > > "file_system.delete_directory_async"
00:13:09 verbose #21163 > > fun () => $'$"path: {!path |>
00:13:09 verbose #21164 > > !get_file_name} / ex: {!ex} / {!_locals ()}"'
00:13:09 verbose #21165 > > async.sleep 10i32 |> async.do
00:13:09 verbose #21166 > > loop (retry + 1) |> async.return_await
00:13:09 verbose #21167 > > |> async.new_async
00:13:09 verbose #21168 > > loop 0
00:13:09 verbose #21169 > > | _ => fun () => null ()
00:13:09 verbose #21170 > >
00:13:09 verbose #21171 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:09 verbose #21172 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:09 verbose #21173 > > │ ## create_dir │
00:13:09 verbose #21174 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:09 verbose #21175 > >
00:13:09 verbose #21176 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:09 verbose #21177 > > let create_dir dir =
00:13:09 verbose #21178 > > run_target function
00:13:09 verbose #21179 > > | Rust (Contract | Wasm) => fun () => null ()
00:13:09 verbose #21180 > > | Rust (Native) => fun () =>
00:13:09 verbose #21181 > > inl dir = join dir
00:13:09 verbose #21182 > > match dir |> create_dir_all |> resultm.map_error' sm'.format' |>
00:13:09 verbose #21183 > > resultm.unbox with
00:13:09 verbose #21184 > > | Ok () =>
00:13:09 verbose #21185 > > trace Verbose
00:13:09 verbose #21186 > > fun () => "file_system.create_dir"
00:13:09 verbose #21187 > > fun () => $'$"dir: {!dir} / {!_locals ()}"'
00:13:09 verbose #21188 > > | Error error =>
00:13:09 verbose #21189 > > trace Critical
00:13:09 verbose #21190 > > fun () => "file_system.create_dir"
00:13:09 verbose #21191 > > fun () => $'$"dir: {!dir} / error: {!error} / {!_locals
00:13:09 verbose #21192 > > ()}"'
00:13:09 verbose #21193 > > inl disposable : _ () = new_disposable fun () =>
00:13:09 verbose #21194 > > dir
00:13:09 verbose #21195 > > |> directory_delete true
00:13:09 verbose #21196 > > disposable
00:13:09 verbose #21197 > > | _ => fun () =>
00:13:09 verbose #21198 > > inl directory_info = dir |> create_directory
00:13:09 verbose #21199 > > inl exists' = directory_info |> directory_info_exists
00:13:09 verbose #21200 > > if not exists' then
00:13:09 verbose #21201 > > inl creation_time = directory_info |>
00:13:09 verbose #21202 > > directory_info_creation_time
00:13:09 verbose #21203 > > inl result = ($'{| Exists = !exists'; CreationTime =
00:13:09 verbose #21204 > > !creation_time |}' : any) |> sm'.format_debug
00:13:09 verbose #21205 > > trace Debug
00:13:09 verbose #21206 > > fun () => "file_system.create_dir"
00:13:09 verbose #21207 > > fun () => $'$"dir: {!dir} / result: {!result} {!_locals
00:13:09 verbose #21208 > > ()}"'
00:13:09 verbose #21209 > > inl disposable : _ () = new_disposable fun () =>
00:13:09 verbose #21210 > > dir
00:13:09 verbose #21211 > > |> delete_directory_async
00:13:09 verbose #21212 > > |> async.ignore
00:13:09 verbose #21213 > > |> async.run_synchronously
00:13:09 verbose #21214 > > disposable
00:13:09 verbose #21215 > >
00:13:09 verbose #21216 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:09 verbose #21217 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:09 verbose #21218 > > │ ## create_temp_dir │
00:13:09 verbose #21219 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:09 verbose #21220 > >
00:13:09 verbose #21221 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:09 verbose #21222 > > inl create_temp_dir () =
00:13:09 verbose #21223 > > inl dir = create_temp_path ()
00:13:09 verbose #21224 > > dir, dir |> create_dir
00:13:09 verbose #21225 > >
00:13:09 verbose #21226 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:09 verbose #21227 > > //// test
00:13:09 verbose #21228 > >
00:13:09 verbose #21229 > > types ()
00:13:09 verbose #21230 > > inl path, disposable = create_temp_dir ()
00:13:09 verbose #21231 > > disposable |> use |> ignore
00:13:09 verbose #21232 > > path
00:13:09 verbose #21233 > > |> directory_exists
00:13:09 verbose #21234 > > |> _assert_eq true
00:13:10 verbose #21235 > >
00:13:10 verbose #21236 > > ╭─[ 515.72ms - stdout ]────────────────────────────────────────────────────────╮
00:13:10 verbose #21237 > > │ assert_eq / actual: true / expected: true │
00:13:10 verbose #21238 > > │ │
00:13:10 verbose #21239 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:10 verbose #21240 > >
00:13:10 verbose #21241 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:10 verbose #21242 > > //// test
00:13:10 verbose #21243 > > ///! rust -d chrono
00:13:10 verbose #21244 > >
00:13:10 verbose #21245 > > types ()
00:13:10 verbose #21246 > > inl path, disposable = create_temp_dir ()
00:13:10 verbose #21247 > > path
00:13:10 verbose #21248 > > |> directory_exists
00:13:10 verbose #21249 > > |> _assert_eq true
00:13:10 verbose #21250 > > disposable |> use |> ignore
00:13:10 verbose #21251 > > path
00:13:10 verbose #21252 > > |> directory_exists
00:13:10 verbose #21253 > > |> _assert_eq false
00:13:13 verbose #21254 > >
00:13:13 verbose #21255 > > ╭─[ 3.56s - return value ]─────────────────────────────────────────────────────╮
00:13:13 verbose #21256 > > │ 00:00:00 verbose #1 file_system.create_dir / dir: │
00:13:13 verbose #21257 > > │ C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\spiral_builder_0268effe │
00:13:13 verbose #21258 > > │ 1ca4cc09bfe89eb750333423e2707072971d95d82bde56e87a135eb5\20240605-2311-3373- │
00:13:13 verbose #21259 > > │ 8721-0000007e3ffe │
00:13:13 verbose #21260 > > │ assert_eq / actual: true / expected: true │
00:13:13 verbose #21261 > > │ assert_eq / actual: false / expected: false │
00:13:13 verbose #21262 > > │ │
00:13:13 verbose #21263 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:13 verbose #21264 > >
00:13:13 verbose #21265 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:13 verbose #21266 > > //// test
00:13:13 verbose #21267 > >
00:13:13 verbose #21268 > > inl lock_directory path =
00:13:13 verbose #21269 > > fun () =>
00:13:13 verbose #21270 > > trace Debug (fun () => "_1") _locals
00:13:13 verbose #21271 > > "0" |> write_all_text_async (path </> "test.txt") |> async.do
00:13:13 verbose #21272 > > file_stream
00:13:13 verbose #21273 > > (path </> "test.txt")
00:13:13 verbose #21274 > > ModeOpen
00:13:13 verbose #21275 > > AccessReadWrite
00:13:13 verbose #21276 > > ShareNone
00:13:13 verbose #21277 > > |> use
00:13:13 verbose #21278 > > |> ignore
00:13:13 verbose #21279 > > trace Debug (fun () => "_2") _locals
00:13:13 verbose #21280 > > async.sleep 2000 |> async.do
00:13:13 verbose #21281 > > trace Debug (fun () => "_3") _locals
00:13:13 verbose #21282 > > () |> return
00:13:13 verbose #21283 > > |> async.new_async
00:13:13 verbose #21284 > >
00:13:13 verbose #21285 > > types ()
00:13:13 verbose #21286 > > inl temp_dir, disposable = create_temp_dir ()
00:13:13 verbose #21287 > > disposable |> use |> ignore
00:13:13 verbose #21288 > > inl path = temp_dir </> "test"
00:13:13 verbose #21289 > >
00:13:13 verbose #21290 > > fun () =>
00:13:13 verbose #21291 > > trace Debug (fun () => "1") _locals
00:13:13 verbose #21292 > > path |> create_directory |> ignore
00:13:13 verbose #21293 > > trace Debug (fun () => "2") _locals
00:13:13 verbose #21294 > > inl child = path |> lock_directory |> async.start_child |> async.let'
00:13:13 verbose #21295 > > trace Debug (fun () => "3") _locals
00:13:13 verbose #21296 > > async.sleep 60 |> async.do
00:13:13 verbose #21297 > > trace Debug (fun () => "4") _locals
00:13:13 verbose #21298 > > inl retries = path |> delete_directory_async |> async.let'
00:13:13 verbose #21299 > > trace Debug (fun () => "5") _locals
00:13:13 verbose #21300 > > child |> async.do
00:13:13 verbose #21301 > > trace Debug (fun () => "6") _locals
00:13:13 verbose #21302 > > retries |> return
00:13:13 verbose #21303 > > |> async.new_async_unit
00:13:13 verbose #21304 > > |> async.run_with_timeout 3000
00:13:13 verbose #21305 > > |> fun x => x : _ i64
00:13:13 verbose #21306 > > |> function
00:13:13 verbose #21307 > > | Some (retries : i64) =>
00:13:13 verbose #21308 > > retries
00:13:13 verbose #21309 > > |> _assert_between
00:13:13 verbose #21310 > > (if platform.is_windows () then 50 else 0)
00:13:13 verbose #21311 > > (if platform.is_windows () then 150 else 0)
00:13:13 verbose #21312 > >
00:13:13 verbose #21313 > > true
00:13:13 verbose #21314 > > | _ => false
00:13:13 verbose #21315 > > |> _assert_eq true
00:13:16 verbose #21316 > >
00:13:16 verbose #21317 > > ╭─[ 2.89s - stdout ]───────────────────────────────────────────────────────────╮
00:13:16 verbose #21318 > > │ 00:00:00 debug #1 1 │
00:13:16 verbose #21319 > > │ 00:00:00 debug #2 2 │
00:13:16 verbose #21320 > > │ 00:00:00 debug #3 3 │
00:13:16 verbose #21321 > > │ 00:00:00 debug #4 _1 │
00:13:16 verbose #21322 > > │ 00:00:00 debug #5 _2 │
00:13:16 verbose #21323 > > │ 00:00:00 debug #6 4 │
00:13:16 verbose #21324 > > │ 00:00:00 debug #7 file_system.delete_directory_async / path: test / ex: │
00:13:16 verbose #21325 > > │ System.IO.IOException: The process cannot access the file 'test.txt' because │
00:13:16 verbose #21326 > > │ it is being used by another process. │
00:13:16 verbose #21327 > > │ 00:00:01 debug #8 file_system.delete_directory_async / path: test / ex: │
00:13:16 verbose #21328 > > │ System.IO.IOException: The process cannot access the file 'test.txt' because │
00:13:16 verbose #21329 > > │ it is being used by another process. │
00:13:16 verbose #21330 > > │ 00:00:02 debug #9 _3 │
00:13:16 verbose #21331 > > │ 00:00:02 debug #10 5 │
00:13:16 verbose #21332 > > │ 00:00:02 debug #11 6 │
00:13:16 verbose #21333 > > │ assert_between / actual: 125L / expected: struct (50L, 150L) │
00:13:16 verbose #21334 > > │ assert_eq / actual: true / expected: true │
00:13:16 verbose #21335 > > │ │
00:13:16 verbose #21336 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #21337 > >
00:13:16 verbose #21338 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:16 verbose #21339 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:16 verbose #21340 > > │ ## create_temp_dir' │
00:13:16 verbose #21341 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #21342 > >
00:13:16 verbose #21343 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #21344 > > inl create_temp_dir' (hash : string) =
00:13:16 verbose #21345 > > inl dir = hash |> guid.hash_guid |> create_temp_path'
00:13:16 verbose #21346 > > dir, dir |> create_dir
00:13:16 verbose #21347 > >
00:13:16 verbose #21348 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:16 verbose #21349 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:16 verbose #21350 > > │ ## link_directory │
00:13:16 verbose #21351 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #21352 > >
00:13:16 verbose #21353 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #21354 > > let link_directory target_path path =
00:13:16 verbose #21355 > > if target_path |> directory_exists |> not
00:13:16 verbose #21356 > > then target_path |> create_dir |> ignore
00:13:16 verbose #21357 > >
00:13:16 verbose #21358 > > inl lib_dir_path = path |> get_directory_name
00:13:16 verbose #21359 > > if lib_dir_path |> directory_exists |> not
00:13:16 verbose #21360 > > then lib_dir_path |> create_dir |> ignore
00:13:16 verbose #21361 > >
00:13:16 verbose #21362 > > if (path |> directory_exists)
00:13:16 verbose #21363 > > && (path |> read_link |> resultm.is_err) then
00:13:16 verbose #21364 > > path |> directory_delete true
00:13:16 verbose #21365 > >
00:13:16 verbose #21366 > > if path |> directory_exists |> not then
00:13:16 verbose #21367 > > path |> directory_create_symbolic_link target_path
00:13:16 verbose #21368 > >
00:13:16 verbose #21369 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:16 verbose #21370 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:16 verbose #21371 > > │ ## find_parent │
00:13:16 verbose #21372 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #21373 > >
00:13:16 verbose #21374 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #21375 > > inl find_parent name is_file root_dir =
00:13:16 verbose #21376 > > let rec loop dir =
00:13:16 verbose #21377 > > if dir </> name |> (if is_file then file_exists else directory_exists)
00:13:16 verbose #21378 > > then dir
00:13:16 verbose #21379 > > else
00:13:16 verbose #21380 > > inl result = dir |> (join directory_get_parent)
00:13:16 verbose #21381 > > match result |> optionm'.unbox with
00:13:16 verbose #21382 > > | Some parent => parent |> loop
00:13:16 verbose #21383 > > | None => failwith $'$"""No parent for {if !is_file then "file" else
00:13:16 verbose #21384 > > "dir"} \'{!name}\' at \'{!root_dir}\' (until \'{!dir}\')"""'
00:13:16 verbose #21385 > > loop root_dir
00:13:16 verbose #21386 > >
00:13:16 verbose #21387 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #21388 > > //// test
00:13:16 verbose #21389 > >
00:13:16 verbose #21390 > > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:13:16 verbose #21391 > > |> am.map fun (file, is_file) =>
00:13:16 verbose #21392 > > get_source_directory ()
00:13:16 verbose #21393 > > |> find_parent file is_file
00:13:16 verbose #21394 > > |> directory_info
00:13:16 verbose #21395 > > |> directory_info_name
00:13:16 verbose #21396 > > |> am'.distinct
00:13:16 verbose #21397 > > |> _assert_eq (a ;[[ "polyglot" ]] : _ i32 _)
00:13:16 verbose #21398 > >
00:13:16 verbose #21399 > > ╭─[ 137.24ms - stdout ]────────────────────────────────────────────────────────╮
00:13:16 verbose #21400 > > │ assert_eq / actual: [|"polyglot"|] / expected: [|"polyglot"|] │
00:13:16 verbose #21401 > > │ │
00:13:16 verbose #21402 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:16 verbose #21403 > >
00:13:16 verbose #21404 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:16 verbose #21405 > > //// test
00:13:16 verbose #21406 > > ///! rust
00:13:16 verbose #21407 > >
00:13:16 verbose #21408 > > types ()
00:13:16 verbose #21409 > > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:13:16 verbose #21410 > > |> am.map fun (file, is_file) =>
00:13:16 verbose #21411 > > fun () =>
00:13:16 verbose #21412 > > join
00:13:16 verbose #21413 > > get_source_directory ()
00:13:16 verbose #21414 > > |> find_parent file is_file
00:13:16 verbose #21415 > > |> sm'.to_std_string
00:13:16 verbose #21416 > > |> new_path_buf
00:13:16 verbose #21417 > > |> path_buf_file_name
00:13:16 verbose #21418 > > |> optionm'.try'
00:13:16 verbose #21419 > > |> sm'.from_os_str_ref
00:13:16 verbose #21420 > > |> Some
00:13:16 verbose #21421 > > |> optionm'.box
00:13:16 verbose #21422 > > |> fun x => x () |> optionm'.unbox
00:13:16 verbose #21423 > > |> optionm'.default_value ""
00:13:16 verbose #21424 > > |> am'.distinct
00:13:16 verbose #21425 > > |> fun result =>
00:13:16 verbose #21426 > > result |> am'.length |> _assert_eq 1i32
00:13:16 verbose #21427 > > index result 0i32 |> _assert_eq "polyglot"
00:13:20 verbose #21428 > >
00:13:20 verbose #21429 > > ╭─[ 3.30s - return value ]─────────────────────────────────────────────────────╮
00:13:20 verbose #21430 > > │ assert_eq / actual: 1 / expected: 1 │
00:13:20 verbose #21431 > > │ assert_eq / actual: "polyglot" / expected: "polyglot" │
00:13:20 verbose #21432 > > │ │
00:13:20 verbose #21433 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21434 > >
00:13:20 verbose #21435 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #21436 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #21437 > > │ ## get_workspace_root │
00:13:20 verbose #21438 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21439 > >
00:13:20 verbose #21440 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21441 > > inl get_workspace_root () =
00:13:20 verbose #21442 > > get_source_directory ()
00:13:20 verbose #21443 > > |> find_parent ("polyglot" </> ".paket") false
00:13:20 verbose #21444 > > |> fun root => root </> "polyglot"
00:13:20 verbose #21445 > >
00:13:20 verbose #21446 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #21447 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #21448 > > │ ## get_workspace_root_external │
00:13:20 verbose #21449 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21450 > >
00:13:20 verbose #21451 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21452 > > inl get_workspace_root_external () =
00:13:20 verbose #21453 > > inl workspace_root = get_workspace_root ()
00:13:20 verbose #21454 > > inl current_dir = get_current_directory () |> sm'.to_lower
00:13:20 verbose #21455 > > inl workspace_root = workspace_root |> sm'.to_lower
00:13:20 verbose #21456 > > if current_dir |> sm'.starts_with workspace_root
00:13:20 verbose #21457 > > then Error workspace_root
00:13:20 verbose #21458 > > else Ok workspace_root
00:13:20 verbose #21459 > >
00:13:20 verbose #21460 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #21461 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #21462 > > │ ## standardize_path │
00:13:20 verbose #21463 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21464 > >
00:13:20 verbose #21465 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21466 > > let standardize_path path =
00:13:20 verbose #21467 > > path |> get_full_path |> normalize_path
00:13:20 verbose #21468 > >
00:13:20 verbose #21469 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #21470 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #21471 > > │ ## absolute_path │
00:13:20 verbose #21472 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21473 > >
00:13:20 verbose #21474 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21475 > > let absolute_path path =
00:13:20 verbose #21476 > > inl current_dir = get_current_directory ()
00:13:20 verbose #21477 > > current_dir </> path |> standardize_path
00:13:20 verbose #21478 > >
00:13:20 verbose #21479 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:20 verbose #21480 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:20 verbose #21481 > > │ ## new_file_uri │
00:13:20 verbose #21482 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21483 > >
00:13:20 verbose #21484 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21485 > > inl new_file_uri (path : string) : string =
00:13:20 verbose #21486 > > inl path = path |> sm'.trim_start ;[[ '/' ]]
00:13:20 verbose #21487 > > $'$"file:///{!path}"'
00:13:20 verbose #21488 > >
00:13:20 verbose #21489 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21490 > > //// test
00:13:20 verbose #21491 > >
00:13:20 verbose #21492 > > @"\\?\C:\test"
00:13:20 verbose #21493 > > |> normalize_path
00:13:20 verbose #21494 > > |> new_file_uri
00:13:20 verbose #21495 > > |> _assert_eq "file:///c:/test"
00:13:20 verbose #21496 > >
00:13:20 verbose #21497 > > ╭─[ 47.18ms - stdout ]─────────────────────────────────────────────────────────╮
00:13:20 verbose #21498 > > │ assert_eq / actual: "file:///c:/test" / expected: "file:///c:/test" │
00:13:20 verbose #21499 > > │ │
00:13:20 verbose #21500 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:20 verbose #21501 > >
00:13:20 verbose #21502 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:20 verbose #21503 > > //// test
00:13:20 verbose #21504 > > ///! rust -d regex
00:13:20 verbose #21505 > >
00:13:20 verbose #21506 > > types ()
00:13:20 verbose #21507 > > @"\\?\C:\test"
00:13:20 verbose #21508 > > |> normalize_path
00:13:20 verbose #21509 > > |> new_file_uri
00:13:20 verbose #21510 > > |> _assert_eq "file:///c:/test"
00:13:23 verbose #21511 > >
00:13:23 verbose #21512 > > ╭─[ 3.64s - return value ]─────────────────────────────────────────────────────╮
00:13:23 verbose #21513 > > │ assert_eq / actual: "file:///c:/test" / expected: "file:///c:/test" │
00:13:23 verbose #21514 > > │ │
00:13:23 verbose #21515 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:23 verbose #21516 > >
00:13:23 verbose #21517 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:23 verbose #21518 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:23 verbose #21519 > > │ ## file_exists_content' │
00:13:23 verbose #21520 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:23 verbose #21521 > >
00:13:23 verbose #21522 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:23 verbose #21523 > > let file_exists_content' path content : bool =
00:13:23 verbose #21524 > > run_target function
00:13:23 verbose #21525 > > | Rust (Native) => fun () =>
00:13:23 verbose #21526 > > if path |> file_exists |> not
00:13:23 verbose #21527 > > then false
00:13:23 verbose #21528 > > else
00:13:23 verbose #21529 > > inl existing_content = path |> read_all_text
00:13:23 verbose #21530 > > content = existing_content
00:13:23 verbose #21531 > > | _ => fun () => null ()
00:13:23 verbose #21532 > >
00:13:23 verbose #21533 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:23 verbose #21534 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:23 verbose #21535 > > │ ## write_all_text_exists' │
00:13:23 verbose #21536 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:23 verbose #21537 > >
00:13:23 verbose #21538 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:23 verbose #21539 > > let write_all_text_exists' path contents =
00:13:23 verbose #21540 > > inl exists' = contents |> file_exists_content' path
00:13:23 verbose #21541 > > if not exists'
00:13:23 verbose #21542 > > then contents |> write_all_text path
00:13:23 verbose #21543 > >
00:13:23 verbose #21544 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:23 verbose #21545 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:23 verbose #21546 > > │ ## trace_file │
00:13:23 verbose #21547 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:23 verbose #21548 > >
00:13:23 verbose #21549 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:23 verbose #21550 > > let rec trace_file text =
00:13:23 verbose #21551 > > run_target function
00:13:23 verbose #21552 > > | Fsharp (Native) => fun () =>
00:13:23 verbose #21553 > > try_unit
00:13:23 verbose #21554 > > fun () =>
00:13:23 verbose #21555 > > inl assembly_name = env.get_entry_assembly_name ()
00:13:23 verbose #21556 > > inl guid = date_time.now () |> date_time.new_guid_from_date_time
00:13:23 verbose #21557 > > inl file_name = $'$"{!assembly_name}_{!guid}.txt"'
00:13:23 verbose #21558 > >
00:13:23 verbose #21559 > > inl workspace_root = get_workspace_root ()
00:13:23 verbose #21560 > > inl trace_dir = workspace_root </> "target/trace"
00:13:23 verbose #21561 > > trace_dir |> create_directory |> ignore
00:13:23 verbose #21562 > > inl path = trace_dir </> file_name
00:13:23 verbose #21563 > > text |> write_all_text_async path |> async.run_synchronously
00:13:23 verbose #21564 > > fun ex =>
00:13:23 verbose #21565 > > trace_file $'$"file_system.trace_file / ex: %A{!ex}"'
00:13:23 verbose #21566 > > | _ => fun () => ()
00:13:23 verbose #21567 > >
00:13:23 verbose #21568 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:23 verbose #21569 > > //// test
00:13:23 verbose #21570 > >
00:13:23 verbose #21571 > > inl get_count dir : i64 =
00:13:23 verbose #21572 > > inl files = dir |> file_system.directory_get_files
00:13:23 verbose #21573 > > a files |> am'.length
00:13:23 verbose #21574 > >
00:13:23 verbose #21575 > > types ()
00:13:23 verbose #21576 > > inl trace_dir = file_system.get_workspace_root () </> "target/trace"
00:13:23 verbose #21577 > > trace_dir |> file_system.create_directory |> ignore
00:13:23 verbose #21578 > >
00:13:23 verbose #21579 > > inl count = get_count trace_dir
00:13:23 verbose #21580 > >
00:13:23 verbose #21581 > > trace_file "test"
00:13:23 verbose #21582 > >
00:13:23 verbose #21583 > > get_count trace_dir
00:13:23 verbose #21584 > > |> _assert_eq (count + 1)
00:13:24 verbose #21585 > >
00:13:24 verbose #21586 > > ╭─[ 643.33ms - stdout ]────────────────────────────────────────────────────────╮
00:13:24 verbose #21587 > > │ assert_eq / actual: 10L / expected: 10L │
00:13:24 verbose #21588 > > │ │
00:13:24 verbose #21589 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:24 verbose #21590 > >
00:13:24 verbose #21591 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:24 verbose #21592 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:24 verbose #21593 > > │ ## file_delete │
00:13:24 verbose #21594 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:24 verbose #21595 > >
00:13:24 verbose #21596 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:24 verbose #21597 > > inl file_delete (path : string) : () =
00:13:24 verbose #21598 > > run_target function
00:13:24 verbose #21599 > > | Fsharp (Native) => fun () =>
00:13:24 verbose #21600 > > path |> $'System.IO.File.Delete'
00:13:24 verbose #21601 > > | Rust (Native) => fun () =>
00:13:24 verbose #21602 > > open rust_operators
00:13:24 verbose #21603 > > !\\(path, $'"std::fs::remove_file(&*$0).unwrap()"')
00:13:24 verbose #21604 > > | _ => fun () => null ()
00:13:24 verbose #21605 > >
00:13:24 verbose #21606 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:24 verbose #21607 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:24 verbose #21608 > > │ ## delete_file_async │
00:13:24 verbose #21609 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:24 verbose #21610 > >
00:13:24 verbose #21611 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:24 verbose #21612 > > inl delete_file_async path : _ i64 =
00:13:24 verbose #21613 > > run_target function
00:13:24 verbose #21614 > > | Fsharp (Native) => fun () =>
00:13:24 verbose #21615 > > let rec loop (retry : i64) =
00:13:24 verbose #21616 > > fun () =>
00:13:24 verbose #21617 > > try_unit
00:13:24 verbose #21618 > > fun () =>
00:13:24 verbose #21619 > > path |> file_delete
00:13:24 verbose #21620 > > return retry
00:13:24 verbose #21621 > > fun ex =>
00:13:24 verbose #21622 > > if retry % 100 = 0 then
00:13:24 verbose #21623 > > trace Warning
00:13:24 verbose #21624 > > fun () => "delete_file_async"
00:13:24 verbose #21625 > > fun () =>
00:13:24 verbose #21626 > > inl ex = ex |> sm'.format_exception
00:13:24 verbose #21627 > > $'$"path: {!path |> !get_file_name}
00:13:24 verbose #21628 > > ex: {!ex} / {!_locals ()}"'
00:13:24 verbose #21629 > > async.sleep 10 |> async.do
00:13:24 verbose #21630 > > loop (retry + 1) |> async.return_await
00:13:24 verbose #21631 > > |> async.new_async
00:13:24 verbose #21632 > > loop 0
00:13:24 verbose #21633 > > | _ => fun () => null ()
00:13:24 verbose #21634 > >
00:13:24 verbose #21635 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:24 verbose #21636 > > //// test
00:13:24 verbose #21637 > >
00:13:24 verbose #21638 > > inl lock_file path =
00:13:24 verbose #21639 > > fun () =>
00:13:24 verbose #21640 > > trace Debug (fun () => "_1") _locals
00:13:24 verbose #21641 > > file_stream
00:13:24 verbose #21642 > > path
00:13:24 verbose #21643 > > ModeOpen
00:13:24 verbose #21644 > > AccessReadWrite
00:13:24 verbose #21645 > > ShareNone
00:13:24 verbose #21646 > > |> use
00:13:24 verbose #21647 > > |> ignore
00:13:24 verbose #21648 > > trace Debug (fun () => "_2") _locals
00:13:24 verbose #21649 > > async.sleep 2000 |> async.do
00:13:24 verbose #21650 > > trace Debug (fun () => "_3") _locals
00:13:24 verbose #21651 > > |> async.new_async
00:13:24 verbose #21652 > >
00:13:24 verbose #21653 > > types ()
00:13:24 verbose #21654 > > fun () =>
00:13:24 verbose #21655 > > inl file_name = "test.txt"
00:13:24 verbose #21656 > > inl text = "0"
00:13:24 verbose #21657 > >
00:13:24 verbose #21658 > > inl temp_dir, disposable =
00:13:24 verbose #21659 > > (file_name, text)
00:13:24 verbose #21660 > > |> sm'.format_debug
00:13:24 verbose #21661 > > |> crypto.hash_text
00:13:24 verbose #21662 > > |> file_system.create_temp_dir'
00:13:24 verbose #21663 > > disposable |> use |> ignore
00:13:24 verbose #21664 > > inl path = temp_dir </> file_name
00:13:24 verbose #21665 > >
00:13:24 verbose #21666 > > trace Debug (fun () => "1") _locals
00:13:24 verbose #21667 > > text |> write_all_text_async path |> async.do
00:13:24 verbose #21668 > > trace Debug (fun () => "2") _locals
00:13:24 verbose #21669 > > inl child = lock_file path |> async.start_child |> async.let'
00:13:24 verbose #21670 > > trace Debug (fun () => "3") _locals
00:13:24 verbose #21671 > > async.sleep 1 |> async.do
00:13:24 verbose #21672 > > trace Debug (fun () => "4") _locals
00:13:24 verbose #21673 > > inl retries = delete_file_async path |> async.let'
00:13:24 verbose #21674 > > trace Debug (fun () => "5") _locals
00:13:24 verbose #21675 > > child |> async.do
00:13:24 verbose #21676 > > trace Debug (fun () => "6") _locals
00:13:24 verbose #21677 > > return retries
00:13:24 verbose #21678 > > |> async.new_async_unit
00:13:24 verbose #21679 > > |> async.run_with_timeout 3000
00:13:24 verbose #21680 > > |> function
00:13:24 verbose #21681 > > | Some (retries : i64) =>
00:13:24 verbose #21682 > > retries
00:13:24 verbose #21683 > > |> _assert_between
00:13:24 verbose #21684 > > (if platform.is_windows () then 50 else 0)
00:13:24 verbose #21685 > > (if platform.is_windows () then 150 else 0)
00:13:24 verbose #21686 > >
00:13:24 verbose #21687 > > true
00:13:24 verbose #21688 > > | _ => false
00:13:24 verbose #21689 > > |> _assert_eq true
00:13:27 verbose #21690 > >
00:13:27 verbose #21691 > > ╭─[ 3.18s - stdout ]───────────────────────────────────────────────────────────╮
00:13:27 verbose #21692 > > │ 00:00:00 debug #1 1 │
00:13:27 verbose #21693 > > │ 00:00:00 debug #2 2 │
00:13:27 verbose #21694 > > │ 00:00:00 debug #3 3 │
00:13:27 verbose #21695 > > │ 00:00:00 debug #4 _1 │
00:13:27 verbose #21696 > > │ 00:00:00 debug #5 _2 │
00:13:27 verbose #21697 > > │ 00:00:00 debug #6 4 │
00:13:27 verbose #21698 > > │ 00:00:00 warning #7 delete_file_async / path: test.txt / ex: │
00:13:27 verbose #21699 > > │ System.IO.IOException: The process cannot access the file │
00:13:27 verbose #21700 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-0 │
00:13:27 verbose #21701 > > │ 16e-d959-8d21-02dc1c63c252\test.txt' because it is being used by another │
00:13:27 verbose #21702 > > │ process. │
00:13:27 verbose #21703 > > │ 00:00:01 warning #8 delete_file_async / path: test.txt / ex: │
00:13:27 verbose #21704 > > │ System.IO.IOException: The process cannot access the file │
00:13:27 verbose #21705 > > │ 'C:\Users\i574n\AppData\Local\Temp\!create_temp_path_\dotnet-repl\613830ed-0 │
00:13:27 verbose #21706 > > │ 16e-d959-8d21-02dc1c63c252\test.txt' because it is being used by another │
00:13:27 verbose #21707 > > │ process. │
00:13:27 verbose #21708 > > │ 00:00:02 debug #9 _3 │
00:13:27 verbose #21709 > > │ 00:00:02 debug #10 5 │
00:13:27 verbose #21710 > > │ 00:00:02 debug #11 6 │
00:13:27 verbose #21711 > > │ assert_between / actual: 128L / expected: struct (50L, 150L) │
00:13:27 verbose #21712 > > │ assert_eq / actual: true / expected: true │
00:13:27 verbose #21713 > > │ │
00:13:27 verbose #21714 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:27 verbose #21715 > >
00:13:27 verbose #21716 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:27 verbose #21717 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:27 verbose #21718 > > │ ## move_file_async │
00:13:27 verbose #21719 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:27 verbose #21720 > >
00:13:27 verbose #21721 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:27 verbose #21722 > > inl move_file_async new_path old_path : _ i64 =
00:13:27 verbose #21723 > > run_target function
00:13:27 verbose #21724 > > | Fsharp (Native) => fun () =>
00:13:27 verbose #21725 > > let rec loop (retry : i64) =
00:13:27 verbose #21726 > > fun () =>
00:13:27 verbose #21727 > > try_unit
00:13:27 verbose #21728 > > fun () =>
00:13:27 verbose #21729 > > old_path |> file_move new_path
00:13:27 verbose #21730 > > return retry
00:13:27 verbose #21731 > > fun ex =>
00:13:27 verbose #21732 > > if retry % 100 = 0 then
00:13:27 verbose #21733 > > inl _locals () =
00:13:27 verbose #21734 > > inl ex = ex |> sm'.format_exception
00:13:27 verbose #21735 > > $'$"old_path: {!old_path |> !get_file_name}
00:13:27 verbose #21736 > > / new_path: {!new_path |> !get_file_name} / ex: {!ex} / {!_locals ()}"'
00:13:27 verbose #21737 > > trace Warning (fun () => "move_file_async")
00:13:27 verbose #21738 > > _locals
00:13:27 verbose #21739 > > async.sleep 10 |> async.do
00:13:27 verbose #21740 > > loop (retry + 1) |> async.return_await
00:13:27 verbose #21741 > > |> async.new_async_unit
00:13:27 verbose #21742 > > loop 0
00:13:27 verbose #21743 > > | _ => fun () => null ()
00:13:27 verbose #21744 > >
00:13:27 verbose #21745 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:27 verbose #21746 > > //// test
00:13:27 verbose #21747 > >
00:13:27 verbose #21748 > > inl lock_file path =
00:13:27 verbose #21749 > > fun () =>
00:13:27 verbose #21750 > > trace Debug (fun () => "_1") _locals
00:13:27 verbose #21751 > > file_stream
00:13:27 verbose #21752 > > path
00:13:27 verbose #21753 > > ModeOpen
00:13:27 verbose #21754 > > AccessReadWrite
00:13:27 verbose #21755 > > ShareNone
00:13:27 verbose #21756 > > |> use
00:13:27 verbose #21757 > > |> ignore
00:13:27 verbose #21758 > > trace Debug (fun () => "_2") _locals
00:13:27 verbose #21759 > > async.sleep 2000 |> async.do
00:13:27 verbose #21760 > > trace Debug (fun () => "_3") _locals
00:13:27 verbose #21761 > > |> async.new_async
00:13:27 verbose #21762 > >
00:13:27 verbose #21763 > > types ()
00:13:27 verbose #21764 > > fun () =>
00:13:27 verbose #21765 > > inl file_name = "test.txt"
00:13:27 verbose #21766 > > inl text = "0"
00:13:27 verbose #21767 > >
00:13:27 verbose #21768 > > inl temp_dir, disposable =
00:13:27 verbose #21769 > > (file_name, text)
00:13:27 verbose #21770 > > |> sm'.format_debug
00:13:27 verbose #21771 > > |> crypto.hash_text
00:13:27 verbose #21772 > > |> file_system.create_temp_dir'
00:13:27 verbose #21773 > > disposable |> use |> ignore
00:13:27 verbose #21774 > > let path = temp_dir </> file_name
00:13:27 verbose #21775 > > let new_path = temp_dir </> "test2.txt"
00:13:27 verbose #21776 > >
00:13:27 verbose #21777 > > trace Debug (fun () => "1") _locals
00:13:27 verbose #21778 > > text |> write_all_text_async path |> async.do
00:13:27 verbose #21779 > > trace Debug (fun () => "2") _locals
00:13:27 verbose #21780 > > inl child = lock_file path |> async.start_child |> async.let'
00:13:27 verbose #21781 > > trace Debug (fun () => "3") _locals
00:13:27 verbose #21782 > > async.sleep 1 |> async.do
00:13:27 verbose #21783 > > trace Debug (fun () => "4") _locals
00:13:27 verbose #21784 > > inl retries1 = path |> move_file_async new_path |> async.let'
00:13:27 verbose #21785 > > trace Debug (fun () => "5") _locals
00:13:27 verbose #21786 > > inl retries2 = new_path |> wait_for_file_access None |> async.let'
00:13:27 verbose #21787 > > trace Debug (fun () => "6") _locals
00:13:27 verbose #21788 > > inl text = new_path |> read_all_text_async |> async.let'
00:13:27 verbose #21789 > > trace Debug (fun () => "7") _locals
00:13:27 verbose #21790 > > child |> async.do
00:13:27 verbose #21791 > > trace Debug (fun () => "8") _locals
00:13:27 verbose #21792 > > (retries1, retries2, text) |> return
00:13:27 verbose #21793 > > |> async.new_async_unit
00:13:27 verbose #21794 > > |> async.run_with_timeout 3000
00:13:27 verbose #21795 > > |> function
00:13:27 verbose #21796 > > | Some (retries1, retries2, text) =>
00:13:27 verbose #21797 > > retries1
00:13:27 verbose #21798 > > |> _assert_between
00:13:27 verbose #21799 > > (if platform.is_windows () then 50i64 else 0)
00:13:27 verbose #21800 > > (if platform.is_windows () then 150 else 0)
00:13:27 verbose #21801 > >
00:13:27 verbose #21802 > > retries2
00:13:27 verbose #21803 > > |> _assert_between
00:13:27 verbose #21804 > > (if platform.is_windows () then 0i64 else 100)
00:13:27 verbose #21805 > > (if platform.is_windows () then 0 else 200)
00:13:27 verbose #21806 > >
00:13:27 verbose #21807 > > text |> _assert_eq (join "0")
00:13:27 verbose #21808 > >
00:13:27 verbose #21809 > > true
00:13:27 verbose #21810 > > | _ => false
00:13:27 verbose #21811 > > |> _assert_eq true
00:13:31 verbose #21812 > >
00:13:31 verbose #21813 > > ╭─[ 3.15s - stdout ]───────────────────────────────────────────────────────────╮
00:13:31 verbose #21814 > > │ 00:00:00 debug #1 1 │
00:13:31 verbose #21815 > > │ 00:00:00 debug #2 2 │
00:13:31 verbose #21816 > > │ 00:00:00 debug #3 3 │
00:13:31 verbose #21817 > > │ 00:00:00 debug #4 _1 │
00:13:31 verbose #21818 > > │ 00:00:00 debug #5 _2 │
00:13:31 verbose #21819 > > │ 00:00:00 debug #6 4 │
00:13:31 verbose #21820 > > │ 00:00:00 warning #7 move_file_async / old_path: test.txt / new_path: │
00:13:31 verbose #21821 > > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:13:31 verbose #21822 > > │ because it is being used by another process. │
00:13:31 verbose #21823 > > │ 00:00:01 warning #8 move_file_async / old_path: test.txt / new_path: │
00:13:31 verbose #21824 > > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:13:31 verbose #21825 > > │ because it is being used by another process. │
00:13:31 verbose #21826 > > │ 00:00:02 debug #9 _3 │
00:13:31 verbose #21827 > > │ 00:00:02 debug #10 5 │
00:13:31 verbose #21828 > > │ 00:00:02 debug #11 6 │
00:13:31 verbose #21829 > > │ 00:00:02 debug #12 7 │
00:13:31 verbose #21830 > > │ 00:00:02 debug #13 8 │
00:13:31 verbose #21831 > > │ assert_between / actual: 128L / expected: struct (50L, 150L) │
00:13:31 verbose #21832 > > │ assert_between / actual: 0L / expected: struct (0L, 0L) │
00:13:31 verbose #21833 > > │ assert_eq / actual: "0" / expected: "0" │
00:13:31 verbose #21834 > > │ assert_eq / actual: true / expected: true │
00:13:31 verbose #21835 > > │ │
00:13:31 verbose #21836 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:31 verbose #21837 > >
00:13:31 verbose #21838 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:31 verbose #21839 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:31 verbose #21840 > > │ ## file_exists_content │
00:13:31 verbose #21841 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:31 verbose #21842 > >
00:13:31 verbose #21843 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:31 verbose #21844 > > inl file_exists_content path content : _ bool =
00:13:31 verbose #21845 > > run_target function
00:13:31 verbose #21846 > > | Fsharp (Native) => fun () =>
00:13:31 verbose #21847 > > fun () =>
00:13:31 verbose #21848 > > fix_condition
00:13:31 verbose #21849 > > fun () => path |> file_exists |> not
00:13:31 verbose #21850 > > fun () => false |> return
00:13:31 verbose #21851 > > fun () =>
00:13:31 verbose #21852 > > inl existing_content = path |> read_all_text_async |>
00:13:31 verbose #21853 > > async.let'
00:13:31 verbose #21854 > > content = existing_content |> return
00:13:31 verbose #21855 > > |> async.new_async_unit
00:13:31 verbose #21856 > > | _ => fun () => null ()
00:13:31 verbose #21857 > >
00:13:31 verbose #21858 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:31 verbose #21859 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:31 verbose #21860 > > │ ## write_all_text_exists │
00:13:31 verbose #21861 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:31 verbose #21862 > >
00:13:31 verbose #21863 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:31 verbose #21864 > > inl write_all_text_exists path contents =
00:13:31 verbose #21865 > > fun () =>
00:13:31 verbose #21866 > > inl exists' = contents |> file_exists_content path |> async.let'
00:13:31 verbose #21867 > > if not exists'
00:13:31 verbose #21868 > > then contents |> write_all_text_async path |> async.do
00:13:31 verbose #21869 > > |> async.new_async
00:13:31 verbose #21870 > >
00:13:31 verbose #21871 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:31 verbose #21872 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:31 verbose #21873 > > │ ## init_trace_file │
00:13:31 verbose #21874 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:31 verbose #21875 > >
00:13:31 verbose #21876 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:31 verbose #21877 > > inl init_trace_file enabled =
00:13:31 verbose #21878 > > inl state_trace_file = get_trace_state_or_init None .trace_file
00:13:31 verbose #21879 > > state_trace_file <- if enabled then trace_file else ignore
00:13:31 verbose #21880 > >
00:13:31 verbose #21881 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:31 verbose #21882 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:31 verbose #21883 > > │ ## main │
00:13:31 verbose #21884 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:31 verbose #21885 > >
00:13:31 verbose #21886 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:31 verbose #21887 > > inl main () =
00:13:31 verbose #21888 > > types ()
00:13:31 verbose #21889 > > init_trace_state None
00:13:31 verbose #21890 > > $'let delete_directory_async x = !delete_directory_async x' : ()
00:13:31 verbose #21891 > > $'let wait_for_file_access x = !wait_for_file_access x' : ()
00:13:31 verbose #21892 > > $'let wait_for_file_access_read x = !wait_for_file_access_read x' : ()
00:13:31 verbose #21893 > > $'let read_all_text_async x = !read_all_text_async x' : ()
00:13:31 verbose #21894 > > $'let file_exists_content x = !file_exists_content x' : ()
00:13:31 verbose #21895 > > $'let write_all_text_async x = !write_all_text_async x' : ()
00:13:31 verbose #21896 > > $'let write_all_text_exists x = !write_all_text_exists x' : ()
00:13:31 verbose #21897 > > $'let delete_file_async x = !delete_file_async x' : ()
00:13:31 verbose #21898 > > $'let move_file_async x = !move_file_async x' : ()
00:13:31 verbose #21899 > > $'let read_all_text_retry_async x = !read_all_text_retry_async x' : ()
00:13:31 verbose #21900 > > $'let create_temp_path () = !create_temp_path ()' : ()
00:13:31 verbose #21901 > > $'let create_temp_dir () = !create_temp_dir ()' : ()
00:13:31 verbose #21902 > > $'let create_temp_dir\' x = !create_temp_dir' x' : ()
00:13:31 verbose #21903 > > $'let get_source_directory () = !get_source_directory ()' : ()
00:13:31 verbose #21904 > > $'let find_parent x = !find_parent x' : ()
00:13:31 verbose #21905 > > $'let normalize_path x = !normalize_path x' : ()
00:13:31 verbose #21906 > > $'let new_file_uri x = !new_file_uri x' : ()
00:13:31 verbose #21907 > > $'let get_workspace_root () = !get_workspace_root ()' : ()
00:13:31 verbose #21908 > > $'let init_trace_file x = !init_trace_file x' : ()
00:13:31 verbose #21909 > > inl combine x = (</>) x
00:13:31 verbose #21910 > > $'let (</>) x = !combine x' : ()
00:13:32 verbose #21911 > 00:00:49 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 97296
00:13:32 verbose #21912 > 00:00:49 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:13:34 verbose #21913 > 00:00:51 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/file_system.dib.ipynb to html
00:13:34 verbose #21914 > 00:00:51 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:13:34 verbose #21915 > 00:00:51 verbose #7 ! validate(nb)
00:13:39 verbose #21916 > 00:00:56 verbose #8 ! [NbConvertApp] Writing 575212 bytes to c:\home\git\polyglot\lib\spiral\file_system.dib.html
00:13:39 verbose #21917 > 00:00:56 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 653
00:13:39 verbose #21918 > 00:00:56 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 653
00:13:39 verbose #21919 > 00:00:56 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/file_system.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/file_system.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:13:40 verbose #21920 > 00:00:57 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:13:40 verbose #21921 > 00:00:57 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:13:41 verbose #21922 > 00:00:58 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 98008
00:13:41 debug #21923 runtime.execute_with_options_async / exit_code: 0 / output.Length: 104488
00:13:41 debug #29 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path file_system.dib --retries 3
00:13:41 debug #21924 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path networking.dib --retries 3",
[||], None, None, true, None)
00:13:41 verbose #21925 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "networking.dib", "--retries", "3"])
00:13:41 verbose #21926 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/lib/spiral/networking.dib", "--output-path", "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/lib/spiral/networking.dib" --output-path "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:13:43 verbose #21927 > >
00:13:43 verbose #21928 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:43 verbose #21929 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:43 verbose #21930 > > │ # networking │
00:13:43 verbose #21931 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:43 verbose #21932 > >
00:13:43 verbose #21933 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:43 verbose #21934 > > open rust_operators
00:13:43 verbose #21935 > >
00:13:43 verbose #21936 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:13:43 verbose #21937 > > #r
00:13:43 verbose #21938 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:13:43 verbose #21939 > > otNet.Interactive.Spiral.dll"
00:13:43 verbose #21940 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:13:43 verbose #21941 > > #r
00:13:43 verbose #21942 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:13:43 verbose #21943 > > otNet.Interactive.dll"
00:13:43 verbose #21944 > > open type Microsoft.DotNet.Interactive.Kernel
00:13:47 verbose #21945 > >
00:13:47 verbose #21946 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #21947 > > //// test
00:13:47 verbose #21948 > >
00:13:47 verbose #21949 > > open testing
00:13:47 verbose #21950 > >
00:13:47 verbose #21951 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #21952 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #21953 > > │ ## types │
00:13:47 verbose #21954 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #21955 > >
00:13:47 verbose #21956 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #21957 > > inl types () =
00:13:47 verbose #21958 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:47 verbose #21959 > > Fable.Core.Emit(\"reqwest_wasm::Error\")>]]\n#endif\ntype reqwest_Error = class
00:13:47 verbose #21960 > > end"
00:13:47 verbose #21961 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:47 verbose #21962 > > Fable.Core.Emit(\"reqwest_wasm::RequestBuilder\")>]]\n#endif\ntype
00:13:47 verbose #21963 > > reqwest_RequestBuilder = class end"
00:13:47 verbose #21964 > > global "#if FABLE_COMPILER\n[[<Fable.Core.Erase;
00:13:47 verbose #21965 > > Fable.Core.Emit(\"reqwest_wasm::Response\")>]]\n#endif\ntype reqwest_Response =
00:13:47 verbose #21966 > > class end"
00:13:47 verbose #21967 > >
00:13:47 verbose #21968 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #21969 > > inl types () =
00:13:47 verbose #21970 > > types ()
00:13:47 verbose #21971 > > env.types ()
00:13:47 verbose #21972 > > rust.types ()
00:13:47 verbose #21973 > > sm'.types ()
00:13:47 verbose #21974 > >
00:13:47 verbose #21975 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #21976 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #21977 > > │ ## reqwest_response │
00:13:47 verbose #21978 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #21979 > >
00:13:47 verbose #21980 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #21981 > > nominal reqwest_response = $'reqwest_Response'
00:13:47 verbose #21982 > >
00:13:47 verbose #21983 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #21984 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #21985 > > │ ## reqwest_error │
00:13:47 verbose #21986 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #21987 > >
00:13:47 verbose #21988 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #21989 > > nominal reqwest_error = $'reqwest_Error'
00:13:47 verbose #21990 > >
00:13:47 verbose #21991 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #21992 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #21993 > > │ ## request_builder │
00:13:47 verbose #21994 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #21995 > >
00:13:47 verbose #21996 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #21997 > > nominal request_builder = $'reqwest_RequestBuilder'
00:13:47 verbose #21998 > >
00:13:47 verbose #21999 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #22000 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #22001 > > │ ## request_type │
00:13:47 verbose #22002 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #22003 > >
00:13:47 verbose #22004 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #22005 > > union request_type =
00:13:47 verbose #22006 > > | Get
00:13:47 verbose #22007 > > | Post
00:13:47 verbose #22008 > >
00:13:47 verbose #22009 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #22010 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #22011 > > │ ## request │
00:13:47 verbose #22012 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #22013 > >
00:13:47 verbose #22014 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #22015 > > type request =
00:13:47 verbose #22016 > > {
00:13:47 verbose #22017 > > url : string
00:13:47 verbose #22018 > > request_type : request_type
00:13:47 verbose #22019 > > body : string
00:13:47 verbose #22020 > > json : bool
00:13:47 verbose #22021 > > auto_refresh : bool
00:13:47 verbose #22022 > > }
00:13:47 verbose #22023 > >
00:13:47 verbose #22024 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #22025 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #22026 > > │ ## new_request_get │
00:13:47 verbose #22027 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #22028 > >
00:13:47 verbose #22029 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #22030 > > inl new_request_get (url : string) : request_builder =
00:13:47 verbose #22031 > > inl url = join url
00:13:47 verbose #22032 > > inl url = url |> sm'.to_std_string
00:13:47 verbose #22033 > > inl url = join url
00:13:47 verbose #22034 > > !\($'"reqwest_wasm::Client::builder().build().map_err(|err|
00:13:47 verbose #22035 > > err.to_string())?.get(!url)"')
00:13:47 verbose #22036 > >
00:13:47 verbose #22037 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #22038 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #22039 > > │ ## new_request_post │
00:13:47 verbose #22040 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #22041 > >
00:13:47 verbose #22042 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #22043 > > inl new_request_post (url : string) : request_builder =
00:13:47 verbose #22044 > > inl url = join url
00:13:47 verbose #22045 > > inl url = url |> sm'.to_std_string
00:13:47 verbose #22046 > > inl url = join url
00:13:47 verbose #22047 > > !\($'"reqwest_wasm::Client::builder().build().map_err(|err|
00:13:47 verbose #22048 > > err.to_string())?.post(!url)"')
00:13:47 verbose #22049 > >
00:13:47 verbose #22050 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:47 verbose #22051 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:47 verbose #22052 > > │ ## request_send │
00:13:47 verbose #22053 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:47 verbose #22054 > >
00:13:47 verbose #22055 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:47 verbose #22056 > > inl request_send (request : request_builder) : async.future_pin (resultm.result'
00:13:47 verbose #22057 > > reqwest_response reqwest_error) =
00:13:47 verbose #22058 > > inl request = join request
00:13:47 verbose #22059 > > !\($'"Box::pin(reqwest_wasm::RequestBuilder::send(!request))"')
00:13:48 verbose #22060 > >
00:13:48 verbose #22061 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22062 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22063 > > │ ## request_body │
00:13:48 verbose #22064 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22065 > >
00:13:48 verbose #22066 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22067 > > inl request_body (body : string) (request : request_builder) : request_builder =
00:13:48 verbose #22068 > > inl body = body |> sm'.to_std_string
00:13:48 verbose #22069 > > !\($'"reqwest_wasm::RequestBuilder::body(!request, !body)"')
00:13:48 verbose #22070 > >
00:13:48 verbose #22071 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22072 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22073 > > │ ## request_header │
00:13:48 verbose #22074 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22075 > >
00:13:48 verbose #22076 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22077 > > inl request_header (key : string) (value : string) (request : request_builder) :
00:13:48 verbose #22078 > > request_builder =
00:13:48 verbose #22079 > > inl request = join request
00:13:48 verbose #22080 > > inl key = key |> sm'.to_std_string
00:13:48 verbose #22081 > > inl value = value |> sm'.to_std_string
00:13:48 verbose #22082 > > !\($'"reqwest_wasm::RequestBuilder::header(!request, !key, !value)"')
00:13:48 verbose #22083 > >
00:13:48 verbose #22084 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22085 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22086 > > │ ## request_json │
00:13:48 verbose #22087 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22088 > >
00:13:48 verbose #22089 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22090 > > inl request_json forall t. (obj : t) (request : request_builder) :
00:13:48 verbose #22091 > > request_builder =
00:13:48 verbose #22092 > > !\($'"reqwest_wasm::RequestBuilder::json(!request, &!obj)"')
00:13:48 verbose #22093 > >
00:13:48 verbose #22094 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22095 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22096 > > │ ## response_text │
00:13:48 verbose #22097 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22098 > >
00:13:48 verbose #22099 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22100 > > inl response_text (response : reqwest_response) : async.future_pin
00:13:48 verbose #22101 > > (resultm.result' sm'.std_string reqwest_error) =
00:13:48 verbose #22102 > > !\($'"Box::pin(reqwest_wasm::Response::text(!response))"')
00:13:48 verbose #22103 > >
00:13:48 verbose #22104 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22105 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22106 > > │ ## tcp_client │
00:13:48 verbose #22107 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22108 > >
00:13:48 verbose #22109 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22110 > > nominal tcp_client = $'System.Net.Sockets.TcpClient'
00:13:48 verbose #22111 > >
00:13:48 verbose #22112 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22113 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22114 > > │ ## new_tcp_client │
00:13:48 verbose #22115 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22116 > >
00:13:48 verbose #22117 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22118 > > inl new_tcp_client () : tcp_client =
00:13:48 verbose #22119 > > $'new `tcp_client ()'
00:13:48 verbose #22120 > >
00:13:48 verbose #22121 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22122 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22123 > > │ ## ip_address │
00:13:48 verbose #22124 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22125 > >
00:13:48 verbose #22126 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22127 > > nominal ip_address = $'System.Net.IPAddress'
00:13:48 verbose #22128 > >
00:13:48 verbose #22129 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22130 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22131 > > │ ## ip_address_parse │
00:13:48 verbose #22132 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22133 > >
00:13:48 verbose #22134 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22135 > > inl ip_address_parse (s : string) : ip_address =
00:13:48 verbose #22136 > > s |> $'`ip_address.Parse'
00:13:48 verbose #22137 > >
00:13:48 verbose #22138 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22139 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22140 > > │ ## tcp_listener │
00:13:48 verbose #22141 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22142 > >
00:13:48 verbose #22143 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22144 > > nominal tcp_listener = $'System.Net.Sockets.TcpListener'
00:13:48 verbose #22145 > >
00:13:48 verbose #22146 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22147 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22148 > > │ ## new_tcp_listener │
00:13:48 verbose #22149 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22150 > >
00:13:48 verbose #22151 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22152 > > inl new_tcp_listener (ip_address : ip_address) (port : i32) : tcp_listener =
00:13:48 verbose #22153 > > $'new `tcp_listener (!ip_address, !port)'
00:13:48 verbose #22154 > >
00:13:48 verbose #22155 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22156 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22157 > > │ ## listener_start │
00:13:48 verbose #22158 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22159 > >
00:13:48 verbose #22160 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22161 > > inl listener_start (listener : tcp_listener) : () =
00:13:48 verbose #22162 > > $'!listener.Start' ()
00:13:48 verbose #22163 > >
00:13:48 verbose #22164 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22165 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22166 > > │ ## listener_stop │
00:13:48 verbose #22167 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22168 > >
00:13:48 verbose #22169 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22170 > > inl listener_stop (listener : tcp_listener) : () =
00:13:48 verbose #22171 > > $'!listener.Stop' ()
00:13:48 verbose #22172 > >
00:13:48 verbose #22173 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22174 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22175 > > │ ## client_connect_async │
00:13:48 verbose #22176 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22177 > >
00:13:48 verbose #22178 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22179 > > inl client_connect_async
00:13:48 verbose #22180 > > (host : string)
00:13:48 verbose #22181 > > (port : i32)
00:13:48 verbose #22182 > > (ct : threading.cancellation_token)
00:13:48 verbose #22183 > > (client : tcp_client)
00:13:48 verbose #22184 > > : async.value_task
00:13:48 verbose #22185 > > =
00:13:48 verbose #22186 > > $'!client.ConnectAsync (!host, !port, !ct)'
00:13:48 verbose #22187 > >
00:13:48 verbose #22188 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:48 verbose #22189 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:48 verbose #22190 > > │ ## test_port_open │
00:13:48 verbose #22191 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:48 verbose #22192 > >
00:13:48 verbose #22193 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22194 > > inl test_port_open host port : _ bool = async.new_async fun () =>
00:13:48 verbose #22195 > > inl ct = async.cancellation_token () |> async.let'
00:13:48 verbose #22196 > > inl client = new_tcp_client () |> use
00:13:48 verbose #22197 > > try_unit
00:13:48 verbose #22198 > > fun () =>
00:13:48 verbose #22199 > > client |> client_connect_async host port ct |>
00:13:48 verbose #22200 > > async.await_value_task_unit |> async.do
00:13:48 verbose #22201 > > return true
00:13:48 verbose #22202 > > fun ex =>
00:13:48 verbose #22203 > > inl ex = ex |> sm'.format_exception
00:13:48 verbose #22204 > > trace Verbose (fun () => $'$"networking.test_port_open / port:
00:13:48 verbose #22205 > > {!port} / ex: {!ex}"') _locals
00:13:48 verbose #22206 > > return false
00:13:48 verbose #22207 > >
00:13:48 verbose #22208 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:48 verbose #22209 > > //// test
00:13:48 verbose #22210 > >
00:13:48 verbose #22211 > > test_port_open "127.0.0.1" 65536
00:13:48 verbose #22212 > > |> async.run_with_timeout 120
00:13:48 verbose #22213 > > |> _assert_eq (Some false)
00:13:50 verbose #22214 > >
00:13:50 verbose #22215 > > ╭─[ 2.10s - stdout ]───────────────────────────────────────────────────────────╮
00:13:50 verbose #22216 > > │ 00:00:00 verbose #1 networking.test_port_open / port: 65536 / ex: │
00:13:50 verbose #22217 > > │ System.ArgumentOutOfRangeException: Specified argument was out of the range │
00:13:50 verbose #22218 > > │ of valid values. (Parameter 'port') │
00:13:50 verbose #22219 > > │ assert_eq / actual: US4_0 false / expected: US4_0 false │
00:13:50 verbose #22220 > > │ │
00:13:50 verbose #22221 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:50 verbose #22222 > >
00:13:50 verbose #22223 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:50 verbose #22224 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:50 verbose #22225 > > │ ## test_port_open_timeout │
00:13:50 verbose #22226 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:50 verbose #22227 > >
00:13:50 verbose #22228 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:50 verbose #22229 > > inl test_port_open_timeout timeout host port : _ bool = async.new_async_unit fun
00:13:50 verbose #22230 > > () =>
00:13:50 verbose #22231 > > test_port_open host port
00:13:50 verbose #22232 > > |> async.run_with_timeout_async timeout
00:13:50 verbose #22233 > > |> async.let'
00:13:50 verbose #22234 > > |> function
00:13:50 verbose #22235 > > | None => false
00:13:50 verbose #22236 > > | Some result => result
00:13:50 verbose #22237 > > |> return
00:13:50 verbose #22238 > >
00:13:50 verbose #22239 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:50 verbose #22240 > > //// test
00:13:50 verbose #22241 > >
00:13:50 verbose #22242 > > test_port_open_timeout 120 "127.0.0.1" 65535
00:13:50 verbose #22243 > > |> async.run_synchronously
00:13:50 verbose #22244 > > |> _assert_eq false
00:13:51 verbose #22245 > >
00:13:51 verbose #22246 > > ╭─[ 850.48ms - stdout ]────────────────────────────────────────────────────────╮
00:13:51 verbose #22247 > > │ 00:00:00 debug #1 async.run_with_timeout_async / timeout: 120 │
00:13:51 verbose #22248 > > │ assert_eq / actual: false / expected: false │
00:13:51 verbose #22249 > > │ │
00:13:51 verbose #22250 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:51 verbose #22251 > >
00:13:51 verbose #22252 > > ── markdown ────────────────────────────────────────────────────────────────────
00:13:51 verbose #22253 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:13:51 verbose #22254 > > │ ## wait_for_port_access │
00:13:51 verbose #22255 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:13:51 verbose #22256 > >
00:13:51 verbose #22257 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:51 verbose #22258 > > inl wait_for_port_access timeout status host port : _ i64 =
00:13:51 verbose #22259 > > let rec loop retry : _ i64 = async.new_async_unit fun () =>
00:13:51 verbose #22260 > > inl isPortOpen =
00:13:51 verbose #22261 > > match timeout |> optionm'.unbox with
00:13:51 verbose #22262 > > | None => test_port_open host port
00:13:51 verbose #22263 > > | Some timeout => test_port_open_timeout timeout host port
00:13:51 verbose #22264 > > |> async.let'
00:13:51 verbose #22265 > >
00:13:51 verbose #22266 > > fix_condition
00:13:51 verbose #22267 > > fun () => isPortOpen = status
00:13:51 verbose #22268 > > fun () => retry |> return
00:13:51 verbose #22269 > > fun () =>
00:13:51 verbose #22270 > > if retry % 100 = 0 then
00:13:51 verbose #22271 > > inl _locals () = $'$"port: {!port} / retry: {!retry}
00:13:51 verbose #22272 > > timeout: %A{!timeout} / status: {!status} / {!_locals ()}"'
00:13:51 verbose #22273 > > trace Verbose (fun () => "networking.wait_for_port_access")
00:13:51 verbose #22274 > > _locals
00:13:51 verbose #22275 > > async.sleep 10 |> async.do
00:13:51 verbose #22276 > > loop (retry + 1) |> async.return_await
00:13:51 verbose #22277 > > loop 0i64
00:13:51 verbose #22278 > >
00:13:51 verbose #22279 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:13:51 verbose #22280 > > //// test
00:13:51 verbose #22281 > >
00:13:51 verbose #22282 > > inl lock_port host port = async.new_async fun () =>
00:13:51 verbose #22283 > > trace Debug (fun () => "_1") _locals
00:13:51 verbose #22284 > > async.sleep 5000 |> async.do
00:13:51 verbose #22285 > > inl listener = new_tcp_listener (host |> ip_address_parse) port |> use
00:13:51 verbose #22286 > > trace Debug (fun () => "_2") _locals
00:13:51 verbose #22287 > > listener |> listener_start
00:13:51 verbose #22288 > > trace Debug (fun () => "_3") _locals
00:13:51 verbose #22289 > > async.sleep 2000 |> async.do
00:13:51 verbose #22290 > > trace Debug (fun () => "_4") _locals
00:13:51 verbose #22291 > > $'!listener.Stop' ()
00:13:51 verbose #22292 > > trace Debug (fun () => "_5") _locals
00:13:51 verbose #22293 > >
00:13:51 verbose #22294 > > inl host = "127.0.0.1"
00:13:51 verbose #22295 > > inl port = 5555i32
00:13:51 verbose #22296 > >
00:13:51 verbose #22297 > > fun () =>
00:13:51 verbose #22298 > > trace Debug (fun () => "1") _locals
00:13:51 verbose #22299 > > inl child = lock_port host port |> async.start_child |> async.let'
00:13:51 verbose #22300 > > trace Debug (fun () => "2") _locals
00:13:51 verbose #22301 > > async.sleep 1 |> async.do
00:13:51 verbose #22302 > > trace Debug (fun () => "3") _locals
00:13:51 verbose #22303 > > inl retries1 = wait_for_port_access (None |> optionm'.box) true host port |>
00:13:51 verbose #22304 > > async.let'
00:13:51 verbose #22305 > > trace Debug (fun () => "4") _locals
00:13:51 verbose #22306 > > inl retries2 = wait_for_port_access (None |> optionm'.box) false host port
00:13:51 verbose #22307 > > |> async.let'
00:13:51 verbose #22308 > > trace Debug (fun () => "5") _locals
00:13:51 verbose #22309 > > child |> async.do
00:13:51 verbose #22310 > > trace Debug (fun () => "6") _locals
00:13:51 verbose #22311 > > (retries1, retries2) |> return
00:13:51 verbose #22312 > > |> async.new_async_unit
00:13:51 verbose #22313 > > |> async.run_with_timeout 20000
00:13:51 verbose #22314 > > |> function
00:13:51 verbose #22315 > > | Some (retries1, retries2) =>
00:13:51 verbose #22316 > > retries1
00:13:51 verbose #22317 > > |> _assert_between
00:13:51 verbose #22318 > > if platform.is_windows () then 2i64 else 2
00:13:51 verbose #22319 > > if platform.is_windows () then 5 else 1500
00:13:51 verbose #22320 > >
00:13:51 verbose #22321 > > retries2
00:13:51 verbose #22322 > > |> _assert_between
00:13:51 verbose #22323 > > if platform.is_windows () then 80i64 else 80
00:13:51 verbose #22324 > > if platform.is_windows () then 150 else 600
00:13:51 verbose #22325 > >
00:13:51 verbose #22326 > > true
00:13:51 verbose #22327 > > | _ => false
00:13:51 verbose #22328 > > |> _assert_eq true
00:14:02 verbose #22329 > >
00:14:02 verbose #22330 > > ╭─[ 10.67s - stdout ]──────────────────────────────────────────────────────────╮
00:14:02 verbose #22331 > > │ 00:00:00 debug #1 1 │
00:14:02 verbose #22332 > > │ 00:00:00 debug #2 _1 │
00:14:02 verbose #22333 > > │ 00:00:00 debug #3 2 │
00:14:02 verbose #22334 > > │ 00:00:00 debug #4 3 │
00:14:02 verbose #22335 > > │ 00:00:02 verbose #5 networking.test_port_open / port: 5555 / ex: │
00:14:02 verbose #22336 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:14:02 verbose #22337 > > │ be made because the target machine actively refused it.) │
00:14:02 verbose #22338 > > │ 00:00:02 verbose #6 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:14:02 verbose #22339 > > │ / timeout: None / status: True │
00:14:02 verbose #22340 > > │ 00:00:04 verbose #7 networking.test_port_open / port: 5555 / ex: │
00:14:02 verbose #22341 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:14:02 verbose #22342 > > │ be made because the target machine actively refused it.) │
00:14:02 verbose #22343 > > │ 00:00:05 debug #8 _2 │
00:14:02 verbose #22344 > > │ 00:00:05 debug #9 _3 │
00:14:02 verbose #22345 > > │ 00:00:05 debug #10 4 │
00:14:02 verbose #22346 > > │ 00:00:05 verbose #11 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:14:02 verbose #22347 > > │ / timeout: None / status: False │
00:14:02 verbose #22348 > > │ 00:00:06 verbose #12 networking.wait_for_port_access / port: 5555 / retry: │
00:14:02 verbose #22349 > > │ 100 / timeout: None / status: False │
00:14:02 verbose #22350 > > │ 00:00:07 debug #13 _4 │
00:14:02 verbose #22351 > > │ 00:00:07 debug #14 _5 │
00:14:02 verbose #22352 > > │ 00:00:09 verbose #15 networking.test_port_open / port: 5555 / ex: │
00:14:02 verbose #22353 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:14:02 verbose #22354 > > │ be made because the target machine actively refused it.) │
00:14:02 verbose #22355 > > │ 00:00:09 debug #16 5 │
00:14:02 verbose #22356 > > │ 00:00:09 debug #17 6 │
00:14:02 verbose #22357 > > │ assert_between / actual: 2L / expected: struct (2L, 5L) │
00:14:02 verbose #22358 > > │ assert_between / actual: 122L / expected: struct (80L, 150L) │
00:14:02 verbose #22359 > > │ assert_eq / actual: true / expected: true │
00:14:02 verbose #22360 > > │ │
00:14:02 verbose #22361 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:02 verbose #22362 > >
00:14:02 verbose #22363 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:02 verbose #22364 > > //// test
00:14:02 verbose #22365 > >
00:14:02 verbose #22366 > > inl lock_port host port = async.new_async_unit fun () =>
00:14:02 verbose #22367 > > trace Debug (fun () => "_1") _locals
00:14:02 verbose #22368 > > async.sleep 500 |> async.do
00:14:02 verbose #22369 > > inl listener = new_tcp_listener (ip_address_parse host) port |> use
00:14:02 verbose #22370 > > trace Debug (fun () => "_2") _locals
00:14:02 verbose #22371 > > listener |> listener_start
00:14:02 verbose #22372 > > trace Debug (fun () => "_3") _locals
00:14:02 verbose #22373 > > async.sleep 200 |> async.do
00:14:02 verbose #22374 > > trace Debug (fun () => "_4") _locals
00:14:02 verbose #22375 > > listener |> listener_stop
00:14:02 verbose #22376 > > trace Debug (fun () => "_5") _locals
00:14:02 verbose #22377 > >
00:14:02 verbose #22378 > > inl host = "127.0.0.1"
00:14:02 verbose #22379 > > inl port = 5555
00:14:02 verbose #22380 > >
00:14:02 verbose #22381 > > fun () =>
00:14:02 verbose #22382 > > trace Debug (fun () => "1") _locals
00:14:02 verbose #22383 > > inl child = lock_port host port |> async.start_child |> async.let'
00:14:02 verbose #22384 > > trace Debug (fun () => "2") _locals
00:14:02 verbose #22385 > > async.sleep 1 |> async.do
00:14:02 verbose #22386 > > trace Debug (fun () => "3") _locals
00:14:02 verbose #22387 > > inl retries1 = wait_for_port_access (Some 60 |> optionm'.box) true host port
00:14:02 verbose #22388 > > |> async.let'
00:14:02 verbose #22389 > > trace Debug (fun () => "4") _locals
00:14:02 verbose #22390 > > inl retries2 = wait_for_port_access (Some 60 |> optionm'.box) false host
00:14:02 verbose #22391 > > port |> async.let'
00:14:02 verbose #22392 > > trace Debug (fun () => "5") _locals
00:14:02 verbose #22393 > > child |> async.do
00:14:02 verbose #22394 > > trace Debug (fun () => "6") _locals
00:14:02 verbose #22395 > > (retries1, retries2) |> return
00:14:02 verbose #22396 > > |> async.new_async_unit
00:14:02 verbose #22397 > > |> async.run_with_timeout 2000
00:14:02 verbose #22398 > > |> function
00:14:02 verbose #22399 > > | Some (retries1, retries2) =>
00:14:02 verbose #22400 > > retries1
00:14:02 verbose #22401 > > |> _assert_between
00:14:02 verbose #22402 > > if platform.is_windows () then 4i64 else 2
00:14:02 verbose #22403 > > if platform.is_windows () then 15 else 150
00:14:02 verbose #22404 > >
00:14:02 verbose #22405 > > retries2
00:14:02 verbose #22406 > > |> _assert_between
00:14:02 verbose #22407 > > if platform.is_windows () then 5i64 else 0
00:14:02 verbose #22408 > > if platform.is_windows () then 20 else 60
00:14:02 verbose #22409 > >
00:14:02 verbose #22410 > > true
00:14:02 verbose #22411 > > | _ => false
00:14:02 verbose #22412 > > |> _assert_eq true
00:14:04 verbose #22413 > >
00:14:04 verbose #22414 > > ╭─[ 2.19s - stdout ]───────────────────────────────────────────────────────────╮
00:14:04 verbose #22415 > > │ 00:00:00 debug #1 1 │
00:14:04 verbose #22416 > > │ 00:00:00 debug #2 2 │
00:14:04 verbose #22417 > > │ 00:00:00 debug #3 _1 │
00:14:04 verbose #22418 > > │ 00:00:00 debug #4 3 │
00:14:04 verbose #22419 > > │ 00:00:00 debug #5 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22420 > > │ 00:00:00 verbose #6 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:14:04 verbose #22421 > > │ / timeout: Some 60 / status: True │
00:14:04 verbose #22422 > > │ 00:00:00 debug #7 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22423 > > │ 00:00:00 debug #8 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22424 > > │ 00:00:00 debug #9 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22425 > > │ 00:00:00 debug #10 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22426 > > │ 00:00:00 debug #11 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22427 > > │ 00:00:00 debug #12 _2 │
00:14:04 verbose #22428 > > │ 00:00:00 debug #13 _3 │
00:14:04 verbose #22429 > > │ 00:00:00 debug #14 4 │
00:14:04 verbose #22430 > > │ 00:00:00 verbose #15 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:14:04 verbose #22431 > > │ / timeout: Some 60 / status: False │
00:14:04 verbose #22432 > > │ 00:00:00 debug #16 _4 │
00:14:04 verbose #22433 > > │ 00:00:00 debug #17 _5 │
00:14:04 verbose #22434 > > │ 00:00:00 debug #18 async.run_with_timeout_async / timeout: 60 │
00:14:04 verbose #22435 > > │ 00:00:00 debug #19 5 │
00:14:04 verbose #22436 > > │ 00:00:00 debug #20 6 │
00:14:04 verbose #22437 > > │ assert_between / actual: 6L / expected: struct (4L, 15L) │
00:14:04 verbose #22438 > > │ assert_between / actual: 12L / expected: struct (5L, 20L) │
00:14:04 verbose #22439 > > │ assert_eq / actual: true / expected: true │
00:14:04 verbose #22440 > > │ │
00:14:04 verbose #22441 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:04 verbose #22442 > >
00:14:04 verbose #22443 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:04 verbose #22444 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:04 verbose #22445 > > │ ## get_available_port │
00:14:04 verbose #22446 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:04 verbose #22447 > >
00:14:04 verbose #22448 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:04 verbose #22449 > > inl get_available_port timeout host initial_port : _ i32 =
00:14:04 verbose #22450 > > let rec loop port = async.new_async_unit fun () =>
00:14:04 verbose #22451 > > inl is_port_open =
00:14:04 verbose #22452 > > match timeout |> optionm'.unbox with
00:14:04 verbose #22453 > > | None => test_port_open host port
00:14:04 verbose #22454 > > | Some timeout => test_port_open_timeout timeout host port
00:14:04 verbose #22455 > > |> async.let'
00:14:04 verbose #22456 > > fix_condition
00:14:04 verbose #22457 > > fun () => is_port_open |> not
00:14:04 verbose #22458 > > fun () => port |> return
00:14:04 verbose #22459 > > fun () => loop (port + 1) |> async.return_await
00:14:04 verbose #22460 > > loop initial_port
00:14:04 verbose #22461 > >
00:14:04 verbose #22462 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:04 verbose #22463 > > //// test
00:14:04 verbose #22464 > >
00:14:04 verbose #22465 > > inl lock_ports host port = async.new_async_unit fun () =>
00:14:04 verbose #22466 > > trace Debug (fun () => "_1") _locals
00:14:04 verbose #22467 > > inl listener1 = new_tcp_listener (ip_address_parse host) port |> use
00:14:04 verbose #22468 > > inl listener2 = new_tcp_listener (ip_address_parse host) (port + 1) |> use
00:14:04 verbose #22469 > > trace Debug (fun () => "_2") _locals
00:14:04 verbose #22470 > > listener1 |> listener_start
00:14:04 verbose #22471 > > listener2 |> listener_start
00:14:04 verbose #22472 > > trace Debug (fun () => "_3") _locals
00:14:04 verbose #22473 > > async.sleep 4000 |> async.do
00:14:04 verbose #22474 > > trace Debug (fun () => "_4") _locals
00:14:04 verbose #22475 > > listener1 |> listener_stop
00:14:04 verbose #22476 > > listener2 |> listener_stop
00:14:04 verbose #22477 > > trace Debug (fun () => "_5") _locals
00:14:04 verbose #22478 > >
00:14:04 verbose #22479 > > inl host = "127.0.0.1"
00:14:04 verbose #22480 > > inl port = 5555
00:14:04 verbose #22481 > >
00:14:04 verbose #22482 > > fun () =>
00:14:04 verbose #22483 > > trace Debug (fun () => "1") _locals
00:14:04 verbose #22484 > > inl child = lock_ports host port |> async.start_child |> async.let'
00:14:04 verbose #22485 > > trace Debug (fun () => "2") _locals
00:14:04 verbose #22486 > > async.sleep 240 |> async.do
00:14:04 verbose #22487 > > trace Debug (fun () => "3") _locals
00:14:04 verbose #22488 > > inl available_port = get_available_port (None |> optionm'.box) host port |>
00:14:04 verbose #22489 > > async.let'
00:14:04 verbose #22490 > > trace Debug (fun () => "4") _locals
00:14:04 verbose #22491 > > inl retries = wait_for_port_access (None |> optionm'.box) false host port |>
00:14:04 verbose #22492 > > async.let'
00:14:04 verbose #22493 > > trace Debug (fun () => "5") _locals
00:14:04 verbose #22494 > > child |> async.do
00:14:04 verbose #22495 > > trace Debug (fun () => "6") _locals
00:14:04 verbose #22496 > > (available_port, retries) |> return
00:14:04 verbose #22497 > > |> async.new_async_unit
00:14:04 verbose #22498 > > |> async.run_with_timeout 15000
00:14:04 verbose #22499 > > |> function
00:14:04 verbose #22500 > > | Some (available_port, retries) =>
00:14:04 verbose #22501 > > available_port |> _assert_eq (port + 2)
00:14:04 verbose #22502 > >
00:14:04 verbose #22503 > > retries
00:14:04 verbose #22504 > > |> _assert_between
00:14:04 verbose #22505 > > if platform.is_windows () then 100i64 else 100
00:14:04 verbose #22506 > > if platform.is_windows () then 150 else 1200
00:14:04 verbose #22507 > >
00:14:04 verbose #22508 > > true
00:14:04 verbose #22509 > > | _ => false
00:14:04 verbose #22510 > > |> _assert_eq true
00:14:11 verbose #22511 > >
00:14:11 verbose #22512 > > ╭─[ 7.36s - stdout ]───────────────────────────────────────────────────────────╮
00:14:11 verbose #22513 > > │ 00:00:00 debug #1 1 │
00:14:11 verbose #22514 > > │ 00:00:00 debug #2 _1 │
00:14:11 verbose #22515 > > │ 00:00:00 debug #3 2 │
00:14:11 verbose #22516 > > │ 00:00:00 debug #4 _2 │
00:14:11 verbose #22517 > > │ 00:00:00 debug #5 _3 │
00:14:11 verbose #22518 > > │ 00:00:00 debug #6 3 │
00:14:11 verbose #22519 > > │ 00:00:02 verbose #7 networking.test_port_open / port: 5557 / ex: │
00:14:11 verbose #22520 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:14:11 verbose #22521 > > │ be made because the target machine actively refused it.) │
00:14:11 verbose #22522 > > │ 00:00:02 debug #8 4 │
00:14:11 verbose #22523 > > │ 00:00:02 verbose #9 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:14:11 verbose #22524 > > │ / timeout: None / status: False │
00:14:11 verbose #22525 > > │ 00:00:03 verbose #10 networking.wait_for_port_access / port: 5555 / retry: │
00:14:11 verbose #22526 > > │ 100 / timeout: None / status: False │
00:14:11 verbose #22527 > > │ 00:00:03 debug #11 _4 │
00:14:11 verbose #22528 > > │ 00:00:03 debug #12 _5 │
00:14:11 verbose #22529 > > │ 00:00:06 verbose #13 networking.test_port_open / port: 5555 / ex: │
00:14:11 verbose #22530 > > │ System.AggregateException: One or more errors occurred. (No connection could │
00:14:11 verbose #22531 > > │ be made because the target machine actively refused it.) │
00:14:11 verbose #22532 > > │ 00:00:06 debug #14 5 │
00:14:11 verbose #22533 > > │ 00:00:06 debug #15 6 │
00:14:11 verbose #22534 > > │ assert_eq / actual: 5557 / expected: 5557 │
00:14:11 verbose #22535 > > │ assert_between / actual: 111L / expected: struct (100L, 150L) │
00:14:11 verbose #22536 > > │ assert_eq / actual: true / expected: true │
00:14:11 verbose #22537 > > │ │
00:14:11 verbose #22538 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:11 verbose #22539 > >
00:14:11 verbose #22540 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:11 verbose #22541 > > //// test
00:14:11 verbose #22542 > >
00:14:11 verbose #22543 > > inl lock_ports host port = async.new_async_unit fun () =>
00:14:11 verbose #22544 > > trace Debug (fun () => "_1") _locals
00:14:11 verbose #22545 > > inl listener1 = new_tcp_listener (ip_address_parse host) port |> use
00:14:11 verbose #22546 > > inl listener2 = new_tcp_listener (ip_address_parse host) (port + 1) |> use
00:14:11 verbose #22547 > > trace Debug (fun () => "_2") _locals
00:14:11 verbose #22548 > > listener1 |> listener_start
00:14:11 verbose #22549 > > listener2 |> listener_start
00:14:11 verbose #22550 > > trace Debug (fun () => "_3") _locals
00:14:11 verbose #22551 > > async.sleep 400 |> async.do
00:14:11 verbose #22552 > > trace Debug (fun () => "_4") _locals
00:14:11 verbose #22553 > > listener1 |> listener_stop
00:14:11 verbose #22554 > > listener2 |> listener_stop
00:14:11 verbose #22555 > > trace Debug (fun () => "_5") _locals
00:14:11 verbose #22556 > >
00:14:11 verbose #22557 > > inl host = "127.0.0.1"
00:14:11 verbose #22558 > > inl port = 5555
00:14:11 verbose #22559 > >
00:14:11 verbose #22560 > > fun () =>
00:14:11 verbose #22561 > > trace Debug (fun () => "1") _locals
00:14:11 verbose #22562 > > inl child = lock_ports host port |> async.start_child |> async.let'
00:14:11 verbose #22563 > > trace Debug (fun () => "2") _locals
00:14:11 verbose #22564 > > async.sleep 240 |> async.do
00:14:11 verbose #22565 > > trace Debug (fun () => "3") _locals
00:14:11 verbose #22566 > > inl available_port = get_available_port (Some 60 |> optionm'.box) host port
00:14:11 verbose #22567 > > |> async.let'
00:14:11 verbose #22568 > > trace Debug (fun () => "4") _locals
00:14:11 verbose #22569 > > inl retries = wait_for_port_access (Some 60 |> optionm'.box) false host port
00:14:11 verbose #22570 > > |> async.let'
00:14:11 verbose #22571 > > trace Debug (fun () => "5") _locals
00:14:11 verbose #22572 > > child |> async.do
00:14:11 verbose #22573 > > trace Debug (fun () => "6") _locals
00:14:11 verbose #22574 > > (available_port, retries) |> return
00:14:11 verbose #22575 > > |> async.new_async_unit
00:14:11 verbose #22576 > > |> async.run_with_timeout 1500
00:14:11 verbose #22577 > > |> function
00:14:11 verbose #22578 > > | Some (available_port, retries) =>
00:14:11 verbose #22579 > > available_port |> _assert_eq (port + 2)
00:14:11 verbose #22580 > >
00:14:11 verbose #22581 > > retries
00:14:11 verbose #22582 > > |> _assert_between
00:14:11 verbose #22583 > > (if platform.is_windows () then 2i64 else 1)
00:14:11 verbose #22584 > > (if platform.is_windows () then 10 else 120)
00:14:11 verbose #22585 > >
00:14:11 verbose #22586 > > true
00:14:11 verbose #22587 > > | _ => false
00:14:11 verbose #22588 > > |> _assert_eq true
00:14:13 verbose #22589 > >
00:14:13 verbose #22590 > > ╭─[ 1.56s - stdout ]───────────────────────────────────────────────────────────╮
00:14:13 verbose #22591 > > │ 00:00:00 debug #1 1 │
00:14:13 verbose #22592 > > │ 00:00:00 debug #2 _1 │
00:14:13 verbose #22593 > > │ 00:00:00 debug #3 2 │
00:14:13 verbose #22594 > > │ 00:00:00 debug #4 _2 │
00:14:13 verbose #22595 > > │ 00:00:00 debug #5 _3 │
00:14:13 verbose #22596 > > │ 00:00:00 debug #6 3 │
00:14:13 verbose #22597 > > │ 00:00:00 debug #7 async.run_with_timeout_async / timeout: 60 │
00:14:13 verbose #22598 > > │ 00:00:00 debug #8 4 │
00:14:13 verbose #22599 > > │ 00:00:00 verbose #9 networking.wait_for_port_access / port: 5555 / retry: 0 │
00:14:13 verbose #22600 > > │ / timeout: Some 60 / status: False │
00:14:13 verbose #22601 > > │ 00:00:00 debug #10 _4 │
00:14:13 verbose #22602 > > │ 00:00:00 debug #11 _5 │
00:14:13 verbose #22603 > > │ 00:00:00 debug #12 async.run_with_timeout_async / timeout: 60 │
00:14:13 verbose #22604 > > │ 00:00:00 debug #13 5 │
00:14:13 verbose #22605 > > │ 00:00:00 debug #14 6 │
00:14:13 verbose #22606 > > │ assert_eq / actual: 5557 / expected: 5557 │
00:14:13 verbose #22607 > > │ assert_between / actual: 6L / expected: struct (2L, 10L) │
00:14:13 verbose #22608 > > │ assert_eq / actual: true / expected: true │
00:14:13 verbose #22609 > > │ │
00:14:13 verbose #22610 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:13 verbose #22611 > >
00:14:13 verbose #22612 > > ── markdown ────────────────────────────────────────────────────────────────────
00:14:13 verbose #22613 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:14:13 verbose #22614 > > │ ## main │
00:14:13 verbose #22615 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:14:13 verbose #22616 > >
00:14:13 verbose #22617 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:14:13 verbose #22618 > > inl main () =
00:14:13 verbose #22619 > > types ()
00:14:13 verbose #22620 > > init_trace_state None
00:14:13 verbose #22621 > > $'let test_port_open x = !test_port_open x' : ()
00:14:13 verbose #22622 > > $'let test_port_open_timeout x = !test_port_open_timeout x' : ()
00:14:13 verbose #22623 > > $'let wait_for_port_access x = !wait_for_port_access x' : ()
00:14:13 verbose #22624 > > $'let get_available_port x = !get_available_port x' : ()
00:14:14 verbose #22625 > 00:00:33 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 34350
00:14:14 verbose #22626 > 00:00:33 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/lib/spiral/networking.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:14:16 verbose #22627 > 00:00:35 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/lib/spiral/networking.dib.ipynb to html
00:14:16 verbose #22628 > 00:00:35 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:14:16 verbose #22629 > 00:00:35 verbose #7 ! validate(nb)
00:14:18 verbose #22630 > 00:00:37 verbose #8 ! [NbConvertApp] Writing 367455 bytes to c:\home\git\polyglot\lib\spiral\networking.dib.html
00:14:18 verbose #22631 > 00:00:37 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 651
00:14:18 verbose #22632 > 00:00:37 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 651
00:14:18 verbose #22633 > 00:00:37 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/networking.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/lib/spiral/networking.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:14:19 verbose #22634 > 00:00:38 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:14:19 verbose #22635 > 00:00:38 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:14:20 verbose #22636 > 00:00:38 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 35060
00:14:20 debug #22637 runtime.execute_with_options_async / exit_code: 0 / output.Length: 38749
00:14:20 debug #30 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path networking.dib --retries 3
00:14:20 verbose #7 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:14:20 debug #8 async.run_with_timeout_async / timeout: 100
00:00:00 debug #7 writeDibCode / output: Spi / path: trace.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: async.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: networking.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: threading.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: runtime.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: common.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: crypto.dib
00:00:00 debug #7 writeDibCode / output: Spi / path: testing.dib
00:00:00 debug #10 parseDibCode / output: Spi / file: trace.dib
00:00:00 debug #10 parseDibCode / output: Spi / file: runtime.dib
00:00:00 debug #11 parseDibCode / output: Spi / file: common.dib
00:00:00 debug #13 parseDibCode / output: Spi / file: networking.dib
00:00:00 debug #12 parseDibCode / output: Spi / file: crypto.dib
00:00:00 debug #10 parseDibCode / output: Spi / file: async.dib
00:00:00 debug #15 parseDibCode / output: Spi / file: testing.dib
00:00:00 debug #15 parseDibCode / output: Spi / file: threading.dib
00:00:00 debug #22 writeDibCode / output: Spi / path: date_time.dib
00:00:00 debug #22 writeDibCode / output: Spi / path: console.dib
00:00:00 debug #22 writeDibCode / output: Spi / path: parsing.dib
00:00:00 debug #19 writeDibCode / output: Spi / path: env.dib
00:00:00 debug #19 writeDibCode / output: Spi / path: resultm.dib
00:00:00 debug #19 writeDibCode / output: Spi / path: iter.dib
00:00:00 debug #23 parseDibCode / output: Spi / file: date_time.dib
00:00:00 debug #25 parseDibCode / output: Spi / file: parsing.dib
00:00:00 debug #24 parseDibCode / output: Spi / file: console.dib
00:00:00 debug #27 parseDibCode / output: Spi / file: resultm.dib
00:00:00 debug #19 writeDibCode / output: Spi / path: base.dib
00:00:00 debug #28 parseDibCode / output: Spi / file: iter.dib
00:00:00 debug #26 parseDibCode / output: Spi / file: env.dib
00:00:00 debug #29 parseDibCode / output: Spi / file: base.dib
00:00:00 debug #31 writeDibCode / output: Spi / path: guid.dib
00:00:00 debug #31 writeDibCode / output: Spi / path: file_system.dib
00:00:00 debug #32 parseDibCode / output: Spi / file: guid.dib
00:00:00 debug #33 parseDibCode / output: Spi / file: file_system.dib
00:00:00 debug #34 writeDibCode / output: Spi / path: math.dib
00:00:00 debug #35 parseDibCode / output: Spi / file: math.dib
00:00:00 debug #36 writeDibCode / output: Spi / path: optionm'.dib
00:00:00 debug #37 parseDibCode / output: Spi / file: optionm'.dib
00:00:00 debug #39 writeDibCode / output: Spi / path: sm'.dib
00:00:00 debug #39 writeDibCode / output: Spi / path: am'.dib
00:00:00 debug #40 parseDibCode / output: Spi / file: sm'.dib
00:00:00 debug #41 parseDibCode / output: Spi / file: am'.dib
00:00:00 debug #42 writeDibCode / output: Spi / path: listm'.dib
00:00:00 debug #43 parseDibCode / output: Spi / file: listm'.dib
00:00:00 debug #44 writeDibCode / output: Spi / path: reflection.dib
00:00:00 debug #45 writeDibCode / output: Spi / path: benchmark.dib
00:00:00 debug #46 writeDibCode / output: Spi / path: stream.dib
00:00:00 debug #47 parseDibCode / output: Spi / file: reflection.dib
00:00:00 debug #48 parseDibCode / output: Spi / file: benchmark.dib
00:00:00 debug #51 writeDibCode / output: Spi / path: seq.dib
00:00:00 debug #51 writeDibCode / output: Spi / path: util.dib
00:00:00 debug #52 parseDibCode / output: Spi / file: seq.dib
00:00:00 debug #53 parseDibCode / output: Spi / file: util.dib
00:00:00 debug #54 writeDibCode / output: Spi / path: platform.dib
00:00:00 debug #55 parseDibCode / output: Spi / file: platform.dib
00:00:00 debug #56 writeDibCode / output: Spi / path: rust.dib
00:00:00 debug #57 parseDibCode / output: Spi / file: rust.dib
00:00:00 debug #49 parseDibCode / output: Spi / file: stream.dib
00:00:00 debug #58 writeDibCode / output: Spi / path: physics.dib
00:00:00 debug #59 parseDibCode / output: Spi / file: physics.dib
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:02 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:02 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:02 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:02 debug #2 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:02 debug #4 async.run_with_timeout_async / timeout: 100
00:00:02 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 debug #6 async.run_with_timeout_async / timeout: 100
00:00:03 debug #7 async.run_with_timeout_async / timeout: 100
00:00:03 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:03 debug #8 async.run_with_timeout_async / timeout: 100
00:00:03 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:03 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:03 verbose #6 > Server bound to: http://localhost:13805
00:00:04 debug #10 async.run_with_timeout_async / timeout: 500
00:00:04 debug #12 async.run_with_timeout_async / timeout: 500
00:00:04 debug #11 async.run_with_timeout_async / timeout: 500
00:00:04 debug #10 async.run_with_timeout_async / timeout: 500
00:00:04 debug #13 async.run_with_timeout_async / timeout: 500
00:00:04 debug #7 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #7 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #7 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #7 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #7 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #11 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #11 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #11 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #11 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 debug #11 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:04 verbose #13 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # networking\nopen rust_operators\n\n/// ## types\ninl types () =\n g...!get_available_port x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/networking.spi"}} / result:
00:00:04 verbose #15 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # threading\nopen rust_operators\n\n/// ## types\ninl types () =\n gl...new_disposable_token x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/threading.spi"}} / result:
00:00:04 verbose #16 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # runtime\nopen rust_operators\nopen sm\u0027_operators\n\n/// ## types\...t_args x = !split_args x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result:
00:00:04 verbose #14 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # async\nopen rust_operators\n\n/// ## types\ninl types () =\n global...token_with_default_async x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result:
00:00:04 verbose #13 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # trace\n\n/// ## types\ninl types () =\n rust.types ()\n sm\u0027...0027let trace x = !trace x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result:
00:00:04 verbose #18 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result:
00:00:04 verbose #20 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result:
00:00:04 verbose #18 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/networking.spi"}} / result:
00:00:04 verbose #21 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result:
00:00:04 verbose #19 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/threading.spi"}} / result:
00:00:04 verbose #7 > 00:00:02 debug #4 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/async.spi
00:00:04 verbose #8 > 00:00:02 debug #5 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/runtime.spi
00:00:05 verbose #9 > 00:00:02 debug #6 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/threading.spi
00:00:05 verbose #10 > 00:00:02 debug #7 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/networking.spi
00:00:05 verbose #11 > 00:00:02 debug #8 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/trace.spi
00:00:05 debug #24 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #24 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #25 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #24 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:05 debug #24 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #28 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #28 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #28 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #30 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:06 debug #30 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:07 debug #32 Supervisor.buildFile / takeWhileInclusive / path: async.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("futures::future::JoinAll<$0>")>]
#endif
type futures_future_JoinAll<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("futu...base.run_target / _v1=None"
v23
let v0 : (System.Threading.CancellationToken -> Async<System.Threading.CancellationToken>) = closure0()
let merge_cancellation_token_with_default_async x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:07 debug #32 Supervisor.buildFile / takeWhileInclusive / path: threading.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::thread::JoinHandle<$0>")>]
#endif
type std_thread_JoinHandle<'T> = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::s...=None"
struct (v39, v40)
let v0 : (System.Threading.CancellationToken option -> struct (System.Threading.CancellationToken * System.IDisposable)) = closure0()
let new_disposable_token x = v0 x
()
/ errors: [] / typeErrorCount: 0
00:00:07 debug #33 Supervisor.buildFile / takeWhileInclusive / path: trace.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...osure0()
let v1 : US0 = US0_0
if State.trace_state.IsNone then State.trace_state <- v0 v1 |> Some
let v2 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = closure2()
let trace x = v2 x
()
/ errors: [] / typeErrorCount: 0
00:00:07 debug #34 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:07 debug #35 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:07 debug #37 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 debug #36 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 debug #38 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 debug #39 Supervisor.buildFile / takeWhileInclusive / path: networking.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::Error")>]
#endif
type reqwest_Error = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("reqwest_wasm::RequestBuild...> (string -> (int32 -> Async<int64>)))) = closure15()
let wait_for_port_access x = v4 x
let v5 : (int32 option -> (string -> (int32 -> Async<int32>))) = closure21()
let get_available_port x = v5 x
()
/ errors: [] / typeErrorCount: 0
00:00:07 debug #40 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 debug #41 Supervisor.buildFile / takeWhileInclusive / path: runtime.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("clap::Arg")>]
#endif
type clap_Arg = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("clap::ArgAction")>]
#endif
type clap_ArgA...td_process_ChildStdin>> -> unit) option * bool * string option)) = closure18()
let execution_options x = v5 x
let v6 : (string -> Result<(string []), string>) = closure19()
let split_args x = v6 x
()
/ errors: [] / typeErrorCount: 0
00:00:07 debug #42 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:08 debug #15 async.run_with_timeout_async / timeout: 500
00:00:08 debug #15 async.run_with_timeout_async / timeout: 500
00:00:08 debug #44 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #44 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #46 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #46 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #16 async.run_with_timeout_async / timeout: 500
00:00:08 debug #17 async.run_with_timeout_async / timeout: 500
00:00:08 verbose #48 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # crypto\nopen rust_operators\n\n/// ## types\ninl types () =\n globa..._port x = !hash_to_port x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result:
00:00:08 verbose #48 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # common\n\n/// ## types\ninl types () =\n env.types ()\n rust.typ...et memoize x = !memoize x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result:
00:00:08 debug #49 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #50 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #18 async.run_with_timeout_async / timeout: 500
00:00:08 debug #51 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #52 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 verbose #53 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result:
00:00:08 verbose #54 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # date_time\nopen rust_operators\nopen sm\u0027_operators\n\n/// ## type... x = !format_iso8601 x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result:
00:00:08 verbose #55 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result:
00:00:08 verbose #12 > 00:00:06 debug #9 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/crypto.spi
00:00:08 verbose #13 > 00:00:06 debug #10 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/common.spi
00:00:08 debug #56 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 debug #57 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:08 verbose #59 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result:
00:00:08 verbose #59 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # platform\nopen rust_operators\n\ninl types () =\n ()\n\n/// ## os_p...et_executable_suffix ()\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/platform.spi"}} / result:
00:00:08 verbose #14 > 00:00:06 debug #11 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/date_time.spi
00:00:08 verbose #60 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # file_system\nopen sm\u0027_operators\nopen rust_operators\n\n/// ## ty...003E) x = !combine x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result:
00:00:08 verbose #15 > 00:00:06 debug #12 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/platform.spi
00:00:08 verbose #61 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/platform.spi"}} / result:
00:00:08 verbose #16 > 00:00:06 debug #13 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/file_system.spi
00:00:08 verbose #62 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result:
00:00:09 debug #63 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #64 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #65 Supervisor.buildFile / takeWhileInclusive / path: crypto.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...uint16 = v8 % 48128us
let v13 : uint16 = v12 + 1024us
v13
let v0 : (string -> string) = closure0()
let hash_text x = v0 x
let v1 : (string -> uint16) = closure1()
let hash_to_port x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:09 debug #66 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #67 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #68 Supervisor.buildFile / takeWhileInclusive / path: date_time.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...t new_guid_from_timestamp x = v5 x
let v6 : (string -> (System.DateTime -> string)) = closure11()
let format x = v6 x
let v7 : (System.DateTime -> string) = closure13()
let format_iso8601 x = v7 x
()
/ errors: [] / typeErrorCount: 0
00:00:09 debug #69 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:09 debug #70 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:09 debug #71 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #72 Supervisor.buildFile / takeWhileInclusive / path: platform.spi / outputContent: type [<Struct>] US0 =
| US0_0
| US0_1
| US0_2
and [<Struct>] US1 =
| US1_0 of f0_0 : US0
| US1_1 of f1_0 : US0
| US1_2 of f2_0 : US0
| US1_3 of f3_0 : US0
| US1_4 of f4... v19
else
let v20 : string = ""
v20
let v0 : (unit -> bool) = closure0()
let is_windows () = v0 ()
let v1 : (unit -> string) = closure1()
let get_executable_suffix () = v1 ()
()
/ errors: [] / typeErrorCount: 0
00:00:09 debug #73 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:09 debug #74 Supervisor.buildFile / takeWhileInclusive / path: common.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::env::VarError")>]
#endif
type std_env_VarError = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endi...()
let new_disposable x = v2 x
let v3 : (int32 -> ((unit -> unit) -> unit option)) = closure3()
let retry_fn x = v3 x
let v4 : ((unit -> unit) -> (unit -> unit)) = closure12()
let memoize x = v4 x
()
/ errors: [] / typeErrorCount: 0
00:00:09 debug #75 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:09 debug #19 async.run_with_timeout_async / timeout: 500
00:00:09 debug #76 Supervisor.buildFile / takeWhileInclusive / path: guid.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #77 Supervisor.buildFile / takeWhileInclusive / path: guid.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #20 async.run_with_timeout_async / timeout: 500
00:00:09 debug #78 Supervisor.buildFile / takeWhileInclusive / path: sm'.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 debug #79 Supervisor.buildFile / takeWhileInclusive / path: sm'.spi / outputContent: / errors: [] / typeErrorCount: 0
00:00:09 verbose #80 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # guid\n\n/// ## guid\nnominal guid = $\u0027System.Guid\u0027\n\n/// ##...aw_guid x = !new_raw_guid x\u0027 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result:
00:00:09 verbose #17 > 00:00:07 debug #14 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/guid.spi
00:00:09 verbose #81 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result:
00:00:10 debug #82 Supervisor.buildFile / takeWhileInclusive / path: file_system.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fs::File")>]
#endif
type std_fs_File = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("std::fs::FileType")>]
#endif
type ...ng) = closure58()
let get_workspace_root () = v19 ()
let v20 : (bool -> unit) = closure59()
let init_trace_file x = v20 x
let v21 : (string -> (string -> string)) = closure61()
let (</>) x = v21 x
()
/ errors: [] / typeErrorCount: 0
00:00:10 debug #83 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:10 verbose #84 Supervisor.sendJson / port: 13805 / json: {"FileOpen":{"spiText":"/// # sm\u0027\nopen rust_operators\n\n/// ## types\ninl types () =\n glo...tring std_string = from_std_string\n","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result:
00:00:10 verbose #18 > 00:00:08 debug #15 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/lib/spiral/sm'.spi
00:00:10 verbose #85 Supervisor.sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result:
00:00:10 debug #86 Supervisor.buildFile / takeWhileInclusive / path: guid.spi / outputContent: let rec closure0 () (v0 : string) : System.Guid =
let v1 : System.Guid = v0 |> System.Guid
v1
and method0 (v0 : string) : System.Guid =
let v1 : bool = true
let mutable _v1 : System.G...string -> System.Guid) = closure0()
let new_guid x = v0 x
let v1 : (string -> System.Guid) = closure1()
let hash_guid x = v1 x
let v2 : (unit -> System.Guid) = closure2()
let new_raw_guid x = v2 x
()
/ errors: [] / typeErrorCount: 0
00:00:10 debug #87 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:10 debug #88 Supervisor.buildFile / takeWhileInclusive / path: sm'.spi / outputContent: #if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("core::any::Any")>]
#endif
type core_any_Any = class end
#if FABLE_COMPILER
[<Fable.Core.Erase; Fable.Core.Emit("_")>]
#endif
type core_ops_Try<'...tring)) = closure42()
let concat x = v20 x
let v21 : (string -> ((string []) -> string)) = closure44()
let join' x = v21 x
let v22 : (string -> (char [])) = closure46()
let to_char_array x = v22 x
()
/ errors: [] / typeErrorCount: 0
00:00:10 debug #89 FileSystem.watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:10 verbose #21 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:00:10 debug #22 async.run_with_timeout_async / timeout: 100
In [ ]:
{ pwsh ../apps/scheduler/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:01 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:02 debug #4 async.run_with_timeout_async / timeout: 100
00:00:02 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:02 debug #6 async.run_with_timeout_async / timeout: 100
00:00:03 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:03 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:03 verbose #6 > Server bound to: http://localhost:13805
00:00:03 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../workspace/target/release/spiral_builder.exe dib --path Tasks.dib --retries 3",
[||], None, None, true, None)
00:00:03 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "Tasks.dib", "--retries", "3"])
00:00:03 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/scheduler/Tasks.dib", "--output-path", "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/scheduler/Tasks.dib" --output-path "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:07 verbose #10 > >
00:00:07 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:07 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:07 verbose #13 > > │ ## Tasks (Polyglot) │
00:00:07 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:07 verbose #15 > >
00:00:07 verbose #16 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:07 verbose #17 > > //// test
00:00:07 verbose #18 > >
00:00:07 verbose #19 > > open testing
00:00:07 verbose #20 > >
00:00:07 verbose #21 > > ── spiral - import ─────────────────────────────────────────────────────────────
00:00:07 verbose #22 > > #r
00:00:07 verbose #23 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 verbose #24 > > otNet.Interactive.Spiral.dll"
00:00:07 verbose #25 > > open Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers
00:00:07 verbose #26 > > #r
00:00:07 verbose #27 > > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 verbose #28 > > otNet.Interactive.dll"
00:00:07 verbose #29 > > open type Microsoft.DotNet.Interactive.Kernel
00:00:11 verbose #30 > >
00:00:11 verbose #31 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #32 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #33 > > │ ## types │
00:00:11 verbose #34 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #35 > >
00:00:11 verbose #36 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #37 > > inl types () =
00:00:11 verbose #38 > > rust.types ()
00:00:11 verbose #39 > > sm'.types ()
00:00:11 verbose #40 > >
00:00:11 verbose #41 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #42 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #43 > > │ ## task_name │
00:00:11 verbose #44 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #45 > >
00:00:11 verbose #46 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #47 > > nominal task_name = string
00:00:11 verbose #48 > >
00:00:11 verbose #49 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #50 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #51 > > │ ## manual_scheduling │
00:00:11 verbose #52 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #53 > >
00:00:11 verbose #54 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #55 > > union manual_scheduling =
00:00:11 verbose #56 > > | WithSuggestion
00:00:11 verbose #57 > > | WithoutSuggestion
00:00:11 verbose #58 > >
00:00:11 verbose #59 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #60 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #61 > > │ ## recurrency_offset │
00:00:11 verbose #62 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #63 > >
00:00:11 verbose #64 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #65 > > union recurrency_offset =
00:00:11 verbose #66 > > | Days : i32
00:00:11 verbose #67 > > | Weeks : i32
00:00:11 verbose #68 > > | Months : i32
00:00:11 verbose #69 > >
00:00:11 verbose #70 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #71 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #72 > > │ ## day_of_week │
00:00:11 verbose #73 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #74 > >
00:00:11 verbose #75 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #76 > > union day_of_week =
00:00:11 verbose #77 > > | Sunday
00:00:11 verbose #78 > > | Monday
00:00:11 verbose #79 > > | Tuesday
00:00:11 verbose #80 > > | Wednesday
00:00:11 verbose #81 > > | Thursday
00:00:11 verbose #82 > > | Friday
00:00:11 verbose #83 > > | Saturday
00:00:11 verbose #84 > >
00:00:11 verbose #85 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #86 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #87 > > │ ## month │
00:00:11 verbose #88 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #89 > >
00:00:11 verbose #90 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #91 > > union month =
00:00:11 verbose #92 > > | January
00:00:11 verbose #93 > > | February
00:00:11 verbose #94 > > | March
00:00:11 verbose #95 > > | April
00:00:11 verbose #96 > > | May
00:00:11 verbose #97 > > | June
00:00:11 verbose #98 > > | July
00:00:11 verbose #99 > > | August
00:00:11 verbose #100 > > | September
00:00:11 verbose #101 > > | October
00:00:11 verbose #102 > > | November
00:00:11 verbose #103 > > | December
00:00:11 verbose #104 > >
00:00:11 verbose #105 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #106 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #107 > > │ ## day │
00:00:11 verbose #108 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #109 > >
00:00:11 verbose #110 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #111 > > nominal day = i32
00:00:11 verbose #112 > >
00:00:11 verbose #113 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #114 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #115 > > │ ## year │
00:00:11 verbose #116 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #117 > >
00:00:11 verbose #118 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #119 > > nominal year = i32
00:00:11 verbose #120 > >
00:00:11 verbose #121 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #122 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #123 > > │ ## fixed_recurrency │
00:00:11 verbose #124 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #125 > >
00:00:11 verbose #126 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #127 > > union fixed_recurrency =
00:00:11 verbose #128 > > | Weekly : day_of_week
00:00:11 verbose #129 > > | Monthly : day
00:00:11 verbose #130 > > | Yearly : day * month
00:00:11 verbose #131 > >
00:00:11 verbose #132 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #133 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #134 > > │ ## recurrency │
00:00:11 verbose #135 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #136 > >
00:00:11 verbose #137 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #138 > > union recurrency =
00:00:11 verbose #139 > > | Offset : recurrency_offset
00:00:11 verbose #140 > > | Fixed : list fixed_recurrency
00:00:11 verbose #141 > >
00:00:11 verbose #142 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #143 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #144 > > │ ## scheduling │
00:00:11 verbose #145 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #146 > >
00:00:11 verbose #147 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #148 > > union scheduling =
00:00:11 verbose #149 > > | Manual : manual_scheduling
00:00:11 verbose #150 > > | Recurrent : recurrency
00:00:11 verbose #151 > >
00:00:11 verbose #152 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #153 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #154 > > │ ## task │
00:00:11 verbose #155 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #156 > >
00:00:11 verbose #157 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #158 > > type task =
00:00:11 verbose #159 > > {
00:00:11 verbose #160 > > name : task_name
00:00:11 verbose #161 > > scheduling : scheduling
00:00:11 verbose #162 > > }
00:00:11 verbose #163 > >
00:00:11 verbose #164 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #165 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #166 > > │ ## date │
00:00:11 verbose #167 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #168 > >
00:00:11 verbose #169 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #170 > > type date =
00:00:11 verbose #171 > > {
00:00:11 verbose #172 > > year : year
00:00:11 verbose #173 > > month : month
00:00:11 verbose #174 > > day : day
00:00:11 verbose #175 > > }
00:00:11 verbose #176 > >
00:00:11 verbose #177 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:11 verbose #178 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:11 verbose #179 > > │ ## status │
00:00:11 verbose #180 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 verbose #181 > >
00:00:11 verbose #182 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 verbose #183 > > union status =
00:00:11 verbose #184 > > | Postponed : option ()
00:00:12 verbose #185 > >
00:00:12 verbose #186 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #187 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #188 > > │ ## event │
00:00:12 verbose #189 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #190 > >
00:00:12 verbose #191 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #192 > > type event =
00:00:12 verbose #193 > > {
00:00:12 verbose #194 > > date : date
00:00:12 verbose #195 > > status : status
00:00:12 verbose #196 > > }
00:00:12 verbose #197 > >
00:00:12 verbose #198 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #199 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #200 > > │ ## task_template │
00:00:12 verbose #201 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #202 > >
00:00:12 verbose #203 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #204 > > type task_template =
00:00:12 verbose #205 > > {
00:00:12 verbose #206 > > task : task
00:00:12 verbose #207 > > events : list event
00:00:12 verbose #208 > > }
00:00:12 verbose #209 > >
00:00:12 verbose #210 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 verbose #211 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 verbose #212 > > │ ## get_tasks (test) │
00:00:12 verbose #213 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 verbose #214 > >
00:00:12 verbose #215 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #216 > > //// test
00:00:12 verbose #217 > >
00:00:12 verbose #218 > > inl get_tasks () : list task_template =
00:00:12 verbose #219 > > [[
00:00:12 verbose #220 > > {
00:00:12 verbose #221 > > task =
00:00:12 verbose #222 > > {
00:00:12 verbose #223 > > name = task_name "01"
00:00:12 verbose #224 > > scheduling = Manual WithSuggestion
00:00:12 verbose #225 > > }
00:00:12 verbose #226 > > events = [[]]
00:00:12 verbose #227 > > }
00:00:12 verbose #228 > > {
00:00:12 verbose #229 > > task =
00:00:12 verbose #230 > > {
00:00:12 verbose #231 > > name = task_name "02"
00:00:12 verbose #232 > > scheduling = Manual WithSuggestion
00:00:12 verbose #233 > > }
00:00:12 verbose #234 > > events = [[]]
00:00:12 verbose #235 > > }
00:00:12 verbose #236 > > {
00:00:12 verbose #237 > > task =
00:00:12 verbose #238 > > {
00:00:12 verbose #239 > > name = task_name "03"
00:00:12 verbose #240 > > scheduling = Manual WithSuggestion
00:00:12 verbose #241 > > }
00:00:12 verbose #242 > > events = [[]]
00:00:12 verbose #243 > > }
00:00:12 verbose #244 > > ]]
00:00:12 verbose #245 > >
00:00:12 verbose #246 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 verbose #247 > > //// test
00:00:12 verbose #248 > > ///! fsharp
00:00:12 verbose #249 > > ///! cuda
00:00:12 verbose #250 > > ///! rust
00:00:12 verbose #251 > > ///! typescript
00:00:12 verbose #252 > > ///! python
00:00:12 verbose #253 > >
00:00:12 verbose #254 > > types ()
00:00:12 verbose #255 > > get_tasks ()
00:00:12 verbose #256 > > |> sm'.format_debug
00:00:12 verbose #257 > > |> _assert_string_contains "01"
00:00:18 verbose #258 > >
00:00:18 verbose #259 > > ╭─[ 6.13s - return value ]─────────────────────────────────────────────────────╮
00:00:18 verbose #260 > > │ .py output (Cuda): │
00:00:18 verbose #261 > > │ assert_string_contains / actual: 01 / expected: UH2_1(v0=UH0_0(), v1='01', │
00:00:18 verbose #262 > > │ v2=US4_0(v0=US3_0()), v3=UH2_1(v0=UH0_0(), v1='02', v2=US4_0(v0=US3_0()), │
00:00:18 verbose #263 > > │ v3=UH2_1(v0=UH0_0(), v1='03', v2=US4_0(v0=US3_0()), v3=UH2_0()))) │
00:00:18 verbose #264 > > │ │
00:00:18 verbose #265 > > │ .rs output: │
00:00:18 verbose #266 > > │ assert_string_contains / actual: "01" / expected: "UH2_1(UH0_0, "01", │
00:00:18 verbose #267 > > │ US4_0(US3_0), UH2_1(UH0_0, "02", US4_0(US3_0), UH2_1(UH0_0, "03", │
00:00:18 verbose #268 > > │ US4_0(US3_0), UH2_0)))" │
00:00:18 verbose #269 > > │ │
00:00:18 verbose #270 > > │ .ts output: │
00:00:18 verbose #271 > > │ assert_string_contains / actual: 01 / expected: UH2_1 (UH0_0, 01, US4_0 │
00:00:18 verbose #272 > > │ US3_0, UH2_1 (UH0_0, 02, US4_0 US3_0, UH2_1 (UH0_0, 03, US4_0 US3_0, │
00:00:18 verbose #273 > > │ UH2_0))) │
00:00:18 verbose #274 > > │ │
00:00:18 verbose #275 > > │ .py output: │
00:00:18 verbose #276 > > │ assert_string_contains / actual: 01 / expected: UH2_1 (UH0_0, 01, US4_0 │
00:00:18 verbose #277 > > │ US3_0, UH2_1 (UH0_0, 02, US4_0 US3_0, UH2_1 (UH0_0, 03, US4_0 US3_0, │
00:00:18 verbose #278 > > │ UH2_0))) │
00:00:18 verbose #279 > > │ │
00:00:18 verbose #280 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #281 > >
00:00:18 verbose #282 > > ╭─[ 6.13s - stdout ]───────────────────────────────────────────────────────────╮
00:00:18 verbose #283 > > │ .fsx output: │
00:00:18 verbose #284 > > │ assert_string_contains / actual: "01" / expected: "UH2_1 │
00:00:18 verbose #285 > > │ (UH0_0, "01", US4_0 US3_0, │
00:00:18 verbose #286 > > │ UH2_1 (UH0_0, "02", US4_0 US3_0, UH2_1 (UH0_0, "03", US4_0 US3_0, │
00:00:18 verbose #287 > > │ UH2_0)))" │
00:00:18 verbose #288 > > │ │
00:00:18 verbose #289 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 verbose #290 > >
00:00:18 verbose #291 > > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:18 verbose #292 > > //// test
00:00:18 verbose #293 > > ///! fsharp
00:00:18 verbose #294 > > ///! cuda
00:00:18 verbose #295 > > ///! rust
00:00:18 verbose #296 > > ///! typescript
00:00:18 verbose #297 > > ///! python
00:00:18 verbose #298 > >
00:00:18 verbose #299 > > get_tasks ()
00:00:18 verbose #300 > > |> listm'.try_item 0i32
00:00:18 verbose #301 > > |> fun (Some task) => task.task.name
00:00:18 verbose #302 > > |> _assert_eq (task_name "01")
00:00:24 verbose #303 > >
00:00:24 verbose #304 > > ╭─[ 6.14s - return value ]─────────────────────────────────────────────────────╮
00:00:24 verbose #305 > > │ .py output (Cuda): │
00:00:24 verbose #306 > > │ assert_eq / actual: 01 / expected: 01 │
00:00:24 verbose #307 > > │ │
00:00:24 verbose #308 > > │ .rs output: │
00:00:24 verbose #309 > > │ assert_eq / actual: "01" / expected: "01" │
00:00:24 verbose #310 > > │ │
00:00:24 verbose #311 > > │ .ts output: │
00:00:24 verbose #312 > > │ assert_eq / actual: 01 / expected: 01 │
00:00:24 verbose #313 > > │ │
00:00:24 verbose #314 > > │ .py output: │
00:00:24 verbose #315 > > │ assert_eq / actual: 01 / expected: 01 │
00:00:24 verbose #316 > > │ │
00:00:24 verbose #317 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #318 > >
00:00:24 verbose #319 > > ╭─[ 6.14s - stdout ]───────────────────────────────────────────────────────────╮
00:00:24 verbose #320 > > │ .fsx output: │
00:00:24 verbose #321 > > │ assert_eq / actual: "01" / expected: "01" │
00:00:24 verbose #322 > > │ │
00:00:24 verbose #323 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:24 verbose #324 > 00:00:21 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 14060
00:00:24 verbose #325 > 00:00:21 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:00:27 verbose #326 > 00:00:24 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/scheduler/Tasks.dib.ipynb to html
00:00:27 verbose #327 > 00:00:24 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:27 verbose #328 > 00:00:24 verbose #7 ! validate(nb)
00:00:29 verbose #329 > 00:00:26 verbose #8 ! [NbConvertApp] Writing 301578 bytes to c:\home\git\polyglot\apps\scheduler\Tasks.dib.html
00:00:29 verbose #330 > 00:00:26 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 649
00:00:29 verbose #331 > 00:00:26 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 649
00:00:29 verbose #332 > 00:00:26 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/scheduler/Tasks.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/scheduler/Tasks.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:00:30 verbose #333 > 00:00:27 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:00:30 verbose #334 > 00:00:27 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:00:31 verbose #335 > 00:00:28 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 14768
00:00:31 debug #336 runtime.execute_with_options_async / exit_code: 0 / output.Length: 17676
00:00:31 debug #3 main / executeCommand / exitCode: 0 / command: ../../workspace/target/release/spiral_builder.exe dib --path Tasks.dib --retries 3
00:00:31 verbose #7 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:00:31 debug #8 async.run_with_timeout_async / timeout: 100
00:00:00 debug #1 writeDibCode / output: Spi / path: Tasks.dib
00:00:00 debug #2 parseDibCode / output: Spi / file: Tasks.dib
In [ ]:
{ pwsh ../apps/chat/build.ps1 } | Invoke-Block
Compiling syn v2.0.66 Compiling proc-macro-error-attr v1.0.4 Compiling heck v0.5.0 Compiling syn v1.0.109 Compiling proc-macro-error v1.0.4 Compiling data-encoding-macro-internal v0.1.13 Compiling data-encoding-macro v0.1.15 Compiling multibase v0.9.1 Compiling darling_core v0.20.9 Compiling serde_derive v1.0.203 Compiling syn_derive v0.1.8 Compiling strum_macros v0.26.4 Compiling borsh-derive v1.5.1 Compiling darling_macro v0.20.9 Compiling darling v0.20.9 Compiling borsh v1.5.1 Compiling serde v1.0.203 Compiling serde_json v1.0.117 Compiling near-gas v0.2.5 Compiling near-token v0.2.0 Compiling near-account-id v1.0.0 Compiling near-sdk-macros v5.1.0 Compiling near-sdk v5.1.0 Compiling chat_contract v0.0.1 (C:\home\git\polyglot\apps\chat\contract) Finished `release` profile [optimized] target(s) in 38.74s Updating crates.io index Downloading crates ... Downloaded anstyle-query v1.1.0 Downloaded proc-macro2 v1.0.85 Downloaded tar v0.4.41 Downloaded hyper v0.14.29 Downloaded webpki-roots v0.26.2 Compiling proc-macro2 v1.0.85 Compiling anstyle-query v1.1.0 Compiling anstream v0.6.14 Compiling webpki-roots v0.26.2 Compiling clap_builder v4.5.2 Compiling tar v0.4.41 Compiling ureq v2.9.7 Compiling quote v1.0.36 Compiling syn v2.0.66 Compiling syn v1.0.109 Compiling binary-install v0.2.0 Compiling proc-macro-error-attr v1.0.4 Compiling near-sandbox-utils v0.7.0 Compiling darling_core v0.20.9 Compiling serde_derive_internals v0.29.1 Compiling near-workspaces v0.10.0 Compiling proc-macro-error v1.0.4 Compiling borsh-derive-internal v0.9.3 Compiling borsh-schema-derive-internal v0.9.3 Compiling serde_derive v1.0.203 Compiling tokio-macros v2.2.0 Compiling thiserror-impl v1.0.61 Compiling tracing-attributes v0.1.27 Compiling pin-project-internal v1.1.5 Compiling syn_derive v0.1.8 Compiling prost-derive v0.9.0 Compiling tokio v1.37.0 Compiling thiserror v1.0.61 Compiling pin-project v1.1.5 Compiling darling_macro v0.20.9 Compiling derive_more v0.99.17 Compiling tokio-util v0.7.11 Compiling borsh-derive v1.5.1 Compiling tokio-stream v0.1.15 Compiling tracing v0.1.40 Compiling h2 v0.3.26 Compiling strum_macros v0.24.3 Compiling serde v1.0.203 Compiling serde_json v1.0.117 Compiling hex v0.4.3 Compiling prost v0.9.0 Compiling prost-types v0.9.0 Compiling hyper v0.14.29 Compiling enum-map-derive v0.17.0 Compiling async-trait v0.1.80 Compiling derive_arbitrary v1.3.2 Compiling prost-build v0.9.0 Compiling darling v0.20.9 Compiling enum-map v2.7.3 Compiling serde_with_macros v3.8.1 Compiling num-rational v0.3.2 Compiling curve25519-dalek-derive v0.1.1 Compiling strum v0.24.1 Compiling serde_repr v0.1.19 Compiling tonic-build v0.6.2 Compiling uint v0.9.5 Compiling tokio-io-timeout v1.2.0 Compiling async-stream-impl v0.3.5 Compiling opentelemetry v0.17.0 Compiling hyper-timeout v0.4.1 Compiling borsh v1.5.1 Compiling primitive-types v0.10.1 Compiling near-account-id v1.0.0 Compiling opentelemetry-otlp v0.10.0 Compiling arbitrary v1.3.2 Compiling tracing-subscriber v0.3.18 Compiling near-config-utils v0.20.1 Compiling tower v0.4.13 Compiling tracing-futures v0.2.5 Compiling tokio-util v0.6.10 Compiling serde_yaml v0.9.34+deprecated Compiling actix-rt v2.9.0 Compiling actix_derive v0.6.1 Compiling actix-macros v0.2.4 Compiling clap_derive v4.5.4 Compiling openssl-macros v0.1.1 Compiling curve25519-dalek v4.1.2 Compiling ed25519-dalek v2.1.1 Compiling near-crypto v0.20.1 Compiling async-stream v0.3.5 Compiling tonic v0.6.2 Compiling serde_with v3.8.1 Compiling tracing-appender v0.2.3 Compiling near-primitives-core v0.20.1 Compiling tracing-opentelemetry v0.17.4 Compiling opentelemetry-semantic-conventions v0.9.0 Compiling near-fmt v0.20.1 Compiling near-parameters v0.20.1 Compiling toml v0.5.11 Compiling near-rpc-error-core v0.20.1 Compiling openssl v0.10.64 Compiling url v2.5.0 Compiling actix v0.13.3 Compiling chrono v0.4.38 Compiling semver v1.0.23 Compiling prometheus v0.13.4 Compiling near-rpc-error-macro v0.20.1 Compiling near-vm-runner v0.20.1 Compiling proc-macro-crate v0.1.5 Compiling bytesize v1.3.0 Compiling smart-default v0.6.0 Compiling schemars_derive v0.8.21 Compiling scroll_derive v0.11.1 Compiling clap v4.5.4 Compiling borsh-derive v0.9.3 Compiling camino v1.1.7 Compiling string_cache v0.8.7 Compiling cargo-platform v0.1.8 Compiling elementtree v0.7.0 Compiling native-tls v0.2.12 Compiling serde_urlencoded v0.7.1 Compiling tokio-native-tls v0.3.1 Compiling zip v0.5.13 Compiling clap_derive v3.2.25 Compiling hyper-tls v0.5.0 Compiling reqwest v0.11.27 Compiling scroll v0.11.0 Compiling cargo_metadata v0.14.2 Compiling goblin v0.5.4 Compiling rustc_version v0.4.0 Compiling cargo_metadata v0.18.1 Compiling symbolic-debuginfo v8.8.0 Compiling json-patch v1.4.0 Compiling near-token v0.2.0 Compiling tokio-retry v0.3.0 Compiling borsh v0.9.3 Compiling schemars v0.8.21 Compiling near-o11y v0.20.1 Compiling near-abi v0.3.0 Compiling near-gas v0.2.5 Compiling clap v3.2.25 Compiling near-primitives v0.20.1 Compiling cargo-near v0.3.1 Compiling near-chain-configs v0.20.1 Compiling near-jsonrpc-primitives v0.20.1 Compiling near-jsonrpc-client v0.8.0 Compiling chat_contract_tests v0.0.1 (/mnt/c/home/git/polyglot/apps/chat/contract/tests) Finished `release` profile [optimized] target(s) in 10m 50s Running `/mnt/c/home/git/polyglot/workspace/target/release/chat_contract_tests` Updated the logging layer according to `log_config.json` new: ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5282857043580, }, transaction: ExecutionOutcome { transaction_hash: 7PpUiqiXSFQsJJYEEiKt1pQt7PQzon1f9Qmx5ShR1FNV, block_hash: 8hkrdePYQ9g8iY986PQAoNnnEDgqq3NgDnjLxyjFQDe, logs: [], receipt_ids: [ D3MvzsoGuLSkj3HV3VKXVkdpUjqQBAnASDkDDyBECHKq, ], gas_burnt: NearGas { inner: 2427927707802, }, tokens_burnt: NearToken { inner: 242792770780200000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessReceiptId(D3MvzsoGuLSkj3HV3VKXVkdpUjqQBAnASDkDDyBECHKq), }, receipts: [ ExecutionOutcome { transaction_hash: D3MvzsoGuLSkj3HV3VKXVkdpUjqQBAnASDkDDyBECHKq, block_hash: 8hkrdePYQ9g8iY986PQAoNnnEDgqq3NgDnjLxyjFQDe, logs: [], receipt_ids: [ CTwJ3hygvYhpKT6oc6gS2TK4Qs9rFiiCYgujqNtHyVCG, ], gas_burnt: NearGas { inner: 2631746773278, }, tokens_burnt: NearToken { inner: 263174677327800000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: CTwJ3hygvYhpKT6oc6gS2TK4Qs9rFiiCYgujqNtHyVCG, block_hash: 37tHY3zeoC2oCiz8Hu6jT6QGUvaLYTTDLDVNhu2vCH39, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0035289485051114397 outcome (success: true): outcome_gas_burnt_usd: 0.001621855708811736 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.001758006844549704 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(contract, ''): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5279558492014, }, transaction: ExecutionOutcome { transaction_hash: H9mx7JiY1U2F88PqJXX9T4hhfLo8cnzvcmMtHeDLiKij, block_hash: 3zFMLdzkzt3PDengdszj8Zh5tbBbzGcJaCxiigLitKJ2, logs: [], receipt_ids: [ B9wzqrmTkMAN7jk2fEywcv7umY2NLmSvNHzuHx2bz8SZ, ], gas_burnt: NearGas { inner: 2427972426482, }, tokens_burnt: NearToken { inner: 242797242648200000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessReceiptId(B9wzqrmTkMAN7jk2fEywcv7umY2NLmSvNHzuHx2bz8SZ), }, receipts: [ ExecutionOutcome { transaction_hash: B9wzqrmTkMAN7jk2fEywcv7umY2NLmSvNHzuHx2bz8SZ, block_hash: 3zFMLdzkzt3PDengdszj8Zh5tbBbzGcJaCxiigLitKJ2, logs: [ "claim_alias / alias: \"\" / account_id: AccountId(\n \"dev-20240606032532-90220651839799\",\n) / timestamp: 1717644334363490102", ], receipt_ids: [ c7oPNgpjCPbojugBzPhyfvTUMdhovPrcf5Ejq87f9AP, ], gas_burnt: NearGas { inner: 2628403503032, }, tokens_burnt: NearToken { inner: 262840350303200000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), }, ExecutionOutcome { transaction_hash: c7oPNgpjCPbojugBzPhyfvTUMdhovPrcf5Ejq87f9AP, block_hash: 9Hezuwvg39sEEPAaRYic8iJT9YZ7uhx1DSTgu9KZY7aZ, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ], status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), } total_gas_burnt_usd: 0.003526745072665352 outcome (success: true): outcome_gas_burnt_usd: 0.001621885580889976 outcome_tokens_burnt_usd: 0.0 outcome (success: false): outcome_gas_burnt_usd: 0.001755773540025376 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 dev_create_account(account1): Account { id: AccountId( "dev-20240606032535-38261936410849", ), } generate_cid_borsh(account1): ViewResultDetails { result: [ 59, 0, 0, 0, 98, 97, 102, 107, 114, 101, 105, 104, 100, 119, 100, 99, 101, 102, 103, 104, 52, 100, 113, 107, 106, 118, 54, 55, 117, 122, 99, 109, 119, 55, 111, 106, 101, 101, 54, 120, 101, 100, 122, 100, 101, 116, 111, 106, 117, 122, 106, 101, 118, 116, 101, 110, 120, 113, 117, 118, 121, 107, 117, ], logs: [], } claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5700176060779, }, transaction: ExecutionOutcome { transaction_hash: SsZJ6LvHjgvLhTbmgLdu3RzW5j4AAfneA9Z6QvwR1hs, block_hash: 5tLM4ELWTvH2x7wBtbk5Gq5wzTFRiph2AvjPuStMCgxH, logs: [], receipt_ids: [ ARGDr5oVjeTnn92YN9ZCr6H3ErwKD3cmZZmfGLbDvPLJ, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessReceiptId(ARGDr5oVjeTnn92YN9ZCr6H3ErwKD3cmZZmfGLbDvPLJ), }, receipts: [ ExecutionOutcome { transaction_hash: ARGDr5oVjeTnn92YN9ZCr6H3ErwKD3cmZZmfGLbDvPLJ, block_hash: BVAmY7sgMfeSbhKs9hfAH3WTc1g5kxb1sCiDraBmC1tw, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240606032535-38261936410849\",\n) / timestamp: 1717644336593783454", ], receipt_ids: [ 9qKBxZixc53Co5MS4a7PhnNN2n4nRrqwTQ1rcnh4CTBy, ], gas_burnt: NearGas { inner: 3049007656193, }, tokens_burnt: NearToken { inner: 304900765619300000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 9qKBxZixc53Co5MS4a7PhnNN2n4nRrqwTQ1rcnh4CTBy, block_hash: 9t9RuNgvhcbpdBCcHe5L3RzLcE4os2NhX7ZCGJCgnDWr, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003807717608600372 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002036737114336924 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5524492428016, }, transaction: ExecutionOutcome { transaction_hash: CNM2mBuvYeU6RL3djN4Ucn7VjvsnG9ZKhMLjCoAPFJsi, block_hash: E35vahLgSdkuVXFbrN39KuzWR71X884GNL6RZvq6kG6o, logs: [], receipt_ids: [ 9niFzbRRCHmkoiXmcEFXJ58oS4yFe11GGNwsqxgiT4q9, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessReceiptId(9niFzbRRCHmkoiXmcEFXJ58oS4yFe11GGNwsqxgiT4q9), }, receipts: [ ExecutionOutcome { transaction_hash: 9niFzbRRCHmkoiXmcEFXJ58oS4yFe11GGNwsqxgiT4q9, block_hash: AjaonWrwuZEbyKrCC9MTy29RYfqTzyyjwnqbbszUoqk8, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240606032535-38261936410849\",\n) / timestamp: 1717644337607776178", "Alias already claimed", ], receipt_ids: [ 6nBEUBWMn7ghguAZvmyHEv1JWKrqLq7ZZEbNPp1fPDLG, ], gas_burnt: NearGas { inner: 2873324023430, }, tokens_burnt: NearToken { inner: 287332402343000000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 6nBEUBWMn7ghguAZvmyHEv1JWKrqLq7ZZEbNPp1fPDLG, block_hash: 2dkHyC2xWzDcY2r5Gq64MqF1NMqsvSNw8H5uJhbXduG5, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003690360941914688 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0019193804476512401 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1717644336593783454, 0, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240606032535-38261936410849", ): ( 1717644336593783454, 0, ), }, ) dev_create_account(account2): Account { id: AccountId( "dev-20240606032538-14826477829454", ), } claim_alias(alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5787525840409, }, transaction: ExecutionOutcome { transaction_hash: 8oaC3MxeCBuLUPQsvNvKpmDmQowHYFWKi2sGVNq9Dn7W, block_hash: DQvBwZWNhN68U7TjhiMfqLNAJx5aTnZo2MNoGUqkFfBf, logs: [], receipt_ids: [ B3WEQT3fXL33SrqFTnZBKbqn6JFvGgngkwcgon1pBsKM, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240606032538-14826477829454", ), status: SuccessReceiptId(B3WEQT3fXL33SrqFTnZBKbqn6JFvGgngkwcgon1pBsKM), }, receipts: [ ExecutionOutcome { transaction_hash: B3WEQT3fXL33SrqFTnZBKbqn6JFvGgngkwcgon1pBsKM, block_hash: 8VaS42kDx53bDjhDt2Ru6TSgRmx9335rpNxTo5rBAH5A, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240606032538-14826477829454\",\n) / timestamp: 1717644339636810826", ], receipt_ids: [ 4ytpbUsTq3hwyy52s4rmS6tR6HLhEf1Z7HRJ5pwdwRq9, ], gas_burnt: NearGas { inner: 3136357435823, }, tokens_burnt: NearToken { inner: 313635743582300000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 4ytpbUsTq3hwyy52s4rmS6tR6HLhEf1Z7HRJ5pwdwRq9, block_hash: Fvp85ZPGErn8otFvGrT3JH2iqn4dGJEsmBFjhQ7eqS13, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032538-14826477829454", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003866067261393212 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0020950867671297637 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias2", ( 1717644339636810826, 0, ), ), ) get_alias_map_borsh(alias2): Some( { AccountId( "dev-20240606032538-14826477829454", ): ( 1717644339636810826, 0, ), }, ) claim_alias(account2, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6091991700832, }, transaction: ExecutionOutcome { transaction_hash: 4gtVxxr8CkiVb7DfzdT79hNAZGxYQBy1XgnWykVTU5tF, block_hash: BfNjGzdPo66oLWhHsW3NxqmJhxyQUoeRmkPa9sjJZi1k, logs: [], receipt_ids: [ AEgY5XgW4ykLxVpSecGQ6Dd1snVmeG6T7SyPdEUePCEK, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240606032538-14826477829454", ), status: SuccessReceiptId(AEgY5XgW4ykLxVpSecGQ6Dd1snVmeG6T7SyPdEUePCEK), }, receipts: [ ExecutionOutcome { transaction_hash: AEgY5XgW4ykLxVpSecGQ6Dd1snVmeG6T7SyPdEUePCEK, block_hash: SJqkM54ZpnQyiALugzNwEAn1Dqu5nNpSiDNfRnxvQDw, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240606032538-14826477829454\",\n) / timestamp: 1717644340651987149", ], receipt_ids: [ CS8xhuRvC2a4XWX8175YgYnn6rPT4aeD4SUcgqVfHyT, ], gas_burnt: NearGas { inner: 3440823296246, }, tokens_burnt: NearToken { inner: 344082329624600000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: CS8xhuRvC2a4XWX8175YgYnn6rPT4aeD4SUcgqVfHyT, block_hash: 4m2oPv3wDP8A7mg2tfTLVU4v9tQTdseXvT2gvJkhm3fE, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032538-14826477829454", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004069450456155776 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298469961892328 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias1", ( 1717644340651987149, 1, ), ), ) get_alias_map(account2, alias1): Some( { AccountId( "dev-20240606032538-14826477829454", ): ( 1717644340651987149, 1, ), AccountId( "dev-20240606032535-38261936410849", ): ( 1717644336593783454, 0, ), }, ) get_alias_map(account2, alias2): Some( {}, ) claim_alias(account1, alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6086666001244, }, transaction: ExecutionOutcome { transaction_hash: 12xpvUxU3VmNLDBp9kLEpuvYbiL1JSXaBCC2cdhWUCnT, block_hash: 98mrXHmaxA642WsbiNq7cgbcy6Gs6z6FMeemP13Ud1it, logs: [], receipt_ids: [ HFgXJgBeRaF1FQ1s4fpFstN7SY84YSkDZJhzL9RTRiH4, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessReceiptId(HFgXJgBeRaF1FQ1s4fpFstN7SY84YSkDZJhzL9RTRiH4), }, receipts: [ ExecutionOutcome { transaction_hash: HFgXJgBeRaF1FQ1s4fpFstN7SY84YSkDZJhzL9RTRiH4, block_hash: 3NsM4SfG2TXkBxuLz7yL9QFhPRCsyJRBTqk6gdom686L, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240606032535-38261936410849\",\n) / timestamp: 1717644341665862572", ], receipt_ids: [ F6RYP15iB5uNnKpKnzkvXhmkgeQVpgTdesDqraSPAVLg, ], gas_burnt: NearGas { inner: 3435497596658, }, tokens_burnt: NearToken { inner: 343549759665800000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: F6RYP15iB5uNnKpKnzkvXhmkgeQVpgTdesDqraSPAVLg, block_hash: 2Lv1byuvNT8ZxJ3vKG5LsBLCEKonX48MMT4Hb5zNv1sw, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004065892888830992 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002294912394567544 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias2", ( 1717644341665862572, 0, ), ), ) get_alias_map(account1, alias2): Some( { AccountId( "dev-20240606032535-38261936410849", ): ( 1717644341665862572, 0, ), }, ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240606032538-14826477829454", ): ( 1717644340651987149, 1, ), }, ) claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6092014738000, }, transaction: ExecutionOutcome { transaction_hash: H7BrupXoDpmkXBuja8UfTfx6niBnqaWUTJNggoUgKwyb, block_hash: HbnmmaVR1b5NNVXssk1rm44ushubqyfwiKdfSgZBZxNk, logs: [], receipt_ids: [ C2hqYQjyhUisBMqTMgyNubmxbMp5PZjXoCSJKbNSwLEq, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessReceiptId(C2hqYQjyhUisBMqTMgyNubmxbMp5PZjXoCSJKbNSwLEq), }, receipts: [ ExecutionOutcome { transaction_hash: C2hqYQjyhUisBMqTMgyNubmxbMp5PZjXoCSJKbNSwLEq, block_hash: 2FRaVrpsSDCtt8W8Vt6JVwkpWdaxcWTW9JqNyVYWA46F, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240606032535-38261936410849\",\n) / timestamp: 1717644342883692854", ], receipt_ids: [ 72VEuaK2Gn4tfdoKspVp28w8hAP3cvuEptsXK7qbP7d5, ], gas_burnt: NearGas { inner: 3440846333414, }, tokens_burnt: NearToken { inner: 344084633341400000000, }, executor_id: AccountId( "dev-20240606032532-90220651839799", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 72VEuaK2Gn4tfdoKspVp28w8hAP3cvuEptsXK7qbP7d5, block_hash: 38TDEPCaaBPp6At7ywD2g1nyWN6YF2nBWdoUGrkfZwpV, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240606032535-38261936410849", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004069465844984 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002298485350720552 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1717644342883692854, 1, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240606032535-38261936410849", ): ( 1717644342883692854, 1, ), AccountId( "dev-20240606032538-14826477829454", ): ( 1717644340651987149, 0, ), }, ) get_alias_map(account1, alias2): Some( {}, )
In [ ]:
{ pwsh ../apps/spiral/temp/extension/build.ps1 } | Invoke-Block
bun install v1.1.7 (b0b7db5c) Checked 11 installs across 13 packages (no changes) [189.00ms] [INFO]: 🎯 Checking for the Wasm target... [INFO]: 🌀 Compiling to Wasm... Compiling proc-macro2 v1.0.85 Compiling winnow v0.6.11 Compiling quote v1.0.36 Compiling syn v2.0.66 Compiling proc-macro-utils v0.8.0 Compiling const_format_proc_macros v0.2.32 Compiling proc-macro-error-attr v1.0.4 Compiling proc-macro-error v1.0.4 Compiling manyhow-macros v0.10.4 Compiling const_format v0.2.32 Compiling wasm-bindgen-backend v0.2.92 Compiling server_fn_macro v0.6.12 Compiling manyhow v0.10.4 Compiling proc-macro2-diagnostics v0.10.1 Compiling prettyplease v0.2.20 Compiling wasm-bindgen-macro-support v0.2.92 Compiling serde_derive v1.0.203 Compiling thiserror-impl v1.0.61 Compiling futures-macro v0.3.30 Compiling tracing-attributes v0.1.27 Compiling derive-where v1.2.7 Compiling pin-project-internal v1.1.5 Compiling syn_derive v0.1.8 Compiling wasm-bindgen-macro v0.2.92 Compiling wasm-bindgen v0.2.92 Compiling server_fn_macro_default v0.6.12 Compiling js-sys v0.3.69 Compiling futures-util v0.3.30 Compiling typed-builder-macro v0.18.2 Compiling pin-project v1.1.5 Compiling async-recursion v1.1.1 Compiling thiserror v1.0.61 Compiling quote-use-macros v0.8.0 Compiling rstml v0.11.2 Compiling tracing v0.1.40 Compiling console_error_panic_hook v0.1.7 Compiling quote-use v0.8.0 Compiling attribute-derive-macro v0.9.1 Compiling web-sys v0.3.69 Compiling wasm-bindgen-futures v0.4.42 Compiling futures-executor v0.3.30 Compiling futures v0.3.30 Compiling typed-builder v0.18.2 Compiling getrandom v0.2.15 Compiling serde v1.0.203 Compiling attribute-derive v0.9.1 Compiling serde_json v1.0.117 Compiling serde_spanned v0.6.6 Compiling toml_datetime v0.6.6 Compiling oco_ref v0.1.1 Compiling ciborium v0.2.2 Compiling toml_edit v0.22.14 Compiling slotmap v1.0.7 Compiling serde_qs v0.12.0 Compiling serde-wasm-bindgen v0.6.5 Compiling leptos_hot_reload v0.6.12 Compiling serde_test v1.0.176 Compiling serde_qs v0.13.0 Compiling serde_urlencoded v0.7.1 Compiling linear-map v1.2.0 Compiling toml v0.8.14 Compiling leptos_macro v0.6.12 Compiling config v0.14.0 Compiling leptos_config v0.6.12 Compiling gloo-utils v0.2.0 Compiling leptos_reactive v0.6.12 Compiling reqwest-wasm v0.11.16 Compiling console_log v1.0.0 Compiling gloo-net v0.5.0 Compiling wasm-streams v0.4.0 Compiling rexie v0.5.0 Compiling server_fn v0.6.12 Compiling leptos_server v0.6.12 Compiling leptos_dom v0.6.12 Compiling leptos v0.6.12 Compiling leptos_router v0.6.12 Compiling leptos_meta v0.6.12 Compiling spiral_temp_extension v0.0.1 (C:\home\git\polyglot\apps\spiral\temp\extension) Finished `dev` profile [unoptimized + debuginfo] target(s) in 1m 36s [INFO]: ⬇️ Installing wasm-bindgen... [INFO]: Optional field missing from Cargo.toml: 'description'. This is not necessary, but recommended [INFO]: origin crate has no LICENSE [INFO]: ✨ Done in 1m 37s [INFO]: 📦 Your wasm pkg is ready to publish at C:\home\git\polyglot\apps\spiral\temp\extension\pkg. ▲ [WARNING] "import.meta" is not available with the "iife" output format and will be empty [empty-import-meta] pkg/spiral_temp_extension.js:1493:57: 1493 │ ...put = new URL('spiral_temp_extension_bg.wasm', import.meta.url); ╵ ~~~~~~~~~~~ You need to set the output format to "esm" for "import.meta" to work correctly. 1 warning dist\spiral_temp_extension_bg-TG63P7QC.wasm 4.5mb ⚠️ dist\devtools.js 29.0kb dist\content_script.js 27.1kb dist\service_worker.js 2.2kb ⚡ Done in 134ms $ playwright test [WebServer] (node:5424) [DEP0040] DeprecationWarning: The `punycode` module is deprecated. Please use a userland alternative instead. (Use `node --trace-deprecation ...` to show where the warning was created) Running 3 tests using 3 workers [1/3] [Desktop Chrome] › extension.spec.ts:3:5 › popup localhost [2/3] [Desktop Chrome] › extension.spec.ts:13:5 › libgen [3/3] [Desktop Chrome] › extension.spec.ts:8:5 › popup extension 3 passed (18.9s) To open last HTML report run: npx playwright show-report
In [ ]:
{ pwsh ../apps/spiral/temp/test/build.ps1 } | Invoke-Block
00:00:00 debug #1 async.run_with_timeout_async / timeout: 500
00:00:00 debug #1 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64",
[||], Some <fun:main@511-7>, None, true, Some "C:\home\git\polyglot")
00:00:01 verbose #2 > 00:00:00 debug #1 pwd: C:\home\git\polyglot
00:00:01 verbose #3 > 00:00:00 debug #2 dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:01 verbose #4 > 00:00:00 debug #3 targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 debug #2 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #3 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: True
00:00:01 debug #4 async.run_with_timeout_async / timeout: 100
00:00:01 verbose #5 > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 debug #5 async.run_with_timeout_async / timeout: 100
00:00:02 verbose #1 Supervisor.sendJson / port: 13805 / json: {"Ping":true} / result:
00:00:02 verbose #2 awaitCompiler / Ping / result: 'Some(null)' / port: 13805 / retry: 0
00:00:02 verbose #6 > Server bound to: http://localhost:13805
00:00:02 debug #7 runtime.execute_with_options_async / options: struct (Some System.Threading.CancellationToken,
"../../../../workspace/target/release/spiral_builder.exe dib --path build.dib",
[||], None, None, true, None)
00:00:02 verbose #8 > 00:00:00 debug #1 spiral_builder.main / args: MutCell(["dib", "--path", "build.dib"])
00:00:02 verbose #9 > 00:00:00 debug #2 runtime.execute_with_options / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", "c:/home/git/polyglot/apps/spiral/temp/test/build.dib", "--output-path", "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb"] / options: (None, "dotnet repl --exit-after-run --run "c:/home/git/polyglot/apps/spiral/temp/test/build.dib" --output-path "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb"", Array(MutCell([("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, None)
00:00:04 verbose #10 > >
00:00:04 verbose #11 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #12 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #13 > > │ # test │
00:00:04 verbose #14 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #15 > >
00:00:04 verbose #16 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #17 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #18 > > │ ## include scripts │
00:00:04 verbose #19 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #20 > >
00:00:04 verbose #21 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 verbose #22 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 verbose #23 > > │ ### include notebook core │
00:00:04 verbose #24 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 verbose #25 > >
00:00:04 verbose #26 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:04 verbose #27 > > . ../../../../scripts/nbs_header.ps1
00:00:05 verbose #28 > >
00:00:05 verbose #29 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #30 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #31 > > │ ### Include core functions script │
00:00:05 verbose #32 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #33 > >
00:00:05 verbose #34 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:05 verbose #35 > > . ../../../../scripts/core.ps1
00:00:05 verbose #36 > >
00:00:05 verbose #37 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #38 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #39 > > │ ### Include spiral library │
00:00:05 verbose #40 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #41 > >
00:00:05 verbose #42 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:05 verbose #43 > > . ../../../../lib/spiral/lib.ps1
00:00:05 verbose #44 > >
00:00:05 verbose #45 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #46 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #47 > > │ ## execute project commands │
00:00:05 verbose #48 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #49 > >
00:00:05 verbose #50 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 verbose #51 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 verbose #52 > > │ ### run notebook with retries using spiral supervisor │
00:00:05 verbose #53 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 verbose #54 > >
00:00:05 verbose #55 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:05 verbose #56 > > { . ../../../../apps/spiral/dist/Supervisor$(_exe) --execute-command
00:00:05 verbose #57 > > "../../../../workspace/target/release/spiral_builder$(_exe) dib --path test.dib
00:00:05 verbose #58 > > --retries 3" } | Invoke-Block
00:00:14 verbose #59 > 00:00:13 debug #4 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/6217bfaa5e129cd29143e332357dfeda67aa2c3f822d6060b0e731cc5b67be13/main.spi
00:00:21 verbose #60 > 00:00:20 debug #5 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/0a1dc94057bb10ee9f766deb01476ed9f39acf0847dbade7814e6b38790a33a8/main.spi
00:00:22 verbose #61 > 00:00:21 debug #6 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/target/spiral_Eval/packages/2059e15cbbda73d91dbb6306b4819cffddf84e231636e09eb656f9879b89f508/main.spi
00:00:22 verbose #62 > <test>
00:00:22 verbose #63 > </test>
00:00:28 verbose #64 > >
00:00:28 verbose #65 > > ╭─[ 23.24s - stdout ]──────────────────────────────────────────────────────────╮
00:00:28 verbose #66 > > │ 00:00:00 debug #1 async.run_with_timeout_async / timeout: 500 │
00:00:28 verbose #67 > > │ 00:00:01 debug #1 runtime.execute_with_options_async / options: struct │
00:00:28 verbose #68 > > │ (Some System.Threading.CancellationToken, │
00:00:28 verbose #69 > > │ "../../../../workspace/target/release/spiral_builder.exe dib --path │
00:00:28 verbose #70 > > │ test.dib --retries 3", │
00:00:28 verbose #71 > > │ [||], None, None, true, None) │
00:00:28 verbose #72 > > │ 00:00:01 verbose #2 > 00:00:00 debug #1 spiral_builder.main / args: │
00:00:28 verbose #73 > > │ MutCell(["dib", "--path", "test.dib", "--retries", "3"]) │
00:00:28 verbose #74 > > │ 00:00:01 verbose #3 > 00:00:00 debug #2 runtime.execute_with_options │
00:00:28 verbose #75 > > │ / file_name: dotnet / arguments: ["repl", "--exit-after-run", "--run", │
00:00:28 verbose #76 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib", "--output-path", │
00:00:28 verbose #77 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb"] / options: │
00:00:28 verbose #78 > > │ (None, "dotnet repl --exit-after-run --run │
00:00:28 verbose #79 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib" --output-path │
00:00:28 verbose #80 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb"", Array(MutCell( │
00:00:28 verbose #81 > > │ [("TRACE_LEVEL", "Verbose"), ("AUTOMATION", "True")])), None, None, false, │
00:00:28 verbose #82 > > │ None) │
00:00:28 verbose #83 > > │ 00:00:03 verbose #4 > > │
00:00:28 verbose #84 > > │ 00:00:03 verbose #5 > > ── markdown │
00:00:28 verbose #85 > > │ ──────────────────────────────────────────────────────────────────── │
00:00:28 verbose #86 > > │ 00:00:03 verbose #6 > > │
00:00:28 verbose #87 > > │ ╭─────────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #88 > > │ ───╮ │
00:00:28 verbose #89 > > │ 00:00:03 verbose #7 > > │ # test (Polyglot) │
00:00:28 verbose #90 > > │ │ │
00:00:28 verbose #91 > > │ 00:00:03 verbose #8 > > │
00:00:28 verbose #92 > > │ ╰─────────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #93 > > │ ───╯ │
00:00:28 verbose #94 > > │ 00:00:03 verbose #9 > > │
00:00:28 verbose #95 > > │ 00:00:03 verbose #10 > > ── spiral │
00:00:28 verbose #96 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #97 > > │ 00:00:03 verbose #11 > > //// test │
00:00:28 verbose #98 > > │ 00:00:03 verbose #12 > > │
00:00:28 verbose #99 > > │ 00:00:03 verbose #13 > > open testing │
00:00:28 verbose #100 > > │ 00:00:03 verbose #14 > > │
00:00:28 verbose #101 > > │ 00:00:03 verbose #15 > > ── spiral - import │
00:00:28 verbose #102 > > │ ───────────────────────────────────────────────────────────── │
00:00:28 verbose #103 > > │ 00:00:03 verbose #16 > > #r │
00:00:28 verbose #104 > > │ 00:00:03 verbose #17 > > │
00:00:28 verbose #105 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #106 > > │ ft.D │
00:00:28 verbose #107 > > │ 00:00:03 verbose #18 > > otNet.Interactive.Spiral.dll" │
00:00:28 verbose #108 > > │ 00:00:03 verbose #19 > > open │
00:00:28 verbose #109 > > │ Microsoft.DotNet.Interactive.Spiral.SpiralKernelHelpers │
00:00:28 verbose #110 > > │ 00:00:03 verbose #20 > > #r │
00:00:28 verbose #111 > > │ 00:00:03 verbose #21 > > │
00:00:28 verbose #112 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #113 > > │ ft.D │
00:00:28 verbose #114 > > │ 00:00:03 verbose #22 > > otNet.Interactive.dll" │
00:00:28 verbose #115 > > │ 00:00:03 verbose #23 > > open type Microsoft.DotNet.Interactive.Kernel │
00:00:28 verbose #116 > > │ 00:00:08 verbose #24 > > │
00:00:28 verbose #117 > > │ 00:00:08 verbose #25 > > ── spiral │
00:00:28 verbose #118 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #119 > > │ 00:00:08 verbose #26 > > nominal i = () │
00:00:28 verbose #120 > > │ 00:00:08 verbose #27 > > nominal e = () │
00:00:28 verbose #121 > > │ 00:00:08 verbose #28 > > nominal s = () │
00:00:28 verbose #122 > > │ 00:00:08 verbose #29 > > nominal n = () │
00:00:28 verbose #123 > > │ 00:00:08 verbose #30 > > nominal t = () │
00:00:28 verbose #124 > > │ 00:00:08 verbose #31 > > nominal f = () │
00:00:28 verbose #125 > > │ 00:00:08 verbose #32 > > nominal j = () │
00:00:28 verbose #126 > > │ 00:00:08 verbose #33 > > nominal p = () │
00:00:28 verbose #127 > > │ 00:00:08 verbose #34 > > │
00:00:28 verbose #128 > > │ 00:00:08 verbose #35 > > union sensing = │
00:00:28 verbose #129 > > │ 00:00:08 verbose #36 > > | Si : s * i │
00:00:28 verbose #130 > > │ 00:00:08 verbose #37 > > | Se : s * e │
00:00:28 verbose #131 > > │ 00:00:08 verbose #38 > > │
00:00:28 verbose #132 > > │ 00:00:08 verbose #39 > > union intuition = │
00:00:28 verbose #133 > > │ 00:00:08 verbose #40 > > | Ni : n * i │
00:00:28 verbose #134 > > │ 00:00:08 verbose #41 > > | Ne : n * e │
00:00:28 verbose #135 > > │ 00:00:08 verbose #42 > > │
00:00:28 verbose #136 > > │ 00:00:08 verbose #43 > > union thinking = │
00:00:28 verbose #137 > > │ 00:00:08 verbose #44 > > | Ti : t * i │
00:00:28 verbose #138 > > │ 00:00:08 verbose #45 > > | Te : t * e │
00:00:28 verbose #139 > > │ 00:00:08 verbose #46 > > │
00:00:28 verbose #140 > > │ 00:00:08 verbose #47 > > union feeling = │
00:00:28 verbose #141 > > │ 00:00:08 verbose #48 > > | Fi : f * i │
00:00:28 verbose #142 > > │ 00:00:08 verbose #49 > > | Fe : f * e │
00:00:28 verbose #143 > > │ 00:00:08 verbose #50 > > │
00:00:28 verbose #144 > > │ 00:00:08 verbose #51 > > union function_stack = │
00:00:28 verbose #145 > > │ 00:00:08 verbose #52 > > | FS : sensing * intuition * thinking * feeling │
00:00:28 verbose #146 > > │ 00:00:08 verbose #53 > > │
00:00:28 verbose #147 > > │ 00:00:08 verbose #54 > > union personality_type = │
00:00:28 verbose #148 > > │ 00:00:08 verbose #55 > > | ISTJ : i * s * t * j * function_stack │
00:00:28 verbose #149 > > │ 00:00:08 verbose #56 > > | ISFJ : i * s * f * j * function_stack │
00:00:28 verbose #150 > > │ 00:00:08 verbose #57 > > | INFJ : i * n * f * j * function_stack │
00:00:28 verbose #151 > > │ 00:00:08 verbose #58 > > | INTJ : i * n * t * j * function_stack │
00:00:28 verbose #152 > > │ 00:00:08 verbose #59 > > | ISTP : i * s * t * p * function_stack │
00:00:28 verbose #153 > > │ 00:00:08 verbose #60 > > | ISFP : i * s * f * p * function_stack │
00:00:28 verbose #154 > > │ 00:00:08 verbose #61 > > | INFP : i * n * f * p * function_stack │
00:00:28 verbose #155 > > │ 00:00:08 verbose #62 > > | INTP : i * n * t * p * function_stack │
00:00:28 verbose #156 > > │ 00:00:08 verbose #63 > > | ESTP : e * s * t * p * function_stack │
00:00:28 verbose #157 > > │ 00:00:08 verbose #64 > > | ESFP : e * s * f * p * function_stack │
00:00:28 verbose #158 > > │ 00:00:08 verbose #65 > > | ENFP : e * n * f * p * function_stack │
00:00:28 verbose #159 > > │ 00:00:08 verbose #66 > > | ENTP : e * n * t * p * function_stack │
00:00:28 verbose #160 > > │ 00:00:08 verbose #67 > > | ESTJ : e * s * t * j * function_stack │
00:00:28 verbose #161 > > │ 00:00:08 verbose #68 > > | ESFJ : e * s * f * j * function_stack │
00:00:28 verbose #162 > > │ 00:00:08 verbose #69 > > | ENFJ : e * n * f * j * function_stack │
00:00:28 verbose #163 > > │ 00:00:08 verbose #70 > > | ENTJ : e * n * t * j * function_stack │
00:00:28 verbose #164 > > │ 00:00:08 verbose #71 > > │
00:00:28 verbose #165 > > │ 00:00:08 verbose #72 > > │
00:00:28 verbose #166 > > │ 00:00:08 verbose #73 > > inl main () = │
00:00:28 verbose #167 > > │ 00:00:08 verbose #74 > > inl istj_stack = FS ((Si (s, i)), Ne (n, e), │
00:00:28 verbose #168 > > │ (Te (t, e)), (Fi (f, i))) │
00:00:28 verbose #169 > > │ 00:00:08 verbose #75 > > inl istj_personality = ISTJ (i, s, t, j, │
00:00:28 verbose #170 > > │ istj_stack) │
00:00:28 verbose #171 > > │ 00:00:08 verbose #76 > > // inl isfj_stack = FS ((Si (s, i)), Ne (n, e), │
00:00:28 verbose #172 > > │ (Fe (f, e)), (Ti (t, i))) │
00:00:28 verbose #173 > > │ 00:00:08 verbose #77 > > // inl isfj_personality = ISFJ (i, s, f, j, │
00:00:28 verbose #174 > > │ isfj_stack) │
00:00:28 verbose #175 > > │ 00:00:08 verbose #78 > > │
00:00:28 verbose #176 > > │ 00:00:08 verbose #79 > > ;[[ │
00:00:28 verbose #177 > > │ 00:00:08 verbose #80 > > istj_personality │
00:00:28 verbose #178 > > │ 00:00:08 verbose #81 > > ]] │
00:00:28 verbose #179 > > │ 00:00:08 verbose #82 > > |> fun x => $'$"%A{!x}"' : string │
00:00:28 verbose #180 > > │ 00:00:08 verbose #83 > > |> console.write_line │
00:00:28 verbose #181 > > │ 00:00:08 verbose #84 > > │
00:00:28 verbose #182 > > │ 00:00:08 verbose #85 > > inl main () = │
00:00:28 verbose #183 > > │ 00:00:08 verbose #86 > > $'!main ()' : () │
00:00:28 verbose #184 > > │ 00:00:13 verbose #87 > > │
00:00:28 verbose #185 > > │ 00:00:13 verbose #88 > > ╭─[ 5.38s - stdout │
00:00:28 verbose #186 > > │ ]───────────────────────────────────────────────────────────╮ │
00:00:28 verbose #187 > > │ 00:00:13 verbose #89 > > │ [|US5_0 (US4_0 (US0_0, US1_1, US2_1, US3_0))|] │
00:00:28 verbose #188 > > │ │ │
00:00:28 verbose #189 > > │ 00:00:13 verbose #90 > > │ │
00:00:28 verbose #190 > > │ │
00:00:28 verbose #191 > > │ │ │
00:00:28 verbose #192 > > │ 00:00:13 verbose #91 > > │
00:00:28 verbose #193 > > │ ╰─────────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #194 > > │ ───╯ │
00:00:28 verbose #195 > > │ 00:00:13 verbose #92 > > │
00:00:28 verbose #196 > > │ 00:00:13 verbose #93 > > ── fsharp │
00:00:28 verbose #197 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #198 > > │ 00:00:13 verbose #94 > > type PhonologicalFeature = │
00:00:28 verbose #199 > > │ 00:00:13 verbose #95 > > | VowelFeature of │
00:00:28 verbose #200 > > │ 00:00:13 verbose #96 > > height: Height │
00:00:28 verbose #201 > > │ 00:00:13 verbose #97 > > * backness: Backness │
00:00:28 verbose #202 > > │ 00:00:13 verbose #98 > > * roundedness: Roundedness │
00:00:28 verbose #203 > > │ 00:00:13 verbose #99 > > * tone: Option<Tone> │
00:00:28 verbose #204 > > │ 00:00:13 verbose #100 > > * stress: Option<Stress> │
00:00:28 verbose #205 > > │ 00:00:13 verbose #101 > > * length: Option<Length> │
00:00:28 verbose #206 > > │ 00:00:13 verbose #102 > > | ConsonantFeature of │
00:00:28 verbose #207 > > │ 00:00:13 verbose #103 > > place: PlaceOfArticulation │
00:00:28 verbose #208 > > │ 00:00:13 verbose #104 > > * manner: MannerOfArticulation │
00:00:28 verbose #209 > > │ 00:00:13 verbose #105 > > * voicing: Voicing │
00:00:28 verbose #210 > > │ 00:00:13 verbose #106 > > * length: Option<Length> │
00:00:28 verbose #211 > > │ 00:00:13 verbose #107 > > | VowelHarmonyFeature │
00:00:28 verbose #212 > > │ 00:00:13 verbose #108 > > | PitchAccentFeature │
00:00:28 verbose #213 > > │ 00:00:13 verbose #109 > > │
00:00:28 verbose #214 > > │ 00:00:13 verbose #110 > > and Stress = Primary | Secondary │
00:00:28 verbose #215 > > │ 00:00:13 verbose #111 > > and Length = Long | Short | HalfLong │
00:00:28 verbose #216 > > │ 00:00:13 verbose #112 > > │
00:00:28 verbose #217 > > │ 00:00:13 verbose #113 > > and Height = │
00:00:28 verbose #218 > > │ 00:00:13 verbose #114 > > | High | NearHigh | HighMid │
00:00:28 verbose #219 > > │ 00:00:13 verbose #115 > > | Mid | LowMid | NearLow │
00:00:28 verbose #220 > > │ 00:00:13 verbose #116 > > | Low │
00:00:28 verbose #221 > > │ 00:00:13 verbose #117 > > │
00:00:28 verbose #222 > > │ 00:00:13 verbose #118 > > and Backness = Front | Central | Back │
00:00:28 verbose #223 > > │ 00:00:13 verbose #119 > > │
00:00:28 verbose #224 > > │ 00:00:13 verbose #120 > > and Roundedness = Rounded | Unrounded │
00:00:28 verbose #225 > > │ 00:00:13 verbose #121 > > │
00:00:28 verbose #226 > > │ 00:00:13 verbose #122 > > and PlaceOfArticulation = │
00:00:28 verbose #227 > > │ 00:00:13 verbose #123 > > | Bilabial | Labiodental | Dental │
00:00:28 verbose #228 > > │ 00:00:13 verbose #124 > > | Alveolar | Postalveolar | Retroflex │
00:00:28 verbose #229 > > │ 00:00:13 verbose #125 > > | Palatal | Velar | Uvular │
00:00:28 verbose #230 > > │ 00:00:13 verbose #126 > > | Pharyngeal | Epiglottal | Glottal │
00:00:28 verbose #231 > > │ 00:00:13 verbose #127 > > │
00:00:28 verbose #232 > > │ 00:00:13 verbose #128 > > and MannerOfArticulation = │
00:00:28 verbose #233 > > │ 00:00:13 verbose #129 > > | Plosive | Nasal | Trill │
00:00:28 verbose #234 > > │ 00:00:13 verbose #130 > > | TapOrFlap | Fricative | LateralFricative │
00:00:28 verbose #235 > > │ 00:00:13 verbose #131 > > | Approximant | LateralApproximant │
00:00:28 verbose #236 > > │ 00:00:13 verbose #132 > > │
00:00:28 verbose #237 > > │ 00:00:13 verbose #133 > > and Voicing = Voiced | Voiceless │
00:00:28 verbose #238 > > │ 00:00:13 verbose #134 > > │
00:00:28 verbose #239 > > │ 00:00:13 verbose #135 > > and SecondaryArticulation = │
00:00:28 verbose #240 > > │ 00:00:13 verbose #136 > > | Labialization | Palatalization | │
00:00:28 verbose #241 > > │ Velarization │
00:00:28 verbose #242 > > │ 00:00:13 verbose #137 > > | Pharyngealization | Aspiration │
00:00:28 verbose #243 > > │ 00:00:13 verbose #138 > > │
00:00:28 verbose #244 > > │ 00:00:13 verbose #139 > > and Tone = │
00:00:28 verbose #245 > > │ 00:00:13 verbose #140 > > | LevelTone of int │
00:00:28 verbose #246 > > │ 00:00:13 verbose #141 > > | ContourTone of int list │
00:00:28 verbose #247 > > │ 00:00:13 verbose #142 > > │
00:00:28 verbose #248 > > │ 00:00:13 verbose #143 > > and MorphologicalFeature = │
00:00:28 verbose #249 > > │ 00:00:13 verbose #144 > > | RootFeature of string │
00:00:28 verbose #250 > > │ 00:00:13 verbose #145 > > | AffixFeature of AffixType * string │
00:00:28 verbose #251 > > │ 00:00:13 verbose #146 > > | IncorporationFeature of string * │
00:00:28 verbose #252 > > │ MorphologicalFeature │
00:00:28 verbose #253 > > │ 00:00:13 verbose #147 > > | NonConcatenativePattern of string * string │
00:00:28 verbose #254 > > │ 00:00:13 verbose #148 > > | AgglutinativeAffixFeature of │
00:00:28 verbose #255 > > │ AgglutinativeAffixType * string │
00:00:28 verbose #256 > > │ 00:00:13 verbose #149 > > | HonorificFeature of HonorificType * string │
00:00:28 verbose #257 > > │ 00:00:13 verbose #150 > > │
00:00:28 verbose #258 > > │ 00:00:13 verbose #151 > > and AgglutinativeAffixType = Suffix | Prefix │
00:00:28 verbose #259 > > │ 00:00:13 verbose #152 > > │
00:00:28 verbose #260 > > │ 00:00:13 verbose #153 > > and HonorificType = VerbHonorific | NounHonorific │
00:00:28 verbose #261 > > │ 00:00:13 verbose #154 > > │
00:00:28 verbose #262 > > │ 00:00:13 verbose #155 > > and AffixType = │
00:00:28 verbose #263 > > │ 00:00:13 verbose #156 > > | Prefix | Suffix | Infix │
00:00:28 verbose #264 > > │ 00:00:13 verbose #157 > > | Circumfix │
00:00:28 verbose #265 > > │ 00:00:13 verbose #158 > > │
00:00:28 verbose #266 > > │ 00:00:13 verbose #159 > > type SyntacticFeature = │
00:00:28 verbose #267 > > │ 00:00:13 verbose #160 > > | WordFeature of MorphologicalFeature list * │
00:00:28 verbose #268 > > │ LexicalCategory │
00:00:28 verbose #269 > > │ 00:00:13 verbose #161 > > | PhraseFeature of PhraseType * │
00:00:28 verbose #270 > > │ SyntacticFeature list │
00:00:28 verbose #271 > > │ 00:00:13 verbose #162 > > | GrammaticalRelation of │
00:00:28 verbose #272 > > │ GrammaticalRelationType * SyntacticFeature list │
00:00:28 verbose #273 > > │ 00:00:13 verbose #163 > > | SOVOrderFeature │
00:00:28 verbose #274 > > │ 00:00:13 verbose #164 > > | TopicCommentFeature │
00:00:28 verbose #275 > > │ 00:00:13 verbose #165 > > │
00:00:28 verbose #276 > > │ 00:00:13 verbose #166 > > and GrammaticalRelationType = │
00:00:28 verbose #277 > > │ 00:00:13 verbose #167 > > | Ergative | Absolutive | Nominative │
00:00:28 verbose #278 > > │ 00:00:13 verbose #168 > > | Accusative │
00:00:28 verbose #279 > > │ 00:00:13 verbose #169 > > │
00:00:28 verbose #280 > > │ 00:00:13 verbose #170 > > and LexicalCategory = │
00:00:28 verbose #281 > > │ 00:00:13 verbose #171 > > | Noun | Verb | Adjective │
00:00:28 verbose #282 > > │ 00:00:13 verbose #172 > > | Adverb | Pronoun | Preposition │
00:00:28 verbose #283 > > │ 00:00:13 verbose #173 > > | Conjunction | Determiner | Interjection │
00:00:28 verbose #284 > > │ 00:00:13 verbose #174 > > │
00:00:28 verbose #285 > > │ 00:00:13 verbose #175 > > and PhraseType = │
00:00:28 verbose #286 > > │ 00:00:13 verbose #176 > > | NP | VP | AP │
00:00:28 verbose #287 > > │ 00:00:13 verbose #177 > > | PP | CP │
00:00:28 verbose #288 > > │ 00:00:13 verbose #178 > > │
00:00:28 verbose #289 > > │ 00:00:13 verbose #179 > > and SemanticFeature = │
00:00:28 verbose #290 > > │ 00:00:13 verbose #180 > > | Meaning of string │
00:00:28 verbose #291 > > │ 00:00:13 verbose #181 > > | SemanticRole of SemanticRoleType * │
00:00:28 verbose #292 > > │ SemanticFeature │
00:00:28 verbose #293 > > │ 00:00:13 verbose #182 > > │
00:00:28 verbose #294 > > │ 00:00:13 verbose #183 > > and SemanticRoleType = │
00:00:28 verbose #295 > > │ 00:00:13 verbose #184 > > | Agent | Patient | Instrument │
00:00:28 verbose #296 > > │ 00:00:13 verbose #185 > > | Location | Time | Cause │
00:00:28 verbose #297 > > │ 00:00:13 verbose #186 > > │
00:00:28 verbose #298 > > │ 00:00:13 verbose #187 > > and PragmaticFeature = │
00:00:28 verbose #299 > > │ 00:00:13 verbose #188 > > | UseContext of string │
00:00:28 verbose #300 > > │ 00:00:13 verbose #189 > > | PolitenessLevel of Politeness │
00:00:28 verbose #301 > > │ 00:00:13 verbose #190 > > | SpeechAct of SpeechActType │
00:00:28 verbose #302 > > │ 00:00:13 verbose #191 > > | SpeechLevel of SpeechLevelType │
00:00:28 verbose #303 > > │ 00:00:13 verbose #192 > > │
00:00:28 verbose #304 > > │ 00:00:13 verbose #193 > > and Politeness = Formal | Informal | Neutral │
00:00:28 verbose #305 > > │ 00:00:13 verbose #194 > > │
00:00:28 verbose #306 > > │ 00:00:13 verbose #195 > > and SpeechActType = │
00:00:28 verbose #307 > > │ 00:00:13 verbose #196 > > | Assertive | Directive | Commissive │
00:00:28 verbose #308 > > │ 00:00:13 verbose #197 > > | Expressive | Declarative │
00:00:28 verbose #309 > > │ 00:00:13 verbose #198 > > │
00:00:28 verbose #310 > > │ 00:00:13 verbose #199 > > and SpeechLevelType = │
00:00:28 verbose #311 > > │ 00:00:13 verbose #200 > > | FormalHigh | FormalLow | InformalHigh │
00:00:28 verbose #312 > > │ 00:00:13 verbose #201 > > | InformalLow | Neutral │
00:00:28 verbose #313 > > │ 00:00:13 verbose #202 > > │
00:00:28 verbose #314 > > │ 00:00:13 verbose #203 > > type LinguisticFeature = │
00:00:28 verbose #315 > > │ 00:00:13 verbose #204 > > | Phonological of PhonologicalFeature │
00:00:28 verbose #316 > > │ 00:00:13 verbose #205 > > | Morphological of MorphologicalFeature │
00:00:28 verbose #317 > > │ 00:00:13 verbose #206 > > | Syntactic of SyntacticFeature │
00:00:28 verbose #318 > > │ 00:00:13 verbose #207 > > | Semantic of SemanticFeature │
00:00:28 verbose #319 > > │ 00:00:13 verbose #208 > > | Pragmatic of PragmaticFeature │
00:00:28 verbose #320 > > │ 00:00:13 verbose #209 > > │
00:00:28 verbose #321 > > │ 00:00:13 verbose #210 > > type LanguageConstruct = │
00:00:28 verbose #322 > > │ 00:00:13 verbose #211 > > | LanguageElement of LinguisticFeature │
00:00:28 verbose #323 > > │ 00:00:13 verbose #212 > > | LanguageStructure of LanguageConstruct list │
00:00:28 verbose #324 > > │ 00:00:13 verbose #213 > > | TranslationElement of TranslationFeature │
00:00:28 verbose #325 > > │ 00:00:13 verbose #214 > > │
00:00:28 verbose #326 > > │ 00:00:13 verbose #215 > > and TranslationFeature = │
00:00:28 verbose #327 > > │ 00:00:13 verbose #216 > > | LinkedPhonological of PhonologicalFeature * │
00:00:28 verbose #328 > > │ PhonologicalFeature │
00:00:28 verbose #329 > > │ 00:00:13 verbose #217 > > | LinkedMorphological of MorphologicalFeature │
00:00:28 verbose #330 > > │ * MorphologicalFeature │
00:00:28 verbose #331 > > │ 00:00:13 verbose #218 > > | LinkedSyntactic of SyntacticFeature * │
00:00:28 verbose #332 > > │ SyntacticFeature │
00:00:28 verbose #333 > > │ 00:00:13 verbose #219 > > | LinkedSemantic of SemanticFeature * │
00:00:28 verbose #334 > > │ SemanticFeature │
00:00:28 verbose #335 > > │ 00:00:13 verbose #220 > > │
00:00:28 verbose #336 > > │ 00:00:13 verbose #221 > > type Discourse = DiscourseUnit of │
00:00:28 verbose #337 > > │ LanguageConstruct list │
00:00:28 verbose #338 > > │ 00:00:13 verbose #222 > > │
00:00:28 verbose #339 > > │ 00:00:13 verbose #223 > > type LanguageModel = │
00:00:28 verbose #340 > > │ 00:00:13 verbose #224 > > | Model of discourse: Discourse │
00:00:28 verbose #341 > > │ 00:00:13 verbose #225 > > │
00:00:28 verbose #342 > > │ 00:00:13 verbose #226 > > ── fsharp - import │
00:00:28 verbose #343 > > │ ───────────────────────────────────────────────────────────── │
00:00:28 verbose #344 > > │ 00:00:13 verbose #227 > > #r │
00:00:28 verbose #345 > > │ 00:00:13 verbose #228 > > │
00:00:28 verbose #346 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #347 > > │ ft.A │
00:00:28 verbose #348 > > │ 00:00:13 verbose #229 > > spNetCore.Html.Abstractions.dll" │
00:00:28 verbose #349 > > │ 00:00:13 verbose #230 > > #r │
00:00:28 verbose #350 > > │ 00:00:13 verbose #231 > > │
00:00:28 verbose #351 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #352 > > │ ft.D │
00:00:28 verbose #353 > > │ 00:00:13 verbose #232 > > otNet.Interactive.dll" │
00:00:28 verbose #354 > > │ 00:00:13 verbose #233 > > #r │
00:00:28 verbose #355 > > │ 00:00:13 verbose #234 > > │
00:00:28 verbose #356 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #357 > > │ ft.D │
00:00:28 verbose #358 > > │ 00:00:13 verbose #235 > > otNet.Interactive.FSharp.dll" │
00:00:28 verbose #359 > > │ 00:00:13 verbose #236 > > #r │
00:00:28 verbose #360 > > │ 00:00:13 verbose #237 > > │
00:00:28 verbose #361 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #362 > > │ ft.D │
00:00:28 verbose #363 > > │ 00:00:13 verbose #238 > > otNet.Interactive.Formatting.dll" │
00:00:28 verbose #364 > > │ 00:00:13 verbose #239 > > open System │
00:00:28 verbose #365 > > │ 00:00:13 verbose #240 > > open System.IO │
00:00:28 verbose #366 > > │ 00:00:13 verbose #241 > > open System.Text │
00:00:28 verbose #367 > > │ 00:00:13 verbose #242 > > open Microsoft.DotNet.Interactive.Formatting │
00:00:28 verbose #368 > > │ 00:00:14 verbose #243 > > │
00:00:28 verbose #369 > > │ 00:00:14 verbose #244 > > ── fsharp - import │
00:00:28 verbose #370 > > │ ───────────────────────────────────────────────────────────── │
00:00:28 verbose #371 > > │ 00:00:14 verbose #245 > > #r │
00:00:28 verbose #372 > > │ 00:00:14 verbose #246 > > │
00:00:28 verbose #373 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #374 > > │ ft.D │
00:00:28 verbose #375 > > │ 00:00:14 verbose #247 > > otNet.Interactive.FSharp.dll" │
00:00:28 verbose #376 > > │ 00:00:14 verbose #248 > > open │
00:00:28 verbose #377 > > │ Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers │
00:00:28 verbose #378 > > │ 00:00:14 verbose #249 > > #r │
00:00:28 verbose #379 > > │ 00:00:14 verbose #250 > > │
00:00:28 verbose #380 > > │ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
00:00:28 verbose #381 > > │ ft.D │
00:00:28 verbose #382 > > │ 00:00:14 verbose #251 > > otNet.Interactive.dll" │
00:00:28 verbose #383 > > │ 00:00:14 verbose #252 > > open type Microsoft.DotNet.Interactive.Kernel │
00:00:28 verbose #384 > > │ 00:00:14 verbose #253 > > │
00:00:28 verbose #385 > > │ 00:00:14 verbose #254 > > ── fsharp - import │
00:00:28 verbose #386 > > │ ───────────────────────────────────────────────────────────── │
00:00:28 verbose #387 > > │ 00:00:14 verbose #255 > > Formatter.Register(fun(x: obj)(writer: │
00:00:28 verbose #388 > > │ TextWriter)->fprintfn writer "%120A" x) │
00:00:28 verbose #389 > > │ 00:00:14 verbose #256 > > │
00:00:28 verbose #390 > > │ 00:00:14 verbose #257 > > ── fsharp - import │
00:00:28 verbose #391 > > │ ───────────────────────────────────────────────────────────── │
00:00:28 verbose #392 > > │ 00:00:14 verbose #258 > > Formatter.Register(fun(x: │
00:00:28 verbose #393 > > │ System.Collections.IEnumerable)(writer: │
00:00:28 verbose #394 > > │ 00:00:14 verbose #259 > > TextWriter)->fprintfn writer "%120A" x) │
00:00:28 verbose #395 > > │ 00:00:14 verbose #260 > > │
00:00:28 verbose #396 > > │ 00:00:14 verbose #261 > > ── fsharp - import │
00:00:28 verbose #397 > > │ ───────────────────────────────────────────────────────────── │
00:00:28 verbose #398 > > │ 00:00:14 verbose #262 > > type PhonologicalFeature = │
00:00:28 verbose #399 > > │ 00:00:14 verbose #263 > > | VowelFeature of │
00:00:28 verbose #400 > > │ 00:00:14 verbose #264 > > height: Height │
00:00:28 verbose #401 > > │ 00:00:14 verbose #265 > > * backness: Backness │
00:00:28 verbose #402 > > │ 00:00:14 verbose #266 > > * roundedness: Roundedness │
00:00:28 verbose #403 > > │ 00:00:14 verbose #267 > > * tone: Option<Tone> │
00:00:28 verbose #404 > > │ 00:00:14 verbose #268 > > * stress: Option<Stress> │
00:00:28 verbose #405 > > │ 00:00:14 verbose #269 > > * length: Option<Length> │
00:00:28 verbose #406 > > │ 00:00:14 verbose #270 > > | ConsonantFeature of │
00:00:28 verbose #407 > > │ 00:00:14 verbose #271 > > place: PlaceOfArticulation │
00:00:28 verbose #408 > > │ 00:00:14 verbose #272 > > * manner: MannerOfArticulation │
00:00:28 verbose #409 > > │ 00:00:14 verbose #273 > > * voicing: Voicing │
00:00:28 verbose #410 > > │ 00:00:14 verbose #274 > > * length: Option<Length> │
00:00:28 verbose #411 > > │ 00:00:14 verbose #275 > > | VowelHarmonyFeature │
00:00:28 verbose #412 > > │ 00:00:14 verbose #276 > > | PitchAccentFeature │
00:00:28 verbose #413 > > │ 00:00:14 verbose #277 > > │
00:00:28 verbose #414 > > │ 00:00:14 verbose #278 > > and Stress = Primary | Secondary │
00:00:28 verbose #415 > > │ 00:00:14 verbose #279 > > and Length = Long | Short | HalfLong │
00:00:28 verbose #416 > > │ 00:00:14 verbose #280 > > │
00:00:28 verbose #417 > > │ 00:00:14 verbose #281 > > and Height = │
00:00:28 verbose #418 > > │ 00:00:14 verbose #282 > > | High | NearHigh | HighMid │
00:00:28 verbose #419 > > │ 00:00:14 verbose #283 > > | Mid | LowMid | NearLow │
00:00:28 verbose #420 > > │ 00:00:14 verbose #284 > > | Low │
00:00:28 verbose #421 > > │ 00:00:14 verbose #285 > > │
00:00:28 verbose #422 > > │ 00:00:14 verbose #286 > > and Backness = Front | Central | Back │
00:00:28 verbose #423 > > │ 00:00:14 verbose #287 > > │
00:00:28 verbose #424 > > │ 00:00:14 verbose #288 > > and Roundedness = Rounded | Unrounded │
00:00:28 verbose #425 > > │ 00:00:14 verbose #289 > > │
00:00:28 verbose #426 > > │ 00:00:14 verbose #290 > > and PlaceOfArticulation = │
00:00:28 verbose #427 > > │ 00:00:14 verbose #291 > > | Bilabial | Labiodental | Dental │
00:00:28 verbose #428 > > │ 00:00:14 verbose #292 > > | Alveolar | Postalveolar | Retroflex │
00:00:28 verbose #429 > > │ 00:00:14 verbose #293 > > | Palatal | Velar | Uvular │
00:00:28 verbose #430 > > │ 00:00:14 verbose #294 > > | Pharyngeal | Epiglottal | Glottal │
00:00:28 verbose #431 > > │ 00:00:14 verbose #295 > > │
00:00:28 verbose #432 > > │ 00:00:14 verbose #296 > > and MannerOfArticulation = │
00:00:28 verbose #433 > > │ 00:00:14 verbose #297 > > | Plosive | Nasal | Trill │
00:00:28 verbose #434 > > │ 00:00:14 verbose #298 > > | TapOrFlap | Fricative | LateralFricative │
00:00:28 verbose #435 > > │ 00:00:14 verbose #299 > > | Approximant | LateralApproximant │
00:00:28 verbose #436 > > │ 00:00:14 verbose #300 > > │
00:00:28 verbose #437 > > │ 00:00:14 verbose #301 > > and Voicing = Voiced | Voiceless │
00:00:28 verbose #438 > > │ 00:00:14 verbose #302 > > │
00:00:28 verbose #439 > > │ 00:00:14 verbose #303 > > and SecondaryArticulation = │
00:00:28 verbose #440 > > │ 00:00:14 verbose #304 > > | Labialization | Palatalization | │
00:00:28 verbose #441 > > │ Velarization │
00:00:28 verbose #442 > > │ 00:00:14 verbose #305 > > | Pharyngealization | Aspiration │
00:00:28 verbose #443 > > │ 00:00:14 verbose #306 > > │
00:00:28 verbose #444 > > │ 00:00:14 verbose #307 > > and Tone = │
00:00:28 verbose #445 > > │ 00:00:14 verbose #308 > > | LevelTone of int │
00:00:28 verbose #446 > > │ 00:00:14 verbose #309 > > | ContourTone of int list │
00:00:28 verbose #447 > > │ 00:00:14 verbose #310 > > │
00:00:28 verbose #448 > > │ 00:00:14 verbose #311 > > and MorphologicalFeature = │
00:00:28 verbose #449 > > │ 00:00:14 verbose #312 > > | RootFeature of string │
00:00:28 verbose #450 > > │ 00:00:14 verbose #313 > > | AffixFeature of AffixType * string │
00:00:28 verbose #451 > > │ 00:00:14 verbose #314 > > | IncorporationFeature of string * │
00:00:28 verbose #452 > > │ MorphologicalFeature │
00:00:28 verbose #453 > > │ 00:00:14 verbose #315 > > | NonConcatenativePattern of string * string │
00:00:28 verbose #454 > > │ 00:00:14 verbose #316 > > | AgglutinativeAffixFeature of │
00:00:28 verbose #455 > > │ AgglutinativeAffixType * string │
00:00:28 verbose #456 > > │ 00:00:14 verbose #317 > > | Honor... Adverb | Pronoun | Preposition │
00:00:28 verbose #457 > > │ 00:00:14 verbose #318 > > | Conjunction | Determiner | Interjection │
00:00:28 verbose #458 > > │ 00:00:14 verbose #319 > > │
00:00:28 verbose #459 > > │ 00:00:14 verbose #320 > > and PhraseType = │
00:00:28 verbose #460 > > │ 00:00:14 verbose #321 > > | NP | VP | AP │
00:00:28 verbose #461 > > │ 00:00:14 verbose #322 > > | PP | CP │
00:00:28 verbose #462 > > │ 00:00:14 verbose #323 > > │
00:00:28 verbose #463 > > │ 00:00:14 verbose #324 > > and SemanticFeature = │
00:00:28 verbose #464 > > │ 00:00:14 verbose #325 > > | Meaning of string │
00:00:28 verbose #465 > > │ 00:00:14 verbose #326 > > | SemanticRole of SemanticRoleType * │
00:00:28 verbose #466 > > │ SemanticFeature │
00:00:28 verbose #467 > > │ 00:00:14 verbose #327 > > │
00:00:28 verbose #468 > > │ 00:00:14 verbose #328 > > and SemanticRoleType = │
00:00:28 verbose #469 > > │ 00:00:14 verbose #329 > > | Agent | Patient | Instrument │
00:00:28 verbose #470 > > │ 00:00:14 verbose #330 > > | Location | Time | Cause │
00:00:28 verbose #471 > > │ 00:00:14 verbose #331 > > │
00:00:28 verbose #472 > > │ 00:00:14 verbose #332 > > and PragmaticFeature = │
00:00:28 verbose #473 > > │ 00:00:14 verbose #333 > > | UseContext of string │
00:00:28 verbose #474 > > │ 00:00:14 verbose #334 > > | PolitenessLevel of Politeness │
00:00:28 verbose #475 > > │ 00:00:14 verbose #335 > > | SpeechAct of SpeechActType │
00:00:28 verbose #476 > > │ 00:00:14 verbose #336 > > | SpeechLevel of SpeechLevelType │
00:00:28 verbose #477 > > │ 00:00:14 verbose #337 > > │
00:00:28 verbose #478 > > │ 00:00:14 verbose #338 > > and Politeness = Formal | Informal | Neutral │
00:00:28 verbose #479 > > │ 00:00:14 verbose #339 > > │
00:00:28 verbose #480 > > │ 00:00:14 verbose #340 > > and SpeechActType = │
00:00:28 verbose #481 > > │ 00:00:14 verbose #341 > > | Assertive | Directive | Commissive │
00:00:28 verbose #482 > > │ 00:00:14 verbose #342 > > | Expressive | Declarative │
00:00:28 verbose #483 > > │ 00:00:14 verbose #343 > > │
00:00:28 verbose #484 > > │ 00:00:14 verbose #344 > > and SpeechLevelType = │
00:00:28 verbose #485 > > │ 00:00:14 verbose #345 > > | FormalHigh | FormalLow | InformalHigh │
00:00:28 verbose #486 > > │ 00:00:14 verbose #346 > > | InformalLow | Neutral │
00:00:28 verbose #487 > > │ 00:00:14 verbose #347 > > │
00:00:28 verbose #488 > > │ 00:00:14 verbose #348 > > type LinguisticFeature = │
00:00:28 verbose #489 > > │ 00:00:14 verbose #349 > > | Phonological of PhonologicalFeature │
00:00:28 verbose #490 > > │ 00:00:14 verbose #350 > > | Morphological of MorphologicalFeature │
00:00:28 verbose #491 > > │ 00:00:14 verbose #351 > > | Syntactic of SyntacticFeature │
00:00:28 verbose #492 > > │ 00:00:14 verbose #352 > > | Semantic of SemanticFeature │
00:00:28 verbose #493 > > │ 00:00:14 verbose #353 > > | Pragmatic of PragmaticFeature │
00:00:28 verbose #494 > > │ 00:00:14 verbose #354 > > │
00:00:28 verbose #495 > > │ 00:00:14 verbose #355 > > type LanguageConstruct = │
00:00:28 verbose #496 > > │ 00:00:14 verbose #356 > > | LanguageElement of LinguisticFeature │
00:00:28 verbose #497 > > │ 00:00:14 verbose #357 > > | LanguageStructure of LanguageConstruct list │
00:00:28 verbose #498 > > │ 00:00:14 verbose #358 > > | TranslationElement of TranslationFeature │
00:00:28 verbose #499 > > │ 00:00:14 verbose #359 > > │
00:00:28 verbose #500 > > │ 00:00:14 verbose #360 > > and TranslationFeature = │
00:00:28 verbose #501 > > │ 00:00:14 verbose #361 > > | LinkedPhonological of PhonologicalFeature * │
00:00:28 verbose #502 > > │ PhonologicalFeature │
00:00:28 verbose #503 > > │ 00:00:14 verbose #362 > > | LinkedMorphological of MorphologicalFeature │
00:00:28 verbose #504 > > │ * MorphologicalFeature │
00:00:28 verbose #505 > > │ 00:00:14 verbose #363 > > | LinkedSyntactic of SyntacticFeature * │
00:00:28 verbose #506 > > │ SyntacticFeature │
00:00:28 verbose #507 > > │ 00:00:14 verbose #364 > > | LinkedSemantic of SemanticFeature * │
00:00:28 verbose #508 > > │ SemanticFeature │
00:00:28 verbose #509 > > │ 00:00:14 verbose #365 > > │
00:00:28 verbose #510 > > │ 00:00:14 verbose #366 > > type Discourse = DiscourseUnit of │
00:00:28 verbose #511 > > │ LanguageConstruct list │
00:00:28 verbose #512 > > │ 00:00:14 verbose #367 > > │
00:00:28 verbose #513 > > │ 00:00:14 verbose #368 > > type LanguageModel = │
00:00:28 verbose #514 > > │ 00:00:14 verbose #369 > > | Model of discourse: Discourse │
00:00:28 verbose #515 > > │ 00:00:15 verbose #370 > > │
00:00:28 verbose #516 > > │ 00:00:15 verbose #371 > > ── fsharp │
00:00:28 verbose #517 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #518 > > │ 00:00:15 verbose #372 > > let testEnglish = │
00:00:28 verbose #519 > > │ 00:00:15 verbose #373 > > Model( │
00:00:28 verbose #520 > > │ 00:00:15 verbose #374 > > DiscourseUnit [[ │
00:00:28 verbose #521 > > │ 00:00:15 verbose #375 > > LanguageElement (Phonological │
00:00:28 verbose #522 > > │ (ConsonantFeature (Alveolar, Nasal, │
00:00:28 verbose #523 > > │ 00:00:15 verbose #376 > > Voiced, Some(HalfLong)))); │
00:00:28 verbose #524 > > │ 00:00:15 verbose #377 > > LanguageElement (Phonological │
00:00:28 verbose #525 > > │ (VowelFeature (High, Front, Unrounded, │
00:00:28 verbose #526 > > │ 00:00:15 verbose #378 > > Some(LevelTone 1), Some(Primary), Some(Short)))); │
00:00:28 verbose #527 > > │ 00:00:15 verbose #379 > > LanguageElement (Phonological │
00:00:28 verbose #528 > > │ (VowelFeature (Low, Front, Unrounded, │
00:00:28 verbose #529 > > │ 00:00:15 verbose #380 > > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
00:00:28 verbose #530 > > │ 00:00:15 verbose #381 > > LanguageElement (Phonological │
00:00:28 verbose #531 > > │ (ConsonantFeature (Velar, Plosive, │
00:00:28 verbose #532 > > │ 00:00:15 verbose #382 > > Voiceless, Some(HalfLong)))); │
00:00:28 verbose #533 > > │ 00:00:15 verbose #383 > > LanguageElement (Morphological │
00:00:28 verbose #534 > > │ (RootFeature "I")); │
00:00:28 verbose #535 > > │ 00:00:15 verbose #384 > > LanguageElement (Morphological │
00:00:28 verbose #536 > > │ (RootFeature "see")); │
00:00:28 verbose #537 > > │ 00:00:15 verbose #385 > > LanguageElement (Morphological │
00:00:28 verbose #538 > > │ (RootFeature "a")); │
00:00:28 verbose #539 > > │ 00:00:15 verbose #386 > > LanguageElement (Morphological │
00:00:28 verbose #540 > > │ (RootFeature "cat")); │
00:00:28 verbose #541 > > │ 00:00:15 verbose #387 > > LanguageElement (Syntactic │
00:00:28 verbose #542 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:28 verbose #543 > > │ 00:00:15 verbose #388 > > ([[RootFeature "I"]], Pronoun)]]))); │
00:00:28 verbose #544 > > │ 00:00:15 verbose #389 > > LanguageElement (Syntactic │
00:00:28 verbose #545 > > │ (PhraseFeature (VP, [[WordFeature │
00:00:28 verbose #546 > > │ 00:00:15 verbose #390 > > ([[RootFeature "see"]], Verb)]]))); │
00:00:28 verbose #547 > > │ 00:00:15 verbose #391 > > LanguageElement (Syntactic │
00:00:28 verbose #548 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:28 verbose #549 > > │ 00:00:15 verbose #392 > > ([[RootFeature "a"; RootFeature "cat"]], │
00:00:28 verbose #550 > > │ Noun)]]))); │
00:00:28 verbose #551 > > │ 00:00:15 verbose #393 > > LanguageElement (Semantic (Meaning │
00:00:28 verbose #552 > > │ "Perception act of a feline by │
00:00:28 verbose #553 > > │ 00:00:15 verbose #394 > > the speaker")); │
00:00:28 verbose #554 > > │ 00:00:15 verbose #395 > > LanguageElement (Pragmatic (UseContext │
00:00:28 verbose #555 > > │ "Statement of an action being │
00:00:28 verbose #556 > > │ 00:00:15 verbose #396 > > observed")) │
00:00:28 verbose #557 > > │ 00:00:15 verbose #397 > > ]] │
00:00:28 verbose #558 > > │ 00:00:15 verbose #398 > > ) │
00:00:28 verbose #559 > > │ 00:00:15 verbose #399 > > │
00:00:28 verbose #560 > > │ 00:00:15 verbose #400 > > let testPortuguese = │
00:00:28 verbose #561 > > │ 00:00:15 verbose #401 > > Model( │
00:00:28 verbose #562 > > │ 00:00:15 verbose #402 > > DiscourseUnit [[ │
00:00:28 verbose #563 > > │ 00:00:15 verbose #403 > > LanguageElement (Phonological │
00:00:28 verbose #564 > > │ (VowelFeature (High, Front, Unrounded, │
00:00:28 verbose #565 > > │ 00:00:15 verbose #404 > > Some(LevelTone 1), Some(Primary), Some(Short)))); │
00:00:28 verbose #566 > > │ 00:00:15 verbose #405 > > LanguageElement (Phonological │
00:00:28 verbose #567 > > │ (VowelFeature (Low, Front, Unrounded, │
00:00:28 verbose #568 > > │ 00:00:15 verbose #406 > > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
00:00:28 verbose #569 > > │ 00:00:15 verbose #407 > > LanguageElement (Phonological │
00:00:28 verbose #570 > > │ (VowelFeature (Mid, Back, Rounded, │
00:00:28 verbose #571 > > │ 00:00:15 verbose #408 > > Some(LevelTone 3), Some(Primary), Some(Short)))); │
00:00:28 verbose #572 > > │ 00:00:15 verbose #409 > > LanguageElement (Phonological │
00:00:28 verbose #573 > > │ (ConsonantFeature (Velar, Plosive, │
00:00:28 verbose #574 > > │ 00:00:15 verbose #410 > > Voiceless, Some(HalfLong)))); │
00:00:28 verbose #575 > > │ 00:00:15 verbose #411 > > LanguageElement (Morphological │
00:00:28 verbose #576 > > │ (RootFeature "Eu")); │
00:00:28 verbose #577 > > │ 00:00:15 verbose #412 > > LanguageElement (Morphological │
00:00:28 verbose #578 > > │ (RootFeature "ver" |> ignore; │
00:00:28 verbose #579 > > │ 00:00:15 verbose #413 > > AffixFeature (Suffix, "o"))); │
00:00:28 verbose #580 > > │ 00:00:15 verbose #414 > > LanguageElement (Morphological │
00:00:28 verbose #581 > > │ (RootFeature "um")); │
00:00:28 verbose #582 > > │ 00:00:15 verbose #415 > > LanguageElement (Morphological │
00:00:28 verbose #583 > > │ (RootFeature "gato")); │
00:00:28 verbose #584 > > │ 00:00:15 verbose #416 > > LanguageElement (Syntactic │
00:00:28 verbose #585 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:28 verbose #586 > > │ 00:00:15 verbose #417 > > ([[RootFeature "Eu"]], Pronoun)]]))); │
00:00:28 verbose #587 > > │ 00:00:15 verbose #418 > > LanguageElement (Syntactic │
00:00:28 verbose #588 > > │ (PhraseFeature (VP, [[WordFeature │
00:00:28 verbose #589 > > │ 00:00:15 verbose #419 > > ([[RootFeature "vejo"]], Verb)]]))); │
00:00:28 verbose #590 > > │ 00:00:15 verbose #420 > > LanguageElement (Syntactic │
00:00:28 verbose #591 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:28 verbose #592 > > │ 00:00:15 verbose #421 > > ([[RootFeature "um"; RootFeature "gato"]], │
00:00:28 verbose #593 > > │ Noun)]]))); │
00:00:28 verbose #594 > > │ 00:00:15 verbose #422 > > LanguageElement (Semantic (Meaning │
00:00:28 verbose #595 > > │ "Ação de percepção de um felino │
00:00:28 verbose #596 > > │ 00:00:15 verbose #423 > > pelo falante")); │
00:00:28 verbose #597 > > │ 00:00:15 verbose #424 > > LanguageElement (Pragmatic (UseContext │
00:00:28 verbose #598 > > │ "Declaração de uma ação sendo │
00:00:28 verbose #599 > > │ 00:00:15 verbose #425 > > observada")) │
00:00:28 verbose #600 > > │ 00:00:15 verbose #426 > > ]] │
00:00:28 verbose #601 > > │ 00:00:15 verbose #427 > > ) │
00:00:28 verbose #602 > > │ 00:00:15 verbose #428 > > │
00:00:28 verbose #603 > > │ 00:00:15 verbose #429 > > let testKorean = │
00:00:28 verbose #604 > > │ 00:00:15 verbose #430 > > Model( │
00:00:28 verbose #605 > > │ 00:00:15 verbose #431 > > DiscourseUnit [[ │
00:00:28 verbose #606 > > │ 00:00:15 verbose #432 > > LanguageElement (Phonological │
00:00:28 verbose #607 > > │ (ConsonantFeature (Alveolar, Nasal, │
00:00:28 verbose #608 > > │ 00:00:15 verbose #433 > > Voiced, Some(Short)))); │
00:00:28 verbose #609 > > │ 00:00:15 verbose #434 > > LanguageElement (Phonological │
00:00:28 verbose #610 > > │ (VowelFeature (High, Back, Rounded, │
00:00:28 verbose #611 > > │ 00:00:15 verbose #435 > > None, None, Some(Short)))); │
00:00:28 verbose #612 > > │ 00:00:15 verbose #436 > > LanguageElement (Phonological │
00:00:28 verbose #613 > > │ (VowelFeature (Mid, Front, Unrounded, │
00:00:28 verbose #614 > > │ 00:00:15 verbose #437 > > None, None, Some(Long)))); │
00:00:28 verbose #615 > > │ 00:00:15 verbose #438 > > LanguageElement (Phonological │
00:00:28 verbose #616 > > │ (ConsonantFeature (Bilabial, Plosive, │
00:00:28 verbose #617 > > │ 00:00:15 verbose #439 > > Voiceless, Some(Short)))); │
00:00:28 verbose #618 > > │ 00:00:15 verbose #440 > > LanguageElement (Morphological │
00:00:28 verbose #619 > > │ (RootFeature "나")); │
00:00:28 verbose #620 > > │ 00:00:15 verbose #441 > > LanguageElement (Morphological │
00:00:28 verbose #621 > > │ (RootFeature "보다")); │
00:00:28 verbose #622 > > │ 00:00:15 verbose #442 > > LanguageElement (Morphological │
00:00:28 verbose #623 > > │ (AffixFeature (Suffix, "아"))); │
00:00:28 verbose #624 > > │ 00:00:15 verbose #443 > > LanguageElement (Morphological │
00:00:28 verbose #625 > > │ (RootFeature "고양이")); │
00:00:28 verbose #626 > > │ 00:00:15 verbose #444 > > LanguageElement (Syntactic │
00:00:28 verbose #627 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:28 verbose #628 > > │ 00:00:15 verbose #445 > > ([[RootFeature "나"]], Pronoun)]]))); │
00:00:28 verbose #629 > > │ 00:00:15 verbose #446 > > LanguageElement (Syntactic │
00:00:28 verbose #630 > > │ (PhraseFeature (VP, [[WordFeature │
00:00:28 verbose #631 > > │ 00:00:15 verbose #447 > > ([[RootFeature "보다"; AffixFeature (Suffix, │
00:00:28 verbose #632 > > │ "아")]], Verb)]]))); │
00:00:28 verbose #633 > > │ 00:00:15 verbose #448 > > LanguageElement (Syntactic │
00:00:28 verbose #634 > > │ (PhraseFeature (NP, [[WordFeature │
00:00:28 verbose #635 > > │ 00:00:15 verbose #449 > > ([[RootFeature "고양이"]], Noun)]]))); │
00:00:28 verbose #636 > > │ 00:00:15 verbose #450 > > LanguageElement (Semantic (Meaning │
00:00:28 verbose #637 > > │ "화자에 의한 고양이의 관찰 │
00:00:28 verbose #638 > > │ 00:00:15 verbose #451 > > 행위")); │
00:00:28 verbose #639 > > │ 00:00:15 verbose #452 > > LanguageElement (Pragmatic (UseContext │
00:00:28 verbose #640 > > │ "관찰되고 있는 행동의 진술")) │
00:00:28 verbose #641 > > │ 00:00:15 verbose #453 > > ]] │
00:00:28 verbose #642 > > │ 00:00:15 verbose #454 > > ) │
00:00:28 verbose #643 > > │ 00:00:15 verbose #455 > > │
00:00:28 verbose #644 > > │ 00:00:15 verbose #456 > > ── markdown │
00:00:28 verbose #645 > > │ ──────────────────────────────────────────────────────────────────── │
00:00:28 verbose #646 > > │ 00:00:15 verbose #457 > > │
00:00:28 verbose #647 > > │ ╭─────────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #648 > > │ ───╮ │
00:00:28 verbose #649 > > │ 00:00:15 verbose #458 > > │ ## main │
00:00:28 verbose #650 > > │ │ │
00:00:28 verbose #651 > > │ 00:00:15 verbose #459 > > │
00:00:28 verbose #652 > > │ ╰─────────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #653 > > │ ───╯ │
00:00:28 verbose #654 > > │ 00:00:15 verbose #460 > > │
00:00:28 verbose #655 > > │ 00:00:15 verbose #461 > > ── spiral │
00:00:28 verbose #656 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #657 > > │ 00:00:15 verbose #462 > > inl main (_args : array_base string) = │
00:00:28 verbose #658 > > │ 00:00:15 verbose #463 > > 0i32 │
00:00:28 verbose #659 > > │ 00:00:15 verbose #464 > > │
00:00:28 verbose #660 > > │ 00:00:15 verbose #465 > > inl main () = │
00:00:28 verbose #661 > > │ 00:00:15 verbose #466 > > $'let main args = !main args' : () │
00:00:28 verbose #662 > > │ 00:00:16 verbose #467 > > │
00:00:28 verbose #663 > > │ 00:00:16 verbose #468 > > ── spiral │
00:00:28 verbose #664 > > │ ────────────────────────────────────────────────────────────────────── │
00:00:28 verbose #665 > > │ 00:00:16 verbose #469 > > inl app () = │
00:00:28 verbose #666 > > │ 00:00:16 verbose #470 > > "test" |> console.write_line │
00:00:28 verbose #667 > > │ 00:00:16 verbose #471 > > 0i32 │
00:00:28 verbose #668 > > │ 00:00:16 verbose #472 > > │
00:00:28 verbose #669 > > │ 00:00:16 verbose #473 > > inl main () = │
00:00:28 verbose #670 > > │ 00:00:16 verbose #474 > > print_static "<test>" │
00:00:28 verbose #671 > > │ 00:00:16 verbose #475 > > │
00:00:28 verbose #672 > > │ 00:00:16 verbose #476 > > app │
00:00:28 verbose #673 > > │ 00:00:16 verbose #477 > > |> dyn │
00:00:28 verbose #674 > > │ 00:00:16 verbose #478 > > |> ignore │
00:00:28 verbose #675 > > │ 00:00:16 verbose #479 > > │
00:00:28 verbose #676 > > │ 00:00:16 verbose #480 > > print_static "</test>" │
00:00:28 verbose #677 > > │ 00:00:17 verbose #481 > 00:00:16 verbose #3 │
00:00:28 verbose #678 > > │ runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: │
00:00:28 verbose #679 > > │ 15835 │
00:00:28 verbose #680 > > │ 00:00:17 verbose #482 > 00:00:16 debug #4 │
00:00:28 verbose #681 > > │ runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", │
00:00:28 verbose #682 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb", "--to", "html", │
00:00:28 verbose #683 > > │ "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert │
00:00:28 verbose #684 > > │ "c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb" --to html │
00:00:28 verbose #685 > > │ --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None) │
00:00:28 verbose #686 > > │ 00:00:19 verbose #483 > 00:00:18 verbose #5 ! [NbConvertApp] │
00:00:28 verbose #687 > > │ Converting notebook │
00:00:28 verbose #688 > > │ c:/home/git/polyglot/apps/spiral/temp/test/test.dib.ipynb to html │
00:00:28 verbose #689 > > │ 00:00:19 verbose #484 > 00:00:18 verbose #6 ! │
00:00:28 verbose #690 > > │ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__ │
00:00:28 verbose #691 > > │ .py:93: MissingIDFieldWarning: Code cell is missing an id field, this will │
00:00:28 verbose #692 > > │ become a hard error in future nbformat versions. You may want to use │
00:00:28 verbose #693 > > │ `normalize()` on your notebooks before validations (available since nbformat │
00:00:28 verbose #694 > > │ 5.1.4). Previous versions of nbformat are fixing this issue transparently, │
00:00:28 verbose #695 > > │ and will stop doing so in the future. │
00:00:28 verbose #696 > > │ 00:00:19 verbose #485 > 00:00:18 verbose #7 ! validate(nb) │
00:00:28 verbose #697 > > │ 00:00:21 verbose #486 > 00:00:19 verbose #8 ! [NbConvertApp] Writing │
00:00:28 verbose #698 > > │ 318992 bytes to c:\home\git\polyglot\apps\spiral\temp\test\test.dib.html │
00:00:28 verbose #699 > > │ 00:00:21 verbose #487 > 00:00:20 verbose #9 │
00:00:28 verbose #700 > > │ runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 661 │
00:00:28 verbose #701 > > │ 00:00:21 verbose #488 > 00:00:20 debug #10 spiral_builder.run / dib │
00:00:28 verbose #702 > > │ / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 661 │
00:00:28 verbose #703 > > │ 00:00:21 verbose #489 > 00:00:20 debug #11 │
00:00:28 verbose #704 > > │ runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter │
00:00:28 verbose #705 > > │ = 1; $path = 'c:/home/git/polyglot/apps/spiral/temp/test/test.dib.html'; │
00:00:28 verbose #706 > > │ (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { │
00:00:28 verbose #707 > > │ $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, │
00:00:28 verbose #708 > > │ "pwsh -c "$counter = 1; $path = │
00:00:28 verbose #709 > > │ 'c:/home/git/polyglot/apps/spiral/temp/test/test.dib.html'; (Get-Content │
00:00:28 verbose #710 > > │ $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + │
00:00:28 verbose #711 > > │ $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, │
00:00:28 verbose #712 > > │ None) │
00:00:28 verbose #713 > > │ 00:00:22 verbose #490 > 00:00:21 verbose #12 │
00:00:28 verbose #714 > > │ runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0 │
00:00:28 verbose #715 > > │ 00:00:22 verbose #491 > 00:00:21 debug #13 spiral_builder.run / dib │
00:00:28 verbose #716 > > │ / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0 │
00:00:28 verbose #717 > > │ 00:00:22 verbose #492 > 00:00:21 debug #14 spiral_builder.run / dib │
00:00:28 verbose #718 > > │ / exit_code: 0 / result.Length: 16555 │
00:00:28 verbose #719 > > │ 00:00:22 debug #493 runtime.execute_with_options_async / exit_code: 0 / │
00:00:28 verbose #720 > > │ output.Length: 19836 │
00:00:28 verbose #721 > > │ 00:00:22 debug #1 main / executeCommand / exitCode: 0 / command: │
00:00:28 verbose #722 > > │ ../../../../workspace/target/release/spiral_builder.exe dib --path test.dib │
00:00:28 verbose #723 > > │ --retries 3 │
00:00:28 verbose #724 > > │ │
00:00:28 verbose #725 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #726 > >
00:00:28 verbose #727 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:28 verbose #728 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:28 verbose #729 > > │ ### parse the .dib file into .spi format with dibparser │
00:00:28 verbose #730 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 verbose #731 > >
00:00:28 verbose #732 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:28 verbose #733 > > { . ../../../../apps/parser/dist/DibParser$(_exe) test.dib spi } | Invoke-Block
00:00:29 verbose #734 > >
00:00:29 verbose #735 > > ╭─[ 697.72ms - stdout ]────────────────────────────────────────────────────────╮
00:00:29 verbose #736 > > │ 00:00:00 debug #1 writeDibCode / output: Spi / path: test.dib │
00:00:29 verbose #737 > > │ 00:00:00 debug #2 parseDibCode / output: Spi / file: test.dib │
00:00:29 verbose #738 > > │ │
00:00:29 verbose #739 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #740 > >
00:00:29 verbose #741 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:29 verbose #742 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:29 verbose #743 > > │ ### build .fsx file from .spi using supervisor │
00:00:29 verbose #744 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:29 verbose #745 > >
00:00:29 verbose #746 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:29 verbose #747 > > { . ../../../../apps/spiral/dist/Supervisor$(_exe) --build-file test.spi
00:00:29 verbose #748 > > test.fsx } | Invoke-Block
00:00:31 verbose #749 > 00:00:30 debug #7 Supervisor.supervisor_server.BuildFile / file: c:/home/git/polyglot/apps/spiral/temp/test/test.spi
00:00:31 verbose #750 > <test>
00:00:31 verbose #751 > </test>
00:00:31 verbose #752 > >
00:00:31 verbose #753 > > ╭─[ 2.47s - stdout ]───────────────────────────────────────────────────────────╮
00:00:31 verbose #754 > > │ 00:00:00 debug #1 async.run_with_timeout_async / timeout: 500 │
00:00:31 verbose #755 > > │ 00:00:01 debug #2 async.run_with_timeout_async / timeout: 500 │
00:00:31 verbose #756 > > │ 00:00:01 debug #1 Supervisor.buildFile / takeWhileInclusive / path: │
00:00:31 verbose #757 > > │ test.spi / outputContent: / errors: [] / typeErrorCount: 0 │
00:00:31 verbose #758 > > │ 00:00:01 debug #2 Supervisor.buildFile / takeWhileInclusive / path: │
00:00:31 verbose #759 > > │ test.spi / outputContent: / errors: [] / typeErrorCount: 0 │
00:00:31 verbose #760 > > │ 00:00:01 verbose #3 Supervisor.sendJson / port: 13805 / json: │
00:00:31 verbose #761 > > │ {"FileOpen":{"spiText":"/// # test (Polyglot)\nnominal i = ()\nnominal e = │
00:00:31 verbose #762 > > │ ()\nnominal s = │
00:00:31 verbose #763 > > │ ()\nnomin...0022\u003C/test\u003E\u0022\n","uri":"file:///c:/home/git/polygl │
00:00:31 verbose #764 > > │ ot/apps/spiral/temp/test/test.spi"}} / result: │
00:00:31 verbose #765 > > │ 00:00:01 verbose #4 Supervisor.sendJson / port: 13805 / json: │
00:00:31 verbose #766 > > │ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/sp │
00:00:31 verbose #767 > > │ iral/temp/test/test.spi"}} / result: │
00:00:31 verbose #768 > > │ 00:00:02 debug #5 Supervisor.buildFile / takeWhileInclusive / path: │
00:00:31 verbose #769 > > │ test.spi / outputContent: let rec closure0 () () : int32 = │
00:00:31 verbose #770 > > │ let v0 : (string -> unit) = System.Console.WriteLine │
00:00:31 verbose #771 > > │ let v1 : string = "test" │
00:00:31 verbose #772 > > │ v0 v1 │
00:00:31 verbose #773 > > │ 0 │
00:00:31 verbose #774 > > │ let v0 : (unit -> int32) = closure0() │
00:00:31 verbose #775 > > │ () │
00:00:31 verbose #776 > > │ / errors: [] / typeErrorCount: 0 │
00:00:31 verbose #777 > > │ 00:00:02 debug #6 FileSystem.watchWithFilter / Disposing watch stream / │
00:00:31 verbose #778 > > │ filter: FileName, LastWrite │
00:00:31 verbose #779 > > │ │
00:00:31 verbose #780 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #781 > >
00:00:31 verbose #782 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #783 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #784 > > │ ## compile and format the project │
00:00:31 verbose #785 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #786 > >
00:00:31 verbose #787 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:31 verbose #788 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:31 verbose #789 > > │ ### compile project with fable targeting optimized rust │
00:00:31 verbose #790 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 verbose #791 > >
00:00:31 verbose #792 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:31 verbose #793 > > dotnet fable --optimize --lang rs --extension .rs
00:00:35 verbose #794 > >
00:00:35 verbose #795 > > ╭─[ 3.43s - stdout ]───────────────────────────────────────────────────────────╮
00:00:35 verbose #796 > > │ Fable 4.17.0: F# to Rust compiler (status: alpha) │
00:00:35 verbose #797 > > │ │
00:00:35 verbose #798 > > │ Thanks to the contributor! @justinjstark │
00:00:35 verbose #799 > > │ Stand with Ukraine! https://standwithukraine.com.ua/ │
00:00:35 verbose #800 > > │ │
00:00:35 verbose #801 > > │ Parsing test.fsproj... │
00:00:35 verbose #802 > > │ Retrieving project options from cache, in case of issues run `dotnet fable │
00:00:35 verbose #803 > > │ clean` or try `--noCache` option. │
00:00:35 verbose #804 > > │ Project and references (1 source files) parsed in 223ms │
00:00:35 verbose #805 > > │ │
00:00:35 verbose #806 > > │ Started Fable compilation... │
00:00:35 verbose #807 > > │ │
00:00:35 verbose #808 > > │ Fable compilation finished in 1467ms │
00:00:35 verbose #809 > > │ │
00:00:35 verbose #810 > > │ .\test.fsx(7,0): (7,2) warning FABLE: For Rust, support for F# static and │
00:00:35 verbose #811 > > │ module do bindings is disabled by default. It can be enabled with the │
00:00:35 verbose #812 > > │ 'static_do_bindings' feature. Use at your own risk! │
00:00:35 verbose #813 > > │ │
00:00:35 verbose #814 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #815 > >
00:00:35 verbose #816 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #817 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #818 > > │ ### fix formatting issues in the .rs file using regex and set-content │
00:00:35 verbose #819 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #820 > >
00:00:35 verbose #821 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:35 verbose #822 > > (Get-Content test.rs) `
00:00:35 verbose #823 > > -replace [[regex]]::Escape("),);"), "));" `
00:00:35 verbose #824 > > | FixRust `
00:00:35 verbose #825 > > | Set-Content test.rs
00:00:35 verbose #826 > >
00:00:35 verbose #827 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #828 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #829 > > │ ### format the rust code using cargo fmt │
00:00:35 verbose #830 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #831 > >
00:00:35 verbose #832 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:35 verbose #833 > > cargo fmt --
00:00:35 verbose #834 > >
00:00:35 verbose #835 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #836 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #837 > > │ ## build and test the project │
00:00:35 verbose #838 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #839 > >
00:00:35 verbose #840 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 verbose #841 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 verbose #842 > > │ ### build the project in release mode using nightly rust compiler │
00:00:35 verbose #843 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 verbose #844 > >
00:00:35 verbose #845 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:35 verbose #846 > > cargo +nightly build --release
00:00:46 verbose #847 > >
00:00:46 verbose #848 > > ╭─[ 10.65s - stdout ]──────────────────────────────────────────────────────────╮
00:00:46 verbose #849 > > │ Compiling syn v2.0.66 │
00:00:46 verbose #850 > > │ Compiling fable_library_rust v0.1.0 │
00:00:46 verbose #851 > > │ (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) │
00:00:46 verbose #852 > > │ Compiling thiserror-impl v1.0.61 │
00:00:46 verbose #853 > > │ Compiling thiserror v1.0.61 │
00:00:46 verbose #854 > > │ Compiling spiral_temp_test v0.0.1 │
00:00:46 verbose #855 > > │ (C:\home\git\polyglot\apps\spiral\temp\test) │
00:00:46 verbose #856 > > │ warning: struct `Cart` is never constructed │
00:00:46 verbose #857 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:41:8 │
00:00:46 verbose #858 > > │ | │
00:00:46 verbose #859 > > │ 41 | struct Cart { │
00:00:46 verbose #860 > > │ | ^^^^ │
00:00:46 verbose #861 > > │ | │
00:00:46 verbose #862 > > │ = note: `#[warn(dead_code)]` on by default │
00:00:46 verbose #863 > > │ │
00:00:46 verbose #864 > > │ warning: associated items `new`, `add_item`, and `remove_item` are │
00:00:46 verbose #865 > > │ never used │
00:00:46 verbose #866 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:46:8 │
00:00:46 verbose #867 > > │ | │
00:00:46 verbose #868 > > │ 45 | impl Cart { │
00:00:46 verbose #869 > > │ | --------- associated items in this implementation │
00:00:46 verbose #870 > > │ 46 | fn new() -> Cart { │
00:00:46 verbose #871 > > │ | ^^^ │
00:00:46 verbose #872 > > │ ... │
00:00:46 verbose #873 > > │ 50 | fn add_item(&mut self, item: Item) { │
00:00:46 verbose #874 > > │ | ^^^^^^^^ │
00:00:46 verbose #875 > > │ ... │
00:00:46 verbose #876 > > │ 56 | fn remove_item(&mut self, item: &Item) { │
00:00:46 verbose #877 > > │ | ^^^^^^^^^^^ │
00:00:46 verbose #878 > > │ │
00:00:46 verbose #879 > > │ warning: function `parse_comment` is never used │
00:00:46 verbose #880 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:124:4 │
00:00:46 verbose #881 > > │ | │
00:00:46 verbose #882 > > │ 124 | fn parse_comment(input: &str) -> IResult<&str, SpiralToken> { │
00:00:46 verbose #883 > > │ | ^^^^^^^^^^^^^ │
00:00:46 verbose #884 > > │ │
00:00:46 verbose #885 > > │ warning: function `parse_string` is never used │
00:00:46 verbose #886 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:130:4 │
00:00:46 verbose #887 > > │ | │
00:00:46 verbose #888 > > │ 130 | fn parse_string(input: &str) -> IResult<&str, SpiralToken> { │
00:00:46 verbose #889 > > │ | ^^^^^^^^^^^^ │
00:00:46 verbose #890 > > │ │
00:00:46 verbose #891 > > │ warning: function `parse_identifier` is never used │
00:00:46 verbose #892 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:145:4 │
00:00:46 verbose #893 > > │ | │
00:00:46 verbose #894 > > │ 145 | fn parse_identifier(input: &str) -> IResult<&str, SpiralToken> {[ │
00:00:46 verbose #895 > > │ 0m │
00:00:46 verbose #896 > > │ | ^^^^^^^^^^^^^^^^ │
00:00:46 verbose #897 > > │ │
00:00:46 verbose #898 > > │ warning: function `parse_integer` is never used │
00:00:46 verbose #899 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:157:4 │
00:00:46 verbose #900 > > │ | │
00:00:46 verbose #901 > > │ 157 | fn parse_integer(input: &str) -> IResult<&str, SpiralToken> { │
00:00:46 verbose #902 > > │ | ^^^^^^^^^^^^^ │
00:00:46 verbose #903 > > │ │
00:00:46 verbose #904 > > │ warning: function `parse_operator` is never used │
00:00:46 verbose #905 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:165:4 │
00:00:46 verbose #906 > > │ | │
00:00:46 verbose #907 > > │ 165 | fn parse_operator(input: &str) -> IResult<&str, SpiralToken> { │
00:00:46 verbose #908 > > │ | ^^^^^^^^^^^^^^ │
00:00:46 verbose #909 > > │ │
00:00:46 verbose #910 > > │ warning: function `parse_token` is never used │
00:00:46 verbose #911 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:170:4 │
00:00:46 verbose #912 > > │ | │
00:00:46 verbose #913 > > │ 170 | fn parse_token(input: &str) -> IResult<&str, SpiralToken> { │
00:00:46 verbose #914 > > │ | ^^^^^^^^^^^ │
00:00:46 verbose #915 > > │ │
00:00:46 verbose #916 > > │ warning: function `format_token` is never used │
00:00:46 verbose #917 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:180:4 │
00:00:46 verbose #918 > > │ | │
00:00:46 verbose #919 > > │ 180 | fn format_token(token: &SpiralToken) -> String { │
00:00:46 verbose #920 > > │ | ^^^^^^^^^^^^ │
00:00:46 verbose #921 > > │ │
00:00:46 verbose #922 > > │ warning: function `parse_expression` is never used │
00:00:46 verbose #923 > > │ --> C:\home\git\polyglot\apps\spiral\temp\test\./main.rs:201:4 │
00:00:46 verbose #924 > > │ | │
00:00:46 verbose #925 > > │ 201 | fn parse_expression(input: &str) -> IResult<&str, SpiralToken> {[ │
00:00:46 verbose #926 > > │ 0m │
00:00:46 verbose #927 > > │ | ^^^^^^^^^^^^^^^^ │
00:00:46 verbose #928 > > │ │
00:00:46 verbose #929 > > │ warning: `spiral_temp_test` (bin "spiral_temp_test") generated 10 │
00:00:46 verbose #930 > > │ warnings │
00:00:46 verbose #931 > > │ Finished `release` profile [optimized] target(s) in 10.55s │
00:00:46 verbose #932 > > │ │
00:00:46 verbose #933 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #934 > >
00:00:46 verbose #935 > > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 verbose #936 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 verbose #937 > > │ ### run release tests with output enabled │
00:00:46 verbose #938 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 verbose #939 > >
00:00:46 verbose #940 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:00:46 verbose #941 > > { cargo +nightly test --release -- --show-output } | Invoke-Block
00:01:11 verbose #942 > >
00:01:11 verbose #943 > > ╭─[ 24.92s - stdout ]──────────────────────────────────────────────────────────╮
00:01:11 verbose #944 > > │ Compiling fable_library_rust v0.1.0 │
00:01:11 verbose #945 > > │ (C:\home\git\polyglot\lib\rust\fable\fable_modules\fable-library-rust) │
00:01:11 verbose #946 > > │ Compiling thiserror v1.0.61 │
00:01:11 verbose #947 > > │ Compiling spiral_temp_test v0.0.1 │
00:01:11 verbose #948 > > │ (C:\home\git\polyglot\apps\spiral\temp\test) │
00:01:11 verbose #949 > > │ Finished `release` profile [optimized] target(s) in 24.55s │
00:01:11 verbose #950 > > │ Running unittests main.rs │
00:01:11 verbose #951 > > │ (C:\home\git\polyglot\workspace\target\release\deps\spiral_temp_test-bbc2193 │
00:01:11 verbose #952 > > │ 7fd53675c.exe) │
00:01:11 verbose #953 > > │ │
00:01:11 verbose #954 > > │ running 3 tests │
00:01:11 verbose #955 > > │ test test_parse_number ... ok │
00:01:11 verbose #956 > > │ test prop_parse_format_idempotent ... ok │
00:01:11 verbose #957 > > │ test │
00:01:11 verbose #958 > > │ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged ... │
00:01:11 verbose #959 > > │ ok │
00:01:11 verbose #960 > > │ │
00:01:11 verbose #961 > > │ successes: │
00:01:11 verbose #962 > > │ │
00:01:11 verbose #963 > > │ ---- prop_parse_format_idempotent stdout ---- │
00:01:11 verbose #964 > > │ input=Comment("y{") │
00:01:11 verbose #965 > > │ input=Identifier("TcDuyjhEBi0k9Ugo71mNhBbw47b4") │
00:01:11 verbose #966 > > │ input=Operator(")") │
00:01:11 verbose #967 > > │ input=Identifier("jP14H") │
00:01:11 verbose #968 > > │ input=Identifier("xUMgva1aNNE0Awz3zF29j3ODL") │
00:01:11 verbose #969 > > │ input=Operator("-") │
00:01:11 verbose #970 > > │ input=Identifier("JoFtgbHVx5LCxu6DFY") │
00:01:11 verbose #971 > > │ input=Identifier("O181E598xIxnbLV") │
00:01:11 verbose #972 > > │ input=Integer(8501600522033318289) │
00:01:11 verbose #973 > > │ input=Identifier("XVOPN1EOW0vwln2t") │
00:01:11 verbose #974 > > │ input=Operator("=") │
00:01:11 verbose #975 > > │ input=Operator("/") │
00:01:11 verbose #976 > > │ input=StringLiteral("Fim{L;&c[S+{{:L%9-ml::%*Uf2.") │
00:01:11 verbose #977 > > │ input=Operator("*") │
00:01:11 verbose #978 > > │ input=Integer(3764760367333600145) │
00:01:11 verbose #979 > > │ input=Comment("%\\<w)@/.\\&N") │
00:01:11 verbose #980 > > │ input=Comment("8N~X\\K!@L>_S4+") │
00:01:11 verbose #981 > > │ input=StringLiteral("H>7") │
00:01:11 verbose #982 > > │ input=StringLiteral("f9L]oT") │
00:01:11 verbose #983 > > │ input=Operator("/") │
00:01:11 verbose #984 > > │ input=Operator("-") │
00:01:11 verbose #985 > > │ input=Comment("*:``") │
00:01:11 verbose #986 > > │ input=Identifier("zje1cZ3Bzw") │
00:01:11 verbose #987 > > │ input=Operator("*") │
00:01:11 verbose #988 > > │ input=Integer(-7392928330881995230) │
00:01:11 verbose #989 > > │ input=Integer(-4204804885293195062) │
00:01:11 verbose #990 > > │ input=Integer(1925685485969978886) │
00:01:11 verbose #991 > > │ input=Comment(":kv[V\"-") │
00:01:11 verbose #992 > > │ input=Operator("+") │
00:01:11 verbose #993 > > │ input=Comment("'.Y&*'b+?;ik") │
00:01:11 verbose #994 > > │ input=Comment("C<\"W$X?A[") │
00:01:11 verbose #995 > > │ input=Operator("=") │
00:01:11 verbose #996 > > │ input=Integer(8097394366961034209) │
00:01:11 verbose #997 > > │ input=Identifier("pdLvWNVg") │
00:01:11 verbose #998 > > │ input=Comment("h?9 `';") │
00:01:11 verbose #999 > > │ input=Identifier("O99TNf04CYr") │
00:01:11 verbose #1000 > > │ input=Identifier("TGT9839vs8lQsB5mT91h3EaG") │
00:01:11 verbose #1001 > > │ input=Comment("3tb&3rk*c*[9ob?`W;`JsNz`&o1F") │
00:01:11 verbose #1002 > > │ input=Comment("p?bn/[SS:snyQP.<{y{%F") │
00:01:11 verbose #1003 > > │ input=Comment("b-=CR5\"g,/*9%<a7|1&`bI.<M\\&XoFY") │
00:01:11 verbose #1004 > > │ input=Operator("(") │
00:01:11 verbose #1005 > > │ input=StringLiteral("/:%5#B:7}~6hQ&N u") │
00:01:11 verbose #1006 > > │ input=StringLiteral("<$&>{") │
00:01:11 verbose #1007 > > │ input=Operator("-") │
00:01:11 verbose #1008 > > │ input=Operator(")") │
00:01:11 verbose #1009 > > │ input=Integer(3599692956868797109) │
00:01:11 verbose #1010 > > │ input=Integer(-4269106109345452106) │
00:01:11 verbose #1011 > > │ input=Integer(1495386287362060469) │
00:01:11 verbose #1012 > > │ input=StringLiteral("$`") │
00:01:11 verbose #1013 > > │ input=Integer(7946823960367575930) │
00:01:11 verbose #1014 > > │ input=Identifier("Sfdk181bAAH") │
00:01:11 verbose #1015 > > │ input=Integer(-5022636172500622542) │
00:01:11 verbose #1016 > > │ input=Operator("=") │
00:01:11 verbose #1017 > > │ input=Operator("(") │
00:01:11 verbose #1018 > > │ input=StringLiteral("ij3[3%v'PC`") │
00:01:11 verbose #1019 > > │ input=Identifier("l6J18drBuBLf729i456oN") │
00:01:11 verbose #1020 > > │ input=Operator("/") │
00:01:11 verbose #1021 > > │ input=Comment("Sh\\:&*(J*aqN[(Gp") │
00:01:11 verbose #1022 > > │ input=Comment("J./") │
00:01:11 verbose #1023 > > │ input=Identifier("wgOP5xK7yShY6LxKzagphb4xSK") │
00:01:11 verbose #1024 > > │ input=StringLiteral(".8),^Qb>[&jv|A>") │
00:01:11 verbose #1025 > > │ input=Integer(-4502903028708914134) │
00:01:11 verbose #1026 > > │ input=Identifier("L9868ISt12rxr4E") │
00:01:11 verbose #1027 > > │ input=StringLiteral("=.2O") │
00:01:11 verbose #1028 > > │ input=Operator("=") │
00:01:11 verbose #1029 > > │ input=StringLiteral("&{7B:%Hgd`q8.=o}^$'+{eO:? /J") │
00:01:11 verbose #1030 > > │ input=StringLiteral("hUw-G<#44;") │
00:01:11 verbose #1031 > > │ input=StringLiteral("%?<lk=_V~") │
00:01:11 verbose #1032 > > │ input=Integer(-2545384033967059023) │
00:01:11 verbose #1033 > > │ input=Identifier("bwf03ukP4bIFt") │
00:01:11 verbose #1034 > > │ input=StringLiteral("{j<%mm'%`_<`{=p=") │
00:01:11 verbose #1035 > > │ input=StringLiteral("?a.+2J&D$R&?nhj*`m{a]X@?") │
00:01:11 verbose #1036 > > │ input=Integer(-3561304405997381024) │
00:01:11 verbose #1037 > > │ input=StringLiteral(",#2g/") │
00:01:11 verbose #1038 > > │ input=Identifier("USEfbVKTF3i523YPxml3") │
00:01:11 verbose #1039 > > │ input=Operator("/") │
00:01:11 verbose #1040 > > │ input=Integer(-6387949378328556123) │
00:01:11 verbose #1041 > > │ input=Identifier("ArdNVj9A8bdeBFyX2dk4HbtCa") │
00:01:11 verbose #1042 > > │ input=Integer(295208324465084084) │
00:01:11 verbose #1043 > > │ input=Integer(-4640503652872546469) │
00:01:11 verbose #1044 > > │ input=Operator("/") │
00:01:11 verbose #1045 > > │ input=Integer(4775162180945485895) │
00:01:11 verbose #1046 > > │ input=Operator("-") │
00:01:11 verbose #1047 > > │ input=Integer(2330195859417497576) │
00:01:11 verbose #1048 > > │ input=Comment("\\LJ") │
00:01:11 verbose #1049 > > │ input=Integer(5583729360527664631) │
00:01:11 verbose #1050 > > │ input=Identifier("cGTz9ImxXCykj8hM3z7a7y81WjE8") │
00:01:11 verbose #1051 > > │ input=Integer(-7773701163616527626) │
00:01:11 verbose #1052 > > │ input=Comment("Sck`Co7uAy*&$eE\\{N\\\\<Ef0'0") │
00:01:11 verbose #1053 > > │ input=StringLiteral("1.:{+.b!<j%mD'$$PK3{Lyv@Y:z.") │
00:01:11 verbose #1054 > > │ input=Operator("=") │
00:01:11 verbose #1055 > > │ input=Identifier("j0lrP2fsc3hm") │
00:01:11 verbose #1056 > > │ input=StringLiteral("") │
00:01:11 verbose #1057 > > │ input=Identifier("RT8kG") │
00:01:11 verbose #1058 > > │ input=Integer(5108791643839466533) │
00:01:11 verbose #1059 > > │ input=Operator("/") │
00:01:11 verbose #1060 > > │ input=Identifier("yTFrr94J4x37z8B59nsSjR4umomB55") │
00:01:11 verbose #1061 > > │ input=Operator("/") │
00:01:11 verbose #1062 > > │ input=StringLiteral("l&K~/d") │
00:01:11 verbose #1063 > > │ input=Integer(6661643032906399407) │
00:01:11 verbose #1064 > > │ input=Integer(-4963996010879002574) │
00:01:11 verbose #1065 > > │ input=Comment("-<h\"=6=|Dxl-sMTNx") │
00:01:11 verbose #1066 > > │ input=Operator("+") │
00:01:11 verbose #1067 > > │ input=Integer(-2374712746280856609) │
00:01:11 verbose #1068 > > │ input=Operator(")") │
00:01:11 verbose #1069 > > │ input=Identifier("L7Z6C4EW5mifES237It6M") │
00:01:11 verbose #1070 > > │ input=Integer(6743103246917637869) │
00:01:11 verbose #1071 > > │ input=StringLiteral("?h*i@*%:%6~hmm*TpWg&{Z5<u") │
00:01:11 verbose #1072 > > │ input=StringLiteral("`>I&v.h4") │
00:01:11 verbose #1073 > > │ input=StringLiteral("I`<@?:T<4m':Q%C") │
00:01:11 verbose #1074 > > │ input=Comment("2KPP.L") │
00:01:11 verbose #1075 > > │ input=StringLiteral("!z:NU.{.*ohfc/O+_:>=LNx[lzXF .") │
00:01:11 verbose #1076 > > │ input=Comment("\"(G`/`B*&{cm\\0|*fj") │
00:01:11 verbose #1077 > > │ input=Comment("$DwH>") │
00:01:11 verbose #1078 > > │ input=Identifier("JWO2m") │
00:01:11 verbose #1079 > > │ input=Identifier("Mvt4ie6m0x49mdm9mHv85QRz0") │
00:01:11 verbose #1080 > > │ input=StringLiteral("-l/aErzXH9$7wO<//b4:") │
00:01:11 verbose #1081 > > │ input=StringLiteral("A>E;5B[&i{U0JDj%:HATiVy?_X") │
00:01:11 verbose #1082 > > │ input=Operator("(") │
00:01:11 verbose #1083 > > │ input=Comment("l`u *&&B)=Z*'0#Ate76$>T/>%:'I2") │
00:01:11 verbose #1084 > > │ input=Operator("/") │
00:01:11 verbose #1085 > > │ input=StringLiteral("VtBsS.Kh`ozd<E?mKE={") │
00:01:11 verbose #1086 > > │ input=Comment("A')") │
00:01:11 verbose #1087 > > │ input=Comment("b,*'M/sN:34;*:q") │
00:01:11 verbose #1088 > > │ input=Identifier("b2jZ995AoSovKc93") │
00:01:11 verbose #1089 > > │ input=Integer(3136743402595103001) │
00:01:11 verbose #1090 > > │ input=Identifier("l3ql") │
00:01:11 verbose #1091 > > │ input=Integer(7310837250301354599) │
00:01:11 verbose #1092 > > │ input=StringLiteral("%98=^m9*`:?fbB%G':=*I5}R]") │
00:01:11 verbose #1093 > > │ input=StringLiteral("{WG3~Z/9:mCy") │
00:01:11 verbose #1094 > > │ input=Comment("J\\|@oSq") │
00:01:11 verbose #1095 > > │ input=Comment("HOe*:") │
00:01:11 verbose #1096 > > │ input=Identifier("nM4PIqN5196pi12jVA4") │
00:01:11 verbose #1097 > > │ input=Comment("YmcJC=`") │
00:01:11 verbose #1098 > > │ input=Identifier("f9X8HnxaoHq833") │
00:01:11 verbose #1099 > > │ input=StringLiteral("$6=bSUK__%YHxgAHp") │
00:01:11 verbose #1100 > > │ input=Comment("ao5z&M+4+t1j") │
00:01:11 verbose #1101 > > │ input=Integer(2690204154831415716) │
00:01:11 verbose #1102 > > │ input=Identifier("cGf267dZn2LrBM") │
00:01:11 verbose #1103 > > │ input=StringLiteral("=@y%,PF$wz{|[r8.K:") │
00:01:11 verbose #1104 > > │ input=Integer(8977454787115783666) │
00:01:11 verbose #1105 > > │ input=Integer(4709971352447112906) │
00:01:11 verbose #1106 > > │ input=StringLiteral("`=.=A4(7yyfw=U|A#j;oSk") │
00:01:11 verbose #1107 > > │ input=Operator("=") │
00:01:11 verbose #1108 > > │ input=Comment(" 1\\V**l\\:R&/,$&%$qFy)\\!") │
00:01:11 verbose #1109 > > │ input=Comment(" /Y,") │
00:01:11 verbose #1110 > > │ input=StringLiteral("Beb") │
00:01:11 verbose #1111 > > │ input=Integer(-4115439984582683475) │
00:01:11 verbose #1112 > > │ input=Identifier("TD0OfP80wW5q") │
00:01:11 verbose #1113 > > │ input=Operator("=") │
00:01:11 verbose #1114 > > │ input=StringLiteral("v}d>3CRn/=%h]Y{Mm<=6&p0_?r") │
00:01:11 verbose #1115 > > │ input=StringLiteral("4>=$)(R<`]-s<j-p'<>r:n{eP") │
00:01:11 verbose #1116 > > │ input=Comment("{{WkrSi[nH\\xu(@a(@Z$%Z/z''p%{") │
00:01:11 verbose #1117 > > │ input=Operator("*") │
00:01:11 verbose #1118 > > │ input=StringLiteral("&,fmS<3`wphm") │
00:01:11 verbose #1119 > > │ input=Identifier("T42BJlup140lJszc591N") │
00:01:11 verbose #1120 > > │ input=StringLiteral("!U%cq^JK6uV[@``{jH?8") │
00:01:11 verbose #1121 > > │ input=Operator("=") │
00:01:11 verbose #1122 > > │ input=Operator("(") │
00:01:11 verbose #1123 > > │ input=Identifier("z6T2W6DU0") │
00:01:11 verbose #1124 > > │ input=Identifier("VjhlaOT7p8PYSchLE1qJO25zJMKN7oW") │
00:01:11 verbose #1125 > > │ input=Comment(" B.d?\"{\"") │
00:01:11 verbose #1126 > > │ input=Comment("t<$\"j=M?X'f%e`%'.ChYj@{]") │
00:01:11 verbose #1127 > > │ input=Comment("\"Q`y^<e[Q<,~}'={0.%'ns\\E<") │
00:01:11 verbose #1128 > > │ input=StringLiteral("y.?<!=$^Fi;a/") │
00:01:11 verbose #1129 > > │ input=StringLiteral("zzvS@ZY.]f'ozF!") │
00:01:11 verbose #1130 > > │ input=Integer(-1514926073695022712) │
00:01:11 verbose #1131 > > │ input=Comment("l=[cKmZU$[|K? fV$?A._KEw6*x") │
00:01:11 verbose #1132 > > │ input=Integer(3922579968353962871) │
00:01:11 verbose #1133 > > │ input=Operator("+") │
00:01:11 verbose #1134 > > │ input=Identifier("AEIHll7d2KN3I2k4CsWwB57") │
00:01:11 verbose #1135 > > │ input=Identifier("vjdH1jr2Kq13XzFtoO535lSoyvNS7qMC") │
00:01:11 verbose #1136 > > │ input=Comment("/E?C%*.\"w'ike?") │
00:01:11 verbose #1137 > > │ input=Integer(2252824507909306177) │
00:01:11 verbose #1138 > > │ input=Integer(5016004858946558266) │
00:01:11 verbose #1139 > > │ input=Operator(")") │
00:01:11 verbose #1140 > > │ input=Integer(-5452911000723689064) │
00:01:11 verbose #1141 > > │ input=StringLiteral("<g<r{22;'> vs") │
00:01:11 verbose #1142 > > │ input=Operator("-") │
00:01:11 verbose #1143 > > │ input=Operator("(") │
00:01:11 verbose #1144 > > │ input=Identifier("L2VPsd") │
00:01:11 verbose #1145 > > │ input=StringLiteral("w*Qn4D`.b:&K%^QM%Y=,U:.`}O&YI") │
00:01:11 verbose #1146 > > │ input=Identifier("E9W3bVyOAQmP65M8xN0R") │
00:01:11 verbose #1147 > > │ input=Identifier("X7495S6Q2Bdi035L4Uhy9BVxBbJXBXA") │
00:01:11 verbose #1148 > > │ input=Operator("(") │
00:01:11 verbose #1149 > > │ input=StringLiteral("Xq&V%") │
00:01:11 verbose #1150 > > │ input=StringLiteral("g.mU$.u%~2`tT6") │
00:01:11 verbose #1151 > > │ input=Comment(":0w\\/4") │
00:01:11 verbose #1152 > > │ input=Comment("nvZi*&|UCe*V<,bs4c=! '") │
00:01:11 verbose #1153 > > │ input=Identifier("WNBi3wR7R3t9YH38Tdzev") │
00:01:11 verbose #1154 > > │ input=Integer(-926339229179100493) │
00:01:11 verbose #1155 > > │ input=Comment("R)`") │
00:01:11 verbose #1156 > > │ input=Identifier("aKsnfj27B13ImgBAR") │
00:01:11 verbose #1157 > > │ input=Operator("+") │
00:01:11 verbose #1158 > > │ input=StringLiteral("$.IXh0C3mFH:{ARLaE&Zb;s`R3q") │
00:01:11 verbose #1159 > > │ input=Operator("/") │
00:01:11 verbose #1160 > > │ input=StringLiteral("1%$.|$") │
00:01:11 verbose #1161 > > │ input=Operator("(") │
00:01:11 verbose #1162 > > │ input=Operator("(") │
00:01:11 verbose #1163 > > │ input=StringLiteral("Q*hX") │
00:01:11 verbose #1164 > > │ input=Identifier("THKKE4pI6NlULi8rC6R") │
00:01:11 verbose #1165 > > │ input=Operator("/") │
00:01:11 verbose #1166 > > │ input=StringLiteral("I!*ND4iLR:0L$=<boIT&&w?cE") │
00:01:11 verbose #1167 > > │ input=Integer(7710150769276717885) │
00:01:11 verbose #1168 > > │ input=Comment("") │
00:01:11 verbose #1169 > > │ input=Comment(">$$na_#") │
00:01:11 verbose #1170 > > │ input=Operator(")") │
00:01:11 verbose #1171 > > │ input=Comment("/=\\T*<Bb]OW") │
00:01:11 verbose #1172 > > │ input=Comment("5Xv`,?") │
00:01:11 verbose #1173 > > │ input=Comment("{W;-r8./0:`\"'A") │
00:01:11 verbose #1174 > > │ input=Comment("gl") │
00:01:11 verbose #1175 > > │ input=Integer(6131982004469779383) │
00:01:11 verbose #1176 > > │ input=Identifier("q80OGhR9o41QsGG") │
00:01:11 verbose #1177 > > │ input=Comment("we;#ax1?Ad&`HIZ]?)|a'") │
00:01:11 verbose #1178 > > │ input=Integer(8329287151843973884) │
00:01:11 verbose #1179 > > │ input=StringLiteral("AI%/xNIZ") │
00:01:11 verbose #1180 > > │ input=Operator("(") │
00:01:11 verbose #1181 > > │ input=Integer(3418825090037125328) │
00:01:11 verbose #1182 > > │ input=StringLiteral("R=Ym&nB?(|") │
00:01:11 verbose #1183 > > │ input=Identifier("gJeH5Lzp6m5") │
00:01:11 verbose #1184 > > │ input=Operator("=") │
00:01:11 verbose #1185 > > │ input=StringLiteral("FLe'K$9T'9by?b:>") │
00:01:11 verbose #1186 > > │ input=StringLiteral("sz&>%Be") │
00:01:11 verbose #1187 > > │ input=Comment(",U*P:k") │
00:01:11 verbose #1188 > > │ input=Comment("bjV") │
00:01:11 verbose #1189 > > │ input=StringLiteral("") │
00:01:11 verbose #1190 > > │ input=Comment("C.%7pP?i'4,@") │
00:01:11 verbose #1191 > > │ input=Comment("7OyF&~[$P\\y9^~f`+.!`yi=q-t~qc2") │
00:01:11 verbose #1192 > > │ input=Operator("-") │
00:01:11 verbose #1193 > > │ input=Operator("*") │
00:01:11 verbose #1194 > > │ input=Identifier("u50z9ondBfs") │
00:01:11 verbose #1195 > > │ input=Comment("jmJO\\F\"=<XG") │
00:01:11 verbose #1196 > > │ input=Integer(6258650673770889332) │
00:01:11 verbose #1197 > > │ input=Identifier("QbkQA7XmSCyXmmjgdFyXegH") │
00:01:11 verbose #1198 > > │ input=Comment("`*") │
00:01:11 verbose #1199 > > │ input=Comment("g-/\"?`=U@") │
00:01:11 verbose #1200 > > │ input=Comment("\"$/8h<?I'\\VE+UoWk{6") │
00:01:11 verbose #1201 > > │ input=Operator("+") │
00:01:11 verbose #1202 > > │ input=Integer(4764294896698193940) │
00:01:11 verbose #1203 > > │ input=Operator("+") │
00:01:11 verbose #1204 > > │ input=Integer(-6986155635813196401) │
00:01:11 verbose #1205 > > │ input=Operator("(") │
00:01:11 verbose #1206 > > │ input=Comment("i") │
00:01:11 verbose #1207 > > │ input=Identifier("V6SvLmm4yWqq") │
00:01:11 verbose #1208 > > │ input=StringLiteral("N|`%?./qX*~{P!{/mb") │
00:01:11 verbose #1209 > > │ input=StringLiteral("<Yf;<e<}7C:NL") │
00:01:11 verbose #1210 > > │ input=Comment("Yv'GRiAt\".Sz7<fPWN5=") │
00:01:11 verbose #1211 > > │ input=Operator("/") │
00:01:11 verbose #1212 > > │ input=Integer(8290530854285632998) │
00:01:11 verbose #1213 > > │ input=Identifier("kHEdCZtx8OV5JVvRpbO") │
00:01:11 verbose #1214 > > │ input=StringLiteral("ms<:X{%T{,H%.N[/$~") │
00:01:11 verbose #1215 > > │ input=StringLiteral("sz#H*/:") │
00:01:11 verbose #1216 > > │ input=Identifier("H6OXfBshobgg07Ws61Cw") │
00:01:11 verbose #1217 > > │ input=Integer(1076816942693649365) │
00:01:11 verbose #1218 > > │ input=Comment(" >t") │
00:01:11 verbose #1219 > > │ input=StringLiteral("<e%'%9siL*=.0)D1&") │
00:01:11 verbose #1220 > > │ │
00:01:11 verbose #1221 > > │ │
00:01:11 verbose #1222 > > │ successes: │
00:01:11 verbose #1223 > > │ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged │
00:01:11 verbose #1224 > > │ prop_parse_format_idempotent │
00:01:11 verbose #1225 > > │ test_parse_number │
00:01:11 verbose #1226 > > │ │
00:01:11 verbose #1227 > > │ test result: ok. 3 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; │
00:01:11 verbose #1228 > > │ finished in 0.15s │
00:01:11 verbose #1229 > > │ │
00:01:11 verbose #1230 > > │ │
00:01:11 verbose #1231 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #1232 > >
00:01:11 verbose #1233 > > ── markdown ────────────────────────────────────────────────────────────────────
00:01:11 verbose #1234 > > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:11 verbose #1235 > > │ ### execute the binary in release mode │
00:01:11 verbose #1236 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #1237 > >
00:01:11 verbose #1238 > > ── pwsh ────────────────────────────────────────────────────────────────────────
00:01:11 verbose #1239 > > { . $ScriptDir/../../../../workspace/target/release/spiral_temp_test$(_exe) } |
00:01:11 verbose #1240 > > Invoke-Block
00:01:11 verbose #1241 > >
00:01:11 verbose #1242 > > ╭─[ 80.74ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:11 verbose #1243 > > │ app=test │
00:01:11 verbose #1244 > > │ │
00:01:11 verbose #1245 > > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 verbose #1246 > 00:01:09 verbose #3 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 96220
00:01:11 verbose #1247 > 00:01:09 debug #4 runtime.execute_with_options / file_name: jupyter / arguments: ["nbconvert", "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb", "--to", "html", "--HTMLExporter.theme=dark"] / options: (None, "jupyter nbconvert "c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb" --to html --HTMLExporter.theme=dark", Array(MutCell([])), None, None, true, None)
00:01:13 verbose #1248 > 00:01:11 verbose #5 ! [NbConvertApp] Converting notebook c:/home/git/polyglot/apps/spiral/temp/test/build.dib.ipynb to html
00:01:13 verbose #1249 > 00:01:11 verbose #6 ! C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:13 verbose #1250 > 00:01:11 verbose #7 ! validate(nb)
00:01:14 verbose #1251 > 00:01:12 verbose #8 ! [NbConvertApp] Writing 348579 bytes to c:\home\git\polyglot\apps\spiral\temp\test\build.dib.html
00:01:14 verbose #1252 > 00:01:12 verbose #9 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 663
00:01:14 verbose #1253 > 00:01:12 debug #10 spiral_builder.run / dib / jupyter nbconvert / exit_code: 0 / jupyter_result.Length: 663
00:01:14 verbose #1254 > 00:01:12 debug #11 runtime.execute_with_options / file_name: pwsh / arguments: ["-c", "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/temp/test/build.dib.html'; (Get-Content $path -Raw) -replace '(id=\\\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"] / options: (None, "pwsh -c "$counter = 1; $path = 'c:/home/git/polyglot/apps/spiral/temp/test/build.dib.html'; (Get-Content $path -Raw) -replace '(id=\"cell-id=)[a-fA-F0-9]{8}', { $_.Groups[1].Value + $counter++ } | Set-Content $path"", Array(MutCell([])), None, None, true, None)
00:01:15 verbose #1255 > 00:01:13 verbose #12 runtime.execute_with_options / result / exit_code: 0 / std_trace.Length: 0
00:01:15 verbose #1256 > 00:01:13 debug #13 spiral_builder.run / dib / html cell ids / exit_code: 0 / pwsh_replace_html_result.Length: 0
00:01:16 verbose #1257 > 00:01:13 debug #14 spiral_builder.run / dib / exit_code: 0 / result.Length: 96942
00:01:16 debug #1258 runtime.execute_with_options_async / exit_code: 0 / output.Length: 101716
00:01:16 debug #3 main / executeCommand / exitCode: 0 / command: ../../../../workspace/target/release/spiral_builder.exe dib --path build.dib
00:01:16 verbose #6 networking.wait_for_port_access / port: 13805 / retry: 0 / timeout: Some 100 / status: False
00:01:16 debug #7 async.run_with_timeout_async / timeout: 100
In [ ]:
{ pwsh ../apps/spiral/vscode/build.ps1 } | Invoke-Block
bun install v1.1.7 (b0b7db5c) Checked 203 installs across 191 packages (no changes) [1.57s] Symlink already exists: C:\home\git\polyglot\apps\spiral\vscode\LICENSE -> C:\home\git\polyglot\LICENSE out\src\extension.js 2.4kb out\media\cellOutputScrollButtons.js 1.9kb ⚡ Done in 23ms (node:27572) [DEP0040] DeprecationWarning: The `punycode` module is deprecated. Please use a userland alternative instead. (Use `node --trace-deprecation ...` to show where the warning was created) DONE Packaged: out\spiral-vscode-0.0.1.vsix (26 files, 98.42KB)
In [ ]:
{ pwsh ../apps/ipfs/build.ps1 } | Invoke-Block
bun install v1.1.7 (b0b7db5c)
Done! Checked 220 packages (no changes) [1318.00ms]
In [ ]:
{ pwsh ./outdated.ps1 } | Invoke-Block
Paket version 8.1.0-alpha002+df391903d7590864c0bba48fdc34b50ddcc94cc2
Resolving dependency graph...
Outdated packages found:
Group: Main
* Argu 6.2.2 -> 6.2.4
* Expecto.FsCheck 10.2.1-fscheck3 -> 10.2.1
* FsCheck 3.0.0-rc3 -> 2.16.6
* FSharp.Core 8.0.300-beta.24080.5 -> 8.0.400-beta.24229.4
* Microsoft.AspNetCore.Connections.Abstractions 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.Http.Connections.Client 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.Http.Connections.Common 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Client 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Client.Core 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Common 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.AspNetCore.SignalR.Protocols.Json 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.Extensions.DependencyInjection 8.0 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.DependencyInjection.Abstractions 8.0.1 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Features 7.0 -> 9.0.0-preview.4.24267.6
* Microsoft.Extensions.Logging 8.0 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Logging.Abstractions 8.0.1 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Options 8.0.2 -> 9.0.0-preview.4.24266.19
* Microsoft.Extensions.Primitives 8.0 -> 9.0.0-preview.4.24266.19
* System.CodeDom 8.0 -> 9.0.0-preview.4.24266.19
* System.IO.Pipelines 8.0 -> 9.0.0-preview.4.24266.19
* System.Management 7.0 -> 9.0.0-preview.4.24266.19
* System.Reactive 6.0.1-preview.1 -> 6.0.1
* System.Reactive.Linq 6.0.1-preview.1 -> 6.0.1
* System.Threading.Channels 8.0 -> 9.0.0-preview.4.24266.19
Total time taken: 54 seconds
CheckToml / toml: C:\home\git\polyglot\workspace\Cargo.toml
chat_contract_tests
================
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
autocfg 1.3.0 Removed Removed Build ---
hashbrown 0.12.3 0.14.5 0.14.5 Normal ---
indexmap 1.9.3 2.2.6 2.2.6 Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\Cargo.toml
All dependencies are up to date, yay!
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\tests\Cargo.toml
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
indexmap->autocfg 1.3.0 Removed Removed Build ---
indexmap->hashbrown 0.12.3 0.14.5 0.14.5 Normal ---
serde_with->indexmap 1.9.3 2.2.6 2.2.6 Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\plot\Cargo.toml
All dependencies are up to date, yay!
CheckJson / json: C:/home/git/polyglot
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\package.json
@types/node ~20.12 → ~20.14
Run ncu --target greatest -u to upgrade package.json
CheckJson / json: C:/home/git/polyglot/apps/ipfs
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\ipfs\package.json
@types/node ~20.12 → ~20.14
Run ncu --target greatest -u to upgrade package.json
CheckJson / json: C:/home/git/polyglot/apps/spiral/temp/extension
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\temp\extension\package.json
@playwright/test 1.44.0 → 1.45.0-alpha-2024-06-06
Run ncu --target greatest -u to upgrade package.json
CheckJson / json: C:/home/git/polyglot/apps/spiral/vscode
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\vscode\package.json
@types/node ~20.12 → ~20.14
@types/vscode ~1.89 → ~1.90
@vscode/vsce ~2.26 → ~2.27
Run ncu --target greatest -u to upgrade package.json